summaryrefslogtreecommitdiff
path: root/lisp/ielm.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-06-10 23:00:56 +0000
committerRichard M. Stallman <rms@gnu.org>1994-06-10 23:00:56 +0000
commit2e27b580e73d1cbd4f2639634f836a57adb9931e (patch)
treeb9d459d8419d047853582f27d4221c0729d84e2b /lisp/ielm.el
parentd0211a1bf48059b8b32c8c8742a119e43dcd0038 (diff)
downloademacs-2e27b580e73d1cbd4f2639634f836a57adb9931e.tar.gz
(ielm-complete-symbol): Likewise.
Diffstat (limited to 'lisp/ielm.el')
-rw-r--r--lisp/ielm.el6
1 files changed, 3 insertions, 3 deletions
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."