[elpa] externals/ement 6468027868 3/5: Change: (ement--space-p) Rename function

[ELPA Syncer]

branch: externals/ement
commit 64680278686b310ea1db92c80ee8c6297f34f02c
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Change: (ement--space-p) Rename function
---
 ement-directory.el | 2 +-
 ement-lib.el       | 4 ++--
 ement-room-list.el | 2 +-
 ement-room.el      | 6 +++---
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/ement-directory.el b/ement-directory.el
index bcc64807b2..11987f4e64 100644
--- a/ement-directory.el
+++ b/ement-directory.el
@@ -379,7 +379,7 @@ contents.  To be called by `ement-directory-search'."
   "View child rooms in SPACE on SESSION.
 SPACE may be a room ID or an `ement-room' struct."
   ;; TODO: "from" query parameter.
-  (interactive (ement-complete-room :predicate #'ement--room-space-p
+  (interactive (ement-complete-room :predicate #'ement--space-p
                  :prompt "Space: "))
   (pcase-let* ((id (cl-typecase space
                      (string space)
diff --git a/ement-lib.el b/ement-lib.el
index 6f020a3eab..8c3628a35d 100644
--- a/ement-lib.el
+++ b/ement-lib.el
@@ -525,7 +525,7 @@ otherwise use current room."
                          (spec (format "%%-%ss %%s" name-width)))
               (save-excursion
                 (insert "\"" (propertize (or display-name canonical-alias 
room-id) 'face 'font-lock-doc-face) "\"" " is a "
-                        (propertize (if (ement--room-space-p room)
+                        (propertize (if (ement--space-p room)
                                         "space"
                                       "room")
                                     'face 'font-lock-type-face)
@@ -865,7 +865,7 @@ USER is an `ement-user' struct."
 ;;               ;; 3.
 ;;               (cl-third (servers-by-population-in room))))))))
 
-(defun ement--room-space-p (room)
+(defun ement--space-p (room)
   "Return non-nil if ROOM is a space."
   (equal "m.space" (ement-room-type room)))
 
diff --git a/ement-room-list.el b/ement-room-list.el
index dfd339b138..36c461e602 100644
--- a/ement-room-list.el
+++ b/ement-room-list.el
@@ -746,7 +746,7 @@ left."
   (interactive)
   (cl-etypecase (oref (magit-current-section) value)
     (vector (pcase-let ((`[,room ,session] (oref (magit-current-section) 
value)))
-              (if (ement--room-space-p room)
+              (if (ement--space-p room)
                   (ement-view-space room session)
                 (ement-view-room room session))))
     (taxy-magit-section (call-interactively #'ement-room-list-section-toggle))
diff --git a/ement-room.el b/ement-room.el
index c01190dd65..e91fdd1d08 100644
--- a/ement-room.el
+++ b/ement-room.el
@@ -1837,12 +1837,12 @@ reaction string, e.g. \"👍\"."
   (interactive
    (ement-with-room-and-session
      :prompt-form (ement-complete-room :session ement-session
-                    :predicate (lambda (room) (not (ement--room-space-p 
room))) )
+                    :predicate (lambda (room) (not (ement--space-p room))) )
      (pcase-let* ((prompt (format "Toggle room %S's membership in space: "
                                   (ement--format-room ement-room)))
                   ;; TODO: Use different face for spaces the room is already 
in.
                   (`(,space ,_session) (ement-complete-room :session 
ement-session :prompt prompt :suggest nil
-                                         :predicate #'ement--room-space-p)))
+                                         :predicate #'ement--space-p)))
        (list ement-room space ement-session))))
   (pcase-let* (((cl-struct ement-room (id child-id)) room)
                (routing-server (progn
@@ -1882,7 +1882,7 @@ reaction string, e.g. \"👍\"."
 Uses action `ement-view-room-display-buffer-action', which see."
   (interactive (ement-complete-room :session (ement-complete-session) :suggest 
nil
                  :predicate (lambda (room)
-                              (not (ement--room-space-p room)))))
+                              (not (ement--space-p room)))))
   (pcase-let* (((cl-struct ement-room (local (map buffer))) room))
     (unless (buffer-live-p buffer)
       (setf buffer (ement-room--buffer session room (ement-room--buffer-name 
room))