tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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.
This commit is contained in:
Kyle Meyer 2021-02-07 20:05:51 -05:00
parent 5b0eb9aada
commit 49364f904b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ob-java.el
View File

@ -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)))

2
lisp/org-id.el
View File

@ -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)