summaryrefslogtreecommitdiff
path: root/elpa/pdf-tools-20200512.1524/pdf-loader.el
diff options
context:
space:
mode:
Diffstat (limited to 'elpa/pdf-tools-20200512.1524/pdf-loader.el')
-rw-r--r--elpa/pdf-tools-20200512.1524/pdf-loader.el80
1 files changed, 0 insertions, 80 deletions
diff --git a/elpa/pdf-tools-20200512.1524/pdf-loader.el b/elpa/pdf-tools-20200512.1524/pdf-loader.el
deleted file mode 100644
index b1eab34..0000000
--- a/elpa/pdf-tools-20200512.1524/pdf-loader.el
+++ /dev/null
@@ -1,80 +0,0 @@
-;;; pdf-loader.el --- Minimal PDF Tools loader -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2017 Andreas Politz
-
-;; Author: Andreas Politz <politza@hochschule-trier.de>
-;; Keywords:
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;;
-
-;;; Code:
-
-(defconst pdf-loader--auto-mode-alist-item
- (copy-sequence "\\.[pP][dD][fF]\\'")
- "The item used in `auto-mode-alist'.")
-
-(defconst pdf-loader--magic-mode-alist-item
- (copy-sequence "%PDF")
- "The item used in`magic-mode-alist'.")
-
-
-(declare-function pdf-tools-install "pdf-tools.el")
-
-;;;###autoload
-(defun pdf-loader-install (&optional no-query-p skip-dependencies-p
- no-error-p force-dependencies-p)
- "Prepare Emacs for using PDF Tools.
-
-This function acts as a replacement for `pdf-tools-install' and
-makes Emacs load and use PDF Tools as soon as a PDF file is
-opened, but not sooner.
-
-The arguments are passed verbatim to `pdf-tools-install', which
-see."
- (let ((args (list no-query-p skip-dependencies-p
- no-error-p force-dependencies-p)))
- (if (featurep 'pdf-tools)
- (apply #'pdf-tools-install args)
- (pdf-loader--install
- (lambda ()
- (apply #'pdf-loader--load args))))))
-
-(defun pdf-loader--load (&rest args)
- (pdf-loader--uninstall)
- (save-selected-window
- (pdf-tools-install args)))
-
-(defun pdf-loader--install (loader)
- (pdf-loader--uninstall)
- (push (cons pdf-loader--auto-mode-alist-item loader)
- auto-mode-alist)
- (push (cons pdf-loader--magic-mode-alist-item loader)
- magic-mode-alist))
-
-(defun pdf-loader--uninstall ()
- (let ((elt (assoc pdf-loader--auto-mode-alist-item
- auto-mode-alist)))
- (when elt
- (setq auto-mode-alist (remove elt auto-mode-alist))))
- (let ((elt (assoc pdf-loader--magic-mode-alist-item
- magic-mode-alist)))
- (when elt
- (setq magic-mode-alist (remove elt magic-mode-alist)))))
-
-(provide 'pdf-loader)
-;;; pdf-loader.el ends here
Copyright 2019--2024 Marius PETER