aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorJohn Paul Wallington2004-08-25 18:40:22 +0000
committerJohn Paul Wallington2004-08-25 18:40:22 +0000
commite5927b52aa1a746cbf655a2973259159d9241772 (patch)
tree7702c3bae1112d2a694582f876503965f36f5a37 /lisp
parent5e4c34ce89498c4a6a84a73a65065b5d49dec9b5 (diff)
downloademacs-e5927b52aa1a746cbf655a2973259159d9241772.tar.gz
emacs-e5927b52aa1a746cbf655a2973259159d9241772.zip
(ielm-tab, ielm-complete-symbol): Doc fix.
(inferior-emacs-lisp-mode): Use `set-process-query-on-exit-flag'.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ielm.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ielm.el b/lisp/ielm.el
index 944e2453cb9..96969bfc878 100644
--- a/lisp/ielm.el
+++ b/lisp/ielm.el
@@ -198,7 +198,7 @@ This variable is buffer-local.")
198;;; Completion stuff 198;;; Completion stuff
199 199
200(defun ielm-tab nil 200(defun ielm-tab nil
201 "Possibly indent the current line as lisp code." 201 "Possibly indent the current line as Lisp code."
202 (interactive) 202 (interactive)
203 (if (or (eq (preceding-char) ?\n) 203 (if (or (eq (preceding-char) ?\n)
204 (eq (char-syntax (preceding-char)) ? )) 204 (eq (char-syntax (preceding-char)) ? ))
@@ -207,7 +207,7 @@ This variable is buffer-local.")
207 t))) 207 t)))
208 208
209(defun ielm-complete-symbol nil 209(defun ielm-complete-symbol nil
210 "Complete the lisp symbol before point." 210 "Complete the Lisp symbol before point."
211 ;; A wrapper for lisp-complete symbol that returns non-nil if 211 ;; A wrapper for lisp-complete symbol that returns non-nil if
212 ;; completion has occurred 212 ;; completion has occurred
213 (let* ((btick (buffer-modified-tick)) 213 (let* ((btick (buffer-modified-tick))
@@ -528,7 +528,7 @@ Customized bindings may be defined in `ielm-map', which currently contains:
528 (condition-case nil 528 (condition-case nil
529 (start-process "ielm" (current-buffer) "hexl") 529 (start-process "ielm" (current-buffer) "hexl")
530 (file-error (start-process "ielm" (current-buffer) "cat"))) 530 (file-error (start-process "ielm" (current-buffer) "cat")))
531 (process-kill-without-query (ielm-process)) 531 (set-process-query-on-exit-flag (ielm-process) nil)
532 (goto-char (point-max)) 532 (goto-char (point-max))
533 533
534 ;; Lisp output can include raw characters that confuse comint's 534 ;; Lisp output can include raw characters that confuse comint's