diff options
| author | John Paul Wallington | 2004-05-25 20:12:00 +0000 |
|---|---|---|
| committer | John Paul Wallington | 2004-05-25 20:12:00 +0000 |
| commit | 1a597f4fffe691a158dabeefa98b5c314f633f94 (patch) | |
| tree | 6495637022b786e8bc57eb901fa054458be379e1 | |
| parent | 62c2539ec89b70801ec6af823d1e555b2e1fc788 (diff) | |
| download | emacs-1a597f4fffe691a158dabeefa98b5c314f633f94.tar.gz emacs-1a597f4fffe691a158dabeefa98b5c314f633f94.zip | |
(gs-load-image): Use `set-process-query-on-exit-flag' instead of
obsolete `process-kill-without-query'.
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/gs.el | 4 |
2 files changed, 10 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9cfd96f7075..b319197bac8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,11 @@ | |||
| 1 | 2004-05-25 John Paul Wallington <jpw@gnu.org> | ||
| 2 | |||
| 3 | * gs.el (gs-load-image): Use `set-process-query-on-exit-flag' | ||
| 4 | instead of obsolete `process-kill-without-query'. | ||
| 5 | |||
| 6 | * textmodes/texinfmt.el (texinfo-indexvar-alist): | ||
| 7 | Declare as variable, not constant. | ||
| 8 | |||
| 1 | 2004-05-25 Luc Teirlinck <teirllm@auburn.edu> | 9 | 2004-05-25 Luc Teirlinck <teirllm@auburn.edu> |
| 2 | 10 | ||
| 3 | * files.el (find-file-noselect-1): Fix bug introduced by | 11 | * files.el (find-file-noselect-1): Fix bug introduced by |
diff --git a/lisp/gs.el b/lisp/gs.el index 284b18251ec..2c38a55f6df 100644 --- a/lisp/gs.el +++ b/lisp/gs.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gs.el --- interface to Ghostscript | 1 | ;;; gs.el --- interface to Ghostscript |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1998, 2001, 2004 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Maintainer: FSF | 5 | ;; Maintainer: FSF |
| 6 | ;; Keywords: internal | 6 | ;; Keywords: internal |
| @@ -197,7 +197,7 @@ the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if successful." | |||
| 197 | (setenv "GHOSTVIEW" window-and-pixmap-id) | 197 | (setenv "GHOSTVIEW" window-and-pixmap-id) |
| 198 | (setq gs (apply 'start-process "gs" "*GS*" gs-program | 198 | (setq gs (apply 'start-process "gs" "*GS*" gs-program |
| 199 | (gs-options gs-device file))) | 199 | (gs-options gs-device file))) |
| 200 | (process-kill-without-query gs) | 200 | (set-process-query-on-exit-flag gs nil) |
| 201 | gs) | 201 | gs) |
| 202 | nil)) | 202 | nil)) |
| 203 | 203 | ||