From: Kai Großjohann <kgrossjo@eu.uu.net>
Date: Sun, 13 Jun 2004 16:49:55 +0000 (+0000)
Subject: Reindent `diff-current-defun'.
X-Git-Tag: ttn-vms-21-2-B4~5794
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f9edc8be5e26b08bfbe1fe8569ad110cbf21892;p=emacs.git

Reindent `diff-current-defun'.
---

diff --git a/lisp/diff-mode.el b/lisp/diff-mode.el
index 3e6d1b7ac57..26ff5441baf 100644
--- a/lisp/diff-mode.el
+++ b/lisp/diff-mode.el
@@ -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