Remove decency on parse-time.

This commit is contained in:
Rémi Vanicat 2010-05-26 20:24:56 +02:00 committed by Phil Jackson
parent 87e196ed10
commit 19cb16c32d

View file

@ -66,7 +66,6 @@
;; - 'Subsetting', only looking at a subset of all files.
(eval-when-compile (require 'cl))
(eval-when-compile (require 'parse-time))
(require 'log-edit)
(require 'easymenu)
(require 'diff-mode)
@ -2123,7 +2122,7 @@ in the corresponding directories."
(goto-char (magit-section-beginning hunk))
(if (not (looking-at "@@+ .* \\+\\([0-9]+\\),[0-9]+ @@+"))
(error "Hunk header not found"))
(let ((target (parse-integer (match-string 1))))
(let ((target (string-to-number (match-string 1))))
(forward-line)
(while (< (line-number-at-pos) line)
;; XXX - deal with combined diffs