diff options
| author | John Paul Wallington <jpw@pobox.com> | 2003-04-26 02:04:09 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2003-04-26 02:04:09 +0000 |
| commit | acf8889775ff8818207f8094742fcef88d0b1bb5 (patch) | |
| tree | 196094d2cdadaf860c1d10b2e2a2462b756f58bb /lisp/ibuffer.el | |
| parent | ec9b13721d541d3dc324b8bfd61f2296dae83a14 (diff) | |
| download | emacs-acf8889775ff8818207f8094742fcef88d0b1bb5.tar.gz | |
(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'.
Diffstat (limited to 'lisp/ibuffer.el')
| -rw-r--r-- | lisp/ibuffer.el | 17 |
1 files changed, 7 insertions, 10 deletions
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) |