diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/cus-edit.el | 6 |
2 files changed, 10 insertions, 1 deletions
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)))) |