Difrex/idec.el
Difrex/idec.el
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Link length fix

Browse Source
This commit is contained in:
Denis Zheleztsov 2018-06-28 14:12:43 +03:00
parent 0582f91fb9
commit 7c5d2d1041
Signed by: Difrex
GPG Key ID: B047A0E62A285621
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
idec-mode.el
View File

@ -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)))))