From acf8889775ff8818207f8094742fcef88d0b1bb5 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Sat, 26 Apr 2003 02:04:09 +0000 Subject: (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'. --- lisp/ChangeLog | 6 ++++++ lisp/ibuffer.el | 17 +++++++---------- 2 files changed, 13 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a7cd8f51924..e04771d2188 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2003-04-26 John Paul Wallington + + * 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 Installed this change: diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index a60abda6c5a..a952e99d058 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -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) -- cgit v1.2.3-70-g09d2