Mercurial > emacs

diff lisp/cus-edit.el @ 48709:d1efe2b99d8a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(custom-face-edit-fix-value): Change :reverse-video to :inverse-video.
author Andreas Schwab <schwab@suse.de>
date Sat, 07 Dec 2002 20:47:33 +0000
parents 8ef126b2490a
children f216c93c4189
line wrap: on
line diff
--- a/lisp/cus-edit.el	Sat Dec 07 20:29:43 2002 +0000
+++ b/lisp/cus-edit.el	Sat Dec 07 20:47:33 2002 +0000
@@ -2553,7 +2553,8 @@
 		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 @@
 		  ((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))))