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, |