summaryrefslogtreecommitdiff
path: root/lisp/msb.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1997-12-22 06:06:54 +0000
committerRichard M. Stallman <rms@gnu.org>1997-12-22 06:06:54 +0000
commit9153492c3dd4755b4f0687780829040a965048a0 (patch)
tree32c9231421223074ac8a0b008fb69f2bbaaa2cc9 /lisp/msb.el
parent7612d61abd84126eb5288bac6ad4cc0e31a489b5 (diff)
downloademacs-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.el7
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.