diff options
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/pcvs-util.el | 4 |
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 |