forked from mirrors/org-mode
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:
parent
5b0eb9aada
commit
49364f904b
|
@ -172,7 +172,7 @@ replaced in this string.")
|
||||||
(or (cdr (assq :java params))
|
(or (cdr (assq :java params))
|
||||||
org-babel-java-command))
|
org-babel-java-command))
|
||||||
;; if true, run from babel temp directory
|
;; 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
|
;; class and package
|
||||||
(fullclassname (or (cdr (assq :classname params))
|
(fullclassname (or (cdr (assq :classname params))
|
||||||
(org-babel-java-find-classname body)))
|
(org-babel-java-find-classname body)))
|
||||||
|
|
|
@ -706,7 +706,7 @@ or filename if no title."
|
||||||
(cond ((org-before-first-heading-p)
|
(cond ((org-before-first-heading-p)
|
||||||
(let ((keywords (org-collect-keywords '("TITLE"))))
|
(let ((keywords (org-collect-keywords '("TITLE"))))
|
||||||
(if keywords
|
(if keywords
|
||||||
(car (alist-get "TITLE" keywords nil nil 'equal))
|
(cadr (assoc "TITLE" keywords))
|
||||||
(file-name-nondirectory
|
(file-name-nondirectory
|
||||||
(buffer-file-name (buffer-base-buffer))))))
|
(buffer-file-name (buffer-base-buffer))))))
|
||||||
((looking-at org-complex-heading-regexp)
|
((looking-at org-complex-heading-regexp)
|
||||||
|
|
Loading…
Reference in New Issue