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

* lisp/ibuffer.el: Add mark for locked buffers

Browse source
This commit is contained in:
Tino Calancha 2016-07-08 01:13:55 +09:00
parent ee554d94f6
commit 56277b8150
1 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/ibuffer.el
View file

@ -71,7 +71,8 @@ and filter displayed buffers by various criteria."
:version "22.1"
:group 'convenience)
(defcustom ibuffer-formats '((mark modified read-only " " (name 18 18 :left :elide)
(defcustom ibuffer-formats '((mark modified read-only locked
" " (name 18 18 :left :elide)
" " (size 9 -1 :right)
" " (mode 16 16 :left :elide) " " filename-and-process)
(mark " " (name 16 -1) " " filename))
@ -137,6 +138,7 @@ value for this variable would be
Using \\[ibuffer-switch-format], you can rotate the display between
the specified formats in the list."
:version "25.2"
:type '(repeat sexp)
:group 'ibuffer)
@ -280,6 +282,12 @@ Note that this specialized filtering occurs before real filtering."
:type 'character
:group 'ibuffer)
(defcustom ibuffer-locked-char ?L
"The character to display for locked buffers."
:version "25.2"
:type 'character
:group 'ibuffer)
(defcustom ibuffer-deletion-char ?D
"The character to display for buffers marked for deletion."
:type 'character
@ -1733,6 +1741,11 @@ If point is on a group name, this function operates on that group."
(string ibuffer-read-only-char)
" "))
(define-ibuffer-column locked (:name "L" :inline t)
(if (and (boundp 'emacs-lock-mode) emacs-lock-mode)
(string ibuffer-locked-char)
" "))
(define-ibuffer-column modified (:name "M" :inline t)
(if (buffer-modified-p)
(string ibuffer-modified-char)