Lines Matching +defs:kill +defs:buffer
9 ;; Keywords: buffer, convenience
73 If a regexp, then it will be matched against the buffer's name.
74 If a function, it will be called with the buffer as an argument, and
75 should return non-nil if this buffer should not be shown."
82 If a regexp, then it will be matched against the buffer's name.
83 If a function, it will be called with the buffer as an argument, and
84 should return non-nil if this buffer should be shown.
86 regardless of any active filters in this buffer."
91 "A list of regexps which should match buffer names to not show.")
94 "A list of regexps which should match buffer names to always show.")
97 "If non-nil, Ibuffer auto-mode should be enabled for this buffer.
130 "A list like (SYMBOL . QUALIFIER) which filters the current buffer list.
141 displaying information to the user. FUNCTION is given a buffer and
143 buffer should be displayed.")
152 name of the buffer. You could accomplish that by adding:
191 (defvar ibuffer-filter-group-kill-ring nil)
194 "The number of hours before a buffer is considered \"old\"."
226 (when (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed)
229 (with-current-buffer buf
233 (buffer-list))))
241 (error "This buffer is not in Ibuffer mode"))
246 (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed)
263 (let ((buf (ibuffer-current-buffer)))
268 (with-current-buffer buf
335 "Pipe the contents of each marked buffer to shell command COMMAND."
341 (get-buffer-create "* ibuffer-shell-output*")))
348 :active-opstring "replace buffer contents in"
351 (with-current-buffer buf
358 (:interactive "sShell command on buffer's file: "
363 (if buffer-file-name
364 buffer-file-name
366 (substring (buffer-name) 0 (min 10 (length (buffer-name))))))))))
371 Does not display the buffer during evaluation. See
385 To evaluate a form without viewing the buffer, see `ibuffer-do-eval'."
394 (let ((ibuffer-buf (current-buffer)))
397 (switch-to-buffer buf)
399 (switch-to-buffer ibuffer-buf))))
410 "Revert marked buffers as with `revert-buffer'."
415 (revert-buffer t t))
429 (switch-to-buffer buf)
446 (switch-to-buffer buf)
462 (switch-to-buffer buf)
471 "Print marked buffers as with `print-buffer'."
474 (print-buffer))
569 (with-current-buffer buf major-mode))
570 (buffer-list)))))
649 (defun ibuffer-kill-filter-group (name)
651 The group will be added to `ibuffer-filter-group-kill-ring'."
654 (error "Can't kill default filter group"))
657 (push (copy-tree it) ibuffer-filter-group-kill-ring)
666 (defun ibuffer-kill-line (&optional arg interactive-p)
668 See also `ibuffer-kill-filter-group'."
674 (ibuffer-kill-filter-group it))
676 #'kill-line arg)))
713 (unless ibuffer-filter-group-kill-ring
714 (error "The Ibuffer filter group kill-ring is empty"))
717 (ibuffer-insert-filter-group-before (pop ibuffer-filter-group-kill-ring)
755 "Set this buffer's filter groups to saved version with NAME.
771 "Disable all filters currently in effect in this buffer."
774 (let ((buf (ibuffer-current-buffer)))
777 (ibuffer-jump-to-buffer (buffer-name buf)))))
781 "Remove the top filter in this buffer."
786 (let ((buf (ibuffer-current-buffer)))
789 (ibuffer-jump-to-buffer (buffer-name buf)))))
797 "Separate the top compound filter (OR, NOT, or SAVED) in this buffer.
830 "Exchange the top two filters on the stack in this buffer."
843 "Negate the sense of the top filter in the current buffer."
856 "Replace the top two filters in this buffer with their logical OR.
892 "Save FILTERS in this buffer with name NAME in `ibuffer-saved-filters'.
922 "Add saved filters from `ibuffer-saved-filters' to this buffer's filters."
934 "Set this buffer's filters to filters with NAME from `ibuffer-saved-filters'.
972 (defun ibuffer-list-buffer-modes ()
973 "Create an alist of buffer modes currently in use.
975 (let ((bufs (buffer-list))
980 (with-current-buffer
1004 (let ((buf (ibuffer-current-buffer)))
1005 (if (and buf (buffer-live-p buf))
1006 (with-current-buffer buf
1009 (eq qualifier (with-current-buffer buf major-mode)))
1020 (ibuffer-list-buffer-modes)
1023 (let ((buf (ibuffer-current-buffer)))
1024 (if (and buf (buffer-live-p buf))
1025 (with-current-buffer buf
1028 (eq qualifier (with-current-buffer buf major-mode)))
1033 (:description "buffer name"
1035 (string-match qualifier (buffer-name buf)))
1042 (ibuffer-awhen (with-current-buffer buf
1043 (or buffer-file-name
1059 (> (with-current-buffer buf (buffer-size))
1068 (< (with-current-buffer buf (buffer-size))
1076 (with-current-buffer buf
1086 (with-current-buffer buf
1095 Recency - the last time the buffer was viewed
1096 Name - the name of the buffer
1097 Major Mode - the name of the major mode of the buffer
1098 Size - the size of the buffer"
1126 (symbol-name (with-current-buffer
1130 (symbol-name (with-current-buffer
1140 (with-current-buffer
1144 (with-current-buffer
1152 (:description "buffer name")
1154 (buffer-name (car a))
1155 (buffer-name (car b))))
1161 (< (with-current-buffer (car a)
1162 (buffer-size))
1163 (with-current-buffer (car b)
1164 (buffer-size))))
1193 (regexp-quote (buffer-name (ibuffer-current-buffer t))))))
1204 (regexp-quote (buffer-name (ibuffer-current-buffer t))))))
1246 (defun ibuffer-do-kill-lines ()
1250 (message "No buffers marked; use 'm' to mark a buffer")
1254 'kill))))
1258 (defun ibuffer-jump-to-buffer (name)
1259 "Move point to the buffer whose name is NAME.
1261 If called interactively, prompt for a buffer name and go to the
1262 corresponding line in the Ibuffer buffer. If said buffer is in a
1274 (buffer-name (car x)))
1278 (completing-read "Jump to buffer: "
1280 (read-buffer "Jump to buffer: " nil t)))))
1283 ;; Blindly search for our buffer: it is very likely that it is
1286 (when (string= (buffer-name buf) name)
1293 ;; We did not find our buffer. It must be in a hidden filter
1300 (when (string= (buffer-name buf) name)
1311 (error "No buffer with name %s" name)
1316 "View the differences between this buffer and its associated file.
1319 (let ((buf (ibuffer-current-buffer)))
1320 (unless (buffer-live-p buf)
1322 (diff-buffer-with-file buf)))
1325 (defun ibuffer-copy-filename-as-kill (&optional arg)
1326 "Copy filenames of marked buffers into the kill ring.
1329 If a buffer has no filename, it is ignored.
1339 (message "No buffers marked; use 'm' to mark a buffer")
1340 (let ((ibuffer-copy-filename-as-kill-result "")
1349 (setq ibuffer-copy-filename-as-kill-result
1350 (concat ibuffer-copy-filename-as-kill-result
1351 (let ((name (buffer-file-name buf)))
1364 (kill-new ibuffer-copy-filename-as-kill-result))))
1366 (defun ibuffer-mark-on-buffer (func &optional ibuffer-mark-on-buffer-mark group)
1371 (ibuffer-set-mark-1 (or ibuffer-mark-on-buffer-mark
1383 (ibuffer-mark-on-buffer
1385 (string-match regexp (buffer-name buf)))))
1391 (ibuffer-mark-on-buffer
1393 (with-current-buffer buf
1400 (ibuffer-mark-on-buffer
1402 (let ((name (or (buffer-file-name buf)
1403 (with-current-buffer buf
1422 (let ((buf (ibuffer-current-buffer)))
1423 (if (and buf (buffer-live-p buf))
1424 (with-current-buffer buf
1428 (ibuffer-mark-on-buffer
1430 (with-current-buffer buf
1437 (ibuffer-mark-on-buffer
1438 #'(lambda (buf) (buffer-modified-p buf))))
1444 (ibuffer-mark-on-buffer
1445 #'(lambda (buf) (and (with-current-buffer buf buffer-file-name)
1446 (buffer-modified-p buf)))))
1452 (ibuffer-mark-on-buffer
1454 (with-current-buffer buf
1456 (and buffer-file-name
1457 (not (file-exists-p buffer-file-name)))
1467 (ibuffer-mark-on-buffer
1469 (with-current-buffer buf
1470 (memq major-mode ibuffer-help-buffer-modes)))))
1476 (ibuffer-mark-on-buffer
1478 (with-current-buffer buf
1479 (and buffer-file-name
1481 buffer-file-name))))))
1487 (ibuffer-mark-on-buffer
1489 (with-current-buffer buf
1491 (when buffer-display-time
1496 (car buffer-display-time))
1497 (float (cadr buffer-display-time))
1498 (* 0.0000001 (caddr buffer-display-time)))))
1505 (ibuffer-mark-on-buffer
1507 (buffer-name buf)))))
1513 (ibuffer-mark-on-buffer
1515 (with-current-buffer buf
1516 buffer-read-only))))
1522 (ibuffer-mark-on-buffer
1524 (with-current-buffer buf