From cec05144408bf0307d90263077f704cb5d832ed0 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 17 Oct 2009 03:15:13 +0000 Subject: [PATCH] (gs-load-image): Replace obsolete forms of sit-for, sleep-for. --- lisp/ChangeLog | 2 ++ lisp/gs.el | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 44c4853f061..d7000437615 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2009-10-17 Glenn Morris + * 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) diff --git a/lisp/gs.el b/lisp/gs.el index 69405d75e78..7461cd563ab 100644 --- a/lisp/gs.el +++ b/lisp/gs.el @@ -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 @@ the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if successful." ;; 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 -- 2.39.2