From: Richard M. Stallman Date: Tue, 20 May 1997 18:51:22 +0000 (+0000) Subject: (add-untranslated-filesystem) X-Git-Tag: emacs-20.1~2044 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=60382faa3acb325dbae749fa4d379e102345b8b3;p=emacs.git (add-untranslated-filesystem) (remove-untranslated-filesystem): Add interactive spec. --- diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el index e532ba33a4f..a617bbec74e 100644 --- a/lisp/dos-w32.el +++ b/lisp/dos-w32.el @@ -149,6 +149,7 @@ CR/LF translation, and nil otherwise." 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 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"." 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)))