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

doesn't look like a file name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a8d70ba561991c6a47370dc8f0fa11531433334a..6703fed19db9ac66e3708ce8dd8c2aaf40950e09 100644 (file)
--- 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\e,Ak\e(Bl Cadilhac.
 

diff --git a/lisp/pcvs-util.el b/lisp/pcvs-util.el
index cb18fc83d59202934c33c314b2b6bbed80974ca2..84ce2e117b9996bab7bd31723dbdcbfc8457e6ad 100644 (file)
--- 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