diff options
| author | Richard M. Stallman | 1994-06-10 23:00:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-06-10 23:00:56 +0000 |
| commit | e58df0dc548826092cb94521281b368dd78509c8 (patch) | |
| tree | c5291043b33ac37d1de2d5b9d32e9841aa6141fb | |
| parent | 03cb20991eb46775dd9a6c0292bce4da8a6b9c40 (diff) | |
| download | emacs-e58df0dc548826092cb94521281b368dd78509c8.tar.gz emacs-e58df0dc548826092cb94521281b368dd78509c8.zip | |
(ielm-complete-symbol): Likewise.
| -rw-r--r-- | lisp/ielm.el | 6 |
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." |