Mercurial > emacs
diff lisp/diff-mode.el @ 61269:5d2796fc9f80
(diff-minor-mode): Specify :group.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Mon, 04 Apr 2005 08:54:58 +0000 |
| parents | 3a8c458de33d |
| children | c905fcf5e3d9 02f1dbc4a199 |
line wrap: on
line diff
--- a/lisp/diff-mode.el Mon Apr 04 08:53:15 2005 +0000 +++ b/lisp/diff-mode.el Mon Apr 04 08:54:58 2005 +0000 @@ -1,7 +1,7 @@ ;;; diff-mode.el --- a mode for viewing/editing context diffs -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 +;; Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: convenience patch diff @@ -263,7 +263,7 @@ (save-excursion (while (re-search-backward re start t) (replace-match "" t t))))))) - + (defvar diff-font-lock-keywords `(("^\\(@@ -[0-9,]+ \\+[0-9,]+ @@\\)\\(.*\\)$" ;unified @@ -484,7 +484,7 @@ (let ((fs (diff-hunk-file-names old))) (unless fs (error "No file name to look for")) (push (cons fs name) diff-remembered-files-alist))) - + (defun diff-hunk-file-names (&optional old) "Give the list of file names textually mentioned for the current hunk." (save-excursion @@ -952,7 +952,7 @@ (define-minor-mode diff-minor-mode "Minor mode for viewing/editing context diffs. \\{diff-minor-mode-map}" - nil " Diff" nil + :group 'diff-mode :lighter " Diff" ;; FIXME: setup font-lock ;; setup change hooks (if (not diff-update-on-the-fly)