1 ;;; epsf.el - Support for the epsf style option.
3 ;; Contributed by Marc Gemis <makke@wins.uia.ac.be>
11 '("epsfsize" TeX-arg-epsfsize)
12 '("epsffile" TeX-arg-file)
13 '("epsfbox" TeX-arg-file)
14 "epsflly" "epsfury" "testit" "epsfgetlitbb"
15 "epsfnormal" "epsfgetbb" "other" "epsfsetgraph"
16 "PsFragSpecialArgs" "epsfaux" "testit" "epsfgrab"
17 "epsfllx" "epsflly" "epsfury" "epsfverbosetrue")))
19 (defun TeX-arg-epsfsize (optional &optional prompt definition)
20 "Create a line that print epsf figures at a certain percentage"
22 (let ((scale (read-string "Scale in percent (default 75): ")))
23 (setq scale (if (zerop (length scale)) "75" scale))
26 (insert "#1#2" TeX-grop "0." scale "#1" TeX-grcl)
27 ; insert \def before \epsfsize
30 (insert TeX-esc "def")
32 (insert "% From now on print figures at " scale "% of original size"))