Delete AUCTeX style files with unclear copyright status.

[gnu-emacs-elpa] / packages / auctex / style / epsf.el

diff --git a/packages/auctex/style/epsf.el b/packages/auctex/style/epsf.el
deleted file mode 100644 (file)
index f8b2c9f..0000000
--- a/packages/auctex/style/epsf.el
+++ /dev/null
@@ -1,35 +0,0 @@
-;;; epsf.el - Support for the epsf style option.
-
-;; Contributed by Marc Gemis <makke@wins.uia.ac.be>
-
-;;; Code: 
-
-(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")))
-
-(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 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