From 1941c7bd9079737d75a2e10ef607abe3599c22f0 Mon Sep 17 00:00:00 2001
From: matsb <matsb>
Date: Wed, 10 Aug 2005 08:15:40 +0000
Subject: [PATCH] 	* scm/define-markup-commands.scm (normal-text): Added
 2 new 	markup commands, \normal-text and \medium (the latter thanks to 
 Bruce Fairchild).

---
 ChangeLog                      |  6 ++++++
 scm/define-markup-commands.scm | 11 +++++++++++
 2 files changed, 17 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 0a805ea649..9532c6feff 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2005-08-10  Mats Bengtsson  <mabe@drongo.s3.kth.se>
+
+	* scm/define-markup-commands.scm (normal-text): Added 2 new
+	markup commands, \normal-text and \medium (the latter thanks to
+	Bruce Fairchild). 
+
 2005-08-08  Graham Percival  <gpermus@gmail.com>
 
 	* Documentation/user/programming-interface.itely: fix @{ @}.
diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 54b1f70649..5b8fb0b348 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -762,6 +762,17 @@ recommend font for this is bold and italic"
   (interpret-markup
    layout (prepend-alist-chain 'font-shape 'upright props) arg))
 
+(def-markup-command (medium layout props arg) (markup?)
+  "Switch to medium font-series (in contrast to bold)."
+  (interpret-markup layout (prepend-alist-chain 'font-series 'medium props)
+		    arg))
+
+(def-markup-command (normal-text layout props arg) (markup?)
+  "Set all font related properties (except the size) to get the default normal text font, no matter what font was used earlier."
+  ;; ugh - latin1
+  (interpret-markup layout
+                    (cons '((font-family . roman) (font-shape . upright) (font-series . medium) (font-encoding . latin1)) props)
+                    arg)) 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; symbols.
-- 
2.39.5