(add-untranslated-filesystem)

(remove-untranslated-filesystem): Add interactive spec.

diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el
index e532ba33a4f5ff7d4346631e88dd77bb12e00f2e..a617bbec74e0372631839793e37b6e739ebd8358 100644 (file)
--- 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)))