diff options
| author | Karoly Lorentey | 2005-06-15 12:57:51 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-06-15 12:57:51 +0000 |
| commit | ef85512e51f043d73788f00a2aed13cccde0682c (patch) | |
| tree | fc1fa1378533250f260ef8eaa9a84ae882d9df84 /lisp/diff-mode.el | |
| parent | 8736257554f49445f7b4402ac7a9436b38ce6452 (diff) | |
| parent | ef88a9999004e6c26148c8d280d6a41f623d7249 (diff) | |
| download | emacs-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.el | 79 |
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." | |||
| 918 | Supports unified and context diffs as well as (to a lesser extent) | 935 | Supports unified and context diffs as well as (to a lesser extent) |
| 919 | normal diffs. | 936 | normal diffs. |
| 920 | When the buffer is read-only, the ESC prefix is not necessary. | 937 | When the buffer is read-only, the ESC prefix is not necessary. |
| 921 | IF you edit the buffer manually, diff-mode will try to update the hunk | 938 | If you edit the buffer manually, diff-mode will try to update the hunk |
| 922 | headers for you on-the-fly. | 939 | headers for you on-the-fly. |
| 923 | 940 | ||
| 924 | You can also switch between context diff and unified diff with \\[diff-context->unified], | 941 | You can also switch between context diff and unified diff with \\[diff-context->unified], |