Function: vc-mtn-after-dir-status

vc-mtn-after-dir-status is a byte-compiled function defined in vc-mtn.el.gz.

Signature

(vc-mtn-after-dir-status UPDATE-FUNCTION)

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/vc-mtn.el.gz
(defun vc-mtn-after-dir-status (update-function)
  (let (result)
    (goto-char (point-min))
    (re-search-forward "\\(?:Current b\\|B\\)ranch:  *\\(.*\\)\n?\nChanges against parent \\(.*\\)" nil t)
    (while (re-search-forward
	    "^  \\(?:\\(patched  \\)\\|\\(added    \\)\\)\\(.*\\)$" nil t)
      (cond  ((match-end 1) (push (list (match-string 3) 'edited) result))
	     ((match-end 2) (push (list (match-string 3) 'added) result))))
    (funcall update-function result)))