search

alphapapa / ement.el

A Matrix client for GNU Emacs
GNU General Public License v3.0
476 stars 44 forks source link

invalid-function #<symbol list at 7304> #195

Closed phil-s closed 11 months ago

phil-s commented 11 months ago

Encountered this. Logging it here before nuking the session, in case you can make anything of it.

Debugger entered--Lisp error: (invalid-function #<symbol list at 7304>)
  (#<symbol list at 7304> #<symbol ement-room at 7309> #<symbol ement-session at 7320>)
  (progn (when (or current-prefix-arg (not ement-room)) (pcase-let ((`(,room ,session) (ement-complete-room :suggest t))) (setf ement-room room ement-session session))) (#<symbol list at 7304> #<symbol ement-room at 7309> #<symbol ement-session at 7320>))
  (let* ((ement-room (or list-room ement-room)) (ement-session (or list-session ement-session))) (progn (when (or current-prefix-arg (not ement-room)) (pcase-let ((`(... ...) (ement-complete-room :suggest t))) (setf ement-room room ement-session session))) (#<symbol list at 7304> #<symbol ement-room at 7309> #<symbol ement-session at 7320>)))
  (let ((list-room x5) (list-session x6)) (let* ((ement-room (or list-room ement-room)) (ement-session (or list-session ement-session))) (progn (when (or current-prefix-arg (not ement-room)) (pcase-let ((`... (ement-complete-room :suggest t))) (setf ement-room room ement-session session))) (#<symbol list at 7304> #<symbol ement-room at 7309> #<symbol ement-session at 7320>))))
  (let* ((x5 (pcase--flip aref 0 val)) (x6 (pcase--flip aref 1 val))) (let ((list-room x5) (list-session x6)) (let* ((ement-room (or list-room ement-room)) (ement-session (or list-session ement-session))) (progn (when (or current-prefix-arg (not ement-room)) (pcase-let ((... ...)) (setf ement-room room ement-session session))) (#<symbol list at 7304> #<symbol ement-room at 7309> #<symbol ement-session at 7320>)))))
  (progn (ignore (eql x4 2)) (let* ((x5 (pcase--flip aref 0 val)) (x6 (pcase--flip aref 1 val))) (let ((list-room x5) (list-session x6)) (let* ((ement-room (or list-room ement-room)) (ement-session (or list-session ement-session))) (progn (when (or current-prefix-arg (not ement-room)) (pcase-let (...) (setf ement-room room ement-session session))) (#<symbol list at 7304> #<symbol ement-room at 7309> #<symbol ement-session at 7320>))))))
  (let* ((x4 (length val))) (progn (ignore (eql x4 2)) (let* ((x5 (pcase--flip aref 0 val)) (x6 (pcase--flip aref 1 val))) (let ((list-room x5) (list-session x6)) (let* ((ement-room (or list-room ement-room)) (ement-session (or list-session ement-session))) (progn (when (or current-prefix-arg ...) (pcase-let ... ...)) (#<symbol list at 7304> #<symbol ement-room at 7309> #<symbol ement-session at 7320>)))))))
  (progn (ignore (vectorp val)) (let* ((x4 (length val))) (progn (ignore (eql x4 2)) (let* ((x5 (pcase--flip aref 0 val)) (x6 (pcase--flip aref 1 val))) (let ((list-room x5) (list-session x6)) (let* ((ement-room ...) (ement-session ...)) (progn (when ... ...) (#<symbol list at 7304> #<symbol ement-room at 7309> #<symbol ement-session at 7320>))))))))
  (let* ((val (if (eq 'ement-room-list-mode major-mode) (oref (magit-current-section) value) [nil nil]))) (progn (ignore (vectorp val)) (let* ((x4 (length val))) (progn (ignore (eql x4 2)) (let* ((x5 (pcase--flip aref 0 val)) (x6 (pcase--flip aref 1 val))) (let ((list-room x5) (list-session x6)) (let* (... ...) (progn ... ...))))))))
  (pcase-let* ((`[,list-room ,list-session] (if (eq 'ement-room-list-mode major-mode) (oref (magit-current-section) value) [nil nil])) (ement-room (or list-room ement-room)) (ement-session (or list-session ement-session))) (when (or current-prefix-arg (not ement-room)) (pcase-let ((`(,room ,session) (ement-complete-room :suggest t))) (setf ement-room room ement-session session))) (list ement-room ement-session))
  (ement-with-room-and-session (list ement-room ement-session))
  call-interactively(ement-room-compose-message nil nil)
  command-execute(ement-room-compose-message)
phil-s commented 11 months ago

Whoops, this was my fault. Closing.