# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 771289256 0
# Node ID 50676390b1626af4ee46f74686e82d2a456b96c5
# Parent  f152f2b276c5f78040c1d6d6becf7b3912d0e6bd
(ielm-complete-symbol): Likewise.

diff -r f152f2b276c5 -r 50676390b162 lisp/ielm.el
--- a/lisp/ielm.el	Fri Jun 10 23:00:40 1994 +0000
+++ b/lisp/ielm.el	Fri Jun 10 23:00:56 1994 +0000
@@ -87,7 +87,7 @@
 (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 @@
   ;; 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 @@
      ;; 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."