summaryrefslogtreecommitdiff
path: root/elpa/auctex-13.1.3/style/epsf.el
diff options
context:
space:
mode:
Diffstat (limited to 'elpa/auctex-13.1.3/style/epsf.el')
-rw-r--r--elpa/auctex-13.1.3/style/epsf.el40
1 files changed, 0 insertions, 40 deletions
diff --git a/elpa/auctex-13.1.3/style/epsf.el b/elpa/auctex-13.1.3/style/epsf.el
deleted file mode 100644
index bfe6279..0000000
--- a/elpa/auctex-13.1.3/style/epsf.el
+++ /dev/null
@@ -1,40 +0,0 @@
-;;; 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