From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 2 Aug 2006 14:14:19 +0000 (+0000)
Subject: (cvs-get-buffer-create): Obey `noreuse' even if `name'
X-Git-Tag: emacs-pretest-22.0.90~1135
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c6dbae471872a8844d1ee1fb44d3ba8ffee8cd79;p=emacs.git

(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 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