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

1 files changed, 5 insertions, 1 deletions

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))))