diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-08 22:41:40 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-08 22:41:40 +0000 |
| commit | a8f7a0cb0a2585e9681ae2abea214c6f875ef14f (patch) | |
| tree | f5ca159f2e0bab8285bd5423c38a0a4b8b7261d5 /lisp/uniquify.el | |
| parent | edd64d229399ab30f84c095b452836b4f146ba89 (diff) | |
| download | emacs-a8f7a0cb0a2585e9681ae2abea214c6f875ef14f.tar.gz | |
(uniquify-rationalize-file-buffer-names): If
newbuffile is nil, don't call expand-file-name on it.
Diffstat (limited to 'lisp/uniquify.el')
| -rw-r--r-- | lisp/uniquify.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/uniquify.el b/lisp/uniquify.el index 495d893baf0..3bf889f0996 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el @@ -147,7 +147,8 @@ pathname elements. Arguments cause only a subset of buffers to be renamed." (while buffers (let* ((buffer (car buffers)) (bfn (if (eq buffer newbuf) - (expand-file-name newbuffile) + (and newbuffile + (expand-file-name newbuffile)) (uniquify-buffer-file-name buffer))) (rawname (and bfn (file-name-nondirectory bfn))) (deserving (and rawname |