fpb%sunpitt.East@SUN.COM (Frank P. Bresz - Westinghouse ITTC) (08/29/89)
In GNU Emacs 18.52.3 of Tue Apr 11 1989 on omaha1 (berkeley-unix) Hi, I have just finished implementing a change to dired.el to allow you to move a file from 1 directory to another easily. It seems that I often want to do this and the functionality did not exist, so I added it. The code I wrote may be a touch inelegant. If anyone wants the code I can mail it. Frank P. Bresz }*{ sunpitt!wpmstr!omaha1!fpb@Sun.COM !!! PLEASE USE THE ABOVE ADDRESS !!! DO NOT REPLY TO THE ADDRESS GENERATED BY THE MAILER: !!! wpmstr!omaha1!fbresz%sunpitt.East@sun.com !!! SUN.COM rejects it.
rbj@DSYS.NCSL.NIST.GOV (Root Boy Jim) (09/01/89)
? From: wpmstr!omaha1!fpb%sunpitt.East@sun.com (Frank P. Bresz - Westinghouse ITTC) ? In GNU Emacs 18.52.3 of Tue Apr 11 1989 on omaha1 (berkeley-unix) ? Hi, ? I have just finished implementing a change to dired.el to allow you ? to move a file from 1 directory to another easily. It seems that I often ? want to do this and the functionality did not exist, so I added it. The ? code I wrote may be a touch inelegant. If anyone wants the code I can ? mail it. I have always wanted this too. Your note prompted me to code it up. I also added the ability to overwrite the file if desired. (defun dired-rename-file (to-file) "Rename this file to TO-FILE." (interactive "FRename to: ") ;;;; (interactive ;;;; (list (read-file-name (format "Rename %s to: " ;;;; (file-name-nondirectory (dired-get-filename))) ;;;; nil (dired-get-filename)))) (setq to-file (expand-file-name to-file)) (and (file-directory-p to-file) (setq to-file (concat (file-name-as-directory to-file) (file-name-nondirectory (dired-get-filename))))) (rename-file (dired-get-filename) to-file 0) (let ((buffer-read-only nil)) (beginning-of-line) (delete-region (point) (progn (forward-line 1) (point))) (setq to-file (expand-file-name to-file)) (dired-add-entry (file-name-directory to-file) (file-name-nondirectory to-file)))) (defun dired-copy-file (to-file) "Copy this file to TO-FILE." (interactive "FCopy to: ") (setq to-file (expand-file-name to-file)) (and (file-directory-p to-file) (setq to-file (concat (file-name-as-directory to-file) (file-name-nondirectory (dired-get-filename))))) (copy-file (dired-get-filename) to-file 0) ;;;; (setq to-file (expand-file-name to-file)) (dired-add-entry (file-name-directory to-file) (file-name-nondirectory to-file))) BTW, I changed the interactive spec on dired-rename-file to match the one on dired-copy-file. Does anyone know why they differ? I also moved the expand-file-name in copy up a bit to match the one in dired-rename-file. Anyone know why they differ, or even why it is present? ? Frank P. Bresz }*{ ? sunpitt!wpmstr!omaha1!fpb@Sun.COM ? !!! PLEASE USE THE ABOVE ADDRESS ? !!! DO NOT REPLY TO THE ADDRESS GENERATED BY THE MAILER: ? !!! wpmstr!omaha1!fbresz%sunpitt.East@sun.com ? !!! SUN.COM rejects it. 'nother feechur from the dired wizard, Root Boy Jim and the GNU Bohemians