diff options
Diffstat (limited to 'elpa/auctex-13.1.3/style/epsf.el')
-rw-r--r-- | elpa/auctex-13.1.3/style/epsf.el | 40 |
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 |