Mercurial > emacs

changeset 64492:3fee42bf372b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compare-ignore-whitespace, compare-windows-sync) (compare-windows-sync-string-size, compare-windows-recenter) (compare-windows-highlight, compare-windows): Add version 22.1. (compare-windows) <defface>: Inherit from lazy-highlight instead of duplicating its default value.
author Juri Linkov <juri@jurta.org>
date Tue, 19 Jul 2005 11:19:13 +0000
parents 8764731ab214
children f7a51b4ea78b
files lisp/compare-w.el
diffstat 1 files changed, 13 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/compare-w.el	Tue Jul 19 09:54:05 2005 +0000
+++ b/lisp/compare-w.el	Tue Jul 19 11:19:13 2005 +0000
@@ -56,7 +56,8 @@
 (defcustom compare-ignore-whitespace nil
   "*Non-nil means `compare-windows' ignores whitespace."
   :type 'boolean
-  :group 'compare-w)
+  :group 'compare-w
+  :version "22.1")
 
 (defcustom compare-ignore-case nil
   "*Non-nil means `compare-windows' ignores case differences."
@@ -88,7 +89,8 @@
 If the value of this variable is `nil', then function `ding' is
 called to beep or flash the screen when points are mismatched."
   :type '(choice regexp function)
-  :group 'compare-w)
+  :group 'compare-w
+  :version "22.1")
 
 (defcustom compare-windows-sync-string-size 32
   "*Size of string from one window that is searched in second window.
@@ -99,7 +101,8 @@
 
 The default value 32 is good for the most cases."
   :type 'integer
-  :group 'compare-w)
+  :group 'compare-w
+  :version "22.1")
 
 (defcustom compare-windows-recenter nil
   "*List of two values, each of which is used as argument of
@@ -109,23 +112,20 @@
 The value `(-1 0)' is useful if windows are split vertically,
 and the value `((4) (4))' for horizontally split windows."
   :type '(list sexp sexp)
-  :group 'compare-w)
+  :group 'compare-w
+  :version "22.1")
 
 (defcustom compare-windows-highlight t
   "*Non-nil means compare-windows highlights the differences."
   :type 'boolean
-  :group 'compare-w)
+  :group 'compare-w
+  :version "22.1")
 
 (defface compare-windows
-  '((((class color) (min-colors 88) (background light))
-     (:background "paleturquoise"))
-    (((class color) (min-colors 88) (background dark))
-     (:background "paleturquoise4"))
-    (((class color))
-     (:background "turquoise3"))
-    (t (:underline t)))
+  '((t :inherit lazy-highlight))
   "Face for highlighting of compare-windows difference regions."
-  :group 'compare-w)
+  :group 'compare-w
+  :version "22.1")
 ;; backward-compatibility alias
 (put 'compare-windows-face 'face-alias 'compare-windows)