Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: a95ef23927
Fetching contributors…

Cannot retrieve contributors at this time

19 lines (14 sloc) 0.396 kB
(defun hg-add ()
"perform 'hg add' on the file represented by the current buffer"
(interactive)
(let ((shell-command (concat "hg add " (buffer-file-name))))
(let* ((result (shell-command-to-string shell-command))
(result-len (length result)))
(display-message-or-buffer
(format
"
<result>
<text>%s</text>
<length>%d</length>
</result>
" result result-len)))))
Jump to Line
Something went wrong with that request. Please try again.