# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1154528059 0
# Node ID 63a604af4b8e08e79a922baa1026bf1ad04425dc
# Parent  0fc019770d976a6c467acfca4dce7aac20b0fde9
(cvs-get-buffer-create): Obey `noreuse' even if `name'
doesn't look like a file name.

diff -r 0fc019770d97 -r 63a604af4b8e lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Aug 02 14:08:49 2006 +0000
+++ b/lisp/ChangeLog	Wed Aug 02 14:14:19 2006 +0000
@@ -1,5 +1,8 @@
 2006-08-02  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* pcvs-util.el (cvs-get-buffer-create): Obey `noreuse' even if `name'
+	doesn't look like a file name.
+
 	* complete.el (PC-expand-many-files): Avoid signalling an error when
 	the current directory doesn't exist.  Reported by Micha,Ak(Bl Cadilhac.
 
diff -r 0fc019770d97 -r 63a604af4b8e lisp/pcvs-util.el
--- a/lisp/pcvs-util.el	Wed Aug 02 14:08:49 2006 +0000
+++ b/lisp/pcvs-util.el	Wed Aug 02 14:14:19 2006 +0000
@@ -126,7 +126,9 @@
 In such a case, the search for another buffer with the same name doesn't
 use the buffer name but the buffer's `list-buffers-directory' variable.
 If NOREUSE is non-nil, always return a new buffer."
-  (or (and (not (file-name-absolute-p name)) (get-buffer-create name))
+  (or (and (not (file-name-absolute-p name))
+           (if noreuse (generate-new-buffer name)
+             (get-buffer-create name)))
       (unless noreuse
 	(dolist (buf (buffer-list))
 	  (with-current-buffer buf