str)
(dolist (ovl ovls)
(when (overlay-get ovl 'nxml-where)
- (setq str (buffer-substring-no-properties (overlay-start ovl) (overlay-end ovl)))
- (message "==================================================")
- (nxml-where-error-message "old ovl=%s %S" ovl str)
- (message "old: nxml-where-path=%s" nxml-where-path)
- (message "old: nxml-where-new-path=%s" nxml-where-new-path)
+ ;(setq str (buffer-substring-no-properties (overlay-start ovl) (overlay-end ovl)))
+ ;(message "==================================================")
+ ;(nxml-where-error-message "old ovl=%s %S" ovl str)
+ ;(message "old: nxml-where-path=%s" nxml-where-path)
+ ;(message "old: nxml-where-new-path=%s" nxml-where-new-path)
)))
(let ((ovl (when buf (make-overlay tag-start tag-end))))
(when ovl