From ac3148ef8df10e73b42659ea20b5359370802763 Mon Sep 17 00:00:00 2001 From: TEC Date: Mon, 26 Apr 2021 23:41:40 +0800 Subject: [PATCH] org-plot: Don't move point when plotting * lisp/org-plot.el (org-plot/gnuplot): Expanding the `save-excursion' block to include `org-plot/goto-nearest-table` prevents the current point from being moved, and doesn't affect the rest of the function. --- lisp/org-plot.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/lisp/org-plot.el b/lisp/org-plot.el index a0687ab6c..2a5af6769 100644 --- a/lisp/org-plot.el +++ b/lisp/org-plot.el @@ -637,15 +637,16 @@ line directly before or after the table." (when (get-buffer "*gnuplot*") ; reset *gnuplot* if it already running (with-current-buffer "*gnuplot*" (goto-char (point-max)))) - (org-plot/goto-nearest-table) - ;; Set default options. - (dolist (pair org-plot/gnuplot-default-options) - (unless (plist-member params (car pair)) - (setf params (plist-put params (car pair) (cdr pair))))) - ;; Collect options. - (save-excursion (while (and (equal 0 (forward-line -1)) - (looking-at "[[:space:]]*#\\+")) - (setf params (org-plot/collect-options params)))) + (save-excursion + (org-plot/goto-nearest-table) + ;; Set default options. + (dolist (pair org-plot/gnuplot-default-options) + (unless (plist-member params (car pair)) + (setf params (plist-put params (car pair) (cdr pair))))) + ;; Collect options. + (while (and (equal 0 (forward-line -1)) + (looking-at "[[:space:]]*#\\+")) + (setf params (org-plot/collect-options params)))) ;; collect table and table information (let* ((data-file (make-temp-file "org-plot")) (table (let ((tbl (org-table-to-lisp)))