Add rcirc-when command

* doc/misc/rcirc.texi: Document rcirc-when.
* etc/NEWS: Document rcirc-when.
* lisp/net/rcirc.el (rcirc-when): Add command.

diff --git a/doc/misc/rcirc.texi b/doc/misc/rcirc.texi
index f13ecc7d28d1aca6ead1b354b60bd751b386942f..6217781e2bd473b2ae2347786dc25a8cee238440 100644 (file)
--- a/doc/misc/rcirc.texi
+++ b/doc/misc/rcirc.texi
@@ -933,6 +933,11 @@ how to include the date in the time stamp:
 (setq rcirc-time-format "%Y-%m-%d %H:%M ")
 @end example
 
+@findex rcirc-when
+If you don't wish to use verbose time formatting all the time, you can
+use the @code{rcirc-when} command to printing a complete timestamp for
+the message at point.
+
 @node Defining a new command
 @section Defining a new command
 @cindex defining commands

diff --git a/etc/NEWS b/etc/NEWS
index 9c892b285d1a7a8e5bc4fde55f4cf9fc856bc816..463c39315d4d2b931cda20519e142d1f6c43027d 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -210,7 +210,7 @@ inserted.
 
 +++
 *** New command 'emoji-describe' (bound to 'C-x 8 e d').
-This command will tell you the name of the Emoji at point.  (This
+nThis command will tell you the name of the Emoji at point.  (This
 command also works for non-Emoji characters.)
 
 ** Help
@@ -259,6 +259,11 @@ For example, a 'display-buffer-alist' entry of
 will make the body of the chosen window 40 columns wide.  For the
 height use 'window-height' in combination with 'body-lines'.
 
+** Rcirc
+
++++
+*** New command 'rcirc-when'.
+
 ** Tab Bars and Tab Lines
 
 ---

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 62e6281e0359104ea4f5d6e4036483511efd6e8f..dda72a2a7f23932622c40af696714d1f69f795cf 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -2047,6 +2047,13 @@ connection."
         (run-hook-with-args 'rcirc-print-functions
                             process sender response target text)))))
 
+(defun rcirc-when ()
+  "Print a message when the message at point was received."
+  (interactive)
+  (if-let (time (get-text-property (point) 'rcirc-time))
+      (message (format-time-string "%c" time))
+    (message "No time information at point.")))
+
 (defun rcirc-generate-log-filename (process target)
   "Return filename for log file based on PROCESS and TARGET."
   (if target