(plist-put eww-data :source source)
(plist-put eww-data :dom document)
(let ((inhibit-read-only t)
- (inhibit-modification-hooks nil)
+ (inhibit-modification-hooks t)
(shr-target-id (url-target (url-generic-parse-url url)))
(shr-external-rendering-functions
'((title . eww-tag-title)
(defun eww-restore-history (elem)
(let ((inhibit-read-only t)
- (inhibit-modification-hooks nil)
+ (inhibit-modification-hooks t)
(text (plist-get elem :text)))
(setq eww-data elem)
(if (null text)
(when-let (pos (and (< (1+ end) (point-max))
(> (1- end) (point-min))
(cond
- ((get-text-property (1- end) 'eww-form)
- (1- end))
((get-text-property (1+ end) 'eww-form)
- (1+ end)))))
+ (1+ end))
+ ((get-text-property (1- end) 'eww-form)
+ (1- end)))))
(let* ((form (get-text-property pos 'eww-form))
(properties (text-properties-at pos))
(inhibit-read-only t)
(when (or (get-text-property start 'eww-form)
(setq start (next-single-property-change start 'eww-form)))
(let ((props (get-text-property start 'eww-form)))
- (plist-put props :start (set-marker (make-marker) start))
+ (plist-put props :start start)
(setq start (next-single-property-change
start 'eww-form nil (point-max)))
- (plist-put props
- :end (set-marker (make-marker) start)))))))
+ (plist-put props :end start))))))
(defun eww-input-value (input)
(let ((type (plist-get input :type))