diff options
| author | Karl Heuer | 1994-04-22 23:41:18 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-04-22 23:41:18 +0000 |
| commit | a617e9133c6854861e327f90fe5f096a33abe4f3 (patch) | |
| tree | 846aa6dd31e6a28b763ae07e67f18ddc618b415d /lisp/diff.el | |
| parent | 68395b70ec9564298aa91d5231f01388859666cb (diff) | |
| download | emacs-a617e9133c6854861e327f90fe5f096a33abe4f3.tar.gz emacs-a617e9133c6854861e327f90fe5f096a33abe4f3.zip | |
Pass operation to Ffind_file_name_handler.
Diffstat (limited to 'lisp/diff.el')
| -rw-r--r-- | lisp/diff.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/diff.el b/lisp/diff.el index 8de44211ffd..891fb970449 100644 --- a/lisp/diff.el +++ b/lisp/diff.el | |||
| @@ -254,7 +254,7 @@ The backup file is the first file given to `diff'." | |||
| 254 | 254 | ||
| 255 | (defun diff-latest-backup-file (fn) ; actually belongs into files.el | 255 | (defun diff-latest-backup-file (fn) ; actually belongs into files.el |
| 256 | "Return the latest existing backup of FILE, or nil." | 256 | "Return the latest existing backup of FILE, or nil." |
| 257 | (let ((handler (find-file-name-handler fn))) | 257 | (let ((handler (find-file-name-handler fn 'diff-latest-backup-file))) |
| 258 | (if handler | 258 | (if handler |
| 259 | (funcall handler 'diff-latest-backup-file fn) | 259 | (funcall handler 'diff-latest-backup-file fn) |
| 260 | ;; First try simple backup, then the highest numbered of the | 260 | ;; First try simple backup, then the highest numbered of the |