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
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
