aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/org/org-plot.el
diff options
context:
space:
mode:
authorKyle Meyer2022-07-24 16:24:24 -0400
committerKyle Meyer2022-07-24 16:24:24 -0400
commitba70d0f77c52d471bceb2ad2cc7bc172db348abb (patch)
treea2a638dfaaf4cc61b590f1da7b5490dccbcbe03c /lisp/org/org-plot.el
parentf7fd7bf477acfc65701065ec70c32dacb17e275a (diff)
downloademacs-ba70d0f77c52d471bceb2ad2cc7bc172db348abb.tar.gz
emacs-ba70d0f77c52d471bceb2ad2cc7bc172db348abb.zip
Update to Org 9.5.4-17-g6e991f
Diffstat (limited to 'lisp/org/org-plot.el')
-rw-r--r--lisp/org/org-plot.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/org/org-plot.el b/lisp/org/org-plot.el
index bf84c99e042..7958ffd58da 100644
--- a/lisp/org/org-plot.el
+++ b/lisp/org/org-plot.el
@@ -280,7 +280,7 @@ When NORMALISE is non-nil, the count is divided by the number of values."
280 collect (cons n (/ (length m) normaliser))))) 280 collect (cons n (/ (length m) normaliser)))))
281 281
282(defun org--plot/prime-factors (value) 282(defun org--plot/prime-factors (value)
283 "Return the prime decomposition of VALUE, e.g. for 12, '(3 2 2)." 283 "Return the prime decomposition of VALUE, e.g. for 12, \\='(3 2 2)."
284 (let ((factors '(1)) (i 1)) 284 (let ((factors '(1)) (i 1))
285 (while (/= 1 value) 285 (while (/= 1 value)
286 (setq i (1+ i)) 286 (setq i (1+ i))
@@ -682,9 +682,10 @@ line directly before or after the table."
682 (looking-at "[[:space:]]*#\\+")) 682 (looking-at "[[:space:]]*#\\+"))
683 (setf params (org-plot/collect-options params)))) 683 (setf params (org-plot/collect-options params))))
684 ;; Dump table to datafile 684 ;; Dump table to datafile
685 (if-let ((dump-func (plist-get type :data-dump))) 685 (let ((dump-func (plist-get type :data-dump)))
686 (funcall dump-func table data-file num-cols params) 686 (if dump-func
687 (org-plot/gnuplot-to-data table data-file params)) 687 (funcall dump-func table data-file num-cols params)
688 (org-plot/gnuplot-to-data table data-file params)))
688 ;; Check type of ind column (timestamp? text?) 689 ;; Check type of ind column (timestamp? text?)
689 (when (plist-get params :check-ind-type) 690 (when (plist-get params :check-ind-type)
690 (let* ((ind (1- (plist-get params :ind))) 691 (let* ((ind (1- (plist-get params :ind)))