* scm/define-markup-commands.scm (normal-text): Added 2 new

	markup commands, \normal-text and \medium (the latter thanks to
	Bruce Fairchild).

diff --git a/ChangeLog b/ChangeLog
index 1d674279cb758e7983364a8603669b146cc0a58f..6b011a61f2c0d67ea25e124ac9c6d60571a9a1aa 100644 (file)
--- 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  Mats Bengtsson  <mabe@drongo.s3.kth.se>
 
        * Documentation/user/programming-interface.itely (Markup

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 4c62c026150aa47f122e0bc32189c3bf5d211aa5..1bbe8d14ccba32269f38554b27d96faafeedcb2f 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -421,6 +421,17 @@ recommend font for this is bold and italic"
   (interpret-markup
    layout (prepend-alist-chain 'font-shape 'upright 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.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 (def-markup-command (doublesharp layout props) ()
   "Draw a double sharp symbol."