[Emacs-diffs] Changes to emacs/lisp/gs.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/gs.el
diff -c emacs/lisp/gs.el:1.9.14.1 emacs/lisp/gs.el:1.9.14.2
*** emacs/lisp/gs.el:1.9.14.1   Fri Apr 16 12:49:50 2004
--- emacs/lisp/gs.el    Mon Jun 28 07:28:40 2004
***************
*** 1,6 ****
  ;;; gs.el --- interface to Ghostscript
  
! ;; Copyright (C) 1998, 2001 Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Keywords: internal
--- 1,6 ----
  ;;; gs.el --- interface to Ghostscript
  
! ;; Copyright (C) 1998, 2001, 2004 Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Keywords: internal
***************
*** 39,50 ****
--- 39,52 ----
  (defvar gs-options
    '("-q"
      ;"-dNOPAUSE"
+     "-dSAFER"
      "-dBATCH"
      "-sDEVICE=<device>"
      "<file>")
    "List of command line arguments to pass to Ghostscript.
  Arguments may contain place-holders `<file>' for the name of the
  input file, and `<device>' for the device to use.")
+ (put 'gs-options 'risky-local-variable t)
  
  (defun gs-options (device file)
    "Return a list of command line options with place-holders replaced.
***************
*** 55,61 ****
                    option (replace-regexp-in-string "<file>" file option)))
          gs-options))
  
- 
  ;; The GHOSTVIEW property (taken from gv 3.5.8).
  ;;
  ;; Type:
--- 57,62 ----
***************
*** 196,202 ****
        (setenv "GHOSTVIEW" window-and-pixmap-id)
        (setq gs (apply 'start-process "gs" "*GS*" gs-program
                        (gs-options gs-device file)))
!       (process-kill-without-query gs)
        gs)
      nil))
  
--- 197,203 ----
        (setenv "GHOSTVIEW" window-and-pixmap-id)
        (setq gs (apply 'start-process "gs" "*GS*" gs-program
                        (gs-options gs-device file)))
!       (set-process-query-on-exit-flag gs nil)
        gs)
      nil))