Mercurial > emacs
changeset 20506:c096aa581013
Fix mailer-introduced garbling.
(msb--toggle-menu-type): Don't pass arg to menu-bar-update-buffers.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 22 Dec 1997 06:06:54 +0000 |
| parents | 10abc15f305a |
| children | 07a8c7f7cfe8 |
| files | lisp/msb.el |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/msb.el Mon Dec 22 02:33:25 1997 +0000 +++ b/lisp/msb.el Mon Dec 22 06:06:54 1997 +0000 @@ -467,8 +467,7 @@ ;; Create an alist with all buffers from LIST that lies under the same ;; directory will be in the same item as the directory string. -;; ((PATH1 . (BUFFER-1 BUFFER-2 ...)) (PATH2 . (BUFFER-K BUFFER-K+1...)) = -...) +;; ((PATH1 . (BUFFER-1 BUFFER-2 ...)) (PATH2 . (BUFFER-K BUFFER-K+1...)) ...) (defun msb--init-file-alist (list) (let ((buffer-alist ;; Make alist that looks like @@ -494,7 +493,7 @@ (lambda (item) (cond ((and path - (string=3D path (car item))) + (string= path (car item))) ;; The same path as earlier: Add to current list of ;; buffers. (push (cdr item) buffers) @@ -861,7 +860,7 @@ (defun msb--toggle-menu-type () (interactive) (setq msb-files-by-directory (not msb-files-by-directory)) - (menu-bar-update-buffers t)) + (menu-bar-update-buffers)) (defun mouse-select-buffer (event) "Pop up several menus of buffers, for selection with the mouse.