Mercurial > emacs
changeset 56072:efb98a4ceb2b
(diff-current-defun): If at start of hunk, use
position of first change.
| author | Kai Großjohann <kgrossjo@eu.uu.net> |
|---|---|
| date | Sun, 13 Jun 2004 16:48:44 +0000 |
| parents | 90a064bbd822 |
| children | dc1d86d80c20 |
| files | lisp/ChangeLog lisp/diff-mode.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Jun 13 15:35:03 2004 +0000 +++ b/lisp/ChangeLog Sun Jun 13 16:48:44 2004 +0000 @@ -1,3 +1,8 @@ +2004-06-13 Kai Grossjohann <kai.grossjohann@gmx.net> + + * diff-mode.el (diff-current-defun): If at start of hunk, use + position of first change. + 2004-06-13 Lars Hansen <larsh@math.ku.dk> * dired-x.el (dired-mark-omitted): Bind to "*O".
--- a/lisp/diff-mode.el Sun Jun 13 15:35:03 2004 +0000 +++ b/lisp/diff-mode.el Sun Jun 13 16:48:44 2004 +0000 @@ -1248,9 +1248,12 @@ (defun diff-current-defun () "Find the name of function at point. For use in `add-log-current-defun-function'." + (save-excursion + (when (looking-at diff-hunk-header-re) + (forward-line 1) + (while (and (looking-at " ") (not (zerop (forward-line 1)))))) (destructuring-bind (buf line-offset pos src dst &optional switched) (diff-find-source-location) - (save-excursion (beginning-of-line) (or (when (memq (char-after) '(?< ?-)) ;; Cursor is pointing at removed text. This could be a removed