andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(diff-minor-mode): Specify :group.

Browse source
This commit is contained in:
Lute Kamstra 2005-04-04 08:54:58 +00:00
parent 62631b2cae
commit cfc802279a
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/diff-mode.el
View file

@ -1,7 +1,7 @@
;;; diff-mode.el --- a mode for viewing/editing context diffs ;;; diff-mode.el --- a mode for viewing/editing context diffs
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
;; Free Software Foundation, Inc. ;; Free Software Foundation, Inc.
;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: convenience patch diff ;; Keywords: convenience patch diff
@ -263,7 +263,7 @@ when editing big diffs)."
(save-excursion (save-excursion
(while (re-search-backward re start t) (while (re-search-backward re start t)
(replace-match "" t t))))))) (replace-match "" t t)))))))
(defvar diff-font-lock-keywords (defvar diff-font-lock-keywords
`(("^\\(@@ -[0-9,]+ \\+[0-9,]+ @@\\)\\(.*\\)$" ;unified `(("^\\(@@ -[0-9,]+ \\+[0-9,]+ @@\\)\\(.*\\)$" ;unified
@ -484,7 +484,7 @@ If the OLD prefix arg is passed, tell the file NAME of the old file."
(let ((fs (diff-hunk-file-names old))) (let ((fs (diff-hunk-file-names old)))
(unless fs (error "No file name to look for")) (unless fs (error "No file name to look for"))
(push (cons fs name) diff-remembered-files-alist))) (push (cons fs name) diff-remembered-files-alist)))
(defun diff-hunk-file-names (&optional old) (defun diff-hunk-file-names (&optional old)
"Give the list of file names textually mentioned for the current hunk." "Give the list of file names textually mentioned for the current hunk."
(save-excursion (save-excursion
@ -952,7 +952,7 @@ a diff with \\[diff-reverse-direction]."
(define-minor-mode diff-minor-mode (define-minor-mode diff-minor-mode
"Minor mode for viewing/editing context diffs. "Minor mode for viewing/editing context diffs.
\\{diff-minor-mode-map}" \\{diff-minor-mode-map}"
nil " Diff" nil :group 'diff-mode :lighter " Diff"
;; FIXME: setup font-lock ;; FIXME: setup font-lock
;; setup change hooks ;; setup change hooks
(if (not diff-update-on-the-fly) (if (not diff-update-on-the-fly)