mgdelacroix/mattermost.el
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix show-root switch-to-buffer

Browse source
This commit is contained in:
Miguel de la Cruz 2022-06-01 00:04:26 +02:00
parent 17e4ed6783
commit bbddc90552
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
mattermost.el
View file

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