From 2a689bed9602ed18e3001099e33cd3d87feb92c1 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 21 Nov 2010 16:57:55 +0100
Subject: CLisms removed

---
 elisp/geiser-autodoc.el    | 2 +-
 elisp/geiser-completion.el | 4 ++--
 elisp/geiser-doc.el        | 6 +++---
 3 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'elisp')

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
 
-- 
cgit v1.2.3