From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 12 Mar 1998 23:11:57 +0000 (+0000)
Subject: (mouse-buffer-menu-maxlen): Renamed from mouse-menu-buffer-maxlen.
X-Git-Tag: emacs-20.3~1926
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d9be91c3775d1ac5762b0e005a2d5f75dc307d3;p=emacs.git

(mouse-buffer-menu-maxlen): Renamed from mouse-menu-buffer-maxlen.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 1b053404c3c..4741d5fc8f6 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1296,10 +1296,10 @@ again.  If you do this twice in the same position, it kills the selection."
 			    (overlay-start mouse-secondary-overlay)
 			    (overlay-end mouse-secondary-overlay)))))))
 
-(defcustom mouse-menu-buffer-maxlen 20
+(defcustom mouse-buffer-menu-maxlen 20
   "*Number of buffers in one pane (submenu) of the buffer menu.
 If we have lots of buffers, divide them into groups of
-`mouse-menu-buffer-maxlen' and make a pane (or submenu) for each one."
+`mouse-buffer-menu-maxlen' and make a pane (or submenu) for each one."
   :type 'integer
   :group 'mouse)
 
@@ -1448,15 +1448,15 @@ and selects that window."
 (defun mouse-buffer-menu-split (title alist)
   ;; If we have lots of buffers, divide them into groups of 20
   ;; and make a pane (or submenu) for each one.
-  (if (> (length alist) (/ (* mouse-menu-buffer-maxlen 3) 2))
+  (if (> (length alist) (/ (* mouse-buffer-menu-maxlen 3) 2))
       (let ((alist alist) sublists next
 	    (i 1))
 	(while alist
-	  ;; Pull off the next mouse-menu-buffer-maxlen buffers
+	  ;; Pull off the next mouse-buffer-menu-maxlen buffers
 	  ;; and make them the next element of sublist.
-	  (setq next (nthcdr mouse-menu-buffer-maxlen alist))
+	  (setq next (nthcdr mouse-buffer-menu-maxlen alist))
 	  (if next
-	      (setcdr (nthcdr (1- mouse-menu-buffer-maxlen) alist)
+	      (setcdr (nthcdr (1- mouse-buffer-menu-maxlen) alist)
 		      nil))
 	  (setq sublists (cons (cons (format "Buffers %d" i) alist)
 			       sublists))