diff options
| author | John Paul Wallington | 2004-08-25 18:40:22 +0000 |
|---|---|---|
| committer | John Paul Wallington | 2004-08-25 18:40:22 +0000 |
| commit | e5927b52aa1a746cbf655a2973259159d9241772 (patch) | |
| tree | 7702c3bae1112d2a694582f876503965f36f5a37 /lisp | |
| parent | 5e4c34ce89498c4a6a84a73a65065b5d49dec9b5 (diff) | |
| download | emacs-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.el | 6 |
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 |