Remove extraneous messages in 2011-03-30 completion change.

These blocked the minibuffer contents when completing in the minibuffer, in a
departure from previous Emacs behavior.

* lisp/minibuffer.el (completion-in-region--postch)
(completion-in-region-mode): Remove unnecessary messages.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76a9923e7a03e9fe37273c4ed00623470da689fe..e98451a690900c0efeac6a2e46f4db6349cecb38 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-05  Chong Yidong  <cyd@stupidchicken.com>
+
+       * minibuffer.el (completion-in-region--postch)
+       (completion-in-region-mode): Remove unnecessary messages.
+
 2011-04-05  Juanma Barranquero  <lekktu@gmail.com>
 
        * font-lock.el (font-lock-refresh-defaults):

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 83358ba2f01ce7f3989ab30f2c147659eb720072..19084aad5d689e5e50ae469ef2d6e38f2bc939b4 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1278,7 +1278,6 @@ Point needs to be somewhere between START and END."
 ;; - pcomplete: pop it down on SPC or after some time-delay.
 ;; - semantic: use a post-command-hook check similar to this one.
 (defun completion-in-region--postch ()
-  (message "completion-in-region--postch: cmd=%s" this-command)
   (or unread-command-events ;Don't pop down the completions in the middle of
                             ;mouse-drag-region/mouse-set-point.
       (and completion-in-region--data
@@ -1310,10 +1309,8 @@ Point needs to be somewhere between START and END."
         (delq (assq 'completion-in-region-mode minor-mode-overriding-map-alist)
               minor-mode-overriding-map-alist))
   (if (null completion-in-region-mode)
-      (progn
-        (unless (equal "*Completions*" (buffer-name (window-buffer)))
-          (minibuffer-hide-completions))
-        (message "Leaving completion-in-region-mode"))
+      (unless (equal "*Completions*" (buffer-name (window-buffer)))
+       (minibuffer-hide-completions))
     ;; (add-hook 'pre-command-hook #'completion-in-region--prech)
     (add-hook 'post-command-hook #'completion-in-region--postch)
     (push `(completion-in-region-mode . ,completion-in-region-mode-map)