Change mode
This commit is contained in:
parent
7344cc325f
commit
004b3396ca
10
idec-mode.el
10
idec-mode.el
|
@ -268,10 +268,10 @@ optionaly return cursor to CHECKPOINT."
|
|||
(princ "]\n"))
|
||||
(message (concat "IDEC: FUUUUUU <" echo ">")))
|
||||
))
|
||||
(add-text-properties (point-min) (point-max) 'read-only))
|
||||
(add-text-properties (beginning-of-buffer) (end-of-buffer) 'read-only))
|
||||
(if checkpoint
|
||||
(goto-char checkpoint))
|
||||
(idec-mode))
|
||||
(idec))
|
||||
|
||||
(defun idec-browse-local-echo (&optional echo)
|
||||
"Get messages from local ECHO."
|
||||
|
@ -282,8 +282,6 @@ optionaly return cursor to CHECKPOINT."
|
|||
(setq longest (+ 1 (longest-local-echo-subj echo)))
|
||||
(with-output-to-temp-buffer (get-buffer-create (concat "*IDEC: INBOX->(" echo ")") )
|
||||
(switch-to-buffer (concat "*IDEC: INBOX->(" echo ")"))
|
||||
(let (start)
|
||||
(setq start (point))
|
||||
(dolist (msg (get-echo-messages echo))
|
||||
(setq subj-length (length (gethash "subj" msg)))
|
||||
(insert-button (gethash "subj" msg)
|
||||
|
@ -302,8 +300,8 @@ optionaly return cursor to CHECKPOINT."
|
|||
(princ (make-string (- longest subj-length) ? ))
|
||||
(princ (concat " " (gethash "time" msg)))
|
||||
(princ (concat "\t" (gethash "author" msg) "\n")))
|
||||
(add-text-properties start (point) 'read-only)
|
||||
(idec-mode)))))
|
||||
(add-text-properties (beginning-of-buffer) (end-of-buffer) 'read-only)))
|
||||
(idec))
|
||||
|
||||
|
||||
;; NAVIGATION FUNCTIONS
|
||||
|
|
Loading…
Reference in New Issue
Block a user