/[emacs]/emacs/lisp/gs.el
ViewVC logotype

Diff of /emacs/lisp/gs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9.8.1 by miles, Tue Oct 14 23:51:05 2003 UTC revision 1.9.8.2 by miles, Tue Jul 6 09:23:42 2004 UTC
# Line 39  Line 39 
39  (defvar gs-options  (defvar gs-options
40    '("-q"    '("-q"
41      ;"-dNOPAUSE"      ;"-dNOPAUSE"
42        "-dSAFER"
43      "-dBATCH"      "-dBATCH"
44      "-sDEVICE=<device>"      "-sDEVICE=<device>"
45      "<file>")      "<file>")
46    "List of command line arguments to pass to Ghostscript.    "List of command line arguments to pass to Ghostscript.
47  Arguments may contain place-holders `<file>' for the name of the  Arguments may contain place-holders `<file>' for the name of the
48  input file, and `<device>' for the device to use.")  input file, and `<device>' for the device to use.")
49    (put 'gs-options 'risky-local-variable t)
50    
51  (defun gs-options (device file)  (defun gs-options (device file)
52    "Return a list of command line options with place-holders replaced.    "Return a list of command line options with place-holders replaced.
# Line 55  FILE is the value to substitute for the Line 57  FILE is the value to substitute for the
57                      option (replace-regexp-in-string "<file>" file option)))                      option (replace-regexp-in-string "<file>" file option)))
58            gs-options))            gs-options))
59    
   
60  ;; The GHOSTVIEW property (taken from gv 3.5.8).  ;; The GHOSTVIEW property (taken from gv 3.5.8).
61  ;;  ;;
62  ;; Type:  ;; Type:

Legend:
Removed from v.1.9.8.1  
changed lines
  Added in v.1.9.8.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26