andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(electric-buffer-list): Respect `Buffer-menu-use-header-line'.

Browse source 
(electric-buffer-menu-looper): Likewise.
This commit is contained in:
John Paul Wallington 2003-03-06 10:52:39 +00:00
parent 463a7342da
commit a82c12670e
2 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2003-03-06 John Paul Wallington <jpw@gnu.org>
* ebuff-menu.el (electric-buffer-list): Respect
`Buffer-menu-use-header-line'.
(electric-buffer-menu-looper): Likewise.
* buff-menu.el (Buffer-menu-mode-map): Add docstring.
(Buffer-menu-buffer): Fix indentation.
(list-buffers-noselect): Calculate header-line spacing to take
@ -116,7 +120,7 @@
* play/gamegrid.el (gamegrid-add-score): Add info to docstring.
(gamegrid-add-score-with-update-game-score-1): New function,
factored out of `gamegriod-add-score-with-update-game-score'.
factored out of `gamegrid-add-score-with-update-game-score'.
(gamegrid-add-score-with-update-game-score): Use it. Fall back on
`gamegrid-add-score-insecure' if the requested file does not exist
in $(gamedir), in case the user has installed a game on his own.

6
lisp/ebuff-menu.el
View file

@ -74,7 +74,8 @@ Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil.
(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 @@ Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil.
(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)