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

[Miles Bader]

Index: emacs/lisp/diff-mode.el
diff -c emacs/lisp/diff-mode.el:1.45.4.10 emacs/lisp/diff-mode.el:1.45.4.11
*** emacs/lisp/diff-mode.el:1.45.4.10   Tue May 11 02:28:47 2004
--- emacs/lisp/diff-mode.el     Tue Jul  6 10:10:47 2004
***************
*** 1248,1256 ****
  (defun diff-current-defun ()
    "Find the name of function at point.
  For use in `add-log-current-defun-function'."
!   (destructuring-bind (buf line-offset pos src dst &optional switched)
!       (diff-find-source-location)
!     (save-excursion
        (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