Mercurial > hg > xemacs-beta
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 5472:e79980ee5efe | 5473:ac37a5f7e5be |
|---|---|
| 639 (let ((buffer (get-buffer-create "*Buffer List*"))) | 639 (let ((buffer (get-buffer-create "*Buffer List*"))) |
| 640 (list-buffers-internal buffer | 640 (list-buffers-internal buffer |
| 641 (if (memq files-only '(t nil)) | 641 (if (memq files-only '(t nil)) |
| 642 #'(lambda (b) | 642 #'(lambda (b) |
| 643 (let ((n (buffer-name b))) | 643 (let ((n (buffer-name b))) |
| 644 (cond ((and (/= 0 (length n)) | 644 (cond ((and (not (eql 0 (length n))) |
| 645 (= (aref n 0) ?\ )) | 645 (eql (aref n 0) ?\ )) |
| 646 ;;don't mention if starts with " " | 646 ;;don't mention if starts with " " |
| 647 nil) | 647 nil) |
| 648 (files-only | 648 (files-only |
| 649 (buffer-file-name b)) | 649 (buffer-file-name b)) |
| 650 (t | 650 (t |