[Emacs-diffs] master ac4532a: * lisp/simple.el (execute-extended-command--shorter): Fix the "M-p" case.

[Stefan Monnier]

branch: master
commit ac4532a2326535ef3c0d761d25e23acf55b107b3
Author: Stefan Monnier <address@hidden>
Date:   Fri Nov 28 18:14:38 2014 -0500

    * lisp/simple.el (execute-extended-command--shorter): Fix the "M-p" case.
    
    Fixes: debbugs:19152
---
 lisp/ChangeLog |   37 +++++++++++++++++++++----------------
 lisp/simple.el |    2 +-
 2 files changed, 22 insertions(+), 17 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 45ba279..782481f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,14 @@
+2014-11-28  Stefan Monnier  <address@hidden>
+
+       * simple.el (execute-extended-command--shorter): Fix the "M-p" case
+       (bug#19152).
+
 2014-11-28  Martin Rudalics  <address@hidden>
 
        Fix two issues around help-window-select.  (Bug#11039) (Bug#19012)
        * help.el (help-window-old-frame): New variable.
-       (help-window-select): Default to nil (Bug#11039).  Rewrite
-       doc-string.
+       (help-window-select): Default to nil (Bug#11039).
+       Rewrite doc-string.
        (help-window-setup): When the help window appears on another
        frame and `help-window-select' is non-nil, give that frame input
        focus too (Bug#19012).
@@ -18,20 +23,20 @@
 2014-11-28  Daiki Ueno  <address@hidden>
 
        * epa.el (epa-sign-file, epa-encrypt-file, epa-decrypt-region)
-       (epa-sign-region, epa-encrypt-region): Use
-       `epg-context-set-{passphrase,progress}-callback', instead of
+       (epa-sign-region, epa-encrypt-region):
+       Use `epg-context-set-{passphrase,progress}-callback', instead of
        `setf'.  This partially reverts commit 9e48a95c (bug#19150).
        Reported by José A. Romero L.
 
 2014-11-27  Lars Magne Ingebrigtsen  <address@hidden>
 
-       * net/eww.el (eww-restore-history): Bind
-       `inhibit-modification-hooks' instead of `after-change-functions'.
+       * net/eww.el (eww-restore-history):
+       Bind `inhibit-modification-hooks' instead of `after-change-functions'.
 
 2014-11-27  Ulf Jasper  <address@hidden>
 
-       * net/newst-backend.el (newsticker--parse-atom-1.0): Handle
-       embedded (x)html in summary node.
+       * net/newst-backend.el (newsticker--parse-atom-1.0):
+       Handle embedded (x)html in summary node.
 
 2014-11-27  Sam Steingold  <address@hidden>
 
@@ -40,8 +45,8 @@
 
 2014-11-27  Ulf Jasper  <address@hidden>
 
-       * net/newst-treeview.el (newsticker-groups-filename): Change
-       default value to nil.  Point out that variable is obsolete in doc
+       * net/newst-treeview.el (newsticker-groups-filename):
+       Change default value to nil.  Point out that variable is obsolete in doc
        string.
        (newsticker--treeview-load): Change wording of the questions the
        user is asked when `newsticker-groups-filename' is found to be
@@ -70,8 +75,8 @@
 
 2014-11-16  Fabián Ezequiel Gallina  <address@hidden>
 
-       * progmodes/python.el (python-eldoc--get-doc-at-point): Strip
-       shell output before returning.  (bug#18794)
+       * progmodes/python.el (python-eldoc--get-doc-at-point):
+       Strip shell output before returning.  (bug#18794)
 
 2014-11-16  Dmitry Gutov  <address@hidden>
 
@@ -109,8 +114,8 @@
 
 2014-11-26  Ulf Jasper  <address@hidden>
 
-       * net/newst-backend.el (newsticker--parse-generic-items): Take
-       care of UIDs when adding elements to cache.
+       * net/newst-backend.el (newsticker--parse-generic-items):
+       Take care of UIDs when adding elements to cache.
 
 2014-11-26  Alan Mackenzie  <address@hidden>
 
@@ -249,8 +254,8 @@
 
 2014-11-22  Ulf Jasper  <address@hidden>
 
-       * net/newst-backend.el (newsticker--sentinel-work): Tell
-       `libxml-parse-xml-region' to discard comments. Fixes bug#18787.
+       * net/newst-backend.el (newsticker--sentinel-work):
+       Tell `libxml-parse-xml-region' to discard comments. Fixes bug#18787.
 
 2014-11-22  Michael Albinus  <address@hidden>
 
diff --git a/lisp/simple.el b/lisp/simple.el
index 2a47165..16db05a 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1612,7 +1612,7 @@ If the value is non-nil and not a number, we wait 2 
seconds."
 
 (defun execute-extended-command--shorter (name typed)
   (let ((candidates '())
-        (max (length (or typed name)))
+        (max (length typed))
         (len 1)
         binding)
     (while (and (not binding)