# HG changeset patch # User Kai Grojohann # Date 1087145395 0 # Node ID dc1d86d80c20a025886c2b30d13de14fa1ce6672 # Parent efb98a4ceb2b43a63482641bdc28fe961ca69abf Reindent `diff-current-defun'. diff -r efb98a4ceb2b -r dc1d86d80c20 lisp/diff-mode.el --- a/lisp/diff-mode.el Sun Jun 13 16:48:44 2004 +0000 +++ b/lisp/diff-mode.el Sun Jun 13 16:49:55 2004 +0000 @@ -1248,12 +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 + (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