1561 |
;; "#<RANDOM-STUFF>#" to the buffer name, where RANDOM-STUFF |
;; "#<RANDOM-STUFF>#" to the buffer name, where RANDOM-STUFF |
1562 |
;; is the result of (make-temp-name ""). |
;; is the result of (make-temp-name ""). |
1563 |
(setq non-random-len |
(setq non-random-len |
1564 |
(- (length file-name) (length (make-temp-name "")))) |
(- (length file-name) (length (make-temp-name "")) 1)) |
1565 |
(setq wildcard (concat (substring file-name 0 non-random-len) "*")) |
(setq wildcard (concat (substring file-name 0 non-random-len) "*")) |
1566 |
|
(debug) |
1567 |
(if (null (file-expand-wildcards wildcard)) |
(if (null (file-expand-wildcards wildcard)) |
1568 |
(message "There are no auto-saved drafts to recover") |
(message "There are no auto-saved drafts to recover") |
1569 |
;; Bind dired-trivial-filenames to t because all auto-save file |
;; Bind dired-trivial-filenames to t because all auto-save file |