mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

* vc-hg.el (vc-hg-internal-status): Inline in `vc-hg-state', the

Browse source 
only caller, and delete.
(vc-hg-state): Deal with exceptions and only parse the output on
successful return.

* vc-hg.el (vc-hg-internal-log): Inline in
`vc-hg-workfile-version', the only caller, and delete.
(vc-hg-workfile-version): Deal with exceptions and only parse the
output on successful return.
This commit is contained in:
Dan Nicolaescu 2007-07-05 14:55:34 +00:00
parent b4739e5db1
commit b33ac3b78a
2 changed files with 60 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

79
lisp/vc-hg.el
View file

@ -91,22 +91,52 @@
(defun vc-hg-state (file)
"Hg-specific version of `vc-state'."
(let ((out (vc-hg-internal-status file)))
(if (eq 0 (length out)) 'up-to-date
(let ((state (aref out 0)))
(cond
((eq state ?M) 'edited)
((eq state ?A) 'edited)
((eq state ?P) 'needs-patch)
((eq state ??) nil)
(t 'up-to-date))))))
(let*
((status nil)
(out
(with-output-to-string
(with-current-buffer
standard-output
(setq status
(condition-case nil
;; Ignore all errors.
(call-process
"hg" nil t nil "--cwd" (file-name-directory file)
"status" (file-name-nondirectory file))
;; Some problem happened. E.g. We can't find an `hg'
;; executable.
(error nil)))))))
(when (eq 0 status)
(if (eq 0 (length out)) 'up-to-date
(let ((state (aref out 0)))
(cond
((eq state ?M) 'edited)
((eq state ?A) 'edited)
((eq state ?P) 'needs-patch)
((eq state ??) nil)
(t 'up-to-date)))))))
(defun vc-hg-workfile-version (file)
"Hg-specific version of `vc-workfile-version'."
(let ((out (vc-hg-internal-log file)))
(if (string-match "changeset: *\\([0-9]*\\)" out)
(match-string 1 out)
"0")))
(let*
((status nil)
(out
(with-output-to-string
(with-current-buffer
standard-output
(setq status
(condition-case nil
;; Ignore all errors.
(call-process
"hg" nil t nil "--cwd" (file-name-directory file)
"log" "-l1" (file-name-nondirectory file))
;; Some problem happened. E.g. We can't find an `hg'
;; executable.
(error nil)))))))
(when (eq 0 status)
(if (string-match "changeset: *\\([0-9]*\\)" out)
(match-string 1 out)
"0"))))
;;; History functions
@ -231,6 +261,11 @@ REV is the revision to check out into WORKFILE."
(defun vc-hg-checkout-model (file)
'implicit)
;; Modelled after the similar function in vc-bzr.el
(defun vc-hg-revert (file &optional contents-done)
(unless contents-done
(with-temp-buffer (vc-hg-command t nil file "revert"))))
;;; Internal functions
(defun vc-hg-command (buffer okstatus file &rest flags)
@ -243,24 +278,6 @@ and that it passes `vc-hg-global-switches' to it before FLAGS."
(append vc-hg-global-switches
flags))))
(defun vc-hg-internal-log (file &optional buffer)
"Return log of FILE."
(with-output-to-string
(with-current-buffer
standard-output
(call-process
"hg" nil t nil "--cwd" (file-name-directory file)
"log" "-l1" (file-name-nondirectory file)))))
(defun vc-hg-internal-status(file)
"Return status of FILE."
(with-output-to-string
(with-current-buffer
standard-output
(call-process
"hg" nil t nil "--cwd" (file-name-directory file)
"status" (file-name-nondirectory file)))))
(provide 'vc-hg)
;;; vc-hg.el ends here