summaryrefslogtreecommitdiff
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
parentf531c3e0f5afda77ada497d3932ea10502e22bdb (diff)
downloadgeiser-chez-d1404867c6a335e8f4469ee12500e9fefb0dad3e.tar.gz
geiser-chez-d1404867c6a335e8f4469ee12500e9fefb0dad3e.tar.bz2
CLisms removed
-rw-r--r--elisp/geiser-autodoc.el2
-rw-r--r--elisp/geiser-completion.el4
-rw-r--r--elisp/geiser-doc.el6
3 files changed, 6 insertions, 6 deletions
diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index eefcaf1..b1feef3 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -89,7 +89,7 @@ when `geiser-autodoc-display-module-p' is on."
(defun geiser-autodoc--format-arg (a)
(cond ((null a) "()")
((symbolp a) (format "%s" a))
- ((equalp a "...") "...")
+ ((equal a "...") "...")
((stringp a) (format "%S" a))
((and (listp a) (keywordp (car a)))
(if (and (cdr a) (listp (cdr a)))
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index caa529e..37d2dc6 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -240,8 +240,8 @@ With prefix, complete module name."
(geiser-completion--complete-symbol t prefix)
(geiser--respecting-message "Can't find completion for %s"
(if (and previous
- (not (equalp previous
- prefix)))
+ (not (equal previous
+ prefix)))
(format "%S or %S"
previous prefix)
prefix))
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