(uniquify-ignore-buffers-re): New variable.

(uniquify-rationalize-file-buffer-names): Implement it.

diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index 5a8c31ca624a6ebcff7af800e5bc6a0ba36d48f2..5e4749389e5b2c5e410debdfeadf002433ef15ca 100644 (file)
--- 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))))))