Commit c94988f4 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

(execute-extended-command): Instead of here.
parent c2e145b2
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment