Re-order suggestions in (my/html-surround-with-tag ()).
This commit is contained in:
parent
7513b9ae26
commit
6a5981d19a
|
@ -21,7 +21,7 @@
|
||||||
(interactive "*r")
|
(interactive "*r")
|
||||||
(if (region-active-p)
|
(if (region-active-p)
|
||||||
(let ((tag (completing-read "Tag: "
|
(let ((tag (completing-read "Tag: "
|
||||||
'("em" "strong" "blockquote"))))
|
'("blockquote" "em" "strong"))))
|
||||||
(insert (concat "<" tag ">"
|
(insert (concat "<" tag ">"
|
||||||
(delete-and-extract-region beg end)
|
(delete-and-extract-region beg end)
|
||||||
"</" tag ">")))
|
"</" tag ">")))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user