diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-10-23 14:49:21 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-10-23 14:49:21 +0000 |
| commit | d8b73f9b4005d9060cd7458d3b9c2764c843573c (patch) | |
| tree | 02a6cf10d46d77892024e6832c60aebeed1e993a /lisp/ibuf-ext.el | |
| parent | 4b576f7d9061b6bc4a1f1e0c6ff5bff5d3459bc0 (diff) | |
| download | emacs-d8b73f9b4005d9060cd7458d3b9c2764c843573c.tar.gz | |
(ibuffer-switch-to-saved-filters, ibuffer-switch-to-saved-filter-groups):
Doc fixes.
Diffstat (limited to 'lisp/ibuf-ext.el')
| -rw-r--r-- | lisp/ibuf-ext.el | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 2c39b736097..feebab40b43 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -565,7 +565,7 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'." (cons (format "%s" mode) `((mode . ,mode)))) (let ((modes (ibuffer-remove-duplicates - (mapcar (lambda (buf) + (mapcar (lambda (buf) (with-current-buffer buf major-mode)) (buffer-list))))) (if ibuffer-view-ibuffer @@ -604,7 +604,7 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'." ;;;###autoload (defun ibuffer-decompose-filter-group (group) "Decompose the filter group GROUP into active filters." - (interactive + (interactive (list (ibuffer-read-filter-group-name "Decompose filter group: " t))) (let ((data (cdr (assoc group ibuffer-filter-groups)))) (setq ibuffer-filter-groups (ibuffer-delete-alist @@ -639,7 +639,7 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'." ;;;###autoload (defun ibuffer-jump-to-filter-group (name) "Move point to the filter group whose name is NAME." - (interactive + (interactive (list (ibuffer-read-filter-group-name "Jump to filter group: "))) (ibuffer-aif (assoc name (ibuffer-current-filter-groups-with-position)) (goto-char (cdr it)) @@ -753,9 +753,7 @@ They are removed from `ibuffer-saved-filter-groups'." ;;;###autoload (defun ibuffer-switch-to-saved-filter-groups (name) "Set this buffer's filter groups to saved version with NAME. -The value from `ibuffer-saved-filters' is used. -If prefix argument ADD is non-nil, then add the saved filters instead -of replacing the current filters." +The value from `ibuffer-saved-filter-groups' is used." (interactive (list (if (null ibuffer-saved-filter-groups) @@ -863,7 +861,7 @@ filter into parts." (not (eq 'or (caar ibuffer-filtering-qualifiers)))) (error "Top filter is not an OR")) (let ((lim (pop ibuffer-filtering-qualifiers))) - (setq ibuffer-filtering-qualifiers + (setq ibuffer-filtering-qualifiers (nconc (cdr lim) ibuffer-filtering-qualifiers)))) (when (< (length ibuffer-filtering-qualifiers) 2) (error "Need two filters to OR")) @@ -931,9 +929,7 @@ Interactively, prompt for NAME, and use the current filters." ;;;###autoload (defun ibuffer-switch-to-saved-filters (name) - "Set this buffer's filters to filters with NAME from `ibuffer-saved-filters'. -If prefix argument ADD is non-nil, then add the saved filters instead -of replacing the current filters." + "Set this buffer's filters to filters with NAME from `ibuffer-saved-filters'." (interactive (list (if (null ibuffer-saved-filters) |