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

(ediff-backup): New autoloaded command.

Browse source
This commit is contained in:
Markus Rost 2002-07-31 22:29:36 +00:00
parent 32d9a725a5
commit 3755bd32c9
2 changed files with 23 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/ediff.el
View file

@ -367,6 +367,22 @@
;;;###autoload
(defalias 'ediff 'ediff-files)
;;;###autoload
(defun ediff-backup (file)
"Run Ediff on FILE and its backup file.
Uses the latest backup, if there are several numerical backups.
If this file is a backup, `ediff' it with its original."
(interactive (list (read-file-name "Ediff (file with backup): ")))
;; The code is taken from `diff-backup'.
(require 'diff)
(let (bak ori)
(if (backup-file-name-p file)
(setq bak file
ori (file-name-sans-versions file))
(setq bak (or (diff-latest-backup-file file)
(error "No backup found for %s" file))
ori file))
(ediff-files bak ori)))
;;;###autoload
(defun ediff-buffers (buffer-A buffer-B &optional startup-hooks job-name)