|
@@ -2932,8 +2932,9 @@ situations in which is it not appropriate."
|
|
|
(defun org-babel--string-to-number (string)
|
|
|
"If STRING represents a number return its value.
|
|
|
Otherwise return nil."
|
|
|
- (and (string-match-p "\\`-?\\([0-9]\\|\\([1-9]\\|[0-9]*\\.\\)[0-9]*\\)\\'" string)
|
|
|
- (string-to-number string)))
|
|
|
+ (let ((interned-string (ignore-errors (read string))))
|
|
|
+ (when (numberp interned-string)
|
|
|
+ interned-string)))
|
|
|
|
|
|
(defun org-babel-import-elisp-from-file (file-name &optional separator)
|
|
|
"Read the results located at FILE-NAME into an elisp table.
|