# HG changeset patch # User Richard M. Stallman # Date 864154282 0 # Node ID 6ea4d90cc76b65651a7392d5673239a1c7eb56cd # Parent 08062aad7ef6f0a6919b3c4e1e21c3f393210e97 (add-untranslated-filesystem) (remove-untranslated-filesystem): Add interactive spec. diff -r 08062aad7ef6 -r 6ea4d90cc76b lisp/dos-w32.el --- 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)))