(with-current-buffer buf-name\r
(goto-char (point-min))\r
(unless (eobp)\r
- (diff-beginning-of-hunk t)\r
+ (ignore-errors\r
+ (diff-beginning-of-hunk t))\r
(while (looking-at diff-hunk-header-re-unified)\r
(let ((line (string-to-number (match-string 3)))\r
(len (let ((m (match-string 4)))\r