diff options
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 6 |
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)))) |