74 |
(throw 'electric-buffer-menu-select nil))) |
(throw 'electric-buffer-menu-select nil))) |
75 |
(let ((start-point (point)) |
(let ((start-point (point)) |
76 |
(first (progn (goto-char (point-min)) |
(first (progn (goto-char (point-min)) |
77 |
(forward-line 2) |
(unless Buffer-menu-use-header-line |
78 |
|
(forward-line 2)) |
79 |
(point))) |
(point))) |
80 |
(last (progn (goto-char (point-max)) |
(last (progn (goto-char (point-max)) |
81 |
(forward-line -1) |
(forward-line -1) |
113 |
(signal (car condition) (cdr condition))) |
(signal (car condition) (cdr condition))) |
114 |
((< (point) (car state)) |
((< (point) (car state)) |
115 |
(goto-char (point-min)) |
(goto-char (point-min)) |
116 |
(forward-line 2)) |
(unless Buffer-menu-use-header-line |
117 |
|
(forward-line 2))) |
118 |
((> (point) (cdr state)) |
((> (point) (cdr state)) |
119 |
(goto-char (point-max)) |
(goto-char (point-max)) |
120 |
(forward-line -1) |
(forward-line -1) |