Function: shr-tag-a

shr-tag-a is a byte-compiled function defined in shr.el.gz.

Signature

(shr-tag-a DOM)

Source Code

;; Defined in /usr/src/emacs/lisp/net/shr.el.gz
(defun shr-tag-a (dom)
  (let ((url (dom-attr dom 'href))
        (title (dom-attr dom 'title))
	(start (point))
	shr-start)
    (shr-generic dom)
    (when-let* ((id (unless (dom-attr dom 'id) ; Handled by `shr-descend'.
                      (dom-attr dom 'name))))  ; Obsolete since HTML5.
      ;; We have an empty element, so just insert... something.
      (when (= start (point))
        (insert ?\s)
        (put-text-property (1- (point)) (point) 'display ""))
      (put-text-property start (1+ start) 'shr-target-id id))
    (when url
      (shr-urlify (or shr-start start) (shr-expand-url url) title))))