diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2020-12-23 00:01:56 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2020-12-23 00:01:56 -0500 |
| commit | 86184e2cb6f05e65f05bc61bb87969c8f4d56b47 (patch) | |
| tree | 18d0d23bc09deea6c1d5dcfe43d66f05004a9642 | |
| parent | d84136f8dba2044a998b90abd2679fd5a8a7c20d (diff) | |
| download | org-mode-86184e2cb6f05e65f05bc61bb87969c8f4d56b47.tar.gz | |
org-plot: Adjust pcase patterns for Emacs 24 compatibility
* lisp/org-plot.el (org-plot/gnuplot): Make recently introduced pcase
call compatible with Emacs 24.
| -rw-r--r-- | lisp/org-plot.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-plot.el b/lisp/org-plot.el index 4aa8276..1d94e2d 100644 --- a/lisp/org-plot.el +++ b/lisp/org-plot.el @@ -634,9 +634,9 @@ line directly before or after the table." (let* ((data-file (make-temp-file "org-plot")) (table (let ((tbl (org-table-to-lisp))) (when (pcase (plist-get params :transpose) - ('y t) - ('yes t) - ('t t)) + (`y t) + (`yes t) + (`t t)) (if (not (memq 'hline tbl)) (setq tbl (apply #'cl-mapcar #'list tbl)) ;; When present, remove hlines as they can't (currentily) be easily transposed. |