Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 21:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

Reindent `diff-current-defun'.

Browse source
This commit is contained in:
Kai Großjohann 2004-06-13 16:49:55 +00:00
parent 6393ab2a79
commit 2f9edc8be5
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/diff-mode.el
View file

@ -1248,12 +1248,12 @@ If the prefix arg is bigger than 8 (for example with \\[universal-argument] \\[u
(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
(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)
(beginning-of-line)
(or (when (memq (char-after) '(?< ?-))
;; Cursor is pointing at removed text. This could be a removed