procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ibuffer-name-map, ibuffer-mode-name-map)

Browse source 
(ibuffer-mode-filter-group-map): Initialize in `defvar'.
(ibuffer-do-view-1): Use `make-frame' instead of `new-frame'.
This commit is contained in:
John Paul Wallington 2003-04-26 02:04:09 +00:00
parent ec9b13721d
commit acf8889775
2 changed files with 13 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2003-04-26 John Paul Wallington <jpw@gnu.org>
* ibuffer.el (ibuffer-name-map, ibuffer-mode-name-map)
(ibuffer-mode-filter-group-map): Initialize in `defvar'.
(ibuffer-do-view-1): Use `make-frame' instead of `new-frame'.
2003-04-25 Karl Berry <karl@gnu.org>
Installed this change:

17
lisp/ibuffer.el
View file

@ -758,29 +758,26 @@ directory, like `default-directory'."
ibuffer-yank
:enable (and (featurep 'ibuf-ext) ibuffer-filter-group-kill-ring)))
(defvar ibuffer-name-map nil)
(unless ibuffer-name-map
(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)
(setq ibuffer-name-map map)))
map))
(defvar ibuffer-mode-name-map nil)
(unless ibuffer-mode-name-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)
(setq ibuffer-mode-name-map map)))
map))
(defvar ibuffer-mode-filter-group-map nil)
(unless ibuffer-mode-filter-group-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)
(setq ibuffer-mode-filter-group-map map)))
map))
(defvar ibuffer-delete-window-on-quit nil
"Whether or not to delete the window upon exiting `ibuffer'.")
@ -1043,7 +1040,7 @@ a new window in the current frame, splitting vertically."
(mapcar (if (eq type 'other-frame)
#'(lambda (buf)
(let ((curframe (selected-frame)))
(select-frame (new-frame))
(select-frame (make-frame))
(switch-to-buffer buf)
(select-frame curframe)))
#'(lambda (buf)