1 files changed, 40 insertions, 0 deletions
diff --git a/elpa/auctex-13.1.3/style/epsf.el b/elpa/auctex-13.1.3/style/epsf.el
new file mode 100644
index 0000000..bfe6279
--- /dev/null
+++ b/elpa/auctex-13.1.3/style/epsf.el
@@ -0,0 +1,40 @@
+;;; epsf.el - Support for the epsf style option.  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2013-2014, 2020 Free Software Foundation, Inc.
+
+;; Contributed by Marc Gemis <makke@wins.uia.ac.be>
+
+;;; Code:
+
+(require 'tex)
+
+(TeX-add-style-hook
+ "epsf"
+ (lambda ()
+   (TeX-add-symbols
+    '("epsfsize" TeX-arg-epsfsize)
+    '("epsffile" TeX-arg-file)
+    '("epsfbox" TeX-arg-file)
+    "epsflly" "epsfury" "testit" "epsfgetlitbb"
+    "epsfnormal" "epsfgetbb" "other" "epsfsetgraph"
+    "PsFragSpecialArgs" "epsfaux" "testit" "epsfgrab"
+    "epsfllx" "epsflly" "epsfury" "epsfverbosetrue"))
+ TeX-dialect)
+
+(defun TeX-arg-epsfsize (_optional &optional _prompt _definition)
+  "Create a line that print epsf figures at a certain percentage"
+  (interactive)
+  (let ((scale (TeX-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)
+      ; insert \def before \epsfsize
+      (beginning-of-line 1)
+      (newline)
+      (insert TeX-esc "def")
+      (forward-line -1)
+      (insert "% From now on print figures at " scale "% of original size"))
+    (end-of-line)))
+
+;;; epsf.el ends here