Mercurial > emacs

changeset 50035:af49d6f1e6cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(electric-buffer-list): Respect `Buffer-menu-use-header-line'. (electric-buffer-menu-looper): Likewise.
author John Paul Wallington <jpw@pobox.com>
date Thu, 06 Mar 2003 10:50:20 +0000
parents 85feb0c5366e
children 01bf7dadaa7a
files lisp/ebuff-menu.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ebuff-menu.el	Thu Mar 06 03:53:12 2003 +0000
+++ b/lisp/ebuff-menu.el	Thu Mar 06 10:50:20 2003 +0000
@@ -74,7 +74,8 @@
 			       (throw 'electric-buffer-menu-select nil)))
 		    (let ((start-point (point))
 			  (first (progn (goto-char (point-min))
-					(forward-line 2)
+					(unless Buffer-menu-use-header-line
+					  (forward-line 2))
 					(point)))
 			  (last (progn (goto-char (point-max))
 				       (forward-line -1)
@@ -112,7 +113,8 @@
 	 (signal (car condition) (cdr condition)))
 	((< (point) (car state))
 	 (goto-char (point-min))
-	 (forward-line 2))
+	 (unless Buffer-menu-use-header-line
+	   (forward-line 2)))
 	((> (point) (cdr state))
 	 (goto-char (point-max))
 	 (forward-line -1)