Differential Revision: https://reviews.llvm.org/D143560
(let* ((children (xml-node-children node))
(text (car children)))
(cl-case (xml-node-name node)
- ('replacement
+ (replacement
(let* ((offset (xml-get-attribute-or-nil node 'offset))
(length (xml-get-attribute-or-nil node 'length)))
(when (or (null offset) (null length))
(setq offset (string-to-number offset))
(setq length (string-to-number length))
(push (list offset length text) replacements)))
- ('cursor
+ (cursor
(setq cursor (string-to-number text)))))))
;; Sort by decreasing offset, length.