/[emacs]/emacs/lisp/ebuff-menu.el
ViewVC logotype

Diff of /emacs/lisp/ebuff-menu.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.28 by rms, Tue Nov 13 17:29:40 2001 UTC revision 1.28.4.1 by miles, Fri Apr 4 06:20:04 2003 UTC
# Line 54  much like those of buffer-menu-mode. Line 54  much like those of buffer-menu-mode.
54    
55  Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil.  Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil.
56    
57  \\{electric-buffer-menu-mode-map}"  \\{electric-buffer-menu-mode-map}"
58    (interactive "P")    (interactive "P")
59    (let (select buffer)    (let (select buffer)
60      (save-window-excursion      (save-window-excursion
# Line 74  Calls value of `electric-buffer-menu-mod Line 74  Calls value of `electric-buffer-menu-mod
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)
# Line 112  Calls value of `electric-buffer-menu-mod Line 113  Calls value of `electric-buffer-menu-mod
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)
# Line 209  electric-buffer-menu-mode-hook if it is Line 211  electric-buffer-menu-mode-hook if it is
211      (define-key map [escape escape escape] 'Electric-buffer-menu-quit)      (define-key map [escape escape escape] 'Electric-buffer-menu-quit)
212      (define-key map [mouse-2] 'Electric-buffer-menu-mouse-select)      (define-key map [mouse-2] 'Electric-buffer-menu-mouse-select)
213      (setq electric-buffer-menu-mode-map map)))      (setq electric-buffer-menu-mode-map map)))
214    
215  (defun Electric-buffer-menu-exit ()  (defun Electric-buffer-menu-exit ()
216    (interactive)    (interactive)
217    (setq unread-command-events (listify-key-sequence (this-command-keys)))    (setq unread-command-events (listify-key-sequence (this-command-keys)))
# Line 267  Returns to Electric Buffer Menu when don Line 269  Returns to Electric Buffer Menu when don
269    
270  (defvar electric-buffer-overlay nil)  (defvar electric-buffer-overlay nil)
271  (defun electric-buffer-update-highlight ()  (defun electric-buffer-update-highlight ()
272    ;; Make sure we have an overlay to use.    (when (eq major-mode 'Electric-buffer-menu-mode)
273    (or electric-buffer-overlay      ;; Make sure we have an overlay to use.
274        (progn      (or electric-buffer-overlay
275          (make-local-variable 'electric-buffer-overlay)          (progn
276          (setq electric-buffer-overlay (make-overlay (point) (point)))))            (make-local-variable 'electric-buffer-overlay)
277    (move-overlay electric-buffer-overlay            (setq electric-buffer-overlay (make-overlay (point) (point)))))
278                  (save-excursion (beginning-of-line) (point))      (move-overlay electric-buffer-overlay
279                  (save-excursion (end-of-line) (point)))                    (save-excursion (beginning-of-line) (point))
280    (overlay-put electric-buffer-overlay 'face 'highlight))                    (save-excursion (end-of-line) (point)))
281        (overlay-put electric-buffer-overlay 'face 'highlight)))
282    
283  (provide 'ebuff-menu)  (provide 'ebuff-menu)
284    

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.28.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26