(add-untranslated-filesystem)

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

1 files changed, 2 insertions, 0 deletions

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)))