Mercurial > emacs
changeset 85587:4e025fb6178b
(ibuffer-switch-to-saved-filters, ibuffer-switch-to-saved-filter-groups):
Doc fixes.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 23 Oct 2007 14:33:09 +0000 |
| parents | fbdae6f74bf5 |
| children | e460bdc99c2f |
| files | lisp/ibuf-ext.el |
| diffstat | 1 files changed, 6 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ibuf-ext.el Tue Oct 23 14:24:43 2007 +0000 +++ b/lisp/ibuf-ext.el Tue Oct 23 14:33:09 2007 +0000 @@ -565,7 +565,7 @@ (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 @@ ;;;###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 @@ ;;;###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 @@ ;;;###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 @@ (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 @@ ;;;###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)