From bb62828fb1f5a8af02ec645ef8860efec02ee14b Mon Sep 17 00:00:00 2001
From: Howard Abrams <howard.abrams@workday.com>
Date: Sat, 5 Feb 2022 21:31:05 -0800
Subject: [PATCH] Yank the latest displayed message

When rolling on tables or dice, I may want to paste that into the
document I'm writing.
---
 rpgdm.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/rpgdm.el b/rpgdm.el
index b72498f..3b7ab3d 100644
--- a/rpgdm.el
+++ b/rpgdm.el
@@ -59,6 +59,8 @@
 
   ("N" rpgdm-npc)
 
+  ("y" rpgdm-paste-last-message)
+
   ("C-m" rpgdm-last-results)
   ("C-n" rpgdm-last-results-next) ("C-p" rpgdm-last-results-previous)
   ("s-l" rpgdm-last-results)
@@ -104,6 +106,11 @@ Meant to be used with `rpgdm-last-results-previous'."
     (decf rpgdm-last-results-ptr))
   (message "%d> %s" rpgdm-last-results-ptr (ring-ref rpgdm-last-results rpgdm-last-results-ptr)))
 
+(defun rpgdm-paste-last-message ()
+  "Yank, e.g. paste, the last displayed message."
+  (interactive)
+  (insert (rpgdm-last-results)))
+
 (ert-deftest rpgdm-last-results-test ()
   (progn
     (setq rpgdm-last-results (make-ring 10))