Mercurial > emacs

--- a/lisp/ChangeLog	Fri Nov 15 05:25:19 2002 +0000
+++ b/lisp/ChangeLog	Fri Nov 15 07:25:20 2002 +0000
@@ -1,3 +1,12 @@
+2002-11-15  John Paul Wallington  <jpw@shootybangbang.com>
+
+	* ibuffer.el (ibuffer-use-other-window, ibuffer-use-header-line)
+	(ibuffer-visit-buffer, ibuffer-redisplay, ibuffer-update): Doc fix.
+	(ibuffer-mode-hooks): Remove spurious defvar.
+	(ibuffer): Run `ibuffer-hook' instead of `ibuffer-hooks'.
+	(ibuffer-mode): Run `ibuffer-mode-hook' instead of
+	`ibuffer-mode-hooks'.
+
 2002-11-15   Markus Rost  <rost@math.ohio-state.edu>

 	* mail/rmailedit.el:  Add provide call.
--- a/lisp/ibuffer.el	Fri Nov 15 05:25:19 2002 +0000
+++ b/lisp/ibuffer.el	Fri Nov 15 07:25:20 2002 +0000
@@ -157,7 +157,7 @@
   :group 'ibuffer)

 (defcustom ibuffer-use-other-window nil
-  "If non-nil, display the Ibuffer in another window by default."
+  "If non-nil, display Ibuffer in another window by default."
   :type 'boolean
   :group 'ibuffer)

@@ -272,8 +272,7 @@
   :group 'ibuffer)

 (defcustom ibuffer-use-header-line (boundp 'header-line-format)
-  "If non-nil, display a header line containing current filters.
-This feature only works on Emacs 21 or later."
+  "If non-nil, display a header line containing current filters."
   :type 'boolean
   :group 'ibuffer)

@@ -784,8 +783,6 @@
     (define-key map [down-mouse-3] 'ibuffer-mouse-popup-menu)
     (setq ibuffer-mode-filter-group-map map)))

-(defvar ibuffer-mode-hooks nil)
-
 (defvar ibuffer-delete-window-on-quit nil
   "Whether or not to delete the window upon exiting `ibuffer'.")

@@ -957,7 +954,6 @@

 (defun ibuffer-visit-buffer (&optional single)
   "Visit the buffer on this line.
-
 If optional argument SINGLE is non-nil, then also ensure there is only
 one window."
   (interactive "P")
@@ -1082,7 +1078,7 @@
 	    (save-window-excursion
 	      (select-window lastwin)
 	      ;; The window might be too small to split; in that case,
-	     ;; try a few times to increase its size before giving up.
+	      ;; try a few times to increase its size before giving up.
 	      (let ((attempts 0)
 		    (trying t))
 		(while trying
@@ -1098,7 +1094,7 @@
 				  (not (string-match "too small" (cadr err)))))
 			 (apply #'signal err)
 		       (enlarge-window 3))))))
-	   ;; This part doesn't work correctly sometimes under XEmacs.
+	      ;; This part doesn't work correctly sometimes under XEmacs.
 	      (select-window (next-window))
 	      (switch-to-buffer buf)
 	      (unwind-protect
@@ -1982,10 +1978,9 @@

 (defun ibuffer-redisplay (&optional silent)
   "Redisplay the current list of buffers.
-
 This does not show new buffers; use `ibuffer-update' for that.

-If SILENT is non-`nil', do not generate progress messages."
+If optional arg SILENT is non-nil, do not display progress messages."
   (interactive)
   (ibuffer-forward-line 0)
   (unless silent
@@ -2004,11 +1999,10 @@

 (defun ibuffer-update (arg &optional silent)
   "Regenerate the list of all buffers.
-
 Display buffers whose name matches one of `ibuffer-maybe-show-predicates'
 iff arg ARG is non-nil.

-Do not display messages if SILENT is non-nil."
+If optional arg SILENT is non-nil, do not display progress messages."
   (interactive "P")
   (ibuffer-forward-line 0)
   (let* ((bufs (buffer-list))
@@ -2203,7 +2197,7 @@
 	(unwind-protect
 	    (progn
 	      (setq buffer-read-only nil)
-	      (run-hooks 'ibuffer-hooks))
+	      (run-hooks 'ibuffer-hook))
 	  (setq buffer-read-only t))
 	(unless ibuffer-expert
 	  (message "Commands: m, u, t, RET, g, k, S, D, Q; q to quit; h for help"))))))
@@ -2421,7 +2415,7 @@
   (when ibuffer-default-directory
     (setq default-directory ibuffer-default-directory))
   (add-hook 'change-major-mode-hook 'font-lock-defontify nil t)
-  (run-hooks 'ibuffer-mode-hooks)
+  (run-hooks 'ibuffer-mode-hook)
   ;; called after mode hooks to allow the user to add filters
   (ibuffer-update-mode-name))