summaryrefslogtreecommitdiff
path: root/lisp/ielm.el
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1997-03-12 00:29:09 +0000
committerKarl Heuer <kwzh@gnu.org>1997-03-12 00:29:09 +0000
commitbf69fbc9ed85b9476a53e9cc0c386ea3dcca5c8b (patch)
tree1bb638ad43747cf882beca5d69d7d39a5795fa8b /lisp/ielm.el
parent290ebb7794a3471a3f640b719511696edef3554c (diff)
downloademacs-bf69fbc9ed85b9476a53e9cc0c386ea3dcca5c8b.tar.gz
(inferior-emacs-lisp-mode): Set comint-completion-addsuffix.
Diffstat (limited to 'lisp/ielm.el')
-rw-r--r--lisp/ielm.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ielm.el b/lisp/ielm.el
index afc2fa3a858..a5ce307a3d1 100644
--- a/lisp/ielm.el
+++ b/lisp/ielm.el
@@ -89,7 +89,7 @@ This variable is buffer-local.")
(defvar ielm-header
(concat
"*** Welcome to IELM version "
- (substring "$Revision: 1.7 $" 11 -2)
+ (substring "$Revision: 1.8 $" 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.")
@@ -405,6 +405,9 @@ Customised bindings may be defined in `ielm-map', which currently contains:
(setq comint-dynamic-complete-functions
'(ielm-tab comint-replace-by-expanded-history ielm-complete-filename ielm-complete-symbol))
(setq comint-get-old-input 'ielm-get-old-input)
+ (make-local-variable 'comint-completion-addsuffix)
+ (setq comint-completion-addsuffix
+ (cons (char-to-string directory-sep-char) ""))
(setq major-mode 'inferior-emacs-lisp-mode)
(setq mode-name "IELM")