Changeset 3939 for vendor/emacs-CVS_HEAD/lisp/ibuf-ext.el
- Timestamp:
- 2005年11月01日 07時08分22秒 (3 years ago)
- Files:
-
- vendor/emacs-CVS_HEAD/lisp/ibuf-ext.el (modified) (23 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
vendor/emacs-CVS_HEAD/lisp/ibuf-ext.el
r3861 r3939 330 330 (ibuffer-forward-line 0)) 331 331 332 ;;;###autoload (autoload 'ibuffer-do-shell-command-pipe "ibuf-ext .el")332 ;;;###autoload (autoload 'ibuffer-do-shell-command-pipe "ibuf-ext") 333 333 (define-ibuffer-op shell-command-pipe (command) 334 334 "Pipe the contents of each marked buffer to shell command COMMAND." … … 340 340 (get-buffer-create "* ibuffer-shell-output*"))) 341 341 342 ;;;###autoload (autoload 'ibuffer-do-shell-command-pipe-replace "ibuf-ext .el")342 ;;;###autoload (autoload 'ibuffer-do-shell-command-pipe-replace "ibuf-ext") 343 343 (define-ibuffer-op shell-command-pipe-replace (command) 344 344 "Replace the contents of marked buffers with output of pipe to COMMAND." … … 352 352 command nil t))) 353 353 354 ;;;###autoload (autoload 'ibuffer-do-shell-command-file "ibuf-ext .el")354 ;;;###autoload (autoload 'ibuffer-do-shell-command-file "ibuf-ext") 355 355 (define-ibuffer-op shell-command-file (command) 356 356 "Run shell command COMMAND separately on files of marked buffers." … … 365 365 (substring (buffer-name) 0 (min 10 (length (buffer-name)))))))))) 366 366 367 ;;;###autoload (autoload 'ibuffer-do-eval "ibuf-ext .el")367 ;;;###autoload (autoload 'ibuffer-do-eval "ibuf-ext") 368 368 (define-ibuffer-op eval (form) 369 369 "Evaluate FORM in each of the buffers. … … 375 375 (eval form)) 376 376 377 ;;;###autoload (autoload 'ibuffer-do-view-and-eval "ibuf-ext .el")377 ;;;###autoload (autoload 'ibuffer-do-view-and-eval "ibuf-ext") 378 378 (define-ibuffer-op view-and-eval (form) 379 379 "Evaluate FORM while displaying each of the marked buffers. … … 390 390 (switch-to-buffer ibuffer-buf)))) 391 391 392 ;;;###autoload (autoload 'ibuffer-do-rename-uniquely "ibuf-ext .el")392 ;;;###autoload (autoload 'ibuffer-do-rename-uniquely "ibuf-ext") 393 393 (define-ibuffer-op rename-uniquely () 394 394 "Rename marked buffers as with `rename-uniquely'." … … 397 397 (rename-uniquely)) 398 398 399 ;;;###autoload (autoload 'ibuffer-do-revert "ibuf-ext .el")399 ;;;###autoload (autoload 'ibuffer-do-revert "ibuf-ext") 400 400 (define-ibuffer-op revert () 401 401 "Revert marked buffers as with `revert-buffer'." … … 406 406 (revert-buffer t t)) 407 407 408 ;;;###autoload (autoload 'ibuffer-do-replace-regexp "ibuf-ext .el")408 ;;;###autoload (autoload 'ibuffer-do-replace-regexp "ibuf-ext") 409 409 (define-ibuffer-op replace-regexp (from-str to-str) 410 410 "Perform a `replace-regexp' in marked buffers." … … 426 426 t)) 427 427 428 ;;;###autoload (autoload 'ibuffer-do-query-replace "ibuf-ext .el")428 ;;;###autoload (autoload 'ibuffer-do-query-replace "ibuf-ext") 429 429 (define-ibuffer-op query-replace (&rest args) 430 430 "Perform a `query-replace' in marked buffers." … … 442 442 t)) 443 443 444 ;;;###autoload (autoload 'ibuffer-do-query-replace-regexp "ibuf-ext .el")444 ;;;###autoload (autoload 'ibuffer-do-query-replace-regexp "ibuf-ext") 445 445 (define-ibuffer-op query-replace-regexp (&rest args) 446 446 "Perform a `query-replace-regexp' in marked buffers." … … 458 458 t)) 459 459 460 ;;;###autoload (autoload 'ibuffer-do-print "ibuf-ext .el")460 ;;;###autoload (autoload 'ibuffer-do-print "ibuf-ext") 461 461 (define-ibuffer-op print () 462 462 "Print marked buffers as with `print-buffer'." … … 970 970 ;;; Extra operation definitions 971 971 972 ;;;###autoload (autoload 'ibuffer-filter-by-mode "ibuf-ext .el")972 ;;;###autoload (autoload 'ibuffer-filter-by-mode "ibuf-ext") 973 973 (define-ibuffer-filter mode 974 974 "Toggle current view to buffers with major mode QUALIFIER." … … 988 988 (eq qualifier (with-current-buffer buf major-mode))) 989 989 990 ;;;###autoload (autoload 'ibuffer-filter-by-used-mode "ibuf-ext .el")990 ;;;###autoload (autoload 'ibuffer-filter-by-used-mode "ibuf-ext") 991 991 (define-ibuffer-filter used-mode 992 992 "Toggle current view to buffers with major mode QUALIFIER. … … 1007 1007 (eq qualifier (with-current-buffer buf major-mode))) 1008 1008 1009 ;;;###autoload (autoload 'ibuffer-filter-by-name "ibuf-ext .el")1009 ;;;###autoload (autoload 'ibuffer-filter-by-name "ibuf-ext") 1010 1010 (define-ibuffer-filter name 1011 1011 "Toggle current view to buffers with name matching QUALIFIER." … … 1014 1014 (string-match qualifier (buffer-name buf))) 1015 1015 1016 ;;;###autoload (autoload 'ibuffer-filter-by-filename "ibuf-ext .el")1016 ;;;###autoload (autoload 'ibuffer-filter-by-filename "ibuf-ext") 1017 1017 (define-ibuffer-filter filename 1018 1018 "Toggle current view to buffers with filename matching QUALIFIER." … … 1028 1028 (string-match qualifier it))) 1029 1029 1030 ;;;###autoload (autoload 'ibuffer-filter-by-size-gt "ibuf-ext .el")1030 ;;;###autoload (autoload 'ibuffer-filter-by-size-gt "ibuf-ext") 1031 1031 (define-ibuffer-filter size-gt 1032 1032 "Toggle current view to buffers with size greater than QUALIFIER." … … 1037 1037 qualifier)) 1038 1038 1039 ;;;###autoload (autoload 'ibuffer-filter-by-size-lt "ibuf-ext .el")1039 ;;;###autoload (autoload 'ibuffer-filter-by-size-lt "ibuf-ext") 1040 1040 (define-ibuffer-filter size-lt 1041 1041 "Toggle current view to buffers with size less than QUALIFIER." … … 1046 1046 qualifier)) 1047 1047 1048 ;;;###autoload (autoload 'ibuffer-filter-by-content "ibuf-ext .el")1048 ;;;###autoload (autoload 'ibuffer-filter-by-content "ibuf-ext") 1049 1049 (define-ibuffer-filter content 1050 1050 "Toggle current view to buffers whose contents match QUALIFIER." … … 1056 1056 (re-search-forward qualifier nil t)))) 1057 1057 1058 ;;;###autoload (autoload 'ibuffer-filter-by-predicate "ibuf-ext .el")1058 ;;;###autoload (autoload 'ibuffer-filter-by-predicate "ibuf-ext") 1059 1059 (define-ibuffer-filter predicate 1060 1060 "Toggle current view to buffers for which QUALIFIER returns non-nil." … … 1095 1095 (ibuffer-redisplay t)) 1096 1096 1097 ;;;###autoload (autoload 'ibuffer-do-sort-by-major-mode "ibuf-ext .el")1097 ;;;###autoload (autoload 'ibuffer-do-sort-by-major-mode "ibuf-ext") 1098 1098 (define-ibuffer-sorter major-mode 1099 1099 "Sort the buffers by major modes. … … 1109 1109 major-mode))))) 1110 1110 1111 ;;;###autoload (autoload 'ibuffer-do-sort-by-mode-name "ibuf-ext .el")1111 ;;;###autoload (autoload 'ibuffer-do-sort-by-mode-name "ibuf-ext") 1112 1112 (define-ibuffer-sorter mode-name 1113 1113 "Sort the buffers by their mode name. … … 1123 1123 mode-name)))) 1124 1124 1125 ;;;###autoload (autoload 'ibuffer-do-sort-by-alphabetic "ibuf-ext .el")1125 ;;;###autoload (autoload 'ibuffer-do-sort-by-alphabetic "ibuf-ext") 1126 1126 (define-ibuffer-sorter alphabetic 1127 1127 "Sort the buffers by their names. … … 1132 1132 (buffer-name (car b)))) 1133 1133 1134 ;;;###autoload (autoload 'ibuffer-do-sort-by-size "ibuf-ext .el")1134 ;;;###autoload (autoload 'ibuffer-do-sort-by-size "ibuf-ext") 1135 1135 (define-ibuffer-sorter size 1136 1136 "Sort the buffers by their size."
