[xyzzy:05737] Re: diff の使い方

[Masaaki KANEKO <kaneko@xxxxxxxxxxxx>]

こんにちは、名古屋の金子です。

   Kenzoh Sekitoh<esoteric@xxxxxxxxxxxx> wrote.
   [xyzzy:05732] diff の使い方
 -----------------------------------------------

> 
> 　diff の使い方について質問です。

> ２．前後のの差分箇所にジャンプする機能はありますか。

　同期はとれない単なるバッファ単位でのジャンプですが、こんなのを
使っています。

; diff 結果を前方に検索する
(defun search-diff-forward ()
  (interactive)
  (goto-char (or (find-text-attribute
                  'diff
                  :start (save-excursion (goto-eol) (point)))
                 (plain-error "異なる行はありません"))))

; diff 結果を後方に検索する
(defun search-diff-backward ()
  (interactive)
  (goto-char (or (find-text-attribute
                  'diff
                  :end (save-excursion (goto-bol) (point))
                  :from-end t)
                 (plain-error "異なる行はありません"))))

(define-key esc-map #\Down 'search-diff-forward)
(define-key esc-map #\Up 'search-diff-backward)


== 金子 真昭 <kaneko@xxxxxxxxxxxx>