aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-06-10 23:00:56 +0000
committerRichard M. Stallman1994-06-10 23:00:56 +0000
commite58df0dc548826092cb94521281b368dd78509c8 (patch)
treec5291043b33ac37d1de2d5b9d32e9841aa6141fb
parent03cb20991eb46775dd9a6c0292bce4da8a6b9c40 (diff)
downloademacs-e58df0dc548826092cb94521281b368dd78509c8.tar.gz
emacs-e58df0dc548826092cb94521281b368dd78509c8.zip
(ielm-complete-symbol): Likewise.
-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.")
87(defvar ielm-header 87(defvar ielm-header
88 (concat 88 (concat
89 "*** Welcome to IELM version " 89 "*** Welcome to IELM version "
90 (substring "$Revision: 1.25 $" 11 -2) 90 (substring "$Revision: 1.2 $" 11 -2)
91 " *** Type (describe-mode) for help.\n" 91 " *** Type (describe-mode) for help.\n"
92 "IELM has ABSOLUTELY NO WARRANTY; type (describe-no-warranty) for details.\n") 92 "IELM has ABSOLUTELY NO WARRANTY; type (describe-no-warranty) for details.\n")
93 "Message to display when IELM is started.") 93 "Message to display when IELM is started.")
@@ -132,7 +132,7 @@ This variable is buffer-local.")
132 ;; A wrapper for lisp-complete symbol that returns non-nil if 132 ;; A wrapper for lisp-complete symbol that returns non-nil if
133 ;; completion has occurred 133 ;; completion has occurred
134 (let* ((btick (buffer-modified-tick)) 134 (let* ((btick (buffer-modified-tick))
135 (cbuffer (get-buffer " *Completions*")) 135 (cbuffer (get-buffer "*Completions*"))
136 (ctick (and cbuffer (buffer-modified-tick cbuffer)))) 136 (ctick (and cbuffer (buffer-modified-tick cbuffer))))
137 (lisp-complete-symbol) 137 (lisp-complete-symbol)
138 ;; completion has occurred if: 138 ;; completion has occurred if:
@@ -142,7 +142,7 @@ This variable is buffer-local.")
142 ;; a completions buffer has been modifed or created 142 ;; a completions buffer has been modifed or created
143 (if cbuffer 143 (if cbuffer
144 (not (= ctick (buffer-modified-tick cbuffer))) 144 (not (= ctick (buffer-modified-tick cbuffer)))
145 (get-buffer " *Completions*"))))) 145 (get-buffer "*Completions*")))))
146 146
147(defun ielm-complete-filename nil 147(defun ielm-complete-filename nil
148 "Dynamically complete filename before point, if in a string." 148 "Dynamically complete filename before point, if in a string."