comparison lisp/vc/diff.el @ 112428:5653bdbb0b32

* vc/diff.el (diff-sentinel): Doc fix (Bug#7682).
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 22 Jan 2011 15:15:24 -0500
parents 417b1e4d63cd
children
comparison
equal deleted inserted replaced
112427:bc872de587fa 112428:5653bdbb0b32
58 (mapconcat 'identity diff-switches " "))))) 58 (mapconcat 'identity diff-switches " ")))))
59 59
60 (defun diff-sentinel (code &optional old-temp-file new-temp-file) 60 (defun diff-sentinel (code &optional old-temp-file new-temp-file)
61 "Code run when the diff process exits. 61 "Code run when the diff process exits.
62 CODE is the exit code of the process. It should be 0 only if no diffs 62 CODE is the exit code of the process. It should be 0 only if no diffs
63 were found." 63 were found.
64 If optional args OLD-TEMP-FILE and/or NEW-TEMP-FILE are non-nil,
65 delete the temporary files so named."
64 (if old-temp-file (delete-file old-temp-file)) 66 (if old-temp-file (delete-file old-temp-file))
65 (if new-temp-file (delete-file new-temp-file)) 67 (if new-temp-file (delete-file new-temp-file))
66 (save-excursion 68 (save-excursion
67 (goto-char (point-max)) 69 (goto-char (point-max))
68 (let ((inhibit-read-only t)) 70 (let ((inhibit-read-only t))