Commits

Anonymous committed ffda5cc

2002-02-15 Steve Youngs <youngs@xemacs.org>

* ibuffer.el (ibuffer-mode-map): Comment out all the
'define-key-after' stuff.

* Makefile (REQUIRES): Add xemacs-base.

Comments (0)

Files changed (3)

+2002-02-15  Steve Youngs  <youngs@xemacs.org>
+
+	* ibuffer.el (ibuffer-mode-map): Comment out all the
+	'define-key-after' stuff.
+
+	* Makefile (REQUIRES): Add xemacs-base.
+
 2002-02-15  Steve Youngs  <youngs@xemacs.org>
 
 	* New package created.
 MAINTAINER = John Paul Wallington <jpw@shootybangbang.com>
 PACKAGE = ibuffer
 PKG_TYPE = regular
-REQUIRES = ibuffer dired
+REQUIRES = ibuffer dired xemacs-base
 CATEGORY = standard
 
 ELCS = ibuf-macs.elc ibuffer.elc ibuf-ext.elc 
     (define-key map (kbd "C-x 4 RET") 'ibuffer-visit-buffer-other-window)
     (define-key map (kbd "C-x 5 RET") 'ibuffer-visit-buffer-other-frame)
 
-    (define-key map [menu-bar view]
-      (cons "View" (make-sparse-keymap "View")))
+;; XEmacs change: XEmacs doesn't have 'define-key-after'
+;;     (define-key map [menu-bar view]
+;;       (cons "View" (make-sparse-keymap "View")))
 
-    (define-key-after map [menu-bar view visit-buffer]
-      '(menu-item "View this buffer" ibuffer-visit-buffer))
-    (define-key-after map [menu-bar view visit-buffer-other-window]
-      '(menu-item "View (other window)" ibuffer-visit-buffer-other-window))
-    (define-key-after map [menu-bar view visit-buffer-other-frame]
-      '(menu-item "View (other frame)" ibuffer-visit-buffer-other-frame))
-    (define-key-after map [menu-bar view ibuffer-update]
-      '(menu-item "Update" ibuffer-update
-		  :help "Regenerate the list of buffers"))
-    (define-key-after map [menu-bar view switch-format]
-      '(menu-item "Switch display format" ibuffer-switch-format
-		  :help "Toggle between available values of `ibuffer-formats'"))
+;;     (define-key-after map [menu-bar view visit-buffer]
+;;       '(menu-item "View this buffer" ibuffer-visit-buffer))
+;;     (define-key-after map [menu-bar view visit-buffer-other-window]
+;;       '(menu-item "View (other window)" ibuffer-visit-buffer-other-window))
+;;     (define-key-after map [menu-bar view visit-buffer-other-frame]
+;;       '(menu-item "View (other frame)" ibuffer-visit-buffer-other-frame))
+;;     (define-key-after map [menu-bar view ibuffer-update]
+;;       '(menu-item "Update" ibuffer-update
+;; 		  :help "Regenerate the list of buffers"))
+;;     (define-key-after map [menu-bar view switch-format]
+;;       '(menu-item "Switch display format" ibuffer-switch-format
+;; 		  :help "Toggle between available values of `ibuffer-formats'"))
 
-    (define-key-after map [menu-bar view dashes]
-      '("--"))
+;;     (define-key-after map [menu-bar view dashes]
+;;       '("--"))
 
-    (define-key-after map [menu-bar view sort]
-      (cons "Sort" (make-sparse-keymap "Sort")))
+;;     (define-key-after map [menu-bar view sort]
+;;       (cons "Sort" (make-sparse-keymap "Sort")))
 
-    (define-key-after map [menu-bar view sort do-sort-by-major-mode]
-      '(menu-item "Sort by major mode" ibuffer-do-sort-by-major-mode
-		  :help "Sort by the alphabetic order of the buffer's major mode"))
-    (define-key-after map [menu-bar view sort do-sort-by-size]
-      '(menu-item "Sort by buffer size" ibuffer-do-sort-by-size
-		  :help "Sort by the size of the buffer"))
-    (define-key-after map [menu-bar view sort do-sort-by-alphabetic]
-      '(menu-item "Sort lexicographically" ibuffer-do-sort-by-alphabetic
-		  :help "Sort by the alphabetic order of buffer name"))
-    (define-key-after map [menu-bar view sort do-sort-by-recency]
-      '(menu-item "Sort by view time" ibuffer-do-sort-by-recency
-		  :help "Sort by the last time the buffer was displayed"))
-    (define-key-after map [menu-bar view sort invert-sorting]
-      '(menu-item "Reverse sorting order" ibuffer-invert-sorting))
-    (define-key-after map [menu-bar view sort toggle-sorting-mode]
-      '(menu-item "Switch sorting mode" ibuffer-toggle-sorting-mode
-		  :help "Switch between the various sorting criteria"))
+;;     (define-key-after map [menu-bar view sort do-sort-by-major-mode]
+;;       '(menu-item "Sort by major mode" ibuffer-do-sort-by-major-mode
+;; 		  :help "Sort by the alphabetic order of the buffer's major mode"))
+;;     (define-key-after map [menu-bar view sort do-sort-by-size]
+;;       '(menu-item "Sort by buffer size" ibuffer-do-sort-by-size
+;; 		  :help "Sort by the size of the buffer"))
+;;     (define-key-after map [menu-bar view sort do-sort-by-alphabetic]
+;;       '(menu-item "Sort lexicographically" ibuffer-do-sort-by-alphabetic
+;; 		  :help "Sort by the alphabetic order of buffer name"))
+;;     (define-key-after map [menu-bar view sort do-sort-by-recency]
+;;       '(menu-item "Sort by view time" ibuffer-do-sort-by-recency
+;; 		  :help "Sort by the last time the buffer was displayed"))
+;;     (define-key-after map [menu-bar view sort invert-sorting]
+;;       '(menu-item "Reverse sorting order" ibuffer-invert-sorting))
+;;     (define-key-after map [menu-bar view sort toggle-sorting-mode]
+;;       '(menu-item "Switch sorting mode" ibuffer-toggle-sorting-mode
+;; 		  :help "Switch between the various sorting criteria"))
 
-    (define-key-after map [menu-bar view filter]
-      (cons "Filter" (make-sparse-keymap "Filter")))
+;;     (define-key-after map [menu-bar view filter]
+;;       (cons "Filter" (make-sparse-keymap "Filter")))
 
-    (define-key-after map [menu-bar view filter filter-disable]
-      '(menu-item "Disable all filtering" ibuffer-filter-disable))
-    (define-key-after map [menu-bar view filter filter-by-mode]
-      '(menu-item "Add filter by major mode..." ibuffer-filter-by-mode
-		  :help "Show only buffers in a major mode"))
-    (define-key-after map [menu-bar view filter filter-by-name]
-      '(menu-item "Add filter by buffer name..." ibuffer-filter-by-name
-		  :help "Show only buffers whose name matches a regexp"))
-    (define-key-after map [menu-bar view filter filter-by-filename]
-      '(menu-item "Add filter by filename..." ibuffer-filter-by-filename
-		  :help "Show only buffers whose filename matches a regexp"))
-    (define-key-after map [menu-bar view filter filter-by-size-lt]
-      '(menu-item "Add filter by size less than..." ibuffer-filter-by-size-lt
-		  :help "Show only buffers of size less than..."))
-    (define-key-after map [menu-bar view filter filter-by-size-gt]
-      '(menu-item "Add filter by size greater than..." ibuffer-filter-by-size-gt
-		  :help "Show only buffers of size greater than..."))
-    (define-key-after map [menu-bar view filter filter-by-content]
-      '(menu-item "Add filter by content (regexp)..." ibuffer-filter-by-content
-		  :help "Show only buffers containing a regexp"))
-    (define-key-after map [menu-bar view filter filter-by-predicate]
-      '(menu-item "Add filter by Lisp predicate..." ibuffer-filter-by-predicate
-		  :help "Show only buffers for which a predicate is true"))
-    (define-key-after map [menu-bar view filter pop-filter]
-      '(menu-item "Remove top filter" ibuffer-pop-filter))
-    (define-key-after map [menu-bar view filter or-filter]
-      '(menu-item "OR top two filters" ibuffer-or-filter
-		  :help "Create a new filter which is the logical OR of the top two filters"))
-    (define-key-after map [menu-bar view filter negate-filter]
-      '(menu-item "Negate top filter" ibuffer-negate-filter))
-    (define-key-after map [menu-bar view filter decompose-filter]
-      '(menu-item "Decompose top filter" ibuffer-decompose-filter
-		  :help "Break down a complex filter like OR or NOT"))
-    (define-key-after map [menu-bar view filter exchange-filters]
-      '(menu-item "Swap top two filters" ibuffer-exchange-filters))
-    (define-key-after map [menu-bar view filter save-filters]
-      '(menu-item "Save current filters permanently..." ibuffer-save-filters
-		  :help "Use a mnemnonic name to store current filter stack"))
-    (define-key-after map [menu-bar view filter switch-to-saved-filters]
-      '(menu-item "Restore permanently saved filters..." ibuffer-switch-to-saved-filters
-		  :help "Replace current filters with a saved stack"))
-    (define-key-after map [menu-bar view filter add-saved-filters]
-      '(menu-item "Add to permanently saved filters..." ibuffer-add-saved-filters
-		  :help "Include current filters in an already saved stack"))
-    (define-key-after map [menu-bar view filter delete-saved-filters]
-      '(menu-item "Delete permanently saved filters..." ibuffer-delete-saved-filters
-		  :help "Remove stack of filters from saved list"))
-    (define-key-after map [menu-bar view dashes2]
-      '("--"))
-    (define-key-after map [menu-bar view diff-with-file]
-      '(menu-item "Diff with file" ibuffer-diff-with-file
-		  :help "View the differences between this buffer and its file"))
-    (define-key-after map [menu-bar view auto-mode]
-      '(menu-item "Toggle Auto Mode" ibuffer-auto-mode
-		  :help "Attempt to automatically update the Ibuffer buffer"))
-    (define-key-after map [menu-bar view customize]
-      '(menu-item "Customize Ibuffer" (lambda () (interactive)
-					(customize-group 'ibuffer))
-		  :help "Use Custom to customize Ibuffer"))
+;;     (define-key-after map [menu-bar view filter filter-disable]
+;;       '(menu-item "Disable all filtering" ibuffer-filter-disable))
+;;     (define-key-after map [menu-bar view filter filter-by-mode]
+;;       '(menu-item "Add filter by major mode..." ibuffer-filter-by-mode
+;; 		  :help "Show only buffers in a major mode"))
+;;     (define-key-after map [menu-bar view filter filter-by-name]
+;;       '(menu-item "Add filter by buffer name..." ibuffer-filter-by-name
+;; 		  :help "Show only buffers whose name matches a regexp"))
+;;     (define-key-after map [menu-bar view filter filter-by-filename]
+;;       '(menu-item "Add filter by filename..." ibuffer-filter-by-filename
+;; 		  :help "Show only buffers whose filename matches a regexp"))
+;;     (define-key-after map [menu-bar view filter filter-by-size-lt]
+;;       '(menu-item "Add filter by size less than..." ibuffer-filter-by-size-lt
+;; 		  :help "Show only buffers of size less than..."))
+;;     (define-key-after map [menu-bar view filter filter-by-size-gt]
+;;       '(menu-item "Add filter by size greater than..." ibuffer-filter-by-size-gt
+;; 		  :help "Show only buffers of size greater than..."))
+;;     (define-key-after map [menu-bar view filter filter-by-content]
+;;       '(menu-item "Add filter by content (regexp)..." ibuffer-filter-by-content
+;; 		  :help "Show only buffers containing a regexp"))
+;;     (define-key-after map [menu-bar view filter filter-by-predicate]
+;;       '(menu-item "Add filter by Lisp predicate..." ibuffer-filter-by-predicate
+;; 		  :help "Show only buffers for which a predicate is true"))
+;;     (define-key-after map [menu-bar view filter pop-filter]
+;;       '(menu-item "Remove top filter" ibuffer-pop-filter))
+;;     (define-key-after map [menu-bar view filter or-filter]
+;;       '(menu-item "OR top two filters" ibuffer-or-filter
+;; 		  :help "Create a new filter which is the logical OR of the top two filters"))
+;;     (define-key-after map [menu-bar view filter negate-filter]
+;;       '(menu-item "Negate top filter" ibuffer-negate-filter))
+;;     (define-key-after map [menu-bar view filter decompose-filter]
+;;       '(menu-item "Decompose top filter" ibuffer-decompose-filter
+;; 		  :help "Break down a complex filter like OR or NOT"))
+;;     (define-key-after map [menu-bar view filter exchange-filters]
+;;       '(menu-item "Swap top two filters" ibuffer-exchange-filters))
+;;     (define-key-after map [menu-bar view filter save-filters]
+;;       '(menu-item "Save current filters permanently..." ibuffer-save-filters
+;; 		  :help "Use a mnemnonic name to store current filter stack"))
+;;     (define-key-after map [menu-bar view filter switch-to-saved-filters]
+;;       '(menu-item "Restore permanently saved filters..." ibuffer-switch-to-saved-filters
+;; 		  :help "Replace current filters with a saved stack"))
+;;     (define-key-after map [menu-bar view filter add-saved-filters]
+;;       '(menu-item "Add to permanently saved filters..." ibuffer-add-saved-filters
+;; 		  :help "Include current filters in an already saved stack"))
+;;     (define-key-after map [menu-bar view filter delete-saved-filters]
+;;       '(menu-item "Delete permanently saved filters..." ibuffer-delete-saved-filters
+;; 		  :help "Remove stack of filters from saved list"))
+;;     (define-key-after map [menu-bar view dashes2]
+;;       '("--"))
+;;     (define-key-after map [menu-bar view diff-with-file]
+;;       '(menu-item "Diff with file" ibuffer-diff-with-file
+;; 		  :help "View the differences between this buffer and its file"))
+;;     (define-key-after map [menu-bar view auto-mode]
+;;       '(menu-item "Toggle Auto Mode" ibuffer-auto-mode
+;; 		  :help "Attempt to automatically update the Ibuffer buffer"))
+;;     (define-key-after map [menu-bar view customize]
+;;       '(menu-item "Customize Ibuffer" (lambda () (interactive)
+;; 					(customize-group 'ibuffer))
+;; 		  :help "Use Custom to customize Ibuffer"))
 
-    (define-key-after map [menu-bar mark]
-      (cons "Mark" (make-sparse-keymap "Mark")))
+;;     (define-key-after map [menu-bar mark]
+;;       (cons "Mark" (make-sparse-keymap "Mark")))
 
-    (define-key-after map [menu-bar mark toggle-marks]
-      '(menu-item "Toggle marks" ibuffer-toggle-marks
-		  :help "Unmark marked buffers, and mark unmarked buffers"))
-    (define-key-after map [menu-bar mark mark-forward]
-      '(menu-item "Mark" ibuffer-mark-forward
-		  :help "Mark the buffer at point"))
-    (define-key-after map [menu-bar mark unmark-forward]
-      '(menu-item "Unmark" ibuffer-unmark-forward
-		  :help "Unmark the buffer at point"))
-    (define-key-after map [menu-bar mark mark-by-mode]
-      '(menu-item "Mark by mode..." ibuffer-mark-by-mode
-		  :help "Mark all buffers in a particular major mode"))
-    (define-key-after map [menu-bar mark mark-modified-buffers]
-      '(menu-item "Mark modified buffers" ibuffer-mark-modified-buffers
-		  :help "Mark all buffers which have been modified"))
-    (define-key-after map [menu-bar mark mark-unsaved-buffers]
-      '(menu-item "Mark unsaved buffers" ibuffer-mark-unsaved-buffers
-		  :help "Mark all buffers which have a file and are modified"))
-    (define-key-after map [menu-bar mark mark-read-only-buffers]
-      '(menu-item "Mark read-only buffers" ibuffer-mark-read-only-buffers
-		  :help "Mark all buffers which are read-only"))
-    (define-key-after map [menu-bar mark mark-special-buffers]
-      '(menu-item "Mark special buffers" ibuffer-mark-special-buffers
-		  :help "Mark all buffers whose name begins with a *"))
-    (define-key-after map [menu-bar mark mark-dired-buffers]
-      '(menu-item "Mark dired buffers" ibuffer-mark-dired-buffers
-		  :help "Mark buffers in dired-mode"))
-    (define-key-after map [menu-bar mark mark-dissociated-buffers]
-      '(menu-item "Mark dissociated buffers" ibuffer-mark-dissociated-buffers
-		  :help "Mark buffers with a non-existent associated file"))
-    (define-key-after map [menu-bar mark mark-help-buffers]
-      '(menu-item "Mark help buffers" ibuffer-mark-help-buffers
-		  :help "Mark buffers in help-mode"))
-    (define-key-after map [menu-bar mark mark-old-buffers]
-      '(menu-item "Mark old buffers" ibuffer-mark-old-buffers
-		  :help "Mark buffers which have not been viewed recently"))
-    (define-key-after map [menu-bar mark unmark-all]
-      '(menu-item "Unmark All" ibuffer-unmark-all))
+;;     (define-key-after map [menu-bar mark toggle-marks]
+;;       '(menu-item "Toggle marks" ibuffer-toggle-marks
+;; 		  :help "Unmark marked buffers, and mark unmarked buffers"))
+;;     (define-key-after map [menu-bar mark mark-forward]
+;;       '(menu-item "Mark" ibuffer-mark-forward
+;; 		  :help "Mark the buffer at point"))
+;;     (define-key-after map [menu-bar mark unmark-forward]
+;;       '(menu-item "Unmark" ibuffer-unmark-forward
+;; 		  :help "Unmark the buffer at point"))
+;;     (define-key-after map [menu-bar mark mark-by-mode]
+;;       '(menu-item "Mark by mode..." ibuffer-mark-by-mode
+;; 		  :help "Mark all buffers in a particular major mode"))
+;;     (define-key-after map [menu-bar mark mark-modified-buffers]
+;;       '(menu-item "Mark modified buffers" ibuffer-mark-modified-buffers
+;; 		  :help "Mark all buffers which have been modified"))
+;;     (define-key-after map [menu-bar mark mark-unsaved-buffers]
+;;       '(menu-item "Mark unsaved buffers" ibuffer-mark-unsaved-buffers
+;; 		  :help "Mark all buffers which have a file and are modified"))
+;;     (define-key-after map [menu-bar mark mark-read-only-buffers]
+;;       '(menu-item "Mark read-only buffers" ibuffer-mark-read-only-buffers
+;; 		  :help "Mark all buffers which are read-only"))
+;;     (define-key-after map [menu-bar mark mark-special-buffers]
+;;       '(menu-item "Mark special buffers" ibuffer-mark-special-buffers
+;; 		  :help "Mark all buffers whose name begins with a *"))
+;;     (define-key-after map [menu-bar mark mark-dired-buffers]
+;;       '(menu-item "Mark dired buffers" ibuffer-mark-dired-buffers
+;; 		  :help "Mark buffers in dired-mode"))
+;;     (define-key-after map [menu-bar mark mark-dissociated-buffers]
+;;       '(menu-item "Mark dissociated buffers" ibuffer-mark-dissociated-buffers
+;; 		  :help "Mark buffers with a non-existent associated file"))
+;;     (define-key-after map [menu-bar mark mark-help-buffers]
+;;       '(menu-item "Mark help buffers" ibuffer-mark-help-buffers
+;; 		  :help "Mark buffers in help-mode"))
+;;     (define-key-after map [menu-bar mark mark-old-buffers]
+;;       '(menu-item "Mark old buffers" ibuffer-mark-old-buffers
+;; 		  :help "Mark buffers which have not been viewed recently"))
+;;     (define-key-after map [menu-bar mark unmark-all]
+;;       '(menu-item "Unmark All" ibuffer-unmark-all))
     
-    (define-key-after map [menu-bar mark dashes]
-      '("--"))
+;;     (define-key-after map [menu-bar mark dashes]
+;;       '("--"))
       
-    (define-key-after map [menu-bar mark mark-by-name-regexp]
-      '(menu-item "Mark by buffer name (regexp)..." ibuffer-mark-by-name-regexp
-		  :help "Mark buffers whose name matches a regexp"))
-    (define-key-after map [menu-bar mark mark-by-mode-regexp]
-      '(menu-item "Mark by major mode (regexp)..." ibuffer-mark-by-mode-regexp
-		  :help "Mark buffers whose major mode name matches a regexp"))
-    (define-key-after map [menu-bar mark mark-by-file-name-regexp]
-      '(menu-item "Mark by file name (regexp)..." ibuffer-mark-by-file-name-regexp
-		  :help "Mark buffers whose file name matches a regexp"))
+;;     (define-key-after map [menu-bar mark mark-by-name-regexp]
+;;       '(menu-item "Mark by buffer name (regexp)..." ibuffer-mark-by-name-regexp
+;; 		  :help "Mark buffers whose name matches a regexp"))
+;;     (define-key-after map [menu-bar mark mark-by-mode-regexp]
+;;       '(menu-item "Mark by major mode (regexp)..." ibuffer-mark-by-mode-regexp
+;; 		  :help "Mark buffers whose major mode name matches a regexp"))
+;;     (define-key-after map [menu-bar mark mark-by-file-name-regexp]
+;;       '(menu-item "Mark by file name (regexp)..." ibuffer-mark-by-file-name-regexp
+;; 		  :help "Mark buffers whose file name matches a regexp"))
 
-    ;; Operate map is added later
+;;     ;; Operate map is added later
 
-    (define-key-after operate-map [do-view]
-      '(menu-item "View" ibuffer-do-view))
-    (define-key-after operate-map [do-view-other-frame]
-      '(menu-item "View (separate frame)" ibuffer-do-view-other-frame))
-    (define-key-after operate-map [do-save]
-      '(menu-item "Save" ibuffer-do-save))
-    (define-key-after operate-map [do-replace-regexp]
-      '(menu-item "Replace (regexp)..." ibuffer-do-replace-regexp
-		  :help "Replace text inside marked buffers"))
-    (define-key-after operate-map [do-query-replace]
-      '(menu-item "Query Replace..." ibuffer-do-query-replace
-		  :help "Replace text in marked buffers, asking each time"))
-    (define-key-after operate-map [do-query-replace-regexp]
-      '(menu-item "Query Replace (regexp)..." ibuffer-do-query-replace-regexp
-		  :help "Replace text in marked buffers by regexp, asking each time"))
-    (define-key-after operate-map [do-print]
-      '(menu-item "Print" ibuffer-do-print))
-    (define-key-after operate-map [do-toggle-modified]
-      '(menu-item "Toggle modification flag" ibuffer-do-toggle-modified))
-    (define-key-after operate-map [do-revert]
-      '(menu-item "Revert" ibuffer-do-revert
-		  :help "Revert marked buffers to their associated file"))
-    (define-key-after operate-map [do-rename-uniquely]
-      '(menu-item "Rename Uniquely" ibuffer-do-rename-uniquely
-		  :help "Rename marked buffers to a new, unique name"))
-    (define-key-after operate-map [do-delete]
-      '(menu-item "Kill" ibuffer-do-delete))
-    (define-key-after operate-map [do-occur]
-      '(menu-item "List lines matching..." ibuffer-do-occur
-		  :help "View all lines in marked buffers matching a regexp"))
-    (define-key-after operate-map [do-shell-command-pipe]
-      '(menu-item "Pipe to shell command..." ibuffer-do-shell-command-pipe
-		  :help "For each marked buffer, send its contents to a shell command"))
-    (define-key-after operate-map [do-shell-command-pipe-replace]
-      '(menu-item "Pipe to shell command (replace)..." ibuffer-do-shell-command-pipe-replace
-		  :help "For each marked buffer, replace its contents with output of shell command"))
-    (define-key-after operate-map [do-shell-command-file]
-      '(menu-item "Shell command on buffer's file..." ibuffer-do-shell-command-file
-		  :help "For each marked buffer, run a shell command with its file as argument"))
-    (define-key-after operate-map [do-eval]
-      '(menu-item "Eval..." ibuffer-do-eval
-		  :help "Evaluate a Lisp form in each marked buffer"))
-    (define-key-after operate-map [do-view-and-eval]
-      '(menu-item "Eval (viewing buffer)..." ibuffer-do-view-and-eval
-		  :help "Evaluate a Lisp form in each marked buffer while viewing it"))
+;;     (define-key-after operate-map [do-view]
+;;       '(menu-item "View" ibuffer-do-view))
+;;     (define-key-after operate-map [do-view-other-frame]
+;;       '(menu-item "View (separate frame)" ibuffer-do-view-other-frame))
+;;     (define-key-after operate-map [do-save]
+;;       '(menu-item "Save" ibuffer-do-save))
+;;     (define-key-after operate-map [do-replace-regexp]
+;;       '(menu-item "Replace (regexp)..." ibuffer-do-replace-regexp
+;; 		  :help "Replace text inside marked buffers"))
+;;     (define-key-after operate-map [do-query-replace]
+;;       '(menu-item "Query Replace..." ibuffer-do-query-replace
+;; 		  :help "Replace text in marked buffers, asking each time"))
+;;     (define-key-after operate-map [do-query-replace-regexp]
+;;       '(menu-item "Query Replace (regexp)..." ibuffer-do-query-replace-regexp
+;; 		  :help "Replace text in marked buffers by regexp, asking each time"))
+;;     (define-key-after operate-map [do-print]
+;;       '(menu-item "Print" ibuffer-do-print))
+;;     (define-key-after operate-map [do-toggle-modified]
+;;       '(menu-item "Toggle modification flag" ibuffer-do-toggle-modified))
+;;     (define-key-after operate-map [do-revert]
+;;       '(menu-item "Revert" ibuffer-do-revert
+;; 		  :help "Revert marked buffers to their associated file"))
+;;     (define-key-after operate-map [do-rename-uniquely]
+;;       '(menu-item "Rename Uniquely" ibuffer-do-rename-uniquely
+;; 		  :help "Rename marked buffers to a new, unique name"))
+;;     (define-key-after operate-map [do-delete]
+;;       '(menu-item "Kill" ibuffer-do-delete))
+;;     (define-key-after operate-map [do-occur]
+;;       '(menu-item "List lines matching..." ibuffer-do-occur
+;; 		  :help "View all lines in marked buffers matching a regexp"))
+;;     (define-key-after operate-map [do-shell-command-pipe]
+;;       '(menu-item "Pipe to shell command..." ibuffer-do-shell-command-pipe
+;; 		  :help "For each marked buffer, send its contents to a shell command"))
+;;     (define-key-after operate-map [do-shell-command-pipe-replace]
+;;       '(menu-item "Pipe to shell command (replace)..." ibuffer-do-shell-command-pipe-replace
+;; 		  :help "For each marked buffer, replace its contents with output of shell command"))
+;;     (define-key-after operate-map [do-shell-command-file]
+;;       '(menu-item "Shell command on buffer's file..." ibuffer-do-shell-command-file
+;; 		  :help "For each marked buffer, run a shell command with its file as argument"))
+;;     (define-key-after operate-map [do-eval]
+;;       '(menu-item "Eval..." ibuffer-do-eval
+;; 		  :help "Evaluate a Lisp form in each marked buffer"))
+;;     (define-key-after operate-map [do-view-and-eval]
+;;       '(menu-item "Eval (viewing buffer)..." ibuffer-do-view-and-eval
+;; 		  :help "Evaluate a Lisp form in each marked buffer while viewing it"))
     
     (setq ibuffer-mode-map map
 	  ibuffer-mode-operate-map operate-map)))