X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fbuff-menu.el;h=1729956f29866ff1e248b2ce407fa1a562e421b4;hb=d34741dd7fc8cca69512739dd3d392ee303e6905;hp=3a6df7b1aebb3616137eb059c9aca466e478bc6b;hpb=2fd9701a4f902054649dde9143a3f77809afee8f;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index 3a6df7b..1729956 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -46,7 +46,7 @@
 ;; Based on FSF code dating back to 1985.
 
 ;;; Code:
- 
+
 ;;;Trying to preserve the old window configuration works well in
 ;;;simple scenarios, when you enter the buffer menu, use it, and exit it.
 ;;;But it does strange things when you switch back to the buffer list buffer
@@ -140,8 +140,8 @@ Letters do not insert themselves; instead, they are commands.
   (setq revert-buffer-function 'Buffer-menu-revert-function)
   (setq truncate-lines t)
   (setq buffer-read-only t)
-  (make-local-variable 'mouse-track-click-hook) ; XEmacs
-  (add-hook 'mouse-track-click-hook 'Buffer-menu-maybe-mouse-select) ; XEmacs
+  (make-local-hook 'mouse-track-click-hook) ; XEmacs
+  (add-hook 'mouse-track-click-hook 'Buffer-menu-maybe-mouse-select t t) ; XEmacs
   (run-hooks 'buffer-menu-mode-hook))
 
 (defun Buffer-menu-revert-function (ignore1 ignore2)
@@ -303,7 +303,7 @@ and then move up one line.  Prefix arg means move that many lines."
     (let ((buff-menu-buffer (current-buffer))
 	  (buffer-read-only nil))
       (while (search-forward "\nD" nil t)
-	(forward-char -1)
+	(backward-char 1)
 	(let ((buf (Buffer-menu-buffer nil)))
 	  (or (eq buf nil)
 	      (eq buf buff-menu-buffer)
@@ -312,7 +312,7 @@ and then move up one line.  Prefix arg means move that many lines."
 	    (progn (delete-char 1)
 		   (insert ? ))
 	  (delete-region (point) (progn (forward-line 1) (point)))
- 	  (forward-char -1))))))
+ 	  (backward-char 1))))))
 
 (defun Buffer-menu-select ()
   "Select this line's buffer; also display buffers marked with `>'.
@@ -321,7 +321,7 @@ This command deletes and replaces all the previously existing windows
 in the selected frame."
   (interactive)
   (let ((buff (Buffer-menu-buffer t))
-	(menu (current-buffer))	      
+	(menu (current-buffer))
 	(others ())
 	tem)
     (goto-char (point-min))
@@ -356,6 +356,8 @@ in the selected frame."
 
 
 
+(eval-when-compile (autoload 'visit-tags-table "etags"))
+
 (defun Buffer-menu-visit-tags-table ()
   "Visit the tags table in the buffer on this line.  See `visit-tags-table'."
   (interactive)
@@ -482,8 +484,8 @@ The current window remains selected."
 
 ;; XEmacs
 (defvar list-buffers-header-line
-  (purecopy (concat " MR Buffer           Size  Mode         File\n"
-                    " -- ------           ----  ----         ----\n")))
+  (concat " MR Buffer           Size  Mode         File\n"
+	  " -- ------           ----  ----         ----\n"))
 
 ;; XEmacs
 (defvar list-buffers-identification 'default-list-buffers-identification
@@ -565,7 +567,7 @@ to generate such a string.  This variable is always buffer-local.")
                                (progn (setq current (point)) ?\.)
                                ?\ ))
                    (insert (if (buffer-modified-p buffer)
-                               ?\* 
+                               ?\*
                                ?\ ))
                    (insert (if ro
                                ?\%
@@ -602,7 +604,7 @@ to generate such a string.  This variable is always buffer-local.")
   "Display a list of names of existing buffers.
 The list is displayed in a buffer named `*Buffer List*'.
 Note that buffers with names starting with spaces are omitted.
-Non-null optional arg FILES-ONLY means mention only file buffers.
+Non-nil optional arg FILES-ONLY means mention only file buffers.
 
 The M column contains a * for buffers that are modified.
 The R column contains a % for buffers that are read-only."
@@ -614,7 +616,7 @@ The R column contains a % for buffers that are read-only."
   "Create and return a buffer with a list of names of existing buffers.
 The buffer is named `*Buffer List*'.
 Note that buffers with names starting with spaces are omitted.
-Non-null optional arg FILES-ONLY means mention only file buffers.
+Non-nil optional arg FILES-ONLY means mention only file buffers.
 
 The M column contains a * for buffers that are modified.
 The R column contains a % for buffers that are read-only."