Mercurial > emacs

changeset 50708:c2c47be7d704

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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'.
author John Paul Wallington <jpw@pobox.com>
date Sat, 26 Apr 2003 02:02:26 +0000
parents 692de9e94f6c
children 0ed94ef884a2
files lisp/ibuffer.el
diffstat 1 files changed, 7 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ibuffer.el	Fri Apr 25 23:17:06 2003 +0000
+++ b/lisp/ibuffer.el	Sat Apr 26 02:02:26 2003 +0000
@@ -758,29 +758,26 @@
 	      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 @@
 	(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)