From: Andreas Schwab <schwab@suse.de>
Date: Sat, 7 Dec 2002 20:48:50 +0000 (+0000)
Subject: (custom-face-edit-fix-value): Change :reverse-video to :inverse-video.
X-Git-Tag: ttn-vms-21-2-B4~12123
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0bbe869a4e47fc98505b324f042b3a80295e027a;p=emacs.git

(custom-face-edit-fix-value): Change :reverse-video to :inverse-video.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2201b586807..9e64025e056 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-07  Andreas Schwab  <schwab@suse.de>
+
+	* cus-edit.el (custom-face-edit-fix-value): Change :reverse-video
+	to :inverse-video.
+
 2002-12-07   Markus Rost  <rost@math.ohio-state.edu>
 
 	* wid-edit.el (define-widget number): Clarify doc and error
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 67d25b2ea7a..c457d149d77 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -2553,7 +2553,8 @@ to switch between two values."
 		custom-face-attributes))
 
 (defun custom-face-edit-fix-value (widget value)
-  "Ignoring WIDGET, convert :bold and :italic in VALUE to new form."
+  "Ignoring WIDGET, convert :bold and :italic in VALUE to new form.
+Also change :reverse-video to :inverse-video."
   (if (listp value)
       (let (result)
 	(while value
@@ -2565,6 +2566,9 @@ to switch between two values."
 		  ((eq key :bold)
 		   (push :weight result)
 		   (push (if val 'bold 'normal) result))
+		  ((eq key :reverse-video)
+		   (push :inverse-video result)
+		   (push val result))
 		  (t 
 		   (push key result)
 		   (push val result))))