aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2016-12-23 10:53:31 +0200
committerEli Zaretskii2016-12-23 10:53:31 +0200
commit08de101d754e552e42d838c8b27e1b374791d9af (patch)
treec16c922cf52e116dad334de50b57fe22dccccfff
parent86a297a43d614f11df5a8ec051879ec3af51e679 (diff)
downloademacs-08de101d754e552e42d838c8b27e1b374791d9af.tar.gz
emacs-08de101d754e552e42d838c8b27e1b374791d9af.zip
Fix M-x hints on Mac port
* lisp/simple.el (execute-extended-command--shorter): Call input-pending-p to trigger input processing on some systems, such as Mac port. (Bug#23002)
-rw-r--r--lisp/simple.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index 162f6dd89c5..c85e2cdb177 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1663,6 +1663,7 @@ If the value is non-nil and not a number, we wait 2 seconds."
1663 ;; Don't show the help message if the binding isn't 1663 ;; Don't show the help message if the binding isn't
1664 ;; significantly shorter than the M-x command the user typed. 1664 ;; significantly shorter than the M-x command the user typed.
1665 (< len (- max 5)))) 1665 (< len (- max 5))))
1666 (input-pending-p) ;Dummy call to trigger input-processing, bug#23002.
1666 (let ((candidate (pop candidates))) 1667 (let ((candidate (pop candidates)))
1667 (when (equal name 1668 (when (equal name
1668 (car-safe (completion-try-completion 1669 (car-safe (completion-try-completion