Mercurial > hg > xemacs

comparison my-news.el @ 83:8e82ac8512d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
more html handling
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Thu, 02 Jul 2026 10:09:43 +0100
parents 0508101db40f
children 2a83bb36896f
comparison
equal deleted inserted replaced
82:e75e61ad9ae1 83:8e82ac8512d2
808 (t 808 (t
809 (insert "[anon] writes:\n\n")))))) 809 (insert "[anon] writes:\n\n"))))))
810 810
811 (defun use-text-not-html (&optional clear) 811 (defun use-text-not-html (&optional clear)
812 (when (and (if clear (looking-at "<html") 812 (when (and (if clear (looking-at "<html")
813 (looking-at "> <\\(html\\|div\\)")) 813 (looking-at "> <\\(!doctype\\|html\\|div\\)"))
814 (bufferp (get-buffer "*Shell Command Output*"))) 814 (bufferp (get-buffer "*Shell Command Output*")))
815 ;; replace HTML only with result of my HTML filter 815 ;; replace HTML only with result of my HTML filter
816 (delete-region (point)(mark t)) 816 (delete-region (point)(mark t))
817 (insert-buffer "*Shell Command Output*") 817 (insert-buffer "*Shell Command Output*")
818 (when (looking-at "piping") 818 (when (looking-at "piping")