[Emacs-diffs] Changes to emacs/lisp/subr.el,v

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      06/07/18 01:34:48

Index: subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.520
retrieving revision 1.521
diff -u -b -r1.520 -r1.521
--- subr.el     11 Jul 2006 00:17:43 -0000      1.520
+++ subr.el     18 Jul 2006 01:34:48 -0000      1.521
@@ -1721,8 +1721,9 @@
   (when (or obsolete (numberp nodisp))
     (setq seconds (+ seconds (* 1e-3 nodisp)))
     (setq nodisp obsolete))
-  (unless nodisp
-    (redisplay))
+  (if noninteractive
+      (progn (sleep-for seconds) t)
+    (unless nodisp (redisplay))
   (or (<= seconds 0)
       (let ((timer (timer-create))
            (echo-keystrokes 0))
@@ -1736,7 +1737,7 @@
              nil)
            t
          (cancel-timer timer)
-         nil))))
+           nil)))))
 
 ;;; Atomic change groups.