From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 10 Jun 1994 23:00:56 +0000 (+0000)
Subject: (ielm-complete-symbol): Likewise.
X-Git-Tag: emacs-19.34~8011
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e58df0dc548826092cb94521281b368dd78509c8;p=emacs.git

(ielm-complete-symbol): Likewise.
---

diff --git a/lisp/ielm.el b/lisp/ielm.el
index b20b5c54dca..3b625f6a64a 100644
--- a/lisp/ielm.el
+++ b/lisp/ielm.el
@@ -87,7 +87,7 @@ This variable is buffer-local.")
 (defvar ielm-header 
   (concat
    "*** Welcome to IELM version "
-   (substring "$Revision: 1.25 $" 11 -2)
+   (substring "$Revision: 1.2 $" 11 -2)
    " ***  Type (describe-mode) for help.\n"
    "IELM has ABSOLUTELY NO WARRANTY; type (describe-no-warranty) for details.\n")
   "Message to display when IELM is started.")
@@ -132,7 +132,7 @@ This variable is buffer-local.")
   ;; A wrapper for lisp-complete symbol that returns non-nil if
   ;; completion has occurred
   (let* ((btick (buffer-modified-tick))
-	 (cbuffer (get-buffer " *Completions*"))
+	 (cbuffer (get-buffer "*Completions*"))
 	 (ctick (and cbuffer (buffer-modified-tick cbuffer))))
     (lisp-complete-symbol)
      ;; completion has occurred if:
@@ -142,7 +142,7 @@ This variable is buffer-local.")
      ;; a completions buffer has been modifed or created
      (if cbuffer
 	 (not (= ctick (buffer-modified-tick cbuffer)))
-       (get-buffer " *Completions*")))))
+       (get-buffer "*Completions*")))))
 
 (defun ielm-complete-filename nil
   "Dynamically complete filename before point, if in a string."