aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2008-04-09 21:18:25 +0000
committerJuanma Barranquero2008-04-09 21:18:25 +0000
commite1bb0fe5aac3909859ea391087c5cef6f5e177a7 (patch)
tree3cad0b956ba2c04e1b252d5c61b3a84e90ab71a1
parent8f49a7254d9fce4e9d6cba135c285b329d5684e9 (diff)
downloademacs-e1bb0fe5aac3909859ea391087c5cef6f5e177a7.tar.gz
emacs-e1bb0fe5aac3909859ea391087c5cef6f5e177a7.zip
(completion-auto-help): Fix typo.
-rw-r--r--lisp/minibuffer.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 8815a72222a..d9c52fa4f0b 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -71,7 +71,7 @@ If the value is t the *Completion* buffer is displayed whenever completion
71is requested but cannot be done. 71is requested but cannot be done.
72If the value is `lazy', the *Completions* buffer is only displayed after 72If the value is `lazy', the *Completions* buffer is only displayed after
73the second failed attempt to complete." 73the second failed attempt to complete."
74 :type (choice (const nil) (const t) (const lazy)) 74 :type '(choice (const nil) (const t) (const lazy))
75 :group 'minibuffer) 75 :group 'minibuffer)
76 76
77(defun minibuffer--bitset (modified completions exact) 77(defun minibuffer--bitset (modified completions exact)
@@ -248,7 +248,7 @@ a repetition of this command will exit."
248 ;; which makes it trivial to find the position, but with fancier 248 ;; which makes it trivial to find the position, but with fancier
249 ;; completion (plus env-var expansion, ...) `completion' might not 249 ;; completion (plus env-var expansion, ...) `completion' might not
250 ;; look anything like `string' at all. 250 ;; look anything like `string' at all.
251 251
252 (when minibuffer-completing-file-name 252 (when minibuffer-completing-file-name
253 ;; In order to minimize the problem mentioned above, let's try to 253 ;; In order to minimize the problem mentioned above, let's try to
254 ;; reduce the different between `string' and `completion' by 254 ;; reduce the different between `string' and `completion' by
@@ -394,7 +394,7 @@ during running `completion-setup-hook'."
394 (goto-char (point-max)) 394 (goto-char (point-max))
395 (if (null completions) 395 (if (null completions)
396 (insert "There are no possible completions of what you have typed.") 396 (insert "There are no possible completions of what you have typed.")
397 397
398 (insert "Possible completions are:\n") 398 (insert "Possible completions are:\n")
399 (minibuffer--insert-strings completions)))) 399 (minibuffer--insert-strings completions))))
400 (let ((completion-common-substring common-substring)) 400 (let ((completion-common-substring common-substring))