[Emacs-diffs] /srv/bzr/emacs/trunk r109715: Use cal-tex-arg more

[Glenn Morris]

------------------------------------------------------------
revno: 109715
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2012-08-21 00:01:29 -0700
message:
  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.
modified:
  lisp/ChangeLog
  lisp/calendar/cal-tex.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-21 06:50:55 +0000
+++ b/lisp/ChangeLog    2012-08-21 07:01:29 +0000
@@ -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)

=== modified file 'lisp/calendar/cal-tex.el'
--- a/lisp/calendar/cal-tex.el  2012-08-21 06:50:55 +0000
+++ b/lisp/calendar/cal-tex.el  2012-08-21 07:01:29 +0000
@@ -1928,15 +1928,15 @@
 
 (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 @@
 
 (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."