[nongnu] elpa/workroom a4845ad57f 44/74: Don't switch room in workroom-switch if ROOM is current

[ELPA Syncer]

branch: elpa/workroom
commit a4845ad57f9cf4c276e2b20bb7e455a46575401c
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Don't switch room in workroom-switch if ROOM is current
---
 workroom.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/workroom.el b/workroom.el
index 0043681675..ccf4024c83 100644
--- a/workroom.el
+++ b/workroom.el
@@ -884,7 +884,8 @@ ROOM is should be workroom object, or a name of a workroom 
object."
                  "Empty string for workroom name is not allowed")
               (workroom-get-create room))
           room))
-  (workroom-switch-view room nil))
+  (unless (eq room (workroom-current-room))
+    (workroom-switch-view room nil)))
 
 (defun workroom-kill (room)
   "Kill workroom ROOM.