Function: vc-arch-delete-rej-if-obsolete

vc-arch-delete-rej-if-obsolete is a byte-compiled function defined in vc-arch.el.gz.

Signature

(vc-arch-delete-rej-if-obsolete)

Documentation

For use in after-save-hook.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/vc-arch.el.gz
(defun vc-arch-delete-rej-if-obsolete ()
  "For use in `after-save-hook'."
  (save-excursion
    (let ((rej (concat buffer-file-name ".rej")))
      (when (and buffer-file-name (vc-arch-diff3-rej-p rej))
	(unless (re-search-forward "^<<<<<<< " nil t)
	  ;; The .rej file is obsolete.
	  (condition-case nil (delete-file rej) (error nil))
	  ;; Remove the hook so that it is not called multiple times.
	  (remove-hook 'after-save-hook #'vc-arch-delete-rej-if-obsolete t))))))