(describe-mouse-briefly): Fix message spelling.

[gnu-emacs] / lisp / complete.el

diff --git a/lisp/complete.el b/lisp/complete.el
index fea946186327489eeeba30cdff8dead2651ad817..3230524e730f7f43d381677f37a4159f66042468 100644 (file)
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -1,8 +1,9 @@
-;; complete.el -- partial completion mechanism plus other goodies.
+;;; complete.el -- partial completion mechanism plus other goodies
 
 ;; Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
 
 ;; Author: Dave Gillespie <daveg@synaptics.com>
+;; Keywords: abbrev
 ;; Version: 2.02
 ;; Special thanks to Hallvard Furuseth for his many ideas and contributions.
 
@@ -228,7 +229,7 @@ See `PC-complete' for details."
           (if (or (eq flag 'complete)
                   (not minibuffer-completion-confirm))
               (exit-minibuffer)
-            (PC-temp-minibuffer-message " (Confirm)"))))))
+            (PC-temp-minibuffer-message " [Confirm]"))))))
 
 
 (defun PC-completion-help ()
@@ -400,10 +401,10 @@ See `PC-complete' for details."
              (PC-do-completion 'word))
          (beep)
          (PC-temp-minibuffer-message (if ambig
-                                         " (Ambiguous dir name)"
+                                         " [Ambiguous dir name]"
                                        (if (eq mode 'help)
-                                           " (No completions)"
-                                         " (No match)")))
+                                           " [No completions]"
+                                         " [No match]")))
          nil))
 
        ;; More than one valid completion found
@@ -441,12 +442,12 @@ See `PC-complete' for details."
        (while (and p
                    (not (equal (car p) basestr)))
          (setq p (cdr p)))
-       (if p
-
-           (progn
-             (if (null mode)
-                 (PC-temp-minibuffer-message " (Complete, but not unique)"))
-             t)
+       (and p (null mode)
+            (PC-temp-minibuffer-message " [Complete, but not unique]"))
+       (if (and p
+                (not (and (null mode)
+                          (eq this-command last-command))))
+           t
 
          ;; If ambiguous, try for a partial completion
          (let ((improved nil)
@@ -539,14 +540,14 @@ See `PC-complete' for details."
                        ;; so that choosing a completion from the list
                        ;; knows how much old text to replace.
                        (setq completion-base-size dirlength)))
-                 (PC-temp-minibuffer-message " (Next char not unique)"))
+                 (PC-temp-minibuffer-message " [Next char not unique]"))
                nil)))))
 
        ;; Only one possible completion
        (t
        (if (equal basestr (car poss))
            (if (null mode)
-               (PC-temp-minibuffer-message " (Sole completion)"))
+               (PC-temp-minibuffer-message " [Sole completion]"))
          (delete-region beg end)
          (insert (format "%s"
                          (if filename