diff lisp/buff-menu.el @ 5473:ac37a5f7e5be

Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Thu, 17 Mar 2011 23:42:59 +0100
parents 308d34e9f07d f00192e1cd49
children 8861440b1aa4
line wrap: on
line diff
--- a/lisp/buff-menu.el	Tue Feb 22 22:56:02 2011 +0100
+++ b/lisp/buff-menu.el	Thu Mar 17 23:42:59 2011 +0100
@@ -641,8 +641,8 @@
 			   (if (memq files-only '(t nil))
 			       #'(lambda (b)
 				   (let ((n (buffer-name b)))
-				     (cond ((and (/= 0 (length n))
-						 (= (aref n 0) ?\ ))
+				     (cond ((and (not (eql 0 (length n)))
+						 (eql (aref n 0) ?\ ))
 					    ;;don't mention if starts with " "
 					    nil)
 					   (files-only