* lisp/simple.el (execute-extended-command--shorter): Cut search here.

(execute-extended-command): Instead of here.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 984f4ce2cd754f709a6de4cb378a856d9b3d5327..0a73c570e61a974d6df80d23d10bdc8b28586f08 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-16  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * simple.el (execute-extended-command--shorter): Cut search here.
+       (execute-extended-command): Instead of here.
+
 2014-11-16  Fabián Ezequiel Gallina  <fgallina@gnu.org>
 
        * progmodes/python.el (python-mode): Avoid use of set-local to
@@ -15,8 +20,8 @@
 
 2014-11-16  Ulf Jasper  <ulf.jasper@web.de>
 
-       * calendar/icalendar.el (icalendar--convert-tz-offset): Return
-       complete cons when offsets of standard time and daylight saving
+       * calendar/icalendar.el (icalendar--convert-tz-offset):
+       Return complete cons when offsets of standard time and daylight saving
        time are equal.
        (icalendar-export-region): Fix unbound variable warning.
 
@@ -27,8 +32,8 @@
 
 2014-11-16  Fabián Ezequiel Gallina  <fgallina@gnu.org>
 
-       * progmodes/python.el (python-shell-calculate-command): Rename
-       from python-shell-parse-command.  Cleanup.
+       * progmodes/python.el (python-shell-calculate-command):
+       Rename from python-shell-parse-command.  Cleanup.
        (run-python, run-python-internal): Use it.
        (python-shell-calculate-pythonpath): Rename from
        python-new-pythonpath.

diff --git a/lisp/simple.el b/lisp/simple.el
index 9665cd53d3f88c7f22bf8af8ccd5f195b4987994..031970ebb72edc121c2d0dbafe6dff0b97639053 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1621,7 +1621,9 @@ If the value is non-nil and not a number, we wait 2 seconds."
                     (setq len (1+ len))
                     (setq candidates (execute-extended-command--shorter-1
                                       name len)))
-                  (< len max)))
+                  ;; Don't show the help message if the binding isn't
+                  ;; significantly shorter than the M-x command the user typed.
+                  (< len (- max 5))))
       (let ((candidate (pop candidates)))
         (when (equal name
                        (car-safe (completion-try-completion
@@ -1686,13 +1688,7 @@ invoking, give a prefix argument to `execute-extended-command'."
           (while-no-input
             (setq binding (execute-extended-command--shorter
                            (symbol-name function) typed))))
-        (when (and binding
-                  (or (not (stringp binding))
-                      (> (- (length (symbol-name function)) (length binding))
-                         ;; Don't show the help message if the
-                         ;; binding isn't significantly shorter than
-                         ;; the M-x command the user typed.
-                         5)))
+        (when binding
           (with-temp-message
               (format "You can run the command `%s' with %s"
                       function