diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-04-03 05:55:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-04-03 05:55:12 +0000 |
| commit | 8bc0f980f2d37f90f93b957479936ffb0d9dc5c8 (patch) | |
| tree | 36eaecec3ac3cebfe1e67ad5ab302b8f10cc773a | |
| parent | 60bf083dffd7b3db26d2473e934d59a891a2d625 (diff) | |
| download | emacs-8bc0f980f2d37f90f93b957479936ffb0d9dc5c8.tar.gz | |
(file-newest-backup): Return the newest backup for the
exact file name specified, not the newest backup of all files
whose names start with that substring.
| -rw-r--r-- | lisp/files.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/lisp/files.el b/lisp/files.el index 584aef9f456..6839fcf27dc 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2058,13 +2058,17 @@ saying what text to write." (file (file-name-nondirectory filename)) (dir (file-name-directory filename)) (comp (file-name-all-completions file dir)) - newest) + (newest nil) + tem) (while comp - (setq file (concat dir (car comp)) + (setq tem (car comp) comp (cdr comp)) - (if (and (backup-file-name-p file) - (or (null newest) (file-newer-than-file-p file newest))) - (setq newest file))) + (cond ((and (backup-file-name-p tem) + (string= (file-name-sans-versions tem) file)) + (setq tem (concat dir tem)) + (if (or (null newest) + (file-newer-than-file-p tem newest)) + (setq newest tem))))) newest)) (defun rename-uniquely () |