;; Should be able to split directly on CRLF, but some non-conformant
;; LF-only servers sadly exist, hence the following.
(dolist (line (split-string (replace-regexp-in-string "\r" "" string) "\n"))
;; Should be able to split directly on CRLF, but some non-conformant
;; LF-only servers sadly exist, hence the following.
(dolist (line (split-string (replace-regexp-in-string "\r" "" string) "\n"))
'action #'elpher-click-url
'follow-link t
'help-echo (format "mouse-1, RET: open url %s" url))))
'action #'elpher-click-url
'follow-link t
'help-echo (format "mouse-1, RET: open url %s" url))))
(tp (elpher-insert-margin (concat (char-to-string tp) "?"))
(insert (propertize display-string
'face 'elpher-unknown-face)))))
(tp (elpher-insert-margin (concat (char-to-string tp) "?"))
(insert (propertize display-string
'face 'elpher-unknown-face)))))