[AUCTeX-diffs] Changes to auctex/style/epsf.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    08/07/28 20:40:33

Index: epsf.el
===================================================================
RCS file: /cvsroot/auctex/auctex/style/epsf.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- epsf.el     25 May 2008 06:50:32 -0000      1.3
+++ epsf.el     28 Jul 2008 20:40:33 -0000      1.4
@@ -19,12 +19,8 @@
 (defun TeX-arg-epsfsize (optional &optional prompt definition)
   "Create a line that print epsf figures at a certain percentage"
   (interactive)
-  (let ((scale (read-string "Scale (%): "))
-       )
-    (setq scalestr (if (zerop (length scale))
-                      "75"
-                    (format "%s" scale)
-                    ))
+  (let ((scale (read-string "Scale in percent (default 75): ")))
+    (setq scale (if (zerop (length scale)) "75" scale))
     (save-excursion
       ; append #1#{scale#1}
       (insert "#1#2" TeX-grop "0." scale "#1" TeX-grcl)
@@ -33,8 +29,7 @@
       (newline)
       (insert TeX-esc "def")
       (forward-line -1)
-      (insert "% From now on print figures at " scale "% of original size")
-      )
+      (insert "% From now on print figures at " scale "% of original size"))
     (end-of-line)))
 
 ;;; epsf.el ends here