/[emacs]/emacs/lisp/diff-mode.el
ViewVC logotype

Diff of /emacs/lisp/diff-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.64 by kai, Sun Jun 13 16:48:44 2004 UTC revision 1.65 by kai, Sun Jun 13 16:49:55 2004 UTC
# Line 1248  If the prefix arg is bigger than 8 (for Line 1248  If the prefix arg is bigger than 8 (for
1248  (defun diff-current-defun ()  (defun diff-current-defun ()
1249    "Find the name of function at point.    "Find the name of function at point.
1250  For use in `add-log-current-defun-function'."  For use in `add-log-current-defun-function'."
1251      (save-excursion    (save-excursion
1252        (when (looking-at diff-hunk-header-re)      (when (looking-at diff-hunk-header-re)
1253          (forward-line 1)        (forward-line 1)
1254          (while (and (looking-at " ") (not (zerop (forward-line 1))))))        (while (and (looking-at " ") (not (zerop (forward-line 1))))))
1255    (destructuring-bind (buf line-offset pos src dst &optional switched)      (destructuring-bind (buf line-offset pos src dst &optional switched)
1256        (diff-find-source-location)          (diff-find-source-location)
1257        (beginning-of-line)        (beginning-of-line)
1258        (or (when (memq (char-after) '(?< ?-))        (or (when (memq (char-after) '(?< ?-))
1259              ;; Cursor is pointing at removed text.  This could be a removed              ;; Cursor is pointing at removed text.  This could be a removed

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26