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))) |
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'. |