branch: externals/auctex
commit 0294affb12fe054cae7b903e667b56514bf47abb
Author: Ikumi Keita <ik...@ikumi.que.jp>
Commit: Ikumi Keita <ik...@ikumi.que.jp>
Fixup dropping old implementations for viewers
* tex-buf.el (TeX-output-style-check): Remove function only useful for
old view implementations.
---
tex-buf.el | 23 -----------------------
1 file changed, 23 deletions(-)
diff --git a/tex-buf.el b/tex-buf.el
index 155ac87..c7b7c8a 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -952,29 +952,6 @@ depending on the last command issued."
(TeX-command "View" 'TeX-active-master 0)
(message "Output file %S does not exist." output-file))))
-(defun TeX-output-style-check (styles)
- "Check STYLES compared to the current view output file extension and
-the current style options."
- (let ((ext (TeX-output-extension))
- (files (TeX-style-list)))
- (while (and
- styles
- (or
- (not (string-match (car (car styles)) ext))
- (let ((style (nth 1 (car styles))))
- (cond
- ((listp style)
- (while
- (and style
- (TeX-member (car style) files 'string-match))
- (setq style (cdr style)))
- style)
- ((not (TeX-member style files 'string-match)))))))
- (setq styles (cdr styles)))
- (if styles
- (nth 2 (car styles))
- "%v")))
-
;;; Command Hooks
(defvar TeX-after-compilation-finished-functions nil
