diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-05-19 05:07:48 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-05-19 05:07:48 +0000 |
commit | 515dd01ae1c74395dcc2960e47fbab9c20d1fc7e (patch) | |
tree | 626c2a32d7073680abea5c89a6933de2b4a2b9cd | |
parent | 05debb7def0237b3ad15408b2d5ce073873d4d41 (diff) | |
download | emacs-515dd01ae1c74395dcc2960e47fbab9c20d1fc7e.tar.gz |
(uniquify-ignore-buffers-re): New variable.
(uniquify-rationalize-file-buffer-names): Implement it.
-rw-r--r-- | lisp/uniquify.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lisp/uniquify.el b/lisp/uniquify.el index 5a8c31ca624..5e4749389e5 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el @@ -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 @@ other buffer names are changed." :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 @@ file name elements. Arguments cause only a subset of buffers to be renamed." (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)))))) |