From deb93df9b555b872db4595b6f47645a93eeb280f Mon Sep 17 00:00:00 2001 From: Andreas Politz Date: Sat, 20 Oct 2018 17:48:30 +0200 Subject: Remove usage of alist-get The used feature of that function is not available in all supported Emacs versions. --- lisp/pdf-loader.el | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) diff --git a/lisp/pdf-loader.el b/lisp/pdf-loader.el index 1f5a862..d484ef3 100644 --- a/lisp/pdf-loader.el +++ b/lisp/pdf-loader.el @@ -58,20 +58,21 @@ see." (pdf-tools-install args))) (defun pdf-loader--install (loader) - (setf (alist-get pdf-loader--auto-mode-alist-item - auto-mode-alist nil nil #'equal) - loader) - (setf (alist-get pdf-loader--magic-mode-alist-item - magic-mode-alist nil nil #'equal) - 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 () - (setf (alist-get pdf-loader--auto-mode-alist-item - auto-mode-alist nil :remove #'equal) - nil) - (setf (alist-get pdf-loader--magic-mode-alist-item - magic-mode-alist nil :remove #'equal) - nil)) + (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 -- cgit v1.0