[Emacs-diffs] trunk r118326: * lisp/minibuffer.el (minibuffer-completion-help): Compare this-command with completion-at-point.

[Juri Linkov]

------------------------------------------------------------
revno: 118326
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/17809
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Sun 2014-11-09 00:56:37 +0200
message:
  * lisp/minibuffer.el (minibuffer-completion-help): Compare this-command with 
completion-at-point.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/minibuffer.el             
minibuffer.el-20091113204419-o5vbwnq5f7feedwu-8622

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-11-08 21:32:10 +0000
+++ b/lisp/ChangeLog    2014-11-08 22:56:37 +0000
@@ -1,3 +1,8 @@
+2014-11-08  Juri Linkov  <address@hidden>
+
+       * minibuffer.el (minibuffer-completion-help): Compare this-command
+       with completion-at-point.  (Bug#17809)
+
 2014-11-08  Glenn Morris  <address@hidden>
 
        * emacs-lisp/bytecomp.el (byte-compile-report-error):

=== modified file 'lisp/minibuffer.el'
--- a/lisp/minibuffer.el        2014-09-30 00:48:31 +0000
+++ b/lisp/minibuffer.el        2014-11-08 22:56:37 +0000
@@ -1811,7 +1811,10 @@
              ;; Use `display-buffer-below-selected' for inline completions,
              ;; but not in the minibuffer (e.g. in `eval-expression')
              ;; for which `display-buffer-at-bottom' is used.
-             ,(if (and completion-in-region-mode-predicate
+             ;; Compare `this-command' with `completion-at-point'
+             ;; since `completion--in-region-1' sets `this-command'
+             ;; to this value for region completion commands.
+             ,(if (and (eq this-command 'completion-at-point)
                        (not (minibuffer-selected-window)))
                   'display-buffer-below-selected
                 'display-buffer-at-bottom))