From ce7039c59cf940d54c702a9e722559fabad1e54a Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Tue, 22 Jan 2019 16:50:49 +0100 Subject: [PATCH] Update ob-async. Signed-off-by: Andreas Gerler --- elpa/ob-async-20190115.137/ob-async-pkg.el | 2 -- .../ob-async-autoloads.el | 0 elpa/ob-async-20190122.31/ob-async-pkg.el | 2 ++ .../ob-async.el | 14 +++++--------- 4 files changed, 7 insertions(+), 11 deletions(-) delete mode 100644 elpa/ob-async-20190115.137/ob-async-pkg.el rename elpa/{ob-async-20190115.137 => ob-async-20190122.31}/ob-async-autoloads.el (100%) create mode 100644 elpa/ob-async-20190122.31/ob-async-pkg.el rename elpa/{ob-async-20190115.137 => ob-async-20190122.31}/ob-async.el (94%) diff --git a/elpa/ob-async-20190115.137/ob-async-pkg.el b/elpa/ob-async-20190115.137/ob-async-pkg.el deleted file mode 100644 index bc142370..00000000 --- a/elpa/ob-async-20190115.137/ob-async-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "ob-async" "20190115.137" "Asynchronous org-babel src block execution" '((async "1.9") (org "9.0.1") (emacs "24.4") (dash "2.14.1")) :commit "3116f4c15f599c6979339afac384326689372bab" :keywords '("tools") :authors '(("Andrew Stahlman" . "andrewstahlman@gmail.com")) :maintainer '("Andrew Stahlman" . "andrewstahlman@gmail.com") :url "https://github.com/astahlman/ob-async") diff --git a/elpa/ob-async-20190115.137/ob-async-autoloads.el b/elpa/ob-async-20190122.31/ob-async-autoloads.el similarity index 100% rename from elpa/ob-async-20190115.137/ob-async-autoloads.el rename to elpa/ob-async-20190122.31/ob-async-autoloads.el diff --git a/elpa/ob-async-20190122.31/ob-async-pkg.el b/elpa/ob-async-20190122.31/ob-async-pkg.el new file mode 100644 index 00000000..2979a721 --- /dev/null +++ b/elpa/ob-async-20190122.31/ob-async-pkg.el @@ -0,0 +1,2 @@ +;;; -*- no-byte-compile: t -*- +(define-package "ob-async" "20190122.31" "Asynchronous org-babel src block execution" '((async "1.9") (org "9.0.1") (emacs "24.4") (dash "2.14.1")) :commit "f52447d91dcfe08e870e2a9d1e03e0c45a7237a3" :keywords '("tools") :authors '(("Andrew Stahlman" . "andrewstahlman@gmail.com")) :maintainer '("Andrew Stahlman" . "andrewstahlman@gmail.com") :url "https://github.com/astahlman/ob-async") diff --git a/elpa/ob-async-20190115.137/ob-async.el b/elpa/ob-async-20190122.31/ob-async.el similarity index 94% rename from elpa/ob-async-20190115.137/ob-async.el rename to elpa/ob-async-20190122.31/ob-async.el index b78463b3..8a6f9d48 100644 --- a/elpa/ob-async-20190115.137/ob-async.el +++ b/elpa/ob-async-20190122.31/ob-async.el @@ -5,7 +5,7 @@ ;; Author: Andrew Stahlman ;; Created: 10 Feb 2017 ;; Version: 0.1 -;; Package-Version: 20190115.137 +;; Package-Version: 20190122.31 ;; Keywords: tools ;; Homepage: https://github.com/astahlman/ob-async @@ -94,6 +94,9 @@ block." (or org-babel-current-src-block-location (nth 5 info) (org-babel-where-is-src-block-head))) + (src-block-marker (save-excursion + (goto-char org-babel-current-src-block-location) + (point-marker))) (info (if info (copy-tree info) (org-babel-get-src-block-info)))) ;; Merge PARAMS with INFO before considering source block ;; evaluation since both could disagree. @@ -163,14 +166,7 @@ block." (with-current-buffer ,(current-buffer) (let ((default-directory ,default-directory)) (save-excursion - (goto-char (point-min)) - (re-search-forward ,placeholder) - (org-backward-element) - (let ((result-block (split-string (thing-at-point 'line t)))) - ;; If block has name, search by name - (-if-let (block-name (nth 1 result-block)) - (org-babel-goto-named-src-block block-name) - (org-backward-element))) + (goto-char ,src-block-marker) (let ((file (cdr (assq :file ',params)))) ;; If non-empty result and :file then write to :file. (when file -- 2.47.3