comparison lisp/org/org-plot.el @ 105865:131bccfc4f5d

* org.el (org-version, org-get-refile-targets, org-refile) (org-store-log-note, org-diary-to-ical-string) (org-speedbar-set-agenda-restriction): * org-publish.el (org-publish-find-title): * org-plot.el (org-plot/gnuplot): * org-mouse.el (org-mouse-do-remotely): * org-mobile.el (org-mobile-move-capture): * org-mac-message.el (org-mac-message-insert-flagged): * org-latex.el (org-replace-region-by-latex): * org-docbook.el (org-replace-region-by-docbook): * org-clock.el (org-clock-out, org-clock-cancel): * org-bibtex.el (org-execute-file-search-in-bibtex): Use with-current-buffer.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 05 Nov 2009 21:00:31 +0000
parents 2a8a3a69c1c7
children b7d8222914b4
comparison
equal deleted inserted replaced
105864:c6d77597d0f2 105865:131bccfc4f5d
277 (interactive) 277 (interactive)
278 (require 'gnuplot) 278 (require 'gnuplot)
279 (save-window-excursion 279 (save-window-excursion
280 (delete-other-windows) 280 (delete-other-windows)
281 (when (get-buffer "*gnuplot*") ;; reset *gnuplot* if it already running 281 (when (get-buffer "*gnuplot*") ;; reset *gnuplot* if it already running
282 (save-excursion 282 (with-current-buffer "*gnuplot*"
283 (set-buffer "*gnuplot*") (goto-char (point-max)) 283 (goto-char (point-max))
284 (gnuplot-delchar-or-maybe-eof nil))) 284 (gnuplot-delchar-or-maybe-eof nil)))
285 (org-plot/goto-nearest-table) 285 (org-plot/goto-nearest-table)
286 ;; set default options 286 ;; set default options
287 (mapc 287 (mapc
288 (lambda (pair) 288 (lambda (pair)