From ba8a7882de5bbdb39c9c1d74297a9613aa28463f Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 3 Nov 2019 16:06:26 +0100
Subject: [PATCH] Add a <a id=...> skeleton to html-mode

* lisp/textmodes/sgml-mode.el (html-id-anchor): New skeleton
and keystroke (bug#37651).
---
 etc/NEWS                    | 5 +++++
 lisp/textmodes/sgml-mode.el | 8 ++++++++
 2 files changed, 13 insertions(+)

diff --git a/etc/NEWS b/etc/NEWS
index 033cb489788..e897fe06c99 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -575,6 +575,11 @@ current and the previous or the next line, as before.
 
 * Changes in Specialized Modes and Packages in Emacs 27.1
 
+---
+** New HTML mode skeleton 'html-id-anchor'.
+This new command (which inserts an <a id="foo">_</a> skeleton) is
+bound to 'C-c C-c #'.
+
 +++
 ** New command 'font-lock-refontify'.
 This is an interactive convenience function to be used when developing
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index d8210037c6d..f75ce905472 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -1801,6 +1801,7 @@ This takes effect when first loading the library.")
     (define-key map "\C-c\C-cl" 'html-list-item)
     (define-key map "\C-c\C-ch" 'html-href-anchor)
     (define-key map "\C-c\C-cn" 'html-name-anchor)
+    (define-key map "\C-c\C-c#" 'html-id-anchor)
     (define-key map "\C-c\C-ci" 'html-image)
     (when html-quick-keys
       (define-key map "\C-c-" 'html-horizontal-rule)
@@ -1812,6 +1813,7 @@ This takes effect when first loading the library.")
       (define-key map "\C-cl" 'html-list-item)
       (define-key map "\C-ch" 'html-href-anchor)
       (define-key map "\C-cn" 'html-name-anchor)
+      (define-key map "\C-c#" 'html-id-anchor)
       (define-key map "\C-ci" 'html-image)
       (define-key map "\C-cs" 'html-span))
     (define-key map "\C-c\C-s" 'html-autoview-mode)
@@ -1839,6 +1841,7 @@ This takes effect when first loading the library.")
     (define-key menu-map "i" '("Image" . html-image))
     (define-key menu-map "h" '("Href Anchor" . html-href-anchor))
     (define-key menu-map "n" '("Name Anchor" . html-name-anchor))
+    (define-key menu-map "#" '("ID Anchor" . html-id-anchor))
     map)
   "Keymap for commands for use in HTML mode.")
 
@@ -2451,6 +2454,11 @@ HTML Autoview mode is a buffer-local minor mode for use with
   (if sgml-xml-mode (concat " id=\"" str "\""))
   ">" _ "</a>")
 
+(define-skeleton html-id-anchor
+  "HTML anchor tag with id attribute."
+  "ID: "
+  "<a id=\"" str "\">" _ "</a>")
+
 (define-skeleton html-headline-1
   "HTML level 1 headline tags."
   nil
-- 
2.39.5