From 7c5d2d1041e6990a25df21188e627e7f7cb97011 Mon Sep 17 00:00:00 2001 From: Denis Zheleztsov Date: Thu, 28 Jun 2018 14:12:43 +0300 Subject: [PATCH] Link length fix --- idec-mode.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/idec-mode.el b/idec-mode.el index 23445bf..c862809 100644 --- a/idec-mode.el +++ b/idec-mode.el @@ -278,15 +278,15 @@ optionaly return cursor to CHECKPOINT." (let (counter) (setq counter 0) (dolist (msg (get-echo-messages echo)) - (insert-button (concat (gethash "subj" msg) - (make-string - (- longest - (length (gethash "subj" msg))) - ? )) + (insert-button (gethash "subj" msg) 'action (lambda (x) (display-message-hash (button-get x 'msg-hash))) 'subj (gethash "subj" msg) 'help-echo (concat "Read message *" (gethash "subj" msg) "*") 'msg-hash msg) + (princ (make-string + (- longest + (length (gethash "subj" msg))) + ? )) (princ (concat " " (gethash "time" msg))) (princ (concat "\t" (gethash "author" msg) "\n"))) (idec-mode)))))