Remove usage of alist-get

The used feature of that function is not available in all supported
Emacs versions.

1 files 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