Mercurial > emacs

changeset 63220:b14224937156

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-384 Remove "-face" suffix from compare-windows face 2005-06-10 Miles Bader <miles@gnu.org> * lisp/compare-w.el (compare-windows): Remove "-face" suffix from face name. (compare-windows-face): New backward-compatibility alias for renamed face. (compare-windows-highlight): Use renamed compare-windows face.
author Miles Bader <miles@gnu.org>
date Fri, 10 Jun 2005 10:43:24 +0000
parents cf36e45beb9c
children 6e968f79cfbc
files lisp/ChangeLog lisp/compare-w.el
diffstat 2 files changed, 11 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Jun 10 10:43:04 2005 +0000
+++ b/lisp/ChangeLog	Fri Jun 10 10:43:24 2005 +0000
@@ -1,5 +1,10 @@
 2005-06-10  Miles Bader  <miles@gnu.org>
 
+	* compare-w.el (compare-windows): Remove "-face" suffix from face name.
+	(compare-windows-face): New backward-compatibility alias for
+	renamed face.
+	(compare-windows-highlight): Use renamed compare-windows face.
+
 	* strokes.el (strokes-char): Remove "-face" suffix from face name.
 	(strokes-char-face): New backward-compatibility alias for renamed face.
 	(strokes-encode-buffer): Use renamed strokes-char face.
--- a/lisp/compare-w.el	Fri Jun 10 10:43:04 2005 +0000
+++ b/lisp/compare-w.el	Fri Jun 10 10:43:24 2005 +0000
@@ -1,6 +1,6 @@
 ;;; compare-w.el --- compare text between windows for Emacs
 
-;; Copyright (C) 1986,1989,1993,1997,2003,2004 Free Software Foundation, Inc.
+;; Copyright (C) 1986,1989,1993,1997,2003,2004,2005 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: convenience files
@@ -116,7 +116,7 @@
   :type 'boolean
   :group 'compare-w)
 
-(defface compare-windows-face
+(defface compare-windows
   '((((class color) (min-colors 88) (background light))
      (:background "paleturquoise"))
     (((class color) (min-colors 88) (background dark))
@@ -126,6 +126,8 @@
     (t (:underline t)))
   "Face for highlighting of compare-windows difference regions."
   :group 'compare-w)
+;; backward-compatibility alias
+(put 'compare-windows-face 'face-alias 'compare-windows)
 
 (defvar compare-windows-overlay1 nil)
 (defvar compare-windows-overlay2 nil)
@@ -341,13 +343,13 @@
     (if compare-windows-overlay1
         (move-overlay compare-windows-overlay1 beg1 end1 b1)
       (setq compare-windows-overlay1 (make-overlay beg1 end1 b1))
-      (overlay-put compare-windows-overlay1 'face 'compare-windows-face)
+      (overlay-put compare-windows-overlay1 'face 'compare-windows)
       (overlay-put compare-windows-overlay1 'priority 1))
     (overlay-put compare-windows-overlay1 'window w1)
     (if compare-windows-overlay2
         (move-overlay compare-windows-overlay2 beg2 end2 b2)
       (setq compare-windows-overlay2 (make-overlay beg2 end2 b2))
-      (overlay-put compare-windows-overlay2 'face 'compare-windows-face)
+      (overlay-put compare-windows-overlay2 'face 'compare-windows)
       (overlay-put compare-windows-overlay2 'priority 1))
     (overlay-put compare-windows-overlay2 'window w2)
     ;; Remove highlighting before next command is executed