gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Handle visiting fiss and hunks.

Browse source
This commit is contained in:
Marius Vollmer 2008-08-06 00:30:37 +03:00
parent 28b41747bf
commit 3463cee16d
1 changed files with 26 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
mgit.el
View file

@ -267,6 +267,25 @@
(match-string 1) (match-string 1)
nil))) nil)))
(defun mgit-diff-info-file (info)
(save-excursion
(goto-char (elt info 1))
(cond ((looking-at "^diff --git a/\\(.*\\) b/\\(.*\\)$")
(match-string 2))
((looking-at "^diff --cc +\\(.*\\)$")
(match-string 1))
(t
nil))))
(defun mgit-diff-info-position (info)
(save-excursion
(cond ((eq (car info) 'hunk)
(goto-char (elt info 3))
(if (looking-at "@@+ .* \\+\\([0-9]+\\),[0-9]+ @@+")
(parse-integer (match-string 1))
nil))
(t nil))))
(defun mgit-stage-thing-at-point () (defun mgit-stage-thing-at-point ()
(interactive) (interactive)
(let ((info (get-char-property (point) 'mgit-info))) (let ((info (get-char-property (point) 'mgit-info)))
@ -311,11 +330,16 @@
(defun mgit-visit-thing-at-point () (defun mgit-visit-thing-at-point ()
(interactive) (interactive)
(let ((info (get-char-property (point) 'mgit-info))) (let ((info (get-char-property (point) 'mgit-info)))
(message "visit %S" info)
(if info (if info
(case (car info) (case (car info)
((other-file) ((other-file)
(find-file (cadr info))))))) (find-file (cadr info)))
((diff hunk)
(let ((file (mgit-diff-info-file info))
(position (mgit-diff-info-position info)))
(find-file file)
(if position
(goto-line position))))))))
;;; Push and pull ;;; Push and pull