(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'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7cd8f519240f611bd8c530e212ab8a587342b56..e04771d2188686c0ef78c4be80a2dc602f2b7b6e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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:

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index a60abda6c5a6595de615b970e573bcdbf5fcddd2..a952e99d05833c8107b4744f6395e961ca9ddb34 100644 (file)
--- 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)