From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 11 Feb 1998 04:20:09 +0000 (+0000)
Subject: (msb--choose-file-menu): Save some debugging info.
X-Git-Tag: emacs-20.3~2190
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c549c1bfda655c21be6e296c707bf6f6a6c6ddb4;p=emacs.git

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

(msb--toggle-menu-type): Pass arg to menu-bar-update-buffers.
(msb--init-file-alist): Delete spurious =.
---

diff --git a/lisp/msb.el b/lisp/msb.el
index 3db53b86ba1..d70a5f46c8f 100644
--- a/lisp/msb.el
+++ b/lisp/msb.el
@@ -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.