comparison lisp/ibuf-ext.el @ 90037:0fe073a08cef

Revision: [e-mail]--gnu-2004/emacs--unicode--0--patch-65 Merge from emacs--cvs-trunk--0 Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-634 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-639 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-640 Merge from gnus--rel--5.10 * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-641 Update from CVS * [e-mail]--gnu-2004/gnus--rel--5.10--patch-59 - [e-mail]--gnu-2004/gnus--rel--5.10--patch-60 Update from CVS

90036:af754c88f187

	      (delete name ibuffer-hidden-filter-groups)))
    (error "No filter group with name \"%s\"" name))
  (ibuffer-update nil t))

;;;###autoload
(defun ibuffer-kill-line (&optional arg)
  "Kill the filter group at point.
See also `ibuffer-kill-filter-group'."
  (interactive "P")
  (ibuffer-aif (save-excursion
		 (ibuffer-forward-line 0)
		 (get-text-property (point) 'ibuffer-filter-group-name))
      (progn
	(ibuffer-kill-filter-group it))
      (funcall (if (interactive-p) #'call-interactively #'funcall)
	       #'kill-line arg)))

(defun ibuffer-insert-filter-group-before (newgroup group)
  (let* ((found nil)
	 (pos (let ((groups (mapcar #'car ibuffer-filter-groups))

hidden group filter, open it.

If `ibuffer-jump-offer-only-visible-buffers' is non-nil, only offer
visible buffers in the completion list.  Calling the command with
a prefix argument reverses the meaning of that variable."
  (interactive (list nil))
  (let ((only-visible ibuffer-jump-offer-only-visible-buffers))
    (when current-prefix-arg
      (setq only-visible (not only-visible)))
    (if only-visible
	(let ((table (mapcar #'(lambda (x)
				 (buffer-name (car x)))
			     (ibuffer-current-state-list))))
	  (when (null table)
	    (error "No buffers!"))
	  (when (interactive-p)
	    (setq name (completing-read "Jump to buffer: "
					table nil t))))
      (when (interactive-p)
	(setq name (read-buffer "Jump to buffer: " nil t))))
    (when (not (string= "" name))
      (let (buf-point)
	;; Blindly search for our buffer: it is very likely that it is
	;; not in a hidden filter group.
	(ibuffer-map-lines #'(lambda (buf marks)
			       (when (string= (buffer-name buf) name)
				 (setq buf-point (point))
				 nil))
			   t nil)
	(when (and
	       (null buf-point)
	       (not (null ibuffer-hidden-filter-groups)))
	  ;; We did not find our buffer.  It must be in a hidden filter
	  ;; group, so go through all hidden filter groups to find it.
	  (catch 'found
	    (dolist (group ibuffer-hidden-filter-groups)
	      (ibuffer-jump-to-filter-group group)
	      (ibuffer-toggle-filter-group)
	      (ibuffer-map-lines #'(lambda (buf marks)
				     (when (string= (buffer-name buf) name)
				       (setq buf-point (point))
				       nil))
				 t group)
	      (if buf-point
		  (throw 'found nil)
		(ibuffer-toggle-filter-group)))))
	(if (null buf-point)
	    ;; Still not found even though we expanded all hidden filter
	    ;; groups: that must be because it's hidden by predicate:
	    ;; we won't bother trying to display it.
	    (error "No buffer with name %s" name)
	  (goto-char buf-point))))))

;;;###autoload
(defun ibuffer-diff-with-file ()
  "View the differences between this buffer and its associated file.
This requires the external program \"diff\" to be in your `exec-path'."

90037:0fe073a08cef

	      (delete name ibuffer-hidden-filter-groups)))
    (error "No filter group with name \"%s\"" name))
  (ibuffer-update nil t))

;;;###autoload
(defun ibuffer-kill-line (&optional arg interactive-p)
  "Kill the filter group at point.
See also `ibuffer-kill-filter-group'."
  (interactive "P\np")
  (ibuffer-aif (save-excursion
		 (ibuffer-forward-line 0)
		 (get-text-property (point) 'ibuffer-filter-group-name))
      (progn
	(ibuffer-kill-filter-group it))
      (funcall (if interactive-p #'call-interactively #'funcall)
	       #'kill-line arg)))

(defun ibuffer-insert-filter-group-before (newgroup group)
  (let* ((found nil)
	 (pos (let ((groups (mapcar #'car ibuffer-filter-groups))

hidden group filter, open it.

If `ibuffer-jump-offer-only-visible-buffers' is non-nil, only offer
visible buffers in the completion list.  Calling the command with
a prefix argument reverses the meaning of that variable."
  (interactive (list
		(let ((only-visible ibuffer-jump-offer-only-visible-buffers))
		  (when current-prefix-arg
		    (setq only-visible (not only-visible)))
		  (if only-visible
		      (let ((table (mapcar #'(lambda (x)
					       (buffer-name (car x)))
					   (ibuffer-current-state-list))))
			(when (null table)
			  (error "No buffers!"))
			(completing-read "Jump to buffer: "
					 table nil t))
		    (read-buffer "Jump to buffer: " nil t)))))
  (when (not (string= "" name))
    (let (buf-point)
      ;; Blindly search for our buffer: it is very likely that it is
      ;; not in a hidden filter group.
      (ibuffer-map-lines #'(lambda (buf marks)
			     (when (string= (buffer-name buf) name)
			       (setq buf-point (point))
			       nil))
			 t nil)
      (when (and
	     (null buf-point)
	     (not (null ibuffer-hidden-filter-groups)))
	;; We did not find our buffer.  It must be in a hidden filter
	;; group, so go through all hidden filter groups to find it.
	(catch 'found
	  (dolist (group ibuffer-hidden-filter-groups)
	    (ibuffer-jump-to-filter-group group)
	    (ibuffer-toggle-filter-group)
	    (ibuffer-map-lines #'(lambda (buf marks)
				   (when (string= (buffer-name buf) name)
				     (setq buf-point (point))
				     nil))
			       t group)
	    (if buf-point
		(throw 'found nil)
	      (ibuffer-toggle-filter-group)))))
      (if (null buf-point)
	  ;; Still not found even though we expanded all hidden filter
	  ;; groups: that must be because it's hidden by predicate:
	  ;; we won't bother trying to display it.
	  (error "No buffer with name %s" name)
	(goto-char buf-point)))))

;;;###autoload
(defun ibuffer-diff-with-file ()
  "View the differences between this buffer and its associated file.
This requires the external program \"diff\" to be in your `exec-path'."