Nathaniel Flath <flat0...@gmail.com> writes: > Sorry, that was incorrect - real patches attached.
Thanks. > +(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))) > + (when (or (not t1) (< 0 (nth 1 (time-subtract curtime t1)))) > + (apply message args) > + curtime)) > + t1) The docstring seems incorrect, as the function always returns T1, no matter if a message is printed or not. > + (setq log-last-time > + (org-table-message-once-per-second > + (when all log-last-time) Nitpick: (and all log-last-time) > + (when all log-last-time) Ditto. > + (when all log-first-time) Ditto. Regards,
