3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: David Gillespie <daveg@synaptics.com> |
;; Author: David Gillespie <daveg@synaptics.com> |
6 |
;; Maintainer: Colin Walters <walters@debian.org> |
;; Maintainers: D. Goel <deego@gnufans.org> |
7 |
|
;; Colin Walters <walters@debian.org> |
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
10 |
|
|
391 |
(delete-region (match-beginning 0) (match-end 0)) |
(delete-region (match-beginning 0) (match-end 0)) |
392 |
(if (looking-at ",") |
(if (looking-at ",") |
393 |
(delete-char 1) |
(delete-char 1) |
394 |
(while (memq (preceding-char) '(?\ ?\t)) |
(while (memq (preceding-char) '(?\s ?\t)) |
395 |
(forward-char -1)) |
(forward-char -1)) |
396 |
(if (eq (preceding-char) ?\,) |
(if (eq (preceding-char) ?\,) |
397 |
(delete-backward-char 1)))) |
(delete-backward-char 1)))) |
1399 |
(and calc-gnuplot-geometry |
(and calc-gnuplot-geometry |
1400 |
(list "-geometry" |
(list "-geometry" |
1401 |
calc-gnuplot-geometry))))) |
calc-gnuplot-geometry))))) |
1402 |
(setq calc-gnuplot-process |
(setq calc-gnuplot-process |
1403 |
(apply 'start-process |
(apply 'start-process |
1404 |
"gnuplot" |
"gnuplot" |
1405 |
calc-gnuplot-buffer |
calc-gnuplot-buffer |