mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Don't require `derived' at compile-time.

Browse source
This commit is contained in:
John Paul Wallington 2003-07-05 11:20:30 +00:00
parent 4d5bb891d6
commit 2bf1ab7496
1 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/ibuf-ext.el
View file

@ -35,7 +35,6 @@
(require 'ibuffer)
(eval-when-compile
(require 'derived)
(require 'ibuf-macs)
(require 'cl))
@ -556,7 +555,8 @@ 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) (with-current-buffer buf major-mode))
(mapcar (lambda (buf)
(with-current-buffer buf major-mode))
(buffer-list)))))
(if ibuffer-view-ibuffer
modes
@ -586,7 +586,8 @@ 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 (list (ibuffer-read-filter-group-name "Decompose filter group: " t)))
(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
group ibuffer-filter-groups)
@ -620,7 +621,8 @@ 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 (list (ibuffer-read-filter-group-name "Jump to filter group: ")))
(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))
(error "No filter group with name %s" name)))
@ -667,7 +669,8 @@ See also `ibuffer-kill-filter-group'."
(setq groups (cdr groups))))
res)))
(cond ((not found)
(setq ibuffer-filter-groups (nconc ibuffer-filter-groups (list newgroup))))
(setq ibuffer-filter-groups
(nconc ibuffer-filter-groups (list newgroup))))
((zerop pos)
(push newgroup ibuffer-filter-groups))
(t
@ -836,14 +839,16 @@ 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 (nconc (cdr lim) 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"))
;; If the second filter is an OR, just add to it.
(let ((first (pop ibuffer-filtering-qualifiers))
(second (pop ibuffer-filtering-qualifiers)))
(if (eq 'or (car second))
(push (nconc (list 'or first) (cdr second)) ibuffer-filtering-qualifiers)
(push (nconc (list 'or first) (cdr second))
ibuffer-filtering-qualifiers)
(push (list 'or first second)
ibuffer-filtering-qualifiers))))
(ibuffer-update nil t))