comparison lisp/subr.el @ 83532:b19aaf4ab0ee

Merged from [e-mail]. Patches applied: * [e-mail]/emacs--devo--0--patch-331 Update from CVS * [e-mail]/emacs--devo--0--patch-332 Update from CVS * [e-mail]/emacs--devo--0--patch-333 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-334 Update from CVS * [e-mail]/emacs--devo--0--patch-335 Add note about "link" button-class to etc/TODO * [e-mail]/emacs--devo--0--patch-336 Update from CVS * [e-mail]/emacs--devo--0--patch-337 Update from CVS * [e-mail]/emacs--devo--0--patch-338 Update from CVS * [e-mail]/emacs--devo--0--patch-339 Update from CVS * [e-mail]/emacs--devo--0--patch-340 Update from CVS * [e-mail]/emacs--devo--0--patch-341 Update from CVS * [e-mail]/emacs--devo--0--patch-342 Update from CVS * [e-mail]/emacs--devo--0--patch-343 Update from CVS * [e-mail]/emacs--devo--0--patch-344 Update from CVS * [e-mail]/emacs--devo--0--patch-345 Update from CVS * [e-mail]/emacs--devo--0--patch-346 Update from CVS * [e-mail]/emacs--devo--0--patch-347 Update from CVS * [e-mail]/emacs--devo--0--patch-348 Update for ERC 5.1.3. * [e-mail]/emacs--devo--0--patch-349 Update from CVS * [e-mail]/emacs--devo--0--patch-350 Merge from gnus--rel--5.10 * [e-mail]/gnus--rel--5.10--patch-111 Update from CVS: texi/gnus.texi (Summary Buffer Lines): Fix typo. * [e-mail]/gnus--rel--5.10--patch-112 Update from CVS * [e-mail]/gnus--rel--5.10--patch-113 Merge from emacs--devo--0 * [e-mail]/gnus--rel--5.10--patch-114 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-572

83531:a387c138b28e

(defmacro 1value (form)
  "Evaluate FORM, expecting a constant return value.
This is the global do-nothing version.  There is also `testcover-1value'
that complains if FORM ever does return differing values."
  form)

(defmacro lambda (&rest cdr)
  "Return a lambda expression.
A call of the form (lambda ARGS DOCSTRING INTERACTIVE BODY) is
self-quoting; the result of evaluating the lambda expression is the

	  (unless (numberp n)
	    (message "Please enter a number.")
	    (sit-for 1)
	    t)))
    n))

;;; Atomic change groups.

(defmacro atomic-change-group (&rest body)
  "Perform BODY as an atomic change group.

83532:b19aaf4ab0ee

(defmacro 1value (form)
  "Evaluate FORM, expecting a constant return value.
This is the global do-nothing version.  There is also `testcover-1value'
that complains if FORM ever does return differing values."
  form)

(defmacro def-edebug-spec (symbol spec)
  "Set the `edebug-form-spec' property of SYMBOL according to SPEC.
Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol
\(naming a function), or a list."
  `(put (quote ,symbol) 'edebug-form-spec (quote ,spec)))

(defmacro lambda (&rest cdr)
  "Return a lambda expression.
A call of the form (lambda ARGS DOCSTRING INTERACTIVE BODY) is
self-quoting; the result of evaluating the lambda expression is the

	  (unless (numberp n)
	    (message "Please enter a number.")
	    (sit-for 1)
	    t)))
    n))

(defun sit-for (seconds &optional nodisp obsolete)
  "Perform redisplay, then wait for SECONDS seconds or until input is available.
SECONDS may be a floating-point value.
\(On operating systems that do not support waiting for fractions of a
second, floating-point values are rounded down to the nearest integer.)

If optional arg NODISP is t, don't redisplay, just wait for input.
Redisplay does not happen if input is available before it starts.

Value is t if waited the full time with no input arriving, and nil otherwise.

An obsolete, but still supported form is
\(sit-for SECONDS &optional MILLISECONDS NODISP)
where the optional arg MILLISECONDS specifies an additional wait period,
in milliseconds; this was useful when Emacs was built without
floating point support.

\(fn SECONDS &optional NODISP)"
  (when (or obsolete (numberp nodisp))
    (setq seconds (+ seconds (* 1e-3 nodisp)))
    (setq nodisp obsolete))
  (unless nodisp
    (redisplay))
  (or (<= seconds 0)
      (let ((timer (timer-create))
	    (echo-keystrokes 0))
      	(if (catch 'sit-for-timeout
      	      (timer-set-time timer (timer-relative-time
				     (current-time) seconds))
      	      (timer-set-function timer 'with-timeout-handler
				  '(sit-for-timeout))
      	      (timer-activate timer)
	      (push (read-event) unread-command-events)
      	      nil)
      	    t
      	  (cancel-timer timer)
      	  nil))))

;;; Atomic change groups.

(defmacro atomic-change-group (&rest body)
  "Perform BODY as an atomic change group.