[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/diff-mode.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/diff-mode.el [lexbind] |
Date: |
Tue, 06 Jul 2004 07:05:57 -0400 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/diff-mode.el [lexbind],
Miles Bader <=