# HG changeset patch # User Lute Kamstra # Date 1112604898 0 # Node ID 5d2796fc9f801377ab9b7d3287de1f6e4f20ea24 # Parent abd0d265b4baa47da006bd3b5e4ac3ccf96f6c0b (diff-minor-mode): Specify :group. diff -r abd0d265b4ba -r 5d2796fc9f80 lisp/diff-mode.el --- 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 ;; 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)