diff options
author | Markus Rost <[email protected]> | 2002-05-22 23:29:58 +0000 |
---|---|---|
committer | Markus Rost <[email protected]> | 2002-05-22 23:29:58 +0000 |
commit | e31cfca5cb620964a271f22e60faf88952ad4a64 (patch) | |
tree | 3943900f5d95e8c7f36c542643b75c2d727c7877 | |
parent | a8090e38c009722ccebaa8e982ab983f45cda8f6 (diff) |
(file-newest-backup): Use file-name-sans-versions.
-rw-r--r-- | lisp/ChangeLog | 7 | ||||
-rw-r--r-- | lisp/files.el | 3 |
2 files changed, 9 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a35caa9d76..e97889906b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2002-05-22 Markus Rost <[email protected]> + + * files.el (file-newest-backup): Use file-name-sans-versions. + + * diff.el (diff-latest-backup-file): Replace the main code by + a call of file-newest-backup. + 2002-05-22 Mike Williams <[email protected]> * textmodes/sgml-mode.el (sgml-guess-indent): Look further into diff --git a/lisp/files.el b/lisp/files.el index 9169ae9193..b01472171a 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3011,7 +3011,8 @@ saying what text to write." ;; `make-backup-file-name' will get us the right directory for ;; ordinary or numeric backups. It might create a directory for ;; backups as a side-effect, according to `backup-directory-alist'. - (let* ((filename (make-backup-file-name filename)) + (let* ((filename (file-name-sans-versions + (make-backup-file-name filename))) (file (file-name-nondirectory filename)) (dir (file-name-directory filename)) (comp (file-name-all-completions file dir)) |