diff options
| author | Kim F. Storm | 2006-11-28 09:22:13 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-11-28 09:22:13 +0000 |
| commit | fe689fb6615bc61d6733a413a5697af437630207 (patch) | |
| tree | c8b79f365e823509636d72f6d89a809ac938befd | |
| parent | c09908a3bd09fdd70f7caa2f016e1067637b0e92 (diff) | |
| download | emacs-fe689fb6615bc61d6733a413a5697af437630207.tar.gz emacs-fe689fb6615bc61d6733a413a5697af437630207.zip | |
(icomplete-tidy, icomplete-exhibit): Check that
icomplete-mode is enabled.
| -rw-r--r-- | lisp/icomplete.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/icomplete.el b/lisp/icomplete.el index 6687c13275b..8c1ee3ad64c 100644 --- a/lisp/icomplete.el +++ b/lisp/icomplete.el | |||
| @@ -216,7 +216,7 @@ Usually run by inclusion in `minibuffer-setup-hook'." | |||
| 216 | "Remove completions display \(if any) prior to new user input. | 216 | "Remove completions display \(if any) prior to new user input. |
| 217 | Should be run in on the minibuffer `pre-command-hook'. See `icomplete-mode' | 217 | Should be run in on the minibuffer `pre-command-hook'. See `icomplete-mode' |
| 218 | and `minibuffer-setup-hook'." | 218 | and `minibuffer-setup-hook'." |
| 219 | (when icomplete-eoinput | 219 | (when (and icomplete-mode icomplete-eoinput) |
| 220 | 220 | ||
| 221 | (unless (>= icomplete-eoinput (point-max)) | 221 | (unless (>= icomplete-eoinput (point-max)) |
| 222 | (let ((buffer-undo-list t)) ; prevent entry | 222 | (let ((buffer-undo-list t)) ; prevent entry |
| @@ -230,7 +230,7 @@ and `minibuffer-setup-hook'." | |||
| 230 | "Insert icomplete completions display. | 230 | "Insert icomplete completions display. |
| 231 | Should be run via minibuffer `post-command-hook'. See `icomplete-mode' | 231 | Should be run via minibuffer `post-command-hook'. See `icomplete-mode' |
| 232 | and `minibuffer-setup-hook'." | 232 | and `minibuffer-setup-hook'." |
| 233 | (when (icomplete-simple-completing-p) | 233 | (when (and icomplete-mode (icomplete-simple-completing-p)) |
| 234 | (save-excursion | 234 | (save-excursion |
| 235 | (goto-char (point-max)) | 235 | (goto-char (point-max)) |
| 236 | ;; Register the end of input, so we know where the extra stuff | 236 | ;; Register the end of input, so we know where the extra stuff |