Mercurial > hg > xemacs-beta
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