1248 |
(defun diff-current-defun () |
(defun diff-current-defun () |
1249 |
"Find the name of function at point. |
"Find the name of function at point. |
1250 |
For use in `add-log-current-defun-function'." |
For use in `add-log-current-defun-function'." |
1251 |
(save-excursion |
(save-excursion |
1252 |
(when (looking-at diff-hunk-header-re) |
(when (looking-at diff-hunk-header-re) |
1253 |
(forward-line 1) |
(forward-line 1) |
1254 |
(while (and (looking-at " ") (not (zerop (forward-line 1)))))) |
(while (and (looking-at " ") (not (zerop (forward-line 1)))))) |
1255 |
(destructuring-bind (buf line-offset pos src dst &optional switched) |
(destructuring-bind (buf line-offset pos src dst &optional switched) |
1256 |
(diff-find-source-location) |
(diff-find-source-location) |
1257 |
(beginning-of-line) |
(beginning-of-line) |
1258 |
(or (when (memq (char-after) '(?< ?-)) |
(or (when (memq (char-after) '(?< ?-)) |
1259 |
;; Cursor is pointing at removed text. This could be a removed |
;; Cursor is pointing at removed text. This could be a removed |