(cvs-get-buffer-create): Obey `noreuse' even if `name'

doesn't look like a file name.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a8d70ba5619..6703fed19db 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/pcvs-util.el b/lisp/pcvs-util.el
index cb18fc83d59..84ce2e117b9 100644
--- a/lisp/pcvs-util.el
+++ b/lisp/pcvs-util.el
@@ -126,7 +126,9 @@ with `create-file-buffer' and will probably get another name than NAME.
 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