Mercurial > emacs
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."