Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
0bbe869a
Commit
0bbe869a
authored
Dec 07, 2002
by
Andreas Schwab
Browse files
(custom-face-edit-fix-value): Change :reverse-video to :inverse-video.
parent
a75a5dd2
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
1 deletion
+10
-1
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/cus-edit.el
lisp/cus-edit.el
+5
-1
No files found.
lisp/ChangeLog
View file @
0bbe869a
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
...
...
lisp/cus-edit.el
View file @
0bbe869a
...
...
@@ -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))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment