changeset 7842:50676390b162

(ielm-complete-symbol): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Fri, 10 Jun 1994 23:00:56 +0000
parents f152f2b276c5
children 38d89820ab47
files lisp/ielm.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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."