Mercurial > emacs
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)) |
