mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(file-newest-backup): Return the newest backup for the

Browse source 
exact file name specified, not the newest backup of all files
whose names start with that substring.
This commit is contained in:
Richard M. Stallman 1996-04-03 05:55:12 +00:00
parent 3943fa098e
commit cf7e94a0df
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/files.el
View file

@ -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 ()