[Emacs-diffs] Changes to emacs/lisp/diff-mode.el

[Kai Großjohann]

Index: emacs/lisp/diff-mode.el
diff -c emacs/lisp/diff-mode.el:1.64 emacs/lisp/diff-mode.el:1.65
*** emacs/lisp/diff-mode.el:1.64        Sun Jun 13 16:48:44 2004
--- emacs/lisp/diff-mode.el     Sun Jun 13 16:49:55 2004
***************
*** 1248,1259 ****
  (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)
        (beginning-of-line)
        (or (when (memq (char-after) '(?< ?-))
            ;; Cursor is pointing at removed text.  This could be a removed
--- 1248,1259 ----
  (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)
        (beginning-of-line)
        (or (when (memq (char-after) '(?< ?-))
            ;; Cursor is pointing at removed text.  This could be a removed