Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b25f5aec
Commit
b25f5aec
authored
Oct 05, 2000
by
Miles Bader
Browse files
(smerge-mine-face, smerge-other-face, smerge-base-face, smerge-markers-face):
Add dark-background variants.
parent
86647e11
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
21 additions
and
6 deletions
+21
-6
lisp/smerge-mode.el
lisp/smerge-mode.el
+21
-6
No files found.
lisp/smerge-mode.el
View file @
b25f5aec
;;; smerge-mode.el --- Minor mode to resolve diff3 conflicts
;;; smerge-mode.el --- Minor mode to resolve diff3 conflicts
;; Copyright (C) 1999 Free Software Foundation, Inc.
;; Copyright (C) 1999
, 2000
Free Software Foundation, Inc.
;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: merge diff3 cvs conflict
;; Keywords: merge diff3 cvs conflict
;; Revision: $Id: smerge-mode.el,v 1.
4
2000/0
7/21
1
3
:5
2:19 fx
Exp $
;; Revision: $Id: smerge-mode.el,v 1.
5
2000/0
8/16
1
9
:5
1:55 monnier
Exp $
;; This file is part of GNU Emacs.
;; This file is part of GNU Emacs.
...
@@ -77,25 +77,37 @@ Used in `smerge-diff-base-mine' and related functions."
...
@@ -77,25 +77,37 @@ Used in `smerge-diff-base-mine' and related functions."
:type
'boolean
)
:type
'boolean
)
(
defface
smerge-mine-face
(
defface
smerge-mine-face
'
((
t
(
:foreground
"blue"
)))
'
((((
background
light
))
(
:foreground
"blue"
))
(((
background
dark
))
(
:foreground
"cyan"
)))
"Face for your code."
"Face for your code."
:group
'smerge
)
:group
'smerge
)
(
defvar
smerge-mine-face
'smerge-mine-face
)
(
defvar
smerge-mine-face
'smerge-mine-face
)
(
defface
smerge-other-face
(
defface
smerge-other-face
'
((
t
(
:foreground
"darkgreen"
)))
'
((((
background
light
))
(
:foreground
"darkgreen"
))
(((
background
dark
))
(
:foreground
"lightgreen"
)))
"Face for the other code."
"Face for the other code."
:group
'smerge
)
:group
'smerge
)
(
defvar
smerge-other-face
'smerge-other-face
)
(
defvar
smerge-other-face
'smerge-other-face
)
(
defface
smerge-base-face
(
defface
smerge-base-face
'
((
t
(
:foreground
"red"
)))
'
((((
background
light
))
(
:foreground
"red"
))
(((
background
dark
))
(
:foreground
"orange"
)))
"Face for the base code."
"Face for the base code."
:group
'smerge
)
:group
'smerge
)
(
defvar
smerge-base-face
'smerge-base-face
)
(
defvar
smerge-base-face
'smerge-base-face
)
(
defface
smerge-markers-face
(
defface
smerge-markers-face
'
((
t
(
:background
"grey85"
)))
'
((((
background
light
))
(
:background
"grey85"
))
(((
background
dark
))
(
:background
"grey30"
)))
"Face for the conflict markers."
"Face for the conflict markers."
:group
'smerge
)
:group
'smerge
)
(
defvar
smerge-markers-face
'smerge-markers-face
)
(
defvar
smerge-markers-face
'smerge-markers-face
)
...
@@ -460,6 +472,9 @@ The point is moved to the end of the conflict."
...
@@ -460,6 +472,9 @@ The point is moved to the end of the conflict."
;;; Change Log:
;;; Change Log:
;; $Log: smerge-mode.el,v $
;; $Log: smerge-mode.el,v $
;; Revision 1.5 2000/08/16 19:51:55 monnier
;; (smerge-mode-menu): Doc fix.
;;
;; Revision 1.4 2000/07/21 13:52:19 fx
;; Revision 1.4 2000/07/21 13:52:19 fx
;; (smerge-mode-menu): Fill it out.
;; (smerge-mode-menu): Fill it out.
;;
;;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment