/[emacs]/emacs/lisp/dos-fns.el
ViewVC logotype

Diff of /emacs/lisp/dos-fns.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by eliz, Sun Sep 16 17:58:09 2001 UTC revision 1.38 by eliz, Wed Mar 6 18:20:43 2002 UTC
# Line 180  with a definition that really does chang Line 180  with a definition that really does chang
180                      (dos-8+3-filename dir))                      (dos-8+3-filename dir))
181                    string))))))                    string))))))
182    
 ;; Make sure auto-save file names don't contain characters invalid for  
 ;; the underlying filesystem.  This is particularly annoying with  
 ;; `compose-mail's *mail* buffers: `*' is not allowed in file names on  
 ;; DOS/Windows, so Emacs bitches on you each time it tries to autosave  
 ;; the message being composed.  
 (fset 'original-make-auto-save-file-name  
       (symbol-function 'make-auto-save-file-name))  
   
 (defun make-auto-save-file-name ()  
   "Return file name to use for auto-saves of current buffer.  
 Does not consider `auto-save-visited-file-name' as that variable is checked  
 before calling this function.  You can redefine this for customization.  
 See also `auto-save-file-name-p'."  
   (let ((filename (original-make-auto-save-file-name)))  
     ;; Don't modify remote (ange-ftp) filenames  
     (if (string-match "^/\\w+@[-A-Za-z0-9._]+:" filename)  
         filename  
       (convert-standard-filename filename))))  
   
183  ;; See dos-vars.el for defcustom.  ;; See dos-vars.el for defcustom.
184  (defvar msdos-shells)  (defvar msdos-shells)
185    

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26