Mercurial > emacs
changeset 17901:6ea4d90cc76b
(add-untranslated-filesystem)
(remove-untranslated-filesystem): Add interactive spec.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 20 May 1997 18:51:22 +0000 |
| parents | 08062aad7ef6 |
| children | e4a7b81d6c10 |
| files | lisp/dos-w32.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dos-w32.el Tue May 20 18:49:06 1997 +0000 +++ b/lisp/dos-w32.el Tue May 20 18:51:22 1997 +0000 @@ -149,6 +149,7 @@ CR/LF translation. FILESYSTEM is a string containing the directory prefix corresponding to the filesystem. For example, for a Unix filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"." + (interactive "fUntranslated file system: ") (let ((fs (untranslated-canonical-name filesystem))) (if (member fs untranslated-filesystem-list) untranslated-filesystem-list @@ -160,6 +161,7 @@ CR/LF translation. FILESYSTEM is a string containing the directory prefix corresponding to the filesystem. For example, for a Unix filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"." + (interactive "fUntranslated file system: ") (setq untranslated-filesystem-list (delete (untranslated-canonical-name filesystem) untranslated-filesystem-list)))