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

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

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

revision 1.49 by eliz, Fri Jan 25 13:14:16 2002 UTC revision 1.50 by eliz, Wed Mar 6 18:21:10 2002 UTC
# Line 227  You should set this to t when using a no Line 227  You should set this to t when using a no
227  ;            (setq source-directory (file-name-as-directory  ;            (setq source-directory (file-name-as-directory
228  ;                                    (expand-file-name ".." exec-directory)))))  ;                                    (expand-file-name ".." exec-directory)))))
229    
 ;; Avoid creating auto-save file names containing invalid characters.  
 (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))))  
   
230  (defun convert-standard-filename (filename)  (defun convert-standard-filename (filename)
231    "Convert a standard file's name to something suitable for the current OS.    "Convert a standard file's name to something suitable for the current OS.
232  This function's standard definition is trivial; it just returns the argument.  This function's standard definition is trivial; it just returns the argument.

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

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