Mercurial > emacs
changeset 105648:c97e346c34f6
(gs-load-image): Replace obsolete forms of sit-for, sleep-for.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 17 Oct 2009 03:15:13 +0000 |
| parents | ff697b631337 |
| children | 8606d8028876 |
| files | lisp/ChangeLog lisp/gs.el |
| diffstat | 2 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Oct 17 03:13:51 2009 +0000 +++ b/lisp/ChangeLog Sat Oct 17 03:15:13 2009 +0000 @@ -1,5 +1,7 @@ 2009-10-17 Glenn Morris <rgm@gnu.org> + * 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)
--- a/lisp/gs.el Sat Oct 17 03:13:51 2009 +0000 +++ b/lisp/gs.el Sat Oct 17 03:15:13 2009 +0000 @@ -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