branch: externals/org
commit 49364f904b793513112fb8f71dd6b7f6274171cf
Author: Kyle Meyer <k...@kyleam.com>
Commit: Kyle Meyer <k...@kyleam.com>
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 1f2b980..78e73ea 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 76077b7..d30fc6f 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)
