Link length fix
This commit is contained in:
parent
0582f91fb9
commit
7c5d2d1041
10
idec-mode.el
10
idec-mode.el
|
@ -278,15 +278,15 @@ optionaly return cursor to CHECKPOINT."
|
||||||
(let (counter)
|
(let (counter)
|
||||||
(setq counter 0)
|
(setq counter 0)
|
||||||
(dolist (msg (get-echo-messages echo))
|
(dolist (msg (get-echo-messages echo))
|
||||||
(insert-button (concat (gethash "subj" msg)
|
(insert-button (gethash "subj" msg)
|
||||||
(make-string
|
|
||||||
(- longest
|
|
||||||
(length (gethash "subj" msg)))
|
|
||||||
? ))
|
|
||||||
'action (lambda (x) (display-message-hash (button-get x 'msg-hash)))
|
'action (lambda (x) (display-message-hash (button-get x 'msg-hash)))
|
||||||
'subj (gethash "subj" msg)
|
'subj (gethash "subj" msg)
|
||||||
'help-echo (concat "Read message *" (gethash "subj" msg) "*")
|
'help-echo (concat "Read message *" (gethash "subj" msg) "*")
|
||||||
'msg-hash msg)
|
'msg-hash msg)
|
||||||
|
(princ (make-string
|
||||||
|
(- longest
|
||||||
|
(length (gethash "subj" msg)))
|
||||||
|
? ))
|
||||||
(princ (concat " " (gethash "time" msg)))
|
(princ (concat " " (gethash "time" msg)))
|
||||||
(princ (concat "\t" (gethash "author" msg) "\n")))
|
(princ (concat "\t" (gethash "author" msg) "\n")))
|
||||||
(idec-mode)))))
|
(idec-mode)))))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user