From bfd481be42bb46ff2a496c018093404b2485c3b0 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Thu, 5 Jul 2018 13:17:02 +0200 Subject: [PATCH] ob-core: Remove `org-babel-set-current-result-hash' * lisp/ob-core.el (org-babel-set-current-result-hash): Remove function, unused through the code base. --- etc/ORG-NEWS | 5 +++++ lisp/ob-core.el | 13 ------------- 2 files changed, 5 insertions(+), 13 deletions(-) diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index fee8dafca..dbe3c134e 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -50,6 +50,11 @@ the corresponding direction by swapping with the adjacent cell. *** ~org-table-cell-down~ *** ~org-table-cell-left~ *** ~org-table-cell-right~ +** Removed functions +*** ~org-babel-set-current-result-hash~ + +It was unused throughout the code base. + * Version 9.2 ** Incompatible changes *** Removal of OrgStruct mode mode and radio lists diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 32de18e77..5a902d28d 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -1291,19 +1291,6 @@ CONTEXT specifies the context of evaluation. It can be `:eval', (looking-at org-babel-result-regexp) (match-string-no-properties 1))))) -(defun org-babel-set-current-result-hash (hash info) - "Set the current in-buffer hash to HASH." - (org-with-wide-buffer - (goto-char (org-babel-where-is-src-block-result nil info)) - (looking-at org-babel-result-regexp) - (goto-char (match-beginning 1)) - (mapc #'delete-overlay (overlays-at (point))) - (forward-char org-babel-hash-show) - (mapc #'delete-overlay (overlays-at (point))) - (replace-match hash nil nil nil 1) - (beginning-of-line) - (org-babel-hide-hash))) - (defun org-babel-hide-hash () "Hide the hash in the current results line. Only the initial `org-babel-hash-show' characters of the hash