mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(add-untranslated-filesystem)

Browse source 
(remove-untranslated-filesystem): Add interactive spec.
This commit is contained in:
Richard M. Stallman 1997-05-20 18:51:22 +00:00
parent f4ff0fb4fe
commit 60382faa3a
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/dos-w32.el
View file

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