.TAG creates ids with prefix TAG: rather than TAG_.

Internal tags start with __.
ds26gte · Feb 16, 2016 · 632554a · 632554a
1 parent f46c420
commit 632554a
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/pca-so.tmac b/pca-so.tmac
@@ -33,14 +33,14 @@
 .
 .if \n[.troff2page] \{\
 .de pca-so:write-toc-line
-.if d TAG .TAG _sec_\\n[pca-toc:count]
+.if d TAG .TAG __sec_\\n[pca-toc:count]
 .write pca:toc-stream .TOCLINE-PLAIN \\n[pca-toc:count] \\*[pca-toc:header-text]
 ..
 .
 .de TOCLINE-PLAIN
 .nr pca-so:sec-count \\$1
 .shift
-\\*[url #TAG__sec_\\n[pca-so:sec-count] "\\$*"]
+\\*[url #TAG:__sec_\\n[pca-so:sec-count] "\\$*"]
 .br
 ..
 .\}
diff --git a/pca-tag.tmac b/pca-tag.tmac
@@ -1,4 +1,4 @@
-.\" last change 2016-02-14
+.\" last change 2016-02-16
 .\" Dorai Sitaram
 .
 .\" Generalization of .TAG in groff's www.tmac, in order
@@ -35,8 +35,8 @@
 . \" if 2nd arg present, use that value instead of current pageno
 . ie '\\$2'' .ds pca-tag:value \\n[PN]
 . el .ds pca-tag:value \\$2
-. ds TAG_\\$1 \\*[pca-tag:value]
+. ds TAG:\\$1 \\*[pca-tag:value]
 . \" continue only in unsafe mode
 . if !\\n[.U] .return
-. write pca-tag:stream .ds TAG_\\$1 \\*[pca-tag:value]
+. write pca-tag:stream .ds TAG:\\$1 \\*[pca-tag:value]
 ..
diff --git a/pca-toc.tmac b/pca-toc.tmac
@@ -70,7 +70,7 @@
 .close pca-toc:snippet-stream
 .ie \\n[pca:inside-NH-p] .pca-toc:orig-@NH \\n[pca-toc:header-level]
 .el .pca-toc:orig-@SH \\n[pca-toc:header-level]
-.if d TAG .TAG _sec_\\n[pca-toc:count]
+.if d TAG .TAG __sec_\\n[pca-toc:count]
 .so \\*[AUXF]-snippet-\\n[pca-toc:count].tmp
 .pca-toc:write-toc-line
 .nr pca:next-graf-without-indent 0