steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: Fixes in help pages caching.

db4
Jose A. Ortega Ruiz 2009-01-04 19:40:22 +01:00
parent b05a2388f0
commit b5110ccdb6
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
misc/fuel/fuel-help.el
View File

@ -87,7 +87,7 @@
(defun fuel-help--history-current-content () (defun fuel-help--history-current-content ()
(fuel-help--cache-get (car fuel-help--history))) (fuel-help--cache-get (car fuel-help--history)))
(defvar fuel-help--cache (make-hash-table :test 'equal)) (defvar fuel-help--cache (make-hash-table :weakness 'key :test 'equal))
(defsubst fuel-help--cache-get (name) (defsubst fuel-help--cache-get (name)
(gethash name fuel-help--cache)) (gethash name fuel-help--cache))

7
misc/fuel/fuel-markup.el
View File

@ -53,7 +53,7 @@
(when fuel-markup--follow-link-function (when fuel-markup--follow-link-function
(funcall fuel-markup--follow-link-function (funcall fuel-markup--follow-link-function
(button-get button 'markup-link) (button-get button 'markup-link)
(button-label button) (button-get button 'markup-label)
(button-get button 'markup-link-type)))) (button-get button 'markup-link-type))))
(defun fuel-markup--echo-link (link label type) (defun fuel-markup--echo-link (link label type)
@ -65,8 +65,9 @@
(insert-text-button label (insert-text-button label
:type 'fuel-markup--button :type 'fuel-markup--button
'markup-link link 'markup-link link
'markup-label label
'markup-link-type type 'markup-link-type type
'help-echo link))) 'help-echo (format "%s (%s)" label type))))
(defun fuel-markup--article-title (name) (defun fuel-markup--article-title (name)
(fuel-eval--retort-result (fuel-eval--retort-result
@ -76,7 +77,7 @@
(let ((button (condition-case nil (forward-button 0) (error nil)))) (let ((button (condition-case nil (forward-button 0) (error nil))))
(when button (when button
(list (button-get button 'markup-link) (list (button-get button 'markup-link)
(button-label button) (button-get button 'markup-label)
(button-get button 'markup-link-type))))) (button-get button 'markup-link-type)))))