[elpa] externals-release/ement 6a12faa2c5 2/6: Revert "Fix: (ement-room-list) Restore point on refresh"

[ELPA Syncer]

branch: externals-release/ement
commit 6a12faa2c5a7b902a9de6a43609bf4e380a5b3f2
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Revert "Fix: (ement-room-list) Restore point on refresh"
    
    This reverts commit 8b295133ff4729864329a13a11091c9b0c61a42d.
---
 ement-room-list.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ement-room-list.el b/ement-room-list.el
index 49a8d9ddde..bbdbfa69c8 100644
--- a/ement-room-list.el
+++ b/ement-room-list.el
@@ -548,7 +548,7 @@ BUFFER-NAME and is shown with DISPLAY-BUFFER-ACTION; or if
 DISPLAY-BUFFER-ACTION is nil, the buffer is not displayed."
   (interactive)
   (let ((inhibit-read-only t)
-        pos format-table column-sizes window-start room-session-vectors)
+        format-table column-sizes window-start room-session-vectors)
     (cl-labels (;; (heading-face
                 ;;  (depth) (list :inherit (list 'bufler-group 
(bufler-level-face depth))))
                 (format-item (item) (gethash item format-table))
@@ -621,7 +621,6 @@ DISPLAY-BUFFER-ACTION is nil, the buffer is not displayed."
                      append (cl-loop for room in (ement-session-rooms session)
                                      collect (vector room session))))
       (with-current-buffer (get-buffer-create buffer-name)
-        (setf pos (point))
         (ement-room-list-mode)
         (delete-all-overlays)
         (erase-buffer)
@@ -661,6 +660,7 @@ DISPLAY-BUFFER-ACTION is nil, the buffer is not displayed."
                  (taxy-magit-section-insert-indent-items nil)
                  (format-cons (taxy-magit-section-format-items
                                ement-room-list-columns 
ement-room-list-column-formatters taxy))
+                 (pos (point))
                  (section-ident (when (magit-current-section)
                                   (magit-section-ident 
(magit-current-section)))))
             (setf format-table (car format-cons)