diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-10-01 10:35:14 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-10-01 10:35:14 +0200 |
commit | 29830f7214ad8afb7fdcb85332c2c3d839625087 (patch) | |
tree | e77ab23292ae2e3d83dfb961b339821e64fd3bca | |
parent | 9d7d650cd74db96cb4c230bca8fadf5afb17501d (diff) | |
download | org-mode-29830f7214ad8afb7fdcb85332c2c3d839625087.tar.gz |
ob-core: Make `org-babel-hash-show-time' a defcustom
* lisp/ob-core.el (org-babel-hash-show-time): Change into a defcustom.
-rw-r--r-- | etc/ORG-NEWS | 3 | ||||
-rw-r--r-- | lisp/ob-core.el | 11 |
2 files changed, 11 insertions, 3 deletions
diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index a18746d..4d59e22 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -526,6 +526,9 @@ indication letter was solely J. When ~org-special-ctrl-o~ is non-nil, it is impractical to create a blank line above a table at the beginning of the document. Now, as a special case, ~org-open-line~ behaves normally in this situation. +*** ~org-babel-hash-show-time~ is now customizable +The experimental variable used to be more less confidential, as +a ~defvar~. * Version 8.3 ** Incompatible changes diff --git a/lisp/ob-core.el b/lisp/ob-core.el index cbbc6d6..4d87ebc 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -171,6 +171,14 @@ This string must include a \"%s\" which will be replaced by the results." (and (stringp value) (string-match-p "%s" value)))) +(defcustom org-babel-hash-show-time nil + "Non-nil means show the time the code block was evaluated in the result hash." + :group 'org-babel + :type 'boolean + :version "25.2" + :package-version '(Org . "9.0") + :safe #'booleanp) + (defun org-babel-noweb-wrap (&optional regexp) (concat org-babel-noweb-wrap-start (or regexp "\\([^ \t\n].+?[^ \t]\\|[^ \t\n]\\)") @@ -518,9 +526,6 @@ to raise errors for all languages.") (defvar org-babel-hash-show 4 "Number of initial characters to show of a hidden results hash.") -(defvar org-babel-hash-show-time nil - "Non-nil means show the time the code block was evaluated in the result hash.") - (defvar org-babel-after-execute-hook nil "Hook for functions to be called after `org-babel-execute-src-block'") |