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

Removed magit-diff-or-hunk-item-position.

Browse source
This commit is contained in:
Marius Vollmer 2008-08-21 02:23:08 +03:00
parent 51c54a329e
commit 23bdc84c46
1 changed files with 1 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
magit.el
View file

@ -688,17 +688,7 @@ Please see the manual for a complete description of Magit.
(t (t
nil)))) nil))))
(defun magit-diff-or-hunk-item-position (item)
(save-excursion
(if (eq (magit-item-type item) 'hunk)
(goto-char (magit-item-beginning item))
(if (looking-at "@@+ .* \\+\\([0-9]+\\),[0-9]+ @@+")
(parse-integer (match-string 1))
nil)
nil)))
(defun magit-hunk-item-target-line (item) (defun magit-hunk-item-target-line (item)
;; XXX - deal with combined diffs
(save-excursion (save-excursion
(beginning-of-line) (beginning-of-line)
(let ((line (line-number-at-pos))) (let ((line (line-number-at-pos)))
@ -710,6 +700,7 @@ Please see the manual for a complete description of Magit.
(let ((target (parse-integer (match-string 1)))) (let ((target (parse-integer (match-string 1))))
(forward-line) (forward-line)
(while (< (line-number-at-pos) line) (while (< (line-number-at-pos) line)
;; XXX - deal with combined diffs
(if (not (looking-at "-")) (if (not (looking-at "-"))
(setq target (+ target 1))) (setq target (+ target 1)))
(forward-line)) (forward-line))