diff options
| author | Andreas Schwab <schwab@suse.de> | 2002-12-07 20:48:50 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2002-12-07 20:48:50 +0000 |
| commit | 0bbe869a4e47fc98505b324f042b3a80295e027a (patch) | |
| tree | add745290f62a490cfebeeb2b3c57804edafb2fb /lisp/cus-edit.el | |
| parent | a75a5dd206a06d51fe6f4333aad281247989bd0d (diff) | |
| download | emacs-0bbe869a4e47fc98505b324f042b3a80295e027a.tar.gz | |
(custom-face-edit-fix-value): Change :reverse-video to :inverse-video.
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)))) |