mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(rename-uniquely): Simplify.

Browse Source
This commit is contained in:
Karl Heuer 1997-11-07 21:44:16 +00:00
parent c2a3dd2e1e
commit e0df3aef1f
1 changed files with 10 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/files.el
View File

@ -2405,20 +2405,16 @@ This function is useful for creating multiple shell process buffers
or multiple mail buffers, etc."
(interactive)
(save-match-data
(let* ((base-name (if (and (string-match "<[0-9]+>\\'" (buffer-name))
(not (and buffer-file-name
(string= (buffer-name)
(file-name-nondirectory
buffer-file-name)))))
;; If the existing buffer name has a <NNN>,
;; which isn't part of the file name (if any),
;; then get rid of that.
(substring (buffer-name) 0 (match-beginning 0))
(buffer-name)))
(new-buf (generate-new-buffer base-name))
(name (buffer-name new-buf)))
(kill-buffer new-buf)
(rename-buffer name)
(let ((base-name (buffer-name)))
(and (string-match "<[0-9]+>\\'" base-name)
(not (and buffer-file-name
(string= base-name
(file-name-nondirectory buffer-file-name))))
;; If the existing buffer name has a <NNN>,
;; which isn't part of the file name (if any),
;; then get rid of that.
(setq base-name (substring base-name 0 (match-beginning 0))))
(rename-buffer (generate-new-buffer-name base-name))
(force-mode-line-update))))
(defun make-directory (dir &optional parents)