diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-08-02 14:14:19 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-08-02 14:14:19 +0000 |
| commit | c6dbae471872a8844d1ee1fb44d3ba8ffee8cd79 (patch) | |
| tree | 1081fd936af6b6f2203f7649add2dd98abae7863 /lisp/pcvs-util.el | |
| parent | 424f4c9cfaf7c44e1e4ed1cc21d0d13f7dd59331 (diff) | |
| download | emacs-c6dbae471872a8844d1ee1fb44d3ba8ffee8cd79.tar.gz | |
(cvs-get-buffer-create): Obey `noreuse' even if `name'
doesn't look like a file name.
Diffstat (limited to 'lisp/pcvs-util.el')
| -rw-r--r-- | lisp/pcvs-util.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |