Mark shr buttons as button.el buffers

* lisp/net/shr.el (shr-urlify): Mark buttons as button.el buffers
for easier reuse in buttonified buffers.

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 7555d6c6aec81e6ded2499bc7d4d22499444972c..fbd1a9b7661172f3e7d1253001c03f995f2dd33e 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1207,6 +1207,8 @@ START, and END.  Note that START and END should be markers."
   (add-text-properties
    start (point)
    (list 'shr-url url
+         'button t
+         'category 'shr                ; For button.el button buffers.
         'help-echo (let ((parsed (url-generic-parse-url
                                    (or (ignore-errors
                                         (decode-coding-string