Mercurial > emacs
changeset 22140:26e470569368
(uniquify-ignore-buffers-re): New variable.
(uniquify-rationalize-file-buffer-names): Implement it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 19 May 1998 05:07:48 +0000 |
| parents | 4a0e11be3592 |
| children | 8ddb49eb4814 |
| files | lisp/uniquify.el |
| diffstat | 1 files changed, 13 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/uniquify.el Tue May 19 04:27:28 1998 +0000 +++ b/lisp/uniquify.el Tue May 19 05:07:48 1998 +0000 @@ -70,6 +70,8 @@ ;; Ignore non-file non-dired buffers. Colin Rafferty <craffert@ml.com> 3 Mar 97 ;; Use last component, not "", for file name of directories. mernst 27 Jun 97 ;; Use directory-file-name; code cleanup. mernst 6 Sep 97 +;; Add uniquify-ignore-buffers-re. +;; Andre Srinivasan <andre@visigenic.com> 9 Sep 97 ;; Valuable feedback was provided by ;; Paul Smith <psmith@baynetworks.com>, @@ -124,6 +126,14 @@ :type 'boolean :group 'uniquify) +(defcustom uniquify-ignore-buffers-re nil + "*Regular expression matching buffer names that should not be uniqified. +For instance, set this to \"^draft-[0-9]+$\" to avoid having uniquify rename +draft buffers even if `uniquify-after-kill-buffer-p' is non-nil and the +visited file name isn't the same as that of the buffer." + :type 'boolean + :group 'uniquify) + (defcustom uniquify-min-dir-content 0 "*Minimum number of directory name components included in buffer name." :type 'integer @@ -196,6 +206,9 @@ (uniquify-buffer-file-name buffer))) (rawname (and bfn (uniquify-file-name-nondirectory bfn))) (deserving (and rawname + (not (and uniquify-ignore-buffers-re + (string-match uniquify-ignore-buffers-re + (buffer-name buffer)))) (or (not newbuffile) (equal rawname (uniquify-file-name-nondirectory newbuffile))))))