(defvar ibuffer-tmp-hide-regexps nil
"A list of regexps which should match buffer names to not show.")
-
+
(defvar ibuffer-tmp-show-regexps nil
"A list of regexps which should match buffer names to always show.")
(mode . java-mode)
(mode . idl-mode)
(mode . lisp-mode)))))
-
+
"An alist of filter qualifiers to switch between.
This variable should look like ((\"STRING\" QUALIFIERS)
:group 'ibuffer)
(defcustom ibuffer-saved-filter-groups nil
-
"An alist of filtering groups to switch between.
This variable should look like ((\"STRING\" QUALIFIERS)
(defcustom ibuffer-save-with-custom t
"If non-nil, then use Custom to save interactively changed variables.
Currently, this only applies to `ibuffer-saved-filters' and
-`ibuffer-saved-filter-groups."
+`ibuffer-saved-filter-groups'."
:type 'boolean
:group 'ibuffer)
;;;###autoload
(defun ibuffer-yank-filter-group (name)
"Yank the last killed filter group before group named NAME."
- (interactive (list (progn
- (unless ibuffer-filter-group-kill-ring
- (error "ibuffer-filter-group-kill-ring is empty"))
- (ibuffer-read-filter-group-name
- "Yank filter group before group: "))))
+ (interactive (list (ibuffer-read-filter-group-name
+ "Yank filter group before group: ")))
+ (unless ibuffer-filter-group-kill-ring
+ (error "The Ibuffer filter group kill-ring is empty"))
(save-excursion
(ibuffer-forward-line 0)
(ibuffer-insert-filter-group-before (pop ibuffer-filter-group-kill-ring)
(defun ibuffer-format-filter-group-data (filter)
(if (equal filter "Default")
""
- (concat "Filter: " (mapconcat #'ibuffer-format-qualifier
- (cdr (assq filter ibuffer-filter-groups))
- " ") "\n")))
-
+ (concat "Filter:" (mapconcat #'ibuffer-format-qualifier
+ (cdr (assq filter ibuffer-filter-groups))
+ " "))))
+
(defun ibuffer-format-qualifier (qualifier)
(if (eq (car-safe qualifier) 'not)
(concat " [NOT" (ibuffer-format-qualifier-1 (cdr qualifier)) "]")
(unless qualifier
(error "Ibuffer: bad qualifier %s" qualifier))
(concat " [" (cadr type) ": " (format "%s]" (cdr qualifier)))))))
-
+
(defun ibuffer-list-buffer-modes ()
"Create an alist of buffer modes currently in use.
(defun ibuffer-add-to-tmp-hide (regexp)
"Add REGEXP to `ibuffer-tmp-hide-regexps'.
This means that buffers whose name matches REGEXP will not be shown
-for this ibuffer session."
+for this Ibuffer session."
(interactive
(list
(read-from-minibuffer "Never show buffers matching: "
(defun ibuffer-add-to-tmp-show (regexp)
"Add REGEXP to `ibuffer-tmp-show-regexps'.
This means that buffers whose name matches REGEXP will always be shown
-for this ibuffer session."
+for this Ibuffer session."
(interactive
(list
(read-from-minibuffer "Always show buffers matching: "