Mercurial > emacs
comparison lisp/diff-mode.el @ 56073:dc1d86d80c20
Reindent `diff-current-defun'.
| author | Kai Großjohann <kgrossjo@eu.uu.net> |
|---|---|
| date | Sun, 13 Jun 2004 16:49:55 +0000 |
| parents | efb98a4ceb2b |
| children | 34b22fc9d0ed 4c90ffeb71c5 |
comparison
equal
deleted
inserted
replaced
| 56072:efb98a4ceb2b | 56073:dc1d86d80c20 |
|---|---|
| 1246 | 1246 |
| 1247 | 1247 |
| 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 |
| 1260 ;; function, in which case, going to the source buffer will | 1260 ;; function, in which case, going to the source buffer will |
| 1261 ;; not help since the function is now removed. Instead, | 1261 ;; not help since the function is now removed. Instead, |