1 |
;;; gs.el --- interface to Ghostscript |
;;; gs.el --- interface to Ghostscript |
2 |
|
|
3 |
;; Copyright (C) 1998, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1998, 2001, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Maintainer: FSF |
;; Maintainer: FSF |
6 |
;; Keywords: internal |
;; Keywords: internal |
197 |
(setenv "GHOSTVIEW" window-and-pixmap-id) |
(setenv "GHOSTVIEW" window-and-pixmap-id) |
198 |
(setq gs (apply 'start-process "gs" "*GS*" gs-program |
(setq gs (apply 'start-process "gs" "*GS*" gs-program |
199 |
(gs-options gs-device file))) |
(gs-options gs-device file))) |
200 |
(process-kill-without-query gs) |
(set-process-query-on-exit-flag gs nil) |
201 |
gs) |
gs) |
202 |
nil)) |
nil)) |
203 |
|
|