lisp/erc/erc.el

381   ;; Last message time (in the form of the return value of
382   ;; (current-time)
385   (last-message-time nil))
570 	    (let ((tx (erc-channel-user-last-message-time (cdr x)))
571 		  (ty (erc-channel-user-last-message-time (cdr y))))
574 		      (time-less-p ty tx)
746   "*If non-nil, show every time you get a PING or PONG from the server."
753 * <nick> is back (gone for <time>)
1276   "Execute FORMS the next time EVENT occurs in the `current-buffer'.
1306   "Execute FORMS the next time EVENT occurs in any server buffer.
1453   (set (make-local-variable 'paragraph-start)
1758 Use `erc-away-time' to access this if you might be in a channel
1793 				  stamp menu)
1849     (const :tag "stamp: Add timestamps to messages" stamp)
1973     ;; login-time 'nick in use' error
2246 			 (current-time-string))))))
2474 start with /<COMMAND>) then it is sent as a message.
2869   "Show the length of time NICK has been idle."
2929       (run-at-time 20 nil `(lambda ()
3077   (let ((time (format "%f" (erc-current-time))))
3078     (erc-log (format "cmd: PING: %s" time))
3079     (erc-cmd-CTCP recipient "PING" time)))
3185       (run-at-time 4 nil
3261 			    erc-emacs-build-time))
3291   "Request the current time and date from the current server."
3496 (defun erc-grab-region (start end)
3508 	   (region (buffer-substring start end))
3545 				     'start-open t ; XEmacs
3757   "If non-nil, create a query buffer each time you receive a private message.
4233 	  (ns (erc-time-diff erc-server-last-sent-time (erc-current-time))))
4235 	    (setq s (concat s " Idle for " (erc-sec-to-time ns))))
4252     (erc-send-ctcp-notice nick (format "TIME %s" (current-time-string))))
4320     (let ((time (match-string 1 msg)))
4322 	  (let ((delta (erc-time-diff (string-to-number time)
4323 				      (erc-current-time))))
4327 	     ?t (erc-sec-to-time delta)))
4331 	  'bad-ping-response ?n nick ?t time))))))
4369 	  (setq erc-away (current-time)))
4371 	  (let ((away-time erc-away))
4380 		 (if away-time
4382 			     (erc-sec-to-time
4383 			      (erc-time-diff
4384 			       (erc-emacs-time-to-erc-time away-time)
4385 			       (erc-current-time))))
4444   "*This hook is called every time the variable `channel-members' changes.
4501 	update-message-time)
4508 last-message-time of the user in the current channel is set
4509 to (current-time).
4541 	  (when update-message-time
4542 	    (setf (erc-channel-user-last-message-time cuser) (current-time)))
4567 		     :last-message-time
4568 		     (if update-message-time (current-time))))
4578 				  full-name info update-message-time)
4587 				      update-message-time)))
4818 (defun erc-put-text-property (start end property value &optional object)
4829   (put-text-property start end property value object))
4860 (defun erc-put-text-properties (start end properties
4872 	     (erc-put-text-property start end prop value object))
5248 RET lets you type more than one mode at a time.
5299 (defun erc-remove-text-properties-region (start end &optional object)
5304       (set-text-properties start end nil object))))
5552 ;; time routines
5554 (defun erc-string-to-emacs-time (string)
5556 Returns a list of the form (HIGH LOW), compatible with Emacs time format."
5561 (defun erc-emacs-time-to-erc-time (time)
5563   (when time
5564     (+ (* (nth 0 time) 65536.0) (nth 1 time))))
5567 (defun erc-current-time ()
5568   "Return the `current-time' as a number of seconds since the epoch.
5570 See also `erc-emacs-time-to-erc-time'."
5571   (erc-emacs-time-to-erc-time (current-time)))
5573 (defun erc-time-diff (t1 t2)
5574   "Return the time difference in seconds between T1 and T2."
5577 (defun erc-time-gt (t1 t2)
5581 (defun erc-sec-to-time (ns)
5582   "Convert NS to a time string HH:MM.SS."
5621     ("FINGER" . "shows user's name, location, and idle time")
5623     ("TIME" . "shows client-side time")
5696 (defun erc-away-time ()
5699 In particular, the time that we were set away is returned.
5700 See `current-time' for details on the time format."
5713 %l: The estimated lag time to the server
5778 `format-time-string'."
5818   (let ((a (erc-away-time)))
5820 	(format-time-string erc-mode-line-away-status-format a)
5841 (defun erc-format-lag-time ()
5842   "Return the estimated lag time to server, `erc-server-lag'."
5852 		 ?l (erc-format-lag-time)
6032  '((bad-ping-response . "Unexpected PING response from %n (time %t)")
6067    (CTCP-PING . "Ping time to %n is %t")
6120    (s391   . "The time at %s is %t")