branch: elpa/pdf-tools
commit ce5ed3412d016641e1bfce72a1304fd2c303fc1d
Author: Vedang Manerikar <ved.maneri...@gmail.com>
Commit: Vedang Manerikar <ved.maneri...@gmail.com>
Remove macro / function re-definitions
Rely on the functions that come built into Emacs.
Relates to: #26
---
lisp/pdf-util.el | 31 -------------------------------
1 file changed, 31 deletions(-)
diff --git a/lisp/pdf-util.el b/lisp/pdf-util.el
index cfc77d3954..ebf7ccfba5 100644
--- a/lisp/pdf-util.el
+++ b/lisp/pdf-util.el
@@ -43,37 +43,6 @@
;; * Compatibility with older Emacssen (< 25.1)
;; * ================================================================== *
-;; The with-file-modes macro is only available in recent Emacs
-;; versions.
-(eval-when-compile
- (unless (fboundp 'with-file-modes)
- (defmacro with-file-modes (modes &rest body)
- "Execute BODY with default file permissions temporarily set to MODES.
-MODES is as for `set-default-file-modes'."
- (declare (indent 1) (debug t))
- (let ((umask (make-symbol "umask")))
- `(let ((,umask (default-file-modes)))
- (unwind-protect
- (progn
- (set-default-file-modes ,modes)
- ,@body)
- (set-default-file-modes ,umask)))))))
-
-(unless (fboundp 'alist-get) ;;25.1
- (defun alist-get (key alist &optional default remove)
- "Get the value associated to KEY in ALIST.
-DEFAULT is the value to return if KEY is not found in ALIST.
-REMOVE, if non-nil, means that when setting this element, we should
-remove the entry if the new value is `eql' to DEFAULT."
- (ignore remove) ;;Silence byte-compiler.
- (let ((x (assq key alist)))
- (if x (cdr x) default))))
-
-(require 'register)
-(unless (fboundp 'register-read-with-preview)
- (defalias 'register-read-with-preview #'read-char
- "Compatibility alias for pdf-tools."))
-
;; In Emacs 24.3 window-width does not have a PIXELWISE argument.
(defmacro pdf-util-window-pixel-width (&optional window)
"Return the width of WINDOW in pixel."
