diff options
| author | Kai Großjohann | 2004-06-13 16:49:55 +0000 |
|---|---|---|
| committer | Kai Großjohann | 2004-06-13 16:49:55 +0000 |
| commit | 2f9edc8be5e26b08bfbe1fe8569ad110cbf21892 (patch) | |
| tree | a575f702bd966c17880024397af42bdd60078267 /lisp/diff-mode.el | |
| parent | 6393ab2a792e545434e17bf7190815f6b64b6a2a (diff) | |
| download | emacs-2f9edc8be5e26b08bfbe1fe8569ad110cbf21892.tar.gz emacs-2f9edc8be5e26b08bfbe1fe8569ad110cbf21892.zip | |
Reindent `diff-current-defun'.
Diffstat (limited to 'lisp/diff-mode.el')
| -rw-r--r-- | lisp/diff-mode.el | 12 |
1 files changed, 6 insertions, 6 deletions
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 | |||
| 1248 | (defun diff-current-defun () | 1248 | (defun diff-current-defun () |
| 1249 | "Find the name of function at point. | 1249 | "Find the name of function at point. |
| 1250 | For use in `add-log-current-defun-function'." | 1250 | For use in `add-log-current-defun-function'." |
| 1251 | (save-excursion | 1251 | (save-excursion |
| 1252 | (when (looking-at diff-hunk-header-re) | 1252 | (when (looking-at diff-hunk-header-re) |
| 1253 | (forward-line 1) | 1253 | (forward-line 1) |
| 1254 | (while (and (looking-at " ") (not (zerop (forward-line 1)))))) | 1254 | (while (and (looking-at " ") (not (zerop (forward-line 1)))))) |
| 1255 | (destructuring-bind (buf line-offset pos src dst &optional switched) | 1255 | (destructuring-bind (buf line-offset pos src dst &optional switched) |
| 1256 | (diff-find-source-location) | 1256 | (diff-find-source-location) |
| 1257 | (beginning-of-line) | 1257 | (beginning-of-line) |
| 1258 | (or (when (memq (char-after) '(?< ?-)) | 1258 | (or (when (memq (char-after) '(?< ?-)) |
| 1259 | ;; Cursor is pointing at removed text. This could be a removed | 1259 | ;; Cursor is pointing at removed text. This could be a removed |