Browse files

No modified face for text nodes

  • Loading branch information...
jscheid committed Sep 28, 2012
1 parent 671ac26 commit c36e3c3b4335e7c0cbe16f4db0eefc5004ba48dc
Showing with 3 additions and 3 deletions.
  1. +3 −3 kite-dom.el
@@ -471,8 +471,9 @@ ROOT-PLIST as received in the response to `DOM.getDocument'."
widget with `modified-face' to show that its contents have been
(let ((modified-face (widget-get widget :modified-value-face)))
- (unless (eq (widget-get widget :value-face)
- modified-face)
+ (unless (or (null modified-face)
+ (eq (widget-get widget :value-face)
+ modified-face))
(widget-put widget :value-face modified-face)
(overlay-put (widget-get widget :field-overlay)
'face modified-face))))
@@ -792,7 +793,6 @@ newline in editable field."
(move-marker overlay-end
(1- (marker-position overlay-end)))))
:value-face 'kite-text-face
- :modified-value-face 'kite-modified-text-face
:notify (function kite--dom-notify-widget)
:validate (function kite--dom-validate-widget)
:kite-node-id (kite-dom-node-id dom-node)

0 comments on commit c36e3c3

Please sign in to comment.