/[emacs]/emacs/lisp/ibuffer.el
ViewVC logotype

Diff of /emacs/lisp/ibuffer.el

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

revision 1.52 by jpw, Sat Apr 5 01:03:23 2003 UTC revision 1.53 by jpw, Sat Apr 26 02:02:26 2003 UTC
# Line 758  directory, like `default-directory'." Line 758  directory, like `default-directory'."
758                ibuffer-yank                ibuffer-yank
759                :enable (and (featurep 'ibuf-ext) ibuffer-filter-group-kill-ring)))                :enable (and (featurep 'ibuf-ext) ibuffer-filter-group-kill-ring)))
760    
761  (defvar ibuffer-name-map nil)  (defvar ibuffer-name-map
 (unless ibuffer-name-map  
762    (let ((map (make-sparse-keymap)))    (let ((map (make-sparse-keymap)))
763      (define-key map [(mouse-1)] 'ibuffer-mouse-toggle-mark)      (define-key map [(mouse-1)] 'ibuffer-mouse-toggle-mark)
764      (define-key map [(mouse-2)] 'ibuffer-mouse-visit-buffer)      (define-key map [(mouse-2)] 'ibuffer-mouse-visit-buffer)
765      (define-key map [down-mouse-3] 'ibuffer-mouse-popup-menu)      (define-key map [down-mouse-3] 'ibuffer-mouse-popup-menu)
766      (setq ibuffer-name-map map)))      map))
767    
768  (defvar ibuffer-mode-name-map nil)  (defvar ibuffer-mode-name-map
 (unless ibuffer-mode-name-map  
769    (let ((map (make-sparse-keymap)))    (let ((map (make-sparse-keymap)))
770      (define-key map [(mouse-2)] 'ibuffer-mouse-filter-by-mode)      (define-key map [(mouse-2)] 'ibuffer-mouse-filter-by-mode)
771      (define-key map (kbd "RET") 'ibuffer-interactive-filter-by-mode)      (define-key map (kbd "RET") 'ibuffer-interactive-filter-by-mode)
772      (setq ibuffer-mode-name-map map)))      map))
773    
774  (defvar ibuffer-mode-filter-group-map nil)  (defvar ibuffer-mode-filter-group-map
 (unless ibuffer-mode-filter-group-map  
775    (let ((map (make-sparse-keymap)))    (let ((map (make-sparse-keymap)))
776      (define-key map [(mouse-1)] 'ibuffer-mouse-toggle-mark)      (define-key map [(mouse-1)] 'ibuffer-mouse-toggle-mark)
777      (define-key map [(mouse-2)] 'ibuffer-mouse-toggle-filter-group)      (define-key map [(mouse-2)] 'ibuffer-mouse-toggle-filter-group)
778      (define-key map (kbd "RET") 'ibuffer-toggle-filter-group)      (define-key map (kbd "RET") 'ibuffer-toggle-filter-group)
779      (define-key map [down-mouse-3] 'ibuffer-mouse-popup-menu)      (define-key map [down-mouse-3] 'ibuffer-mouse-popup-menu)
780      (setq ibuffer-mode-filter-group-map map)))      map))
781    
782  (defvar ibuffer-delete-window-on-quit nil  (defvar ibuffer-delete-window-on-quit nil
783    "Whether or not to delete the window upon exiting `ibuffer'.")    "Whether or not to delete the window upon exiting `ibuffer'.")
# Line 1043  a new window in the current frame, split Line 1040  a new window in the current frame, split
1040          (mapcar (if (eq type 'other-frame)          (mapcar (if (eq type 'other-frame)
1041                      #'(lambda (buf)                      #'(lambda (buf)
1042                          (let ((curframe (selected-frame)))                          (let ((curframe (selected-frame)))
1043                            (select-frame (new-frame))                            (select-frame (make-frame))
1044                            (switch-to-buffer buf)                            (switch-to-buffer buf)
1045                            (select-frame curframe)))                            (select-frame curframe)))
1046                    #'(lambda (buf)                    #'(lambda (buf)

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

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