From 9153492c3dd4755b4f0687780829040a965048a0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 22 Dec 1997 06:06:54 +0000 Subject: [PATCH] Fix mailer-introduced garbling. (msb--toggle-menu-type): Don't pass arg to menu-bar-update-buffers. --- lisp/msb.el | 7 +++---- 1 file 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. -- 2.39.2