Ver Fonte

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.
Kyle Meyer há 4 anos atrás
pai
commit
49364f904b
2 ficheiros alterados com 2 adições e 2 exclusões
  1. 1 1
      lisp/ob-java.el
  2. 1 1
      lisp/org-id.el

+ 1 - 1
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)))

+ 1 - 1
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)