[Emacs-diffs] emacs/lisp ChangeLog gs.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/10/17 03:15:16

Modified files:
        lisp           : ChangeLog gs.el 

Log message:
        (gs-load-image): Replace obsolete forms of sit-for, sleep-for.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16443&r2=1.16444
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gs.el?cvsroot=emacs&r1=1.25&r2=1.26

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16443
retrieving revision 1.16444
diff -u -b -r1.16443 -r1.16444
--- ChangeLog   17 Oct 2009 03:13:51 -0000      1.16443
+++ ChangeLog   17 Oct 2009 03:15:13 -0000      1.16444
@@ -1,5 +1,7 @@
 2009-10-17  Glenn Morris  <address@hidden>
 
+       * gs.el (gs-load-image): Replace obsolete forms of sit-for, sleep-for.
+
        * dired.el (dired-ls-F-marks-symlinks, dired-keep-marker-rename)
        (dired-keep-marker-copy, dired-keep-marker-hardlink)
        (dired-keep-marker-symlink, dired-dwim-target)

Index: gs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gs.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- gs.el       10 Jan 2009 13:16:08 -0000      1.25
+++ gs.el       17 Oct 2009 03:15:15 -0000      1.26
@@ -1,7 +1,7 @@
 ;;; gs.el --- interface to Ghostscript
 
-;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
-;;   2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
+;;   2009  Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: internal
@@ -180,8 +180,8 @@
                ;; out even more sluggish.
                ;; (get-buffer-process "*GS*")
                (not (zerop timeout)))
-         (unless (sit-for 0 100 t)
-           (sleep-for 0 50))
+         (unless (sit-for 0.1 t)
+           (sleep-for 0.05))
          (setq timeout (1- timeout)))
 
        ;; No use waiting longer.  We might want to try killing off