[nongnu] elpa/workroom 6d159a5566 24/74: Use `string=' to compare workroom and view names

[ELPA Syncer]

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

    Use `string=' to compare workroom and view names
---
 workroom.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/workroom.el b/workroom.el
index 4d38b17a73..5f747d69f9 100644
--- a/workroom.el
+++ b/workroom.el
@@ -33,8 +33,7 @@
 
 ;; Each workroom also has its own set of views.  Views are just named
 ;; window configurations.  They allow you to switch to another window
-;; configuration without losing your well-planned current window
-;; setup.
+;; configuration without losing your well-planned window setup.
 
 ;; You can also bookmark a workroom or all your workrooms to restore
 ;; them at a later time, possibly in another Emacs session.
@@ -238,7 +237,7 @@ The value is a mode line terminal like `mode-line-format'."
 If no such workroom exists, return nil."
   (catch 'found
     (dolist (room workroom--rooms nil)
-      (when (equal name (workroom-name room))
+      (when (string= name (workroom-name room))
         (throw 'found room)))))
 
 (defun workroom-get-create (name)
@@ -267,7 +266,7 @@ that."
 If no such view exists, return nil."
   (catch 'found
     (dolist (view (workroom-views room) nil)
-      (when (equal name (workroom-view-name view))
+      (when (string= name (workroom-view-name view))
         (throw 'found view)))))
 
 (defun workroom-view-get-create (room name)
@@ -574,8 +573,10 @@ PROMPT, DEF, REQUIRE-MATCH and PREDICATE is same as in 
`read-buffer'."
      ;; Restore a single workroom.
      (let ((room (workroom--decode (cdr data))))
        (when-let ((existing (workroom-get (workroom-name room))))
-         (unless (y-or-n-p (format-message "Workroom `%s' already \
-exists, overwrite? " (workroom-name room)))
+         (unless (y-or-n-p
+                  (format-message
+                   "Workroom `%s' already exists, overwrite? "
+                   (workroom-name room)))
            (user-error "Workroom `%s' exists" (workroom-name room)))
          (workroom-kill existing))
        (push room workroom--rooms)))