Commit 9153492c authored by Richard M. Stallman's avatar Richard M. Stallman

Fix mailer-introduced garbling.

(msb--toggle-menu-type): Don't pass arg to menu-bar-update-buffers.
parent 7612d61a
......@@ -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.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment