[Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el

[Richard M. Stallman]

Index: emacs/lisp/ibuf-ext.el
diff -c emacs/lisp/ibuf-ext.el:1.2 emacs/lisp/ibuf-ext.el:1.3
*** emacs/lisp/ibuf-ext.el:1.2  Wed Jan 16 01:35:51 2002
--- emacs/lisp/ibuf-ext.el      Wed Jan 16 20:43:18 2002
***************
*** 212,218 ****
                                  major-mode)))))
    (ibuffer-update nil t))
  
- ;;;###autoload
  (define-ibuffer-op shell-command-pipe (command)
    "Pipe the contents of each marked buffer to shell command COMMAND."
    (:interactive "sPipe to shell command: "
--- 212,217 ----
***************
*** 222,228 ****
     (point-min) (point-max) command
     (get-buffer-create "* ibuffer-shell-output*")))
  
- ;;;###autoload
  (define-ibuffer-op shell-command-pipe-replace (command)
    "Replace the contents of marked buffers with output of pipe to COMMAND."
    (:interactive "sPipe to shell command (replace): "
--- 221,226 ----
***************
*** 234,240 ****
      (shell-command-on-region (point-min) (point-max)
                             command nil t)))
  
- ;;;###autoload
  (define-ibuffer-op shell-command-file (command)
    "Run shell command COMMAND separately on files of marked buffers."
    (:interactive "sShell command on buffer's file: "
--- 232,237 ----
***************
*** 247,253 ****
                            (make-temp-file
                             (substring (buffer-name) 0 (min 10 (length 
(buffer-name))))))))))
                          
- ;;;###autoload
  (define-ibuffer-op eval (form)
    "Evaluate FORM in each of the buffers.
  Does not display the buffer during evaluation. See
--- 244,249 ----
***************
*** 257,263 ****
     :modifier-p :maybe)
    (eval form))
  
- ;;;###autoload
  (define-ibuffer-op view-and-eval (form)
    "Evaluate FORM while displaying each of the marked buffers.
  To evaluate a form without viewing the buffer, see `ibuffer-do-eval'."
--- 253,258 ----
***************
*** 272,285 ****
          (eval form))
        (switch-to-buffer ibuffer-buf))))
  
- ;;;###autoload
  (define-ibuffer-op rename-uniquely ()
    "Rename marked buffers as with `rename-uniquely'."
    (:opstring "renamed"
     :modifier-p t)
    (rename-uniquely))
  
- ;;;###autoload
  (define-ibuffer-op revert ()
    "Revert marked buffers as with `revert-buffer'."
    (:dangerous t
--- 267,278 ----
***************
*** 288,294 ****
     :modifier-p :maybe)
    (revert-buffer t t))
  
- ;;;###autoload
  (define-ibuffer-op replace-regexp (from-str to-str)
    "Perform a `replace-regexp' in marked buffers."
    (:interactive
--- 281,286 ----
***************
*** 308,314 ****
          (replace-match to-str))))
      t))
  
- ;;;###autoload
  (define-ibuffer-op query-replace (&rest args)
    "Perform a `query-replace' in marked buffers."
    (:interactive
--- 300,305 ----
***************
*** 324,330 ****
        (apply #'query-replace args)))
      t))
  
- ;;;###autoload
  (define-ibuffer-op query-replace-regexp (&rest args)
    "Perform a `query-replace-regexp' in marked buffers."
    (:interactive
--- 315,320 ----
***************
*** 340,346 ****
        (apply #'query-replace-regexp args)))
      t))
  
- ;;;###autoload
  (define-ibuffer-op print ()
    "Print marked buffers as with `print-buffer'."
    (:opstring "printed"
--- 330,335 ----
***************
*** 580,586 ****
    
  ;;; Extra operation definitions
  
- ;;;###autoload
  (define-ibuffer-filter mode 
    "Toggle current view to buffers with major mode QUALIFIER."
    (:description "major mode"
--- 569,574 ----
***************
*** 598,604 ****
                         "")))))
    (eq qualifier (with-current-buffer buf major-mode)))
  
- ;;;###autoload
  (define-ibuffer-filter name 
    "Toggle current view to buffers with name matching QUALIFIER."
    (:description "buffer name"
--- 586,591 ----
***************
*** 606,612 ****
     (read-from-minibuffer "Filter by name (regexp): "))
    (string-match qualifier (buffer-name buf)))
  
- ;;;###autoload
  (define-ibuffer-filter filename
    "Toggle current view to buffers with filename matching QUALIFIER."
    (:description "filename"
--- 593,598 ----
***************
*** 615,621 ****
    (ibuffer-awhen (buffer-file-name buf)
      (string-match qualifier it)))
  
- ;;;###autoload
  (define-ibuffer-filter size-gt 
    "Toggle current view to buffers with size greater than QUALIFIER."
    (:description "size greater than"
--- 601,606 ----
***************
*** 624,630 ****
    (> (with-current-buffer buf (buffer-size))
       qualifier))
  
- ;;;###autoload
  (define-ibuffer-filter size-lt 
     "Toggle current view to buffers with size less than QUALIFIER."
    (:description "size less than"
--- 609,614 ----
***************
*** 633,639 ****
    (< (with-current-buffer buf (buffer-size))
       qualifier))
    
- ;;;###autoload
  (define-ibuffer-filter content
     "Toggle current view to buffers whose contents match QUALIFIER."
    (:description "content"
--- 617,622 ----
***************
*** 644,650 ****
        (goto-char (point-min))
        (re-search-forward qualifier nil t))))
  
- ;;;###autoload
  (define-ibuffer-filter predicate
     "Toggle current view to buffers for which QUALIFIER returns non-nil."
    (:description "predicate"
--- 627,632 ----
***************
*** 688,694 ****
             "normal"))
    (ibuffer-redisplay t))
  
- ;;;###autoload
  (define-ibuffer-sorter major-mode
    "Sort the buffers by major modes.
  Ordering is lexicographic."
--- 670,675 ----
***************
*** 702,708 ****
                                  (car b)
                                major-mode)))))
  
- ;;;###autoload
  (define-ibuffer-sorter alphabetic
    "Sort the buffers by their names.
  Ordering is lexicographic."
--- 683,688 ----
***************
*** 711,717 ****
     (buffer-name (car a))
     (buffer-name (car b))))
  
- ;;;###autoload
  (define-ibuffer-sorter size
   "Sort the buffers by their size."
    (:description "size")
--- 691,696 ----