Function: org-table-message-once-per-second

org-table-message-once-per-second is a byte-compiled function defined in org-table.el.gz.

Signature

(org-table-message-once-per-second T1 &rest ARGS)

Documentation

If there has been more than one second since T1, display message.

ARGS are passed as arguments to the message function. Returns current time if a message is printed, otherwise returns T1. If T1 is nil, always messages.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-table.el.gz
(defun org-table-message-once-per-second (t1 &rest args)
  "If there has been more than one second since T1, display message.
ARGS are passed as arguments to the `message' function.  Returns
current time if a message is printed, otherwise returns T1.  If
T1 is nil, always messages."
  (let ((curtime (current-time)))
    (if (or (not t1) (time-less-p 1 (time-subtract curtime t1)))
	(progn (apply 'message args)
	       curtime)
      t1)))