[Emacs-diffs] trunk r116657: minibuffer.el (minibuffer-completion-help): Use 0 as thefallback value for `base-size'

[Bastien Guerry]

------------------------------------------------------------
revno: 116657
revision-id: address@hidden
parent: address@hidden
committer: Bastien Guerry <address@hidden>
branch nick: trunk
timestamp: Tue 2014-03-04 15:33:56 +0100
message:
  minibuffer.el (minibuffer-completion-help): Use 0 as thefallback value for 
`base-size'
  
  * minibuffer.el (minibuffer-completion-help): Use 0 as the
  fallback value for `base-size'.  (Bug#16933)
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/minibuffer.el             
minibuffer.el-20091113204419-o5vbwnq5f7feedwu-8622

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-04 14:13:41 +0000
+++ b/lisp/ChangeLog    2014-03-04 14:33:56 +0000
@@ -1,3 +1,8 @@
+2014-03-04  Bastien Guerry  <address@hidden>
+
+       * minibuffer.el (minibuffer-completion-help): Use 0 as the
+       fallback value for `base-size'.  (Bug#16933)
+
 2014-03-04  Juanma Barranquero  <address@hidden>
 
        * hexl.el (hexl-address-region, hexl-ascii-region)

=== modified file 'lisp/minibuffer.el'
--- a/lisp/minibuffer.el        2014-03-01 02:31:05 +0000
+++ b/lisp/minibuffer.el        2014-03-04 14:33:56 +0000
@@ -1753,7 +1753,7 @@
            (if completions "Sole completion" "No completions")))
 
       (let* ((last (last completions))
-             (base-size (cdr last))
+             (base-size (or (cdr last) 0))
              (prefix (unless (zerop base-size) (substring string 0 base-size)))
              (all-md (completion--metadata (buffer-substring-no-properties
                                             start (point))