aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/diff-mode.el
diff options
context:
space:
mode:
authorKaroly Lorentey2005-06-15 12:57:51 +0000
committerKaroly Lorentey2005-06-15 12:57:51 +0000
commitef85512e51f043d73788f00a2aed13cccde0682c (patch)
treefc1fa1378533250f260ef8eaa9a84ae882d9df84 /lisp/diff-mode.el
parent8736257554f49445f7b4402ac7a9436b38ce6452 (diff)
parentef88a9999004e6c26148c8d280d6a41f623d7249 (diff)
downloademacs-ef85512e51f043d73788f00a2aed13cccde0682c.tar.gz
emacs-ef85512e51f043d73788f00a2aed13cccde0682c.zip
Merged from miles@gnu.org--gnu-2005 (patch 80-82, 350-422)
Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-350 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-351 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-352 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-353 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-354 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-355 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-356 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-357 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-358 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-359 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-360 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-361 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-362 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-363 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-364 Remove "-face" suffix from widget faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-365 Remove "-face" suffix from custom faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-366 Remove "-face" suffix from change-log faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-367 Remove "-face" suffix from compilation faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-368 Remove "-face" suffix from diff-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-369 lisp/longlines.el (longlines-visible-face): Face removed * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-370 Remove "-face" suffix from woman faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-371 Remove "-face" suffix from whitespace-highlight face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-372 Remove "-face" suffix from ruler-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-373 Remove "-face" suffix from show-paren faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-374 Remove "-face" suffix from log-view faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-375 Remove "-face" suffix from smerge faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376 Remove "-face" suffix from show-tabs faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-377 Remove "-face" suffix from highlight-changes faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-378 Remove "-face" suffix from and downcase info faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-379 Remove "-face" suffix from pcvs faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-380 Update uses of renamed pcvs faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-381 Tweak ChangeLog * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-382 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-383 Remove "-face" suffix from strokes-char face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-384 Remove "-face" suffix from compare-windows face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-385 Remove "-face" suffix from calendar faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-386 Remove "-face" suffix from diary-button face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-387 Remove "-face" suffix from testcover faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-388 Remove "-face" suffix from viper faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-389 Remove "-face" suffix from org faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-390 Remove "-face" suffix from sgml-namespace face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-391 Remove "-face" suffix from table-cell face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-392 Remove "-face" suffix from tex-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-393 Remove "-face" suffix from texinfo-heading face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-394 Remove "-face" suffix from flyspell faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-395 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-396 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-397 Remove "-face" suffix from gomoku faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-398 Remove "-face" suffix from mpuz faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-399 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-400 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-401 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-402 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-403 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-404 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-405 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-406 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-407 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-408 Remove "-face" suffix from Buffer-menu-buffer face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-409 Remove "-face" suffix from antlr-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410 Remove "-face" suffix from ebrowse faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-411 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-412 Remove "-face" suffix from flymake faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-413 Remove "-face" suffix from idlwave faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-414 Remove "-face" suffix from sh-script faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415 Remove "-face" suffix from vhdl-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-416 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-417 Remove "-face" suffix from which-func face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-418 Remove "-face" suffix from cperl-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-419 Remove "-face" suffix from ld-script faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-420 Fix cperl-mode font-lock problem * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-421 Tweak which-func face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-422 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-80 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-81 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-82 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-350
Diffstat (limited to 'lisp/diff-mode.el')
-rw-r--r--lisp/diff-mode.el79
1 files changed, 48 insertions, 31 deletions
diff --git a/lisp/diff-mode.el b/lisp/diff-mode.el
index aabd09e98ee..1cb5111dcfb 100644
--- a/lisp/diff-mode.el
+++ b/lisp/diff-mode.el
@@ -175,7 +175,7 @@ when editing big diffs)."
175;;;; font-lock support 175;;;; font-lock support
176;;;; 176;;;;
177 177
178(defface diff-header-face 178(defface diff-header
179 '((((class color) (min-colors 88) (background light)) 179 '((((class color) (min-colors 88) (background light))
180 :background "grey85") 180 :background "grey85")
181 (((class color) (min-colors 88) (background dark)) 181 (((class color) (min-colors 88) (background dark))
@@ -187,9 +187,11 @@ when editing big diffs)."
187 (t :weight bold)) 187 (t :weight bold))
188 "`diff-mode' face inherited by hunk and index header faces." 188 "`diff-mode' face inherited by hunk and index header faces."
189 :group 'diff-mode) 189 :group 'diff-mode)
190(defvar diff-header-face 'diff-header-face) 190;; backward-compatibility alias
191(put 'diff-header-face 'face-alias 'diff-header)
192(defvar diff-header-face 'diff-header)
191 193
192(defface diff-file-header-face 194(defface diff-file-header
193 '((((class color) (min-colors 88) (background light)) 195 '((((class color) (min-colors 88) (background light))
194 :background "grey70" :weight bold) 196 :background "grey70" :weight bold)
195 (((class color) (min-colors 88) (background dark)) 197 (((class color) (min-colors 88) (background dark))
@@ -201,61 +203,76 @@ when editing big diffs)."
201 (t :weight bold)) ; :height 1.3 203 (t :weight bold)) ; :height 1.3
202 "`diff-mode' face used to highlight file header lines." 204 "`diff-mode' face used to highlight file header lines."
203 :group 'diff-mode) 205 :group 'diff-mode)
204(defvar diff-file-header-face 'diff-file-header-face) 206;; backward-compatibility alias
207(put 'diff-file-header-face 'face-alias 'diff-file-header)
208(defvar diff-file-header-face 'diff-file-header)
205 209
206(defface diff-index-face 210(defface diff-index
207 '((t :inherit diff-file-header-face)) 211 '((t :inherit diff-file-header))
208 "`diff-mode' face used to highlight index header lines." 212 "`diff-mode' face used to highlight index header lines."
209 :group 'diff-mode) 213 :group 'diff-mode)
210(defvar diff-index-face 'diff-index-face) 214;; backward-compatibility alias
215(put 'diff-index-face 'face-alias 'diff-index)
216(defvar diff-index-face 'diff-index)
211 217
212(defface diff-hunk-header-face 218(defface diff-hunk-header
213 '((t :inherit diff-header-face)) 219 '((t :inherit diff-header))
214 "`diff-mode' face used to highlight hunk header lines." 220 "`diff-mode' face used to highlight hunk header lines."
215 :group 'diff-mode) 221 :group 'diff-mode)
216(defvar diff-hunk-header-face 'diff-hunk-header-face) 222;; backward-compatibility alias
223(put 'diff-hunk-header-face 'face-alias 'diff-hunk-header)
224(defvar diff-hunk-header-face 'diff-hunk-header)
217 225
218(defface diff-removed-face 226(defface diff-removed
219 '((t :inherit diff-changed-face)) 227 '((t :inherit diff-changed))
220 "`diff-mode' face used to highlight removed lines." 228 "`diff-mode' face used to highlight removed lines."
221 :group 'diff-mode) 229 :group 'diff-mode)
222(defvar diff-removed-face 'diff-removed-face) 230;; backward-compatibility alias
231(put 'diff-removed-face 'face-alias 'diff-removed)
232(defvar diff-removed-face 'diff-removed)
223 233
224(defface diff-added-face 234(defface diff-added
225 '((t :inherit diff-changed-face)) 235 '((t :inherit diff-changed))
226 "`diff-mode' face used to highlight added lines." 236 "`diff-mode' face used to highlight added lines."
227 :group 'diff-mode) 237 :group 'diff-mode)
228(defvar diff-added-face 'diff-added-face) 238;; backward-compatibility alias
239(put 'diff-added-face 'face-alias 'diff-added)
240(defvar diff-added-face 'diff-added)
229 241
230(defface diff-changed-face 242(defface diff-changed
231 '((((type tty pc) (class color) (background light)) 243 '((((type tty pc) (class color) (background light))
232 :foreground "magenta" :weight bold :slant italic) 244 :foreground "magenta" :weight bold :slant italic)
233 (((type tty pc) (class color) (background dark)) 245 (((type tty pc) (class color) (background dark))
234 :foreground "yellow" :weight bold :slant italic)) 246 :foreground "yellow" :weight bold :slant italic))
235 "`diff-mode' face used to highlight changed lines." 247 "`diff-mode' face used to highlight changed lines."
236 :group 'diff-mode) 248 :group 'diff-mode)
237(defvar diff-changed-face 'diff-changed-face) 249;; backward-compatibility alias
250(put 'diff-changed-face 'face-alias 'diff-changed)
251(defvar diff-changed-face 'diff-changed)
238 252
239(defface diff-function-face 253(defface diff-function
240 '((t :inherit diff-context-face)) 254 '((t :inherit diff-context))
241 "`diff-mode' face used to highlight function names produced by \"diff -p\"." 255 "`diff-mode' face used to highlight function names produced by \"diff -p\"."
242 :group 'diff-mode) 256 :group 'diff-mode)
243(defvar diff-function-face 'diff-function-face) 257;; backward-compatibility alias
258(put 'diff-function-face 'face-alias 'diff-function)
259(defvar diff-function-face 'diff-function)
244 260
245(defface diff-context-face 261(defface diff-context
246 '((((class color) (background light)) 262 '((t :inherit shadow))
247 :foreground "grey50")
248 (((class color) (background dark))
249 :foreground "grey70"))
250 "`diff-mode' face used to highlight context and other side-information." 263 "`diff-mode' face used to highlight context and other side-information."
251 :group 'diff-mode) 264 :group 'diff-mode)
252(defvar diff-context-face 'diff-context-face) 265;; backward-compatibility alias
266(put 'diff-context-face 'face-alias 'diff-context)
267(defvar diff-context-face 'diff-context)
253 268
254(defface diff-nonexistent-face 269(defface diff-nonexistent
255 '((t :inherit diff-file-header-face)) 270 '((t :inherit diff-file-header))
256 "`diff-mode' face used to highlight nonexistent files in recursive diffs." 271 "`diff-mode' face used to highlight nonexistent files in recursive diffs."
257 :group 'diff-mode) 272 :group 'diff-mode)
258(defvar diff-nonexistent-face 'diff-nonexistent-face) 273;; backward-compatibility alias
274(put 'diff-nonexistent-face 'face-alias 'diff-nonexistent)
275(defvar diff-nonexistent-face 'diff-nonexistent)
259 276
260(defconst diff-yank-handler '(diff-yank-function)) 277(defconst diff-yank-handler '(diff-yank-function))
261(defun diff-yank-function (text) 278(defun diff-yank-function (text)
@@ -918,7 +935,7 @@ See `after-change-functions' for the meaning of BEG, END and LEN."
918Supports unified and context diffs as well as (to a lesser extent) 935Supports unified and context diffs as well as (to a lesser extent)
919normal diffs. 936normal diffs.
920When the buffer is read-only, the ESC prefix is not necessary. 937When the buffer is read-only, the ESC prefix is not necessary.
921IF you edit the buffer manually, diff-mode will try to update the hunk 938If you edit the buffer manually, diff-mode will try to update the hunk
922headers for you on-the-fly. 939headers for you on-the-fly.
923 940
924You can also switch between context diff and unified diff with \\[diff-context->unified], 941You can also switch between context diff and unified diff with \\[diff-context->unified],