Fix show-root switch-to-buffer

This commit is contained in:
Miguel de la Cruz 2022-06-01 00:04:26 +02:00
parent 17e4ed6783
commit bbddc90552

View file

@ -164,6 +164,7 @@ if the user is not present"
"The keymap for mattermost-mode")
(defun show-root ()
"Populates the Mattermost Root buffer and changes to it"
(interactive)
(let ((rootb (get-buffer-create "*Mattermost Root*")))
(with-current-buffer rootb
@ -181,7 +182,7 @@ if the user is not present"
(insert (format "> [%s] %s\n" channel-id (if (string= channel-display-name "")
channel-name
channel-display-name)))))))))
(set-buffer rootb)))
(switch-to-buffer rootb)))
(define-derived-mode mattermost-root-mode fundamental-mode "Mattermost Root"
"Mode to list the Mattermost teams and channels to allow the