Use cal-tex-arg more

* lisp/calendar/cal-tex.el (cal-tex-scriptsize, cal-tex-huge)
(cal-tex-Huge, cal-tex-large): Use cal-tex-arg.

2 files changed, 6 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d0595f108cf..5a843fd0f5a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,8 @@
         Use cal-tex-vspace.
         (cal-tex-vspace, cal-tex-hspace, cal-tex-em, cal-tex-bf)
         (cal-tex-Huge-bf, cal-tex-large-bf): Use cal-tex-cmd.
+        (cal-tex-scriptsize, cal-tex-huge, cal-tex-Huge, cal-tex-large):
+        Use cal-tex-arg.
 
         * calendar/cal-tex.el (cal-tex-cursor-filofax-year)
         (cal-tex-cursor-week, cal-tex-cursor-week2)
diff --git a/lisp/calendar/cal-tex.el b/lisp/calendar/cal-tex.el
index 326deef69ba..5fbb20bac3b 100644
--- a/lisp/calendar/cal-tex.el
+++ b/lisp/calendar/cal-tex.el
@@ -1928,15 +1928,15 @@ Add trailing COMMENT if present."
 
 (defun cal-tex-scriptsize (string)
   "Insert STRING in scriptsize font."
-  (insert "{\\scriptsize " string "}"))
+  (cal-tex-arg (concat "\\scriptsize " string)))
 
 (defun cal-tex-huge (string)
   "Insert STRING in huge font."
-  (insert "{\\huge " string "}"))
+  (cal-tex-arg (concat "\\huge " string)))
 
 (defun cal-tex-Huge (string)
   "Insert STRING in Huge font."
-  (insert "{\\Huge " string "}"))
+  (cal-tex-arg (concat "\\Huge " string)))
 
 (defun cal-tex-Huge-bf (string)
   "Insert STRING in Huge bf font."
@@ -1944,7 +1944,7 @@ Add trailing COMMENT if present."
 
 (defun cal-tex-large (string)
   "Insert STRING in large font."
-  (insert "{\\large " string "}"))
+  (cal-tex-arg (concat "\\large " string)))
 
 (defun cal-tex-large-bf (string)
   "Insert STRING in large bf font."