[Emacs-diffs] Changes to emacs/lisp/simple.el,v

[John Paul Wallington]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     John Paul Wallington <jpw>      06/09/04 18:24:48

Index: simple.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/simple.el,v
retrieving revision 1.813
retrieving revision 1.814
diff -u -b -r1.813 -r1.814
--- simple.el   4 Sep 2006 15:03:26 -0000       1.813
+++ simple.el   4 Sep 2006 18:24:48 -0000       1.814
@@ -4984,6 +4984,12 @@
 
 ;; Variables and faces used in `completion-setup-function'.
 
+(defcustom completion-show-help t
+  "Non-nil means show help message in *Completions* buffer."
+  :type 'boolean
+  :version "22.1"
+  :group 'completion)
+
 (defface completions-first-difference
   '((t (:inherit bold)))
   "Face put on the first uncommon character in completions in *Completions* 
buffer."
@@ -5070,14 +5076,15 @@
              (if (get-char-property element-common-end 'mouse-face)
                  (put-text-property element-common-end (1+ element-common-end)
                                     'font-lock-face 
'completions-first-difference))))))
-      ;; Insert help string.
+      ;; Maybe insert help string.
+      (when completion-show-help
       (goto-char (point-min))
       (if (display-mouse-p)
          (insert (substitute-command-keys
                   "Click \\[mouse-choose-completion] on a completion to select 
it.\n")))
       (insert (substitute-command-keys
               "In this buffer, type \\[choose-completion] to \
-select the completion near point.\n\n")))))
+select the completion near point.\n\n"))))))
 
 (add-hook 'completion-setup-hook 'completion-setup-function)