mu4e/mu4e-utils: save-excursion before updating the log buffer
If the user is scrolling and searching through the log buffer to see what went wrong it gets very annoying having an update change things. To avoid this wrap all buffer updating code in a save-excursion so point is preserved.
This commit is contained in:
@ -1032,6 +1032,7 @@ either 'to-server, 'from-server or 'misc. This function is meant for debugging."
|
|||||||
(error 'font-lock-warning-face)
|
(error 'font-lock-warning-face)
|
||||||
(otherwise (mu4e-error "Unsupported log type"))))
|
(otherwise (mu4e-error "Unsupported log type"))))
|
||||||
(msg (propertize (apply 'format frm args) 'face msg-face)))
|
(msg (propertize (apply 'format frm args) 'face msg-face)))
|
||||||
|
(save-excursion
|
||||||
(goto-char (point-max))
|
(goto-char (point-max))
|
||||||
(insert tstamp
|
(insert tstamp
|
||||||
(cl-case type
|
(cl-case type
|
||||||
@ -1046,7 +1047,7 @@ either 'to-server, 'from-server or 'misc. This function is meant for debugging."
|
|||||||
(when (> (buffer-size) mu4e~log-max-size)
|
(when (> (buffer-size) mu4e~log-max-size)
|
||||||
(goto-char (- (buffer-size) mu4e~log-max-size))
|
(goto-char (- (buffer-size) mu4e~log-max-size))
|
||||||
(beginning-of-line)
|
(beginning-of-line)
|
||||||
(delete-region (point-min) (point)))))))
|
(delete-region (point-min) (point))))))))
|
||||||
|
|
||||||
(defun mu4e-toggle-logging ()
|
(defun mu4e-toggle-logging ()
|
||||||
"Toggle between enabling/disabling debug-mode (in debug-mode,
|
"Toggle between enabling/disabling debug-mode (in debug-mode,
|
||||||
|
|||||||
Reference in New Issue
Block a user