mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(msb--choose-file-menu): Save some debugging info.

Browse source 
(msb--toggle-menu-type): Pass arg to menu-bar-update-buffers.
(msb--init-file-alist): Delete spurious =.
This commit is contained in:
Richard M. Stallman 1998-02-11 04:20:09 +00:00
parent e4b6f8e3fd
commit c549c1bfda
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/msb.el
View file

@ -469,14 +469,13 @@ If the argument is left out or nil, then the current buffer is considered."
(sort (mapcan
(function
(lambda (buffer)
(let ((file-name (expand-file-name (buffer-file-name buffer)))) =
;LGL 971218
(let ((file-name (expand-file-name (buffer-file-name buffer))))
(when file-name
(list (cons (msb--strip-dir file-name) buffer))))))
list)
(function (lambda (item1 item2)
(string< (car item1) (car item2)))))))
;; Now clump buffers togehter that have the same path
;; Now clump buffers together that have the same path
;; Make alist that looks like
;; ((PATH1 . (BUFFER-1 BUFFER-2 ...)) (PATH2 . (BUFFER-K)) ...)
(let ((path nil)
@ -513,9 +512,13 @@ If the argument is left out or nil, then the current buffer is considered."
(format (if top-found-p "%s... (%d)" "%s (%d)")
new-path number-of-items)))
;; Variables for debugging.
(defvar msb--choose-file-menu-list)
(defvar msb--choose-file-menu-arg-list)
;; Choose file-menu with respect to directory for every buffer in LIST.
(defun msb--choose-file-menu (list)
(setq msb--choose-file-menu-arg-list list)
(let ((buffer-alist (msb--init-file-alist list))
(final-list nil)
(max-clumped-together (if (numberp msb-max-file-menu-items)
@ -529,6 +532,7 @@ If the argument is left out or nil, then the current buffer is considered."
rest (cdr buffer-alist)
path (car first)
buffers (cdr first))
(setq msb--choose-file-menu-list (copy-list rest))
;; This big loop tries to clump buffers together that have a
;; similar name. Remember that buffer-alist is sorted based on the
;; path for the buffers.
@ -853,7 +857,9 @@ 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))
;; This gets a warning, but it is correct,
;; because this file redefines menu-bar-update-buffers.
(menu-bar-update-buffers t))
(defun mouse-select-buffer (event)
"Pop up several menus of buffers, for selection with the mouse.