From 60382faa3acb325dbae749fa4d379e102345b8b3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 20 May 1997 18:51:22 +0000 Subject: [PATCH] (add-untranslated-filesystem) (remove-untranslated-filesystem): Add interactive spec. --- lisp/dos-w32.el | 2 ++ 1 file changed, 2 insertions(+) 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))) -- 2.39.5