procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Andreas Schwab 2002-12-07 20:48:50 +00:00
parent a75a5dd206
commit 0bbe869a4e
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

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

6
lisp/cus-edit.el
View file

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