From 2d225a3a99c155e47043a4fa1f3b011e0a78a4cb Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 21 Aug 2012 00:01:29 -0700 Subject: [PATCH] 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. --- lisp/ChangeLog | 2 ++ lisp/calendar/cal-tex.el | 8 ++++---- 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." -- 2.39.5