Mercurial > emacs
comparison lisp/files.el @ 11522:5177611e8e4d
(rename-uniquely): Strip suffix before rename.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 24 Apr 1995 14:59:22 +0000 |
| parents | 7a4512fba8bc |
| children | 03aaf11843d1 |
comparison
equal
deleted
inserted
replaced
| 11521:d580a6f682b5 | 11522:5177611e8e4d |
|---|---|
| 1879 (defun rename-uniquely () | 1879 (defun rename-uniquely () |
| 1880 "Rename current buffer to a similar name not already taken. | 1880 "Rename current buffer to a similar name not already taken. |
| 1881 This function is useful for creating multiple shell process buffers | 1881 This function is useful for creating multiple shell process buffers |
| 1882 or multiple mail buffers, etc." | 1882 or multiple mail buffers, etc." |
| 1883 (interactive) | 1883 (interactive) |
| 1884 (let* ((new-buf (generate-new-buffer (buffer-name))) | 1884 (save-match-data |
| 1885 (name (buffer-name new-buf))) | 1885 (let* ((base-name (if (string-match "<[0-9]+>\\'" (buffer-name)) |
| 1886 (kill-buffer new-buf) | 1886 (substring (buffer-name) 0 (match-beginning 0)) |
| 1887 (rename-buffer name) | 1887 (buffer-name))) |
| 1888 (set-buffer-modified-p (buffer-modified-p)))) ; force mode line update | 1888 (new-buf (generate-new-buffer base-name)) |
| 1889 (name (buffer-name new-buf))) | |
| 1890 (kill-buffer new-buf) | |
| 1891 (rename-buffer name) | |
| 1892 (set-buffer-modified-p (buffer-modified-p))))) ; force mode line update | |
| 1889 | 1893 |
| 1890 (defun make-directory (dir &optional parents) | 1894 (defun make-directory (dir &optional parents) |
| 1891 "Create the directory DIR and any nonexistent parent dirs. | 1895 "Create the directory DIR and any nonexistent parent dirs. |
| 1892 Interactively, the default choice of directory to create | 1896 Interactively, the default choice of directory to create |
| 1893 is the current default directory for file names. | 1897 is the current default directory for file names. |