summaryrefslogtreecommitdiffstats
path: root/release
diff options
context:
space:
mode:
authordd <dd@FreeBSD.org>2001-06-03 00:08:43 +0000
committerdd <dd@FreeBSD.org>2001-06-03 00:08:43 +0000
commit692d8f0637c2becc5462fe78ffef561d6ab26e33 (patch)
tree32a6e5cd4dbf35d504944e62ed83b0687a504148 /release
parent5f3c72f3c180254abe8a6223204b5155d221b254 (diff)
downloadFreeBSD-src-692d8f0637c2becc5462fe78ffef561d6ab26e33.zip
FreeBSD-src-692d8f0637c2becc5462fe78ffef561d6ab26e33.tar.gz
Use the new create-link procedure instead of (make element gi: "A" ...).
Diffstat (limited to 'release')
-rw-r--r--release/doc/en_US.ISO8859-1/share/sgml/release.dsl23
-rw-r--r--release/doc/en_US.ISO_8859-1/share/sgml/release.dsl23
2 files changed, 20 insertions, 26 deletions
diff --git a/release/doc/en_US.ISO8859-1/share/sgml/release.dsl b/release/doc/en_US.ISO8859-1/share/sgml/release.dsl
index c7f524e..2838743 100644
--- a/release/doc/en_US.ISO8859-1/share/sgml/release.dsl
+++ b/release/doc/en_US.ISO8859-1/share/sgml/release.dsl
@@ -17,21 +17,20 @@
attributes: (list (list "align" "center"))
(make element gi: "small"
(literal "This file, and other release-related documents, can be downloaded from ")
- (make element gi: "a"
- attributes: (list (list "href" (entity-text "release.url")))
+ (create-link (list (list "HREF" (entity-text "release.url")))
(literal (entity-text "release.url")))
(literal ".")))
(make element gi: "p"
attributes: (list (list "align" "center"))
(make element gi: "small"
(literal "For questions about FreeBSD, read the ")
- (make element gi: "a"
- attributes: (list (list "href" "http://www.freebsd.org/docs.html"))
+ (create-link
+ (list (list "HREF" "http://www.FreeBSD.org/docs.html"))
(literal "documentation"))
(literal " before contacting <")
- (make element gi: "a"
- attributes: (list (list "href" "mailto:freebsd-questions@FreeBSD.org"))
- (literal "freebsd-questions@FreeBSD.org"))
+ (create-link
+ (list (list "HREF" "mailto:questions@FreeBSD.org"))
+ (literal "questions@FreeBSD.org"))
(literal ">.")
(make element gi: "p"
attributes: (list (list "align" "center"))
@@ -40,17 +39,15 @@
(literal (entity-text "release.branch"))
(literal " should subscribe to the ")
(literal "<")
- (make element gi: "a"
- attributes: (list (list "href" "mailto:freebsd-current@FreeBSD.org"))
- (literal "freebsd-current@FreeBSD.org"))
+ (create-link (list (list "HREF" "mailto:current@FreeBSD.org"))
+ (literal "current@FreeBSD.org"))
(literal "> mailing list.")))
(make element gi: "p"
attributes: (list (list "align" "center"))
(literal "For questions about this documentation, e-mail <")
- (make element gi: "a"
- attributes: (list (list "href" "mailto:freebsd-doc@FreeBSD.org"))
- (literal "freebsd-doc@FreeBSD.org"))
+ (create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
+ (literal "doc@FreeBSD.org"))
(literal ">."))))))
<!-- Convert " ... " to `` ... '' in the HTML output. -->
diff --git a/release/doc/en_US.ISO_8859-1/share/sgml/release.dsl b/release/doc/en_US.ISO_8859-1/share/sgml/release.dsl
index c7f524e..2838743 100644
--- a/release/doc/en_US.ISO_8859-1/share/sgml/release.dsl
+++ b/release/doc/en_US.ISO_8859-1/share/sgml/release.dsl
@@ -17,21 +17,20 @@
attributes: (list (list "align" "center"))
(make element gi: "small"
(literal "This file, and other release-related documents, can be downloaded from ")
- (make element gi: "a"
- attributes: (list (list "href" (entity-text "release.url")))
+ (create-link (list (list "HREF" (entity-text "release.url")))
(literal (entity-text "release.url")))
(literal ".")))
(make element gi: "p"
attributes: (list (list "align" "center"))
(make element gi: "small"
(literal "For questions about FreeBSD, read the ")
- (make element gi: "a"
- attributes: (list (list "href" "http://www.freebsd.org/docs.html"))
+ (create-link
+ (list (list "HREF" "http://www.FreeBSD.org/docs.html"))
(literal "documentation"))
(literal " before contacting <")
- (make element gi: "a"
- attributes: (list (list "href" "mailto:freebsd-questions@FreeBSD.org"))
- (literal "freebsd-questions@FreeBSD.org"))
+ (create-link
+ (list (list "HREF" "mailto:questions@FreeBSD.org"))
+ (literal "questions@FreeBSD.org"))
(literal ">.")
(make element gi: "p"
attributes: (list (list "align" "center"))
@@ -40,17 +39,15 @@
(literal (entity-text "release.branch"))
(literal " should subscribe to the ")
(literal "<")
- (make element gi: "a"
- attributes: (list (list "href" "mailto:freebsd-current@FreeBSD.org"))
- (literal "freebsd-current@FreeBSD.org"))
+ (create-link (list (list "HREF" "mailto:current@FreeBSD.org"))
+ (literal "current@FreeBSD.org"))
(literal "> mailing list.")))
(make element gi: "p"
attributes: (list (list "align" "center"))
(literal "For questions about this documentation, e-mail <")
- (make element gi: "a"
- attributes: (list (list "href" "mailto:freebsd-doc@FreeBSD.org"))
- (literal "freebsd-doc@FreeBSD.org"))
+ (create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
+ (literal "doc@FreeBSD.org"))
(literal ">."))))))
<!-- Convert " ... " to `` ... '' in the HTML output. -->
OpenPOWER on IntegriCloud