/[emacs]/emacs/lisp/files.el
ViewVC logotype

Diff of /emacs/lisp/files.el

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

revision 1.568 by rms, Tue Apr 23 03:45:26 2002 UTC revision 1.569 by rms, Sun Apr 28 22:30:22 2002 UTC
# Line 3372  See also `auto-save-file-name-p'." Line 3372  See also `auto-save-file-name-p'."
3372            (if (string-match (car (car list)) filename)            (if (string-match (car (car list)) filename)
3373                (setq result (replace-match (cadr (car list)) t nil                (setq result (replace-match (cadr (car list)) t nil
3374                                            filename)                                            filename)
3375                                  uniq (caddr (car list))))                      uniq (caddr (car list))))
3376            (setq list (cdr list)))            (setq list (cdr list)))
3377          (if result          (if result
3378                  (if uniq              (if uniq
3379                          (setq filename (concat                  (setq filename (concat
3380                                                          (file-name-directory result)                                  (file-name-directory result)
3381                                                          (subst-char-in-string                                  (subst-char-in-string
3382                                                           directory-sep-char ?!                                   directory-sep-char ?!
3383                                                           (replace-regexp-in-string "!" "!!"                                   (replace-regexp-in-string "!" "!!"
3384                                                                                                                   filename))))                                                             filename))))
3385                    (setq filename result)))                (setq filename result)))
3386          (setq result          (setq result
3387                (if (and (eq system-type 'ms-dos)                (if (and (eq system-type 'ms-dos)
3388                         (not (msdos-long-file-names)))                         (not (msdos-long-file-names)))
# Line 3447  See also `auto-save-file-name-p'." Line 3447  See also `auto-save-file-name-p'."
3447               ;; file it creates, so we must fix the file name _before_               ;; file it creates, so we must fix the file name _before_
3448               ;; make-temp-file is called.               ;; make-temp-file is called.
3449               (convert-standard-filename fname)               (convert-standard-filename fname)
3450             fname))))))             fname))
3451           nil "#"))))
3452    
3453  (defun auto-save-file-name-p (filename)  (defun auto-save-file-name-p (filename)
3454    "Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'.    "Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'.

Legend:
Removed from v.1.568  
changed lines
  Added in v.1.569

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