From: Juanma Barranquero Date: Tue, 23 Oct 2007 14:49:21 +0000 (+0000) Subject: (ibuffer-switch-to-saved-filters, ibuffer-switch-to-saved-filter-groups): X-Git-Tag: emacs-pretest-22.1.90~537 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d8b73f9b4005d9060cd7458d3b9c2764c843573c;p=emacs.git (ibuffer-switch-to-saved-filters, ibuffer-switch-to-saved-filter-groups): Doc fixes. --- 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)