# HG changeset patch # User Stefan Monnier # Date 970250727 0 # Node ID b1edfcd919a70bb9b127827c0d3108b547b85371 # Parent 534b5a76bf8a930d948a2ca77a5163c9e2537153 (diff-add-log-file-name): Remove. (diff-mode): Use add-log-buffer-file-name-function. diff -r 534b5a76bf8a -r b1edfcd919a7 lisp/diff-mode.el --- a/lisp/diff-mode.el Fri Sep 29 18:03:51 2000 +0000 +++ b/lisp/diff-mode.el Fri Sep 29 18:05:27 2000 +0000 @@ -4,7 +4,7 @@ ;; Author: Stefan Monnier ;; Keywords: patch diff -;; Revision: $Id: diff-mode.el,v 1.22 2000/09/21 16:52:23 monnier Exp $ +;; Revision: $Id: diff-mode.el,v 1.23 2000/09/29 02:25:32 monnier Exp $ ;; This file is part of GNU Emacs. @@ -448,6 +448,7 @@ (cons (cons fs file) diff-remembered-files-alist)) file))))) + (defun diff-mouse-goto-source (event) "Run `diff-goto-source' for the diff at a mouse click." (interactive "e") @@ -455,12 +456,6 @@ (mouse-set-point event) (diff-goto-source))) -(defun diff-add-log-file-name (log-file) - "File name to use in add-log for the hunk at point. -For use in `add-log-file-name-function'. -LOG-FILE should be the path to the ChangeLog file." - (add-log-file-name (expand-file-name (diff-find-file-name)) log-file)) - (defun diff-ediff-patch () "Call `ediff-patch-file' on the current buffer." @@ -835,8 +830,8 @@ ;; add-log support (set (make-local-variable 'add-log-current-defun-function) 'diff-current-defun) - (set (make-local-variable 'add-log-file-name-function) - 'diff-add-log-file-name)) + (set (make-local-variable 'add-log-buffer-file-name-function) + 'diff-find-file-name)) ;;;###autoload (define-minor-mode diff-minor-mode