111 |
(const :tag "standard Emacs behavior (nil)" nil)) |
(const :tag "standard Emacs behavior (nil)" nil)) |
112 |
:require 'uniquify) |
:require 'uniquify) |
113 |
|
|
114 |
(defcustom uniquify-after-kill-buffer-p nil |
(defcustom uniquify-after-kill-buffer-p t |
115 |
"If non-nil, rerationalize buffer names after a buffer has been killed." |
"If non-nil, rerationalize buffer names after a buffer has been killed." |
116 |
:type 'boolean) |
:type 'boolean) |
117 |
|
|
122 |
:type 'boolean) |
:type 'boolean) |
123 |
|
|
124 |
;; The default value matches certain Gnus buffers. |
;; The default value matches certain Gnus buffers. |
125 |
(defcustom uniquify-ignore-buffers-re "^\\*\\(un\\)?sent " |
(defcustom uniquify-ignore-buffers-re nil |
126 |
"*Regular expression matching buffer names that should not be uniquified. |
"*Regular expression matching buffer names that should not be uniquified. |
127 |
For instance, set this to \"^draft-[0-9]+$\" to avoid having uniquify rename |
For instance, set this to \"^draft-[0-9]+$\" to avoid having uniquify rename |
128 |
draft buffers even if `uniquify-after-kill-buffer-p' is non-nil and the |
draft buffers even if `uniquify-after-kill-buffer-p' is non-nil and the |
213 |
(setf (uniquify-item-dirname (car items)) |
(setf (uniquify-item-dirname (car items)) |
214 |
(uniquify-buffer-file-name |
(uniquify-buffer-file-name |
215 |
(uniquify-item-buffer (car items)))) |
(uniquify-item-buffer (car items)))) |
216 |
;; This shouldn't happen, but maybe there' no dirname any more. |
;; This shouldn't happen, but maybe there's no dirname any more. |
217 |
(unless (uniquify-item-dirname (car items)) |
(unless (uniquify-item-dirname (car items)) |
218 |
(with-current-buffer (uniquify-item-buffer (car items)) |
(with-current-buffer (uniquify-item-buffer (car items)) |
219 |
(setq uniquify-managed nil)) |
(setq uniquify-managed nil)) |