Emacs: Add blockquote as suggestion to my/html-surround-with-tag.

2021-03-11 18:40:34 +01:00 · 2021-03-11 18:40:34 +01:00 · 3372124e8c
parent a5d6f9a88e
commit 3372124e8c
1 changed files with 2 additions and 1 deletions
--- a/init.d/text/web.el
+++ b/init.d/text/web.el
@ -20,7 +20,8 @@
            "Surround region with HTML tag."
            (interactive "*r")
            (if (region-active-p)
-                (let ((tag (completing-read "Tag: " '("em" "strong"))))
+                (let ((tag (completing-read "Tag: "
+                                            '("em" "strong" "blockquote"))))
                  (insert (concat "<" tag ">"
                                  (delete-and-extract-region beg end)
                                  "</" tag ">")))