[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ibuffer.el
From: |
John Paul Wallington |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ibuffer.el |
Date: |
Fri, 25 Apr 2003 22:02:26 -0400 |
Index: emacs/lisp/ibuffer.el
diff -c emacs/lisp/ibuffer.el:1.52 emacs/lisp/ibuffer.el:1.53
*** emacs/lisp/ibuffer.el:1.52 Fri Apr 4 20:03:23 2003
--- emacs/lisp/ibuffer.el Fri Apr 25 22:02:26 2003
***************
*** 758,786 ****
ibuffer-yank
:enable (and (featurep 'ibuf-ext)
ibuffer-filter-group-kill-ring)))
! (defvar ibuffer-name-map nil)
! (unless ibuffer-name-map
(let ((map (make-sparse-keymap)))
(define-key map [(mouse-1)] 'ibuffer-mouse-toggle-mark)
(define-key map [(mouse-2)] 'ibuffer-mouse-visit-buffer)
(define-key map [down-mouse-3] 'ibuffer-mouse-popup-menu)
! (setq ibuffer-name-map map)))
! (defvar ibuffer-mode-name-map nil)
! (unless ibuffer-mode-name-map
(let ((map (make-sparse-keymap)))
(define-key map [(mouse-2)] 'ibuffer-mouse-filter-by-mode)
(define-key map (kbd "RET") 'ibuffer-interactive-filter-by-mode)
! (setq ibuffer-mode-name-map map)))
! (defvar ibuffer-mode-filter-group-map nil)
! (unless ibuffer-mode-filter-group-map
(let ((map (make-sparse-keymap)))
(define-key map [(mouse-1)] 'ibuffer-mouse-toggle-mark)
(define-key map [(mouse-2)] 'ibuffer-mouse-toggle-filter-group)
(define-key map (kbd "RET") 'ibuffer-toggle-filter-group)
(define-key map [down-mouse-3] 'ibuffer-mouse-popup-menu)
! (setq ibuffer-mode-filter-group-map map)))
(defvar ibuffer-delete-window-on-quit nil
"Whether or not to delete the window upon exiting `ibuffer'.")
--- 758,783 ----
ibuffer-yank
:enable (and (featurep 'ibuf-ext)
ibuffer-filter-group-kill-ring)))
! (defvar ibuffer-name-map
(let ((map (make-sparse-keymap)))
(define-key map [(mouse-1)] 'ibuffer-mouse-toggle-mark)
(define-key map [(mouse-2)] 'ibuffer-mouse-visit-buffer)
(define-key map [down-mouse-3] 'ibuffer-mouse-popup-menu)
! map))
! (defvar ibuffer-mode-name-map
(let ((map (make-sparse-keymap)))
(define-key map [(mouse-2)] 'ibuffer-mouse-filter-by-mode)
(define-key map (kbd "RET") 'ibuffer-interactive-filter-by-mode)
! map))
! (defvar ibuffer-mode-filter-group-map
(let ((map (make-sparse-keymap)))
(define-key map [(mouse-1)] 'ibuffer-mouse-toggle-mark)
(define-key map [(mouse-2)] 'ibuffer-mouse-toggle-filter-group)
(define-key map (kbd "RET") 'ibuffer-toggle-filter-group)
(define-key map [down-mouse-3] 'ibuffer-mouse-popup-menu)
! map))
(defvar ibuffer-delete-window-on-quit nil
"Whether or not to delete the window upon exiting `ibuffer'.")
***************
*** 1043,1049 ****
(mapcar (if (eq type 'other-frame)
#'(lambda (buf)
(let ((curframe (selected-frame)))
! (select-frame (new-frame))
(switch-to-buffer buf)
(select-frame curframe)))
#'(lambda (buf)
--- 1040,1046 ----
(mapcar (if (eq type 'other-frame)
#'(lambda (buf)
(let ((curframe (selected-frame)))
! (select-frame (make-frame))
(switch-to-buffer buf)
(select-frame curframe)))
#'(lambda (buf)