diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-12-22 06:06:54 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-12-22 06:06:54 +0000 |
commit | 9153492c3dd4755b4f0687780829040a965048a0 (patch) | |
tree | 32c9231421223074ac8a0b008fb69f2bbaaa2cc9 /lisp/msb.el | |
parent | 7612d61abd84126eb5288bac6ad4cc0e31a489b5 (diff) | |
download | emacs-9153492c3dd4755b4f0687780829040a965048a0.tar.gz |
Fix mailer-introduced garbling.
(msb--toggle-menu-type): Don't pass arg to menu-bar-update-buffers.
Diffstat (limited to 'lisp/msb.el')
-rw-r--r-- | lisp/msb.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/msb.el b/lisp/msb.el index ca53fb94c48..03361c16166 100644 --- a/lisp/msb.el +++ b/lisp/msb.el @@ -467,8 +467,7 @@ If the argument is left out or nil, then the current buffer is considered." ;; 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 @@ If the argument is left out or nil, then the current buffer is considered." (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 @@ If the argument is left out or nil, then the current buffer is considered." (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. |