diff options
| author | Kyle Meyer | 2022-07-24 16:24:24 -0400 |
|---|---|---|
| committer | Kyle Meyer | 2022-07-24 16:24:24 -0400 |
| commit | ba70d0f77c52d471bceb2ad2cc7bc172db348abb (patch) | |
| tree | a2a638dfaaf4cc61b590f1da7b5490dccbcbe03c /lisp/org/org-plot.el | |
| parent | f7fd7bf477acfc65701065ec70c32dacb17e275a (diff) | |
| download | emacs-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.el | 9 |
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))) |