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))
|
||||
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)))
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue