From 49364f904b793513112fb8f71dd6b7f6274171cf Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 7 Feb 2021 20:05:51 -0500 Subject: [PATCH] Avoid alist-get for compatibility with Emacs 24 * lisp/ob-java.el (org-babel-execute:java): * lisp/org-id.el (org-id-store-link): Don't use alist-get, which isn't available until Emacs 25. --- lisp/ob-java.el | 2 +- lisp/org-id.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/ob-java.el b/lisp/ob-java.el index 1f2b980f6..78e73ea2a 100644 --- a/lisp/ob-java.el +++ b/lisp/ob-java.el @@ -172,7 +172,7 @@ replaced in this string.") (or (cdr (assq :java params)) org-babel-java-command)) ;; if true, run from babel temp directory - (run-from-temp (not (alist-get :dir params))) + (run-from-temp (not (assq :dir params))) ;; class and package (fullclassname (or (cdr (assq :classname params)) (org-babel-java-find-classname body))) diff --git a/lisp/org-id.el b/lisp/org-id.el index 76077b7b2..d30fc6f41 100644 --- a/lisp/org-id.el +++ b/lisp/org-id.el @@ -706,7 +706,7 @@ or filename if no title." (cond ((org-before-first-heading-p) (let ((keywords (org-collect-keywords '("TITLE")))) (if keywords - (car (alist-get "TITLE" keywords nil nil 'equal)) + (cadr (assoc "TITLE" keywords)) (file-name-nondirectory (buffer-file-name (buffer-base-buffer)))))) ((looking-at org-complex-heading-regexp)