]> git.eshelyaron.com Git - emacs.git/commitdiff
* minibuf.c (Finternal_complete_buffer): Fix last change.
authorStefan Monnier <monnier@iro.umontreal.ca>
Tue, 11 Oct 2011 17:32:38 +0000 (13:32 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Tue, 11 Oct 2011 17:32:38 +0000 (13:32 -0400)
Fixes: debbugs:9709
src/ChangeLog
src/minibuf.c

index 9cef045c0293deee53c1f405cc20ee47ecabb69e..f659c1157a193c29a2e7d4c06e2ef36d51b53080 100644 (file)
@@ -1,3 +1,7 @@
+2011-10-11  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * minibuf.c (Finternal_complete_buffer): Fix last change (bug#9709).
+
 2011-10-08  Glenn Morris  <rgm@gnu.org>
 
        * callint.c (Fcall_interactively): Give a more explicit error for the
index f082cc01d975d561aa3521198efbe83b329fe9aa..a44a6376472382832ed63d0768a7deb37a19d1a4 100644 (file)
@@ -1859,9 +1859,10 @@ The arguments STRING and PREDICATE are as in `try-completion',
          /* First, look for a non-internal buffer in `res'.  */
          while (CONSP (bufs) && SREF (XCAR (bufs), 0) == ' ')
            bufs = XCDR (bufs);
-         if (NILP (bufs) && EQ (Flength (res), Flength (Vbuffer_alist)))
-           /* All bufs are internal, so don't trip them out.  */
-           return res;
+         if (NILP (bufs))
+           return (EQ (Flength (res), Flength (Vbuffer_alist))
+                   /* If all bufs are internal don't strip them out.  */
+                   ? res : bufs);
          res = bufs;
          while (CONSP (XCDR (bufs)))
            if (SREF (XCAR (XCDR (bufs)), 0) == ' ')