summaryrefslogtreecommitdiff
path: root/elisp/geiser-doc.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-21 16:57:55 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-21 16:57:55 +0100
commitd1404867c6a335e8f4469ee12500e9fefb0dad3e (patch)
tree14bfcd15c77cbcfebd2c42242782ea7716ef7759 /elisp/geiser-doc.el
parentf531c3e0f5afda77ada497d3932ea10502e22bdb (diff)
downloadgeiser-chez-d1404867c6a335e8f4469ee12500e9fefb0dad3e.tar.gz
geiser-chez-d1404867c6a335e8f4469ee12500e9fefb0dad3e.tar.bz2
CLisms removed
Diffstat (limited to 'elisp/geiser-doc.el')
-rw-r--r--elisp/geiser-doc.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index 3778770..7462c4a 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -44,12 +44,15 @@
;;; Documentation browser history:
(defvar geiser-doc-history-size 50)
+(defvar geiser-doc--history nil)
(defun geiser-doc--make-history ()
(list nil ; current
(make-ring geiser-doc-history-size) ; previous
(make-ring geiser-doc-history-size))) ; next
+(setq geiser-doc--history (geiser-doc--make-history))
+
(defsubst geiser-doc--history-current ()
(car geiser-doc--history))
@@ -82,9 +85,6 @@
(ring-insert (nth 2 geiser-doc--history) (car geiser-doc--history)))
(setcar geiser-doc--history (ring-remove (nth 1 geiser-doc--history) 0))))
-(defvar geiser-doc--history nil)
-(setq geiser-doc--history (geiser-doc--make-history))
-
;;; Links