bufler list unusable after killing something: (wrong-type-argument stringp nil)

[WorldsEndless]

The problem is, I show bufler-list and kill a buffer (often an exwm one). After this, I can't take any actions in buffler as it gives me the following error. Funny thing is, very often this is fixed by my executing C-x b (switch-to-buffer), which seems to jog buffler back into a working place again. I see from this lengthy error stack that it seems to have something to do with my buffer names.

Debugger entered–Lisp error: (wrong-type-argument stringp nil) string-width(nil) truncate-string-to-width(nil 30) (if bufler-column-name-max-length (truncate-string-to-width (buffer-name buffer) bufler-column-name-max-length) (buffer-name buffer)) (let ((indentation (make-string (* 2 depth) 32)) (mode-annotation (if (let* ((–cl-var– bufler-buffer-mode-annotate-preds) (fn nil) (–cl-flag– t) –cl-var–) (while (and (consp –cl-var–) (progn … …)) (setq –cl-var– (cdr –cl-var–))) –cl-var–) (progn (propertize (concat (replace-regexp-in-string "-mode\\'" "" … t t) " ") 'face 'bufler-mode)))) (constrained-buffer-name (if bufler-column-name-max-length (truncate-string-to-width (buffer-name buffer) bufler-column-name-max-length) (buffer-name buffer))) (modified (if (and (buffer-file-name buffer) (buffer-modified-p buffer)) (progn (propertize bufler-column-name-modified-buffer-sigil 'face 'font-lock-warning-face))))) (concat indentation mode-annotation constrained-buffer-name modified)) (progn (let ((indentation (make-string (* 2 depth) 32)) (mode-annotation (if (let* ((–cl-var– bufler-buffer-mode-annotate-preds) (fn nil) (–cl-flag– t) –cl-var–) (while (and … …) (setq –cl-var– …)) –cl-var–) (progn (propertize (concat … " ") 'face 'bufler-mode)))) (constrained-buffer-name (if bufler-column-name-max-length (truncate-string-to-width (buffer-name buffer) bufler-column-name-max-length) (buffer-name buffer))) (modified (if (and (buffer-file-name buffer) (buffer-modified-p buffer)) (progn (propertize bufler-column-name-modified-buffer-sigil 'face 'font-lock-warning-face))))) (concat indentation mode-annotation constrained-buffer-name modified))) (and t (progn (let ((indentation (make-string (* 2 depth) 32)) (mode-annotation (if (let* (… … … –cl-var–) (while … …) –cl-var–) (progn (propertize … … …)))) (constrained-buffer-name (if bufler-column-name-max-length (truncate-string-to-width (buffer-name buffer) bufler-column-name-max-length) (buffer-name buffer))) (modified (if (and (buffer-file-name buffer) (buffer-modified-p buffer)) (progn (propertize bufler-column-name-modified-buffer-sigil … …))))) (concat indentation mode-annotation constrained-buffer-name modified)))) (let* ((string (and t (progn (let ((indentation …) (mode-annotation …) (constrained-buffer-name …) (modified …)) (concat indentation mode-annotation constrained-buffer-name modified)))))) (if string (if nil (propertize string 'face nil) string) "")) bufler-column-format-name(# 2) funcall(bufler-column-format-name # 2) (let* ((fn (alist-get column-name bufler-column-format-fns nil nil #'string=)) (value (funcall fn buffer depth)) (current-column-size (or (map-elt column-sizes column-name) 0))) (let* ((key column-name)) (condition-case nil (with-no-warnings (map-put! column-sizes key (max current-column-size (1+ (length …))) nil)) (map-not-inplace (setq column-sizes (map-insert column-sizes key (max current-column-size (1+ …))))))) value) (closure ((–cl-each-buffer– closure #2 (fn groups depth) (let (… …) (while list … … …))) (–cl-format-buffer– closure #2 (buffer depth) (puthash buffer (mapcar … columns) table)) (–cl-format-column– . #0) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (buffer depth column-name) (let ((fn (alist-get column-name bufler-column-format-fns nil nil …)) (value (funcall fn buffer depth)) (current-column-size (or … 0))) (let* ((key column-name)) (condition-case nil (with-no-warnings …) (map-not-inplace …))) value))(# 2 "Name") funcall((closure ((–cl-each-buffer– closure #3 (fn groups depth) (let ((list groups) (it-index 0)) (while list (let (…) (cond … …)) (setq it-index (1+ it-index)) (setq list (cdr list))))) (–cl-format-buffer– closure #3 (buffer depth) (puthash buffer (mapcar #'(lambda … …) columns) table)) (–cl-format-column– . #1) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil ("bufler-list-mode" #<buffer *Bufler*>) ("org-agenda-mode" #<buffer *Org Agenda(a)*>) ("gnus-group-mode" #<buffer *Group*>) ("comint-mode" #<buffer *compilation*>) ("special-mode" #<buffer *elfeed-log*>) ("bbdb-mode" #<buffer *BBDB*>) ("fundamental-mode" #<buffer *trace of SMTP session to gateway.byu.edu*> #<buffer *trace of SMTP session to smtp.gmail.com*>) ("eww-mode" #<buffer *eww*>) ("calendar-mode" #<buffer *Calendar*>) ("shell-mode" #<buffer *shell*> #<buffer *Async Shell Command*> # #<buffer *Async Shell Command*<5>> #<buffer *Async Shell Command*<6>>))) ("Dir: ~/emacs/.emacs.d/" (#("Dir: home/torysa/emacs.emacs.d/straight/build/pd…" 0 71 (face magit-section-heading)) ("message-mode" #<buffer *sent mail to John Cheng*> #<buffer *sent reply to Clemens Radermacher*> #<buffer *sent reply to Brad Woodward*> #<buffer *sent reply to Shannon Resare*>) ("fundamental-mode" #<buffer .newsrc-dribble>))) (nil (#("Dir: home/torysa/Documents/Diary" 0 34 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/Documents/Priesthood" 0 39 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/Language/Natural" 0 35 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/emacs" 0 24 (face magit-section-heading)) ("org-mode" #) ("emacs-lisp-mode" #)) (#("Dir: home/torysa/emacs/org" 0 28 (face magit-section-heading)) ("org-mode" #<buffer odh_meetings.org> # #<buffer odh_agenda.org> # # # # # # # # #) ("message-mode" #<buffer *sent mail to Bonnie Bingham*>)) (#("Dir: home/torysa/Language/Formal" 0 34 (face magit-section-heading)) ("org-mode" # #) ("message-mode" #<buffer *sent mail to John Cheng*<2>>)))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (buffer depth column-name) (let ((fn (alist-get column-name bufler-column-format-fns nil nil #'string=)) (value (funcall fn buffer depth)) (current-column-size (or (map-elt column-sizes column-name) 0))) (let* ((key column-name)) (condition-case nil (with-no-warnings (map-put! column-sizes key (max current-column-size …) nil)) (map-not-inplace (setq column-sizes (map-insert column-sizes key …))))) value)) # 2 "Name") (closure ((depth . 2) (buffer . #) (–cl-each-buffer– closure #4 (fn groups depth) (let (… …) (while list … … …))) (–cl-format-buffer– closure #4 (buffer depth) (puthash buffer (mapcar … columns) table)) (–cl-format-column– closure #4 (buffer depth column-name) (let* (… … …) (let* … …) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (it) (funcall –cl-format-column– buffer depth it))("Name") mapcar((closure ((depth . 2) (buffer . #) (–cl-each-buffer– closure #5 (fn groups depth) (let ((list groups) (it-index 0)) (while list (let (…) (cond … …)) (setq it-index (1+ it-index)) (setq list (cdr list))))) (–cl-format-buffer– closure #5 (buffer depth) (puthash buffer (mapcar #'(lambda … …) columns) table)) (–cl-format-column– closure #5 (buffer depth column-name) (let ((fn (alist-get column-name bufler-column-format-fns nil nil …)) (value (funcall fn buffer depth)) (current-column-size (or … 0))) (let* ((key column-name)) (condition-case nil (with-no-warnings …) (map-not-inplace …))) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer *scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil ("bufler-list-mode" #<buffer *Bufler*>) ("org-agenda-mode" #<buffer *Org Agenda(a)*>) ("gnus-group-mode" #<buffer *Group*>) ("comint-mode" #<buffer *compilation*>) ("special-mode" #<buffer *elfeed-log*>) ("bbdb-mode" #<buffer *BBDB*>) ("fundamental-mode" #<buffer *trace of SMTP session to gateway.byu.edu*> #<buffer *trace of SMTP session to smtp.gmail.com*>) ("eww-mode" #<buffer *eww*>) ("calendar-mode" #<buffer *Calendar*>) ("shell-mode" #<buffer *shell*> #<buffer *Async Shell Command*> # #<buffer *Async Shell Command*<5>> #<buffer *Async Shell Command*<6>>))) ("Dir: ~/emacs/.emacs.d/" (#("Dir: home/torysa/emacs.emacs.d/straight/build/pd…" 0 71 (face magit-section-heading)) ("message-mode" #<buffer *sent mail to John Cheng*> #<buffer *sent reply to Clemens Radermacher*> #<buffer *sent reply to Brad Woodward*> #<buffer *sent reply to Shannon Resare*>) ("fundamental-mode" #<buffer .newsrc-dribble>))) (nil (#("Dir: home/torysa/Documents/Diary" 0 34 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/Documents/Priesthood" 0 39 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/Language/Natural" 0 35 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/emacs" 0 24 (face magit-section-heading)) ("org-mode" #) ("emacs-lisp-mode" #)) (#("Dir: home/torysa/emacs/org" 0 28 (face magit-section-heading)) ("org-mode" #<buffer odh_meetings.org> # #<buffer odh_agenda.org> # # # # # # # # #) ("message-mode" #<buffer *sent mail to Bonnie Bingham*>)) (#("Dir: home/torysa/Language/Formal" 0 34 (face magit-section-heading)) ("org-mode" # #) ("message-mode" #<buffer *sent mail to John Cheng*<2>>)))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (it) (funcall –cl-format-column– buffer depth it)) ("Name" "Size" "Path")) (puthash buffer (mapcar #'(lambda (it) (funcall –cl-format-column– buffer depth it)) columns) table) (closure ((–cl-each-buffer– closure #2 (fn groups depth) (let (… …) (while list … … …))) (–cl-format-buffer– . #0) (–cl-format-column– closure #2 (buffer depth column-name) (let* (… … …) (let* … …) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (buffer depth) (puthash buffer (mapcar #'(lambda … …) columns) table))(# 2) funcall((closure ((–cl-each-buffer– closure #3 (fn groups depth) (let ((list groups) (it-index 0)) (while list (let (…) (cond … …)) (setq it-index (1+ it-index)) (setq list (cdr list))))) (–cl-format-buffer– . #1) (–cl-format-column– closure #3 (buffer depth column-name) (let ((fn (alist-get column-name bufler-column-format-fns nil nil …)) (value (funcall fn buffer depth)) (current-column-size (or … 0))) (let* ((key column-name)) (condition-case nil (with-no-warnings …) (map-not-inplace …))) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer *scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil ("bufler-list-mode" #<buffer *Bufler*>) ("org-agenda-mode" #<buffer *Org Agenda(a)*>) ("gnus-group-mode" #<buffer *Group*>) ("comint-mode" #<buffer *compilation*>) ("special-mode" #<buffer *elfeed-log*>) ("bbdb-mode" #<buffer *BBDB*>) ("fundamental-mode" #<buffer *trace of SMTP session to gateway.byu.edu*> #<buffer *trace of SMTP session to smtp.gmail.com*>) ("eww-mode" #<buffer *eww*>) ("calendar-mode" #<buffer *Calendar*>) ("shell-mode" #<buffer *shell*> #<buffer *Async Shell Command*> # #<buffer *Async Shell Command*<5>> #<buffer *Async Shell Command*<6>>))) ("Dir: ~/emacs/.emacs.d/" (#("Dir: home/torysa/emacs.emacs.d/straight/build/pd…" 0 71 (face magit-section-heading)) ("message-mode" #<buffer *sent mail to John Cheng*> #<buffer *sent reply to Clemens Radermacher*> #<buffer *sent reply to Brad Woodward*> #<buffer *sent reply to Shannon Resare*>) ("fundamental-mode" #<buffer .newsrc-dribble>))) (nil (#("Dir: home/torysa/Documents/Diary" 0 34 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/Documents/Priesthood" 0 39 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/Language/Natural" 0 35 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/emacs" 0 24 (face magit-section-heading)) ("org-mode" #) ("emacs-lisp-mode" #)) (#("Dir: home/torysa/emacs/org" 0 28 (face magit-section-heading)) ("org-mode" #<buffer odh_meetings.org> # #<buffer odh_agenda.org> # # # # # # # # #) ("message-mode" #<buffer *sent mail to Bonnie Bingham*>)) (#("Dir: home/torysa/Language/Formal" 0 34 (face magit-section-heading)) ("org-mode" # #) ("message-mode" #<buffer *sent mail to John Cheng*<2>>)))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (buffer depth) (puthash buffer (mapcar #'(lambda (it) (funcall –cl-format-column– buffer depth it)) columns) table)) # 2) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth)))) (let ((it (car list))) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth))))) (while list (let ((it (car list))) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth))))) (setq it-index (1+ it-index)) (setq list (cdr list))) (let ((list groups) (it-index 0)) (while list (let ((it (car list))) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth))))) (setq it-index (1+ it-index)) (setq list (cdr list)))) (closure ((–cl-each-buffer– . #0) (–cl-format-buffer– closure #2 (buffer depth) (puthash buffer (mapcar … columns) table)) (–cl-format-column– closure #2 (buffer depth column-name) (let* (… … …) (let* … …) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (fn groups depth) (let ((list groups) (it-index 0)) (while list (let (…) (cond … …)) (setq it-index (1+ it-index)) (setq list (cdr list)))))((closure ((–cl-each-buffer– closure #3 (fn groups depth) (let ((list groups) (it-index 0)) (while list (let (…) (cond … …)) (setq it-index (1+ it-index)) (setq list (cdr list))))) (–cl-format-buffer– . #1) (–cl-format-column– closure #3 (buffer depth column-name) (let ((fn (alist-get column-name bufler-column-format-fns nil nil …)) (value (funcall fn buffer depth)) (current-column-size (or … 0))) (let* ((key column-name)) (condition-case nil (with-no-warnings …) (map-not-inplace …))) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil ("bufler-list-mode" #<buffer *Bufler*>) ("org-agenda-mode" #<buffer *Org Agenda(a)*>) ("gnus-group-mode" #<buffer *Group*>) ("comint-mode" #<buffer *compilation*>) ("special-mode" #<buffer *elfeed-log*>) ("bbdb-mode" #<buffer *BBDB*>) ("fundamental-mode" #<buffer *trace of SMTP session to gateway.byu.edu*> #<buffer *trace of SMTP session to smtp.gmail.com*>) ("eww-mode" #<buffer *eww*>) ("calendar-mode" #<buffer *Calendar*>) ("shell-mode" #<buffer *shell*> #<buffer *Async Shell Command*> # #<buffer *Async Shell Command*<5>> #<buffer *Async Shell Command*<6>>))) ("Dir: ~/emacs/.emacs.d/" (#("Dir: home/torysa/emacs.emacs.d/straight/build/pd…" 0 71 (face magit-section-heading)) ("message-mode" #<buffer *sent mail to John Cheng*> #<buffer *sent reply to Clemens Radermacher*> #<buffer *sent reply to Brad Woodward*> #<buffer *sent reply to Shannon Resare*>) ("fundamental-mode" #<buffer .newsrc-dribble>))) (nil (#("Dir: home/torysa/Documents/Diary" 0 34 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/Documents/Priesthood" 0 39 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/Language/Natural" 0 35 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/emacs" 0 24 (face magit-section-heading)) ("org-mode" #) ("emacs-lisp-mode" #)) (#("Dir: home/torysa/emacs/org" 0 28 (face magit-section-heading)) ("org-mode" #<buffer odh_meetings.org> # #<buffer odh_agenda.org> # # # # # # # # #) ("message-mode" #<buffer *sent mail to Bonnie Bingham*>)) (#("Dir: home/torysa/Language/Formal" 0 34 (face magit-section-heading)) ("org-mode" # #) ("message-mode" #<buffer *sent mail to John Cheng*<2>>)))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (buffer depth) (puthash buffer (mapcar #'(lambda (it) (funcall –cl-format-column– buffer depth it)) columns) table)) ("shell-mode" #<buffer *shell*> #<buffer *Async Shell Command*> # #<buffer *Async Shell Command*<5>> #<buffer *Async Shell Command*<6>>) 2) funcall((closure ((–cl-each-buffer– . #1) (–cl-format-buffer– closure #3 (buffer depth) (puthash buffer (mapcar … columns) table)) (–cl-format-column– closure #3 (buffer depth column-name) (let (… … …) (let* … …) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (fn groups depth) (let ((list groups) (it-index 0)) (while list (let (…) (cond … …)) (setq it-index (1+ it-index)) (setq list (cdr list))))) (closure ((–cl-each-buffer– closure #4 (fn groups depth) (let (… …) (while list … … …))) (–cl-format-buffer– . #2) (–cl-format-column– closure #4 (buffer depth column-name) (let (… … …) (let* … …) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer *scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (buffer depth) (puthash buffer (mapcar #'(lambda … …) columns) table)) ("shell-mode" #<buffer *shell*> #<buffer *Async Shell Command*> # #<buffer *Async Shell Command*<5>> #<buffer *Async Shell Command*<6>>) 2) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth)))) (let ((it (car list))) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth))))) (while list (let ((it (car list))) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth))))) (setq it-index (1+ it-index)) (setq list (cdr list))) (let ((list groups) (it-index 0)) (while list (let ((it (car list))) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth))))) (setq it-index (1+ it-index)) (setq list (cdr list)))) (closure ((–cl-each-buffer– . #0) (–cl-format-buffer– closure #2 (buffer depth) (puthash buffer (mapcar … columns) table)) (–cl-format-column– closure #2 (buffer depth column-name) (let* (… … …) (let* … …) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (fn groups depth) (let ((list groups) (it-index 0)) (while list (let (…) (cond … …)) (setq it-index (1+ it-index)) (setq list (cdr list)))))((closure ((–cl-each-buffer– closure #3 (fn groups depth) (let ((list groups) (it-index 0)) (while list (let (…) (cond … …)) (setq it-index (1+ it-index)) (setq list (cdr list))))) (–cl-format-buffer– . #1) (–cl-format-column– closure #3 (buffer depth column-name) (let ((fn (alist-get column-name bufler-column-format-fns nil nil …)) (value (funcall fn buffer depth)) (current-column-size (or … 0))) (let* ((key column-name)) (condition-case nil (with-no-warnings …) (map-not-inplace …))) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil ("bufler-list-mode" #<buffer *Bufler*>) ("org-agenda-mode" #<buffer *Org Agenda(a)*>) ("gnus-group-mode" #<buffer *Group*>) ("comint-mode" #<buffer *compilation*>) ("special-mode" #<buffer *elfeed-log*>) ("bbdb-mode" #<buffer *BBDB*>) ("fundamental-mode" #<buffer *trace of SMTP session to gateway.byu.edu*> #<buffer *trace of SMTP session to smtp.gmail.com*>) ("eww-mode" #<buffer *eww*>) ("calendar-mode" #<buffer *Calendar*>) ("shell-mode" #<buffer *shell*> #<buffer *Async Shell Command*> # #<buffer *Async Shell Command*<5>> #<buffer *Async Shell Command*<6>>))) ("Dir: ~/emacs/.emacs.d/" (#("Dir: home/torysa/emacs.emacs.d/straight/build/pd…" 0 71 (face magit-section-heading)) ("message-mode" #<buffer *sent mail to John Cheng*> #<buffer *sent reply to Clemens Radermacher*> #<buffer *sent reply to Brad Woodward*> #<buffer *sent reply to Shannon Resare*>) ("fundamental-mode" #<buffer .newsrc-dribble>))) (nil (#("Dir: home/torysa/Documents/Diary" 0 34 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/Documents/Priesthood" 0 39 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/Language/Natural" 0 35 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/emacs" 0 24 (face magit-section-heading)) ("org-mode" #) ("emacs-lisp-mode" #)) (#("Dir: home/torysa/emacs/org" 0 28 (face magit-section-heading)) ("org-mode" #<buffer odh_meetings.org> # #<buffer odh_agenda.org> # # # # # # # # #) ("message-mode" #<buffer *sent mail to Bonnie Bingham*>)) (#("Dir: home/torysa/Language/Formal" 0 34 (face magit-section-heading)) ("org-mode" # #) ("message-mode" #<buffer *sent mail to John Cheng*<2>>)))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (buffer depth) (puthash buffer (mapcar #'(lambda (it) (funcall –cl-format-column– buffer depth it)) columns) table)) (nil ("bufler-list-mode" #<buffer *Bufler*>) ("org-agenda-mode" #<buffer *Org Agenda(a)*>) ("gnus-group-mode" #<buffer *Group*>) ("comint-mode" #<buffer *compilation*>) ("special-mode" #<buffer *elfeed-log*>) ("bbdb-mode" #<buffer *BBDB*>) ("fundamental-mode" #<buffer *trace of SMTP session to gateway.byu.edu*> #<buffer *trace of SMTP session to smtp.gmail.com*>) ("eww-mode" #<buffer *eww*>) ("calendar-mode" #<buffer *Calendar*>) ("shell-mode" #<buffer *shell*> #<buffer *Async Shell Command*> # #<buffer *Async Shell Command*<5>> #<buffer *Async Shell Command*<6>>)) 1) funcall((closure ((–cl-each-buffer– . #1) (–cl-format-buffer– closure #3 (buffer depth) (puthash buffer (mapcar … columns) table)) (–cl-format-column– closure #3 (buffer depth column-name) (let (… … …) (let* … …) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (fn groups depth) (let ((list groups) (it-index 0)) (while list (let (…) (cond … …)) (setq it-index (1+ it-index)) (setq list (cdr list))))) (closure ((–cl-each-buffer– closure #4 (fn groups depth) (let (… …) (while list … … …))) (–cl-format-buffer– . #2) (–cl-format-column– closure #4 (buffer depth column-name) (let (… … …) (let* … …) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer *scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (buffer depth) (puthash buffer (mapcar #'(lambda … …) columns) table)) (nil ("bufler-list-mode" #<buffer *Bufler*>) ("org-agenda-mode" #<buffer *Org Agenda(a)*>) ("gnus-group-mode" #<buffer *Group*>) ("comint-mode" #<buffer *compilation*>) ("special-mode" #<buffer *elfeed-log*>) ("bbdb-mode" #<buffer *BBDB*>) ("fundamental-mode" #<buffer *trace of SMTP session to gateway.byu.edu*> #<buffer *trace of SMTP session to smtp.gmail.com*>) ("eww-mode" #<buffer *eww*>) ("calendar-mode" #<buffer *Calendar*>) ("shell-mode" #<buffer *shell*> #<buffer *Async Shell Command*> # #<buffer *Async Shell Command*<5>> #<buffer *Async Shell Command*<6>>)) 1) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth)))) (let ((it (car list))) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth))))) (while list (let ((it (car list))) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth))))) (setq it-index (1+ it-index)) (setq list (cdr list))) (let ((list groups) (it-index 0)) (while list (let ((it (car list))) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth))))) (setq it-index (1+ it-index)) (setq list (cdr list)))) (closure ((–cl-each-buffer– . #0) (–cl-format-buffer– closure #2 (buffer depth) (puthash buffer (mapcar … columns) table)) (–cl-format-column– closure #2 (buffer depth column-name) (let* (… … …) (let* … …) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (fn groups depth) (let ((list groups) (it-index 0)) (while list (let (…) (cond … …)) (setq it-index (1+ it-index)) (setq list (cdr list)))))((closure ((–cl-each-buffer– closure #3 (fn groups depth) (let ((list groups) (it-index 0)) (while list (let … …) (setq it-index …) (setq list …)))) (–cl-format-buffer– . #1) (–cl-format-column– closure #3 (buffer depth column-name) (let ((fn …) (value …) (current-column-size …)) (let* (…) (condition-case nil … …)) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil ("bufler-list-mode" #<buffer *Bufler*>) ("org-agenda-mode" #<buffer *Org Agenda(a)*>) ("gnus-group-mode" #<buffer *Group*>) ("comint-mode" #<buffer *compilation*>) ("special-mode" #<buffer *elfeed-log*>) ("bbdb-mode" #<buffer *BBDB*>) ("fundamental-mode" #<buffer *trace of SMTP session to gateway.byu.edu*> #<buffer *trace of SMTP session to smtp.gmail.com*>) ("eww-mode" #<buffer *eww*>) ("calendar-mode" #<buffer *Calendar*>) ("shell-mode" #<buffer *shell*> #<buffer *Async Shell Command*> # #<buffer *Async Shell Command*<5>> #<buffer *Async Shell Command*<6>>))) ("Dir: ~/emacs/.emacs.d/" (#("Dir: home/torysa/emacs.emacs.d/straight/bu…" 0 71 …) ("message-mode" #<buffer *sent mail to John Cheng*> #<buffer *sent reply to Clemens Radermacher*> #<buffer *sent reply to Brad Woodward*> #<buffer *sent reply to Shannon Resare*>) ("fundamental-mode" #<buffer .newsrc-dribble>))) (nil (#("Dir: home/torysa/Documents/Diary" 0 34 …) ("org-mode" #)) (#("Dir: home/torysa/Documents/Priesthood" 0 39 …) ("org-mode" #)) (#("Dir: home/torysa/Language/Natural" 0 35 …) ("org-mode" #)) (#("Dir: home/torysa/emacs" 0 24 …) ("org-mode" #) ("emacs-lisp-mode" #)) (#("Dir: home/torysa/emacs/org" 0 28 …) ("org-mode" #<buffer odh_meetings.org> # #<buffer odh_agenda.org> # # # # # # # # #) ("message-mode" #<buffer *sent mail to Bonnie Bingham*>)) (#("Dir: home/torysa/Language/Formal" 0 34 …) ("org-mode" # #) ("message-mode" #<buffer *sent mail to John Cheng*<2>>)))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (buffer depth) (puthash buffer (mapcar #'(lambda (it) (funcall –cl-format-column– buffer depth it)) columns) table)) ("*Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil ("bufler-list-mode" #<buffer *Bufler*>) ("org-agenda-mode" #<buffer *Org Agenda(a)*>) ("gnus-group-mode" #<buffer *Group*>) ("comint-mode" #<buffer *compilation*>) ("special-mode" #<buffer *elfeed-log*>) ("bbdb-mode" #<buffer *BBDB*>) ("fundamental-mode" #<buffer *trace of SMTP session to gateway.byu.edu*> #<buffer *trace of SMTP session to smtp.gmail.com*>) ("eww-mode" #<buffer *eww*>) ("calendar-mode" #<buffer *Calendar*>) ("shell-mode" #<buffer *shell*> #<buffer *Async Shell Command*> # #<buffer *Async Shell Command*<5>> #<buffer *Async Shell Command*<6>>))) 1) funcall((closure ((–cl-each-buffer– . #1) (–cl-format-buffer– closure #3 (buffer depth) (puthash buffer (mapcar … columns) table)) (–cl-format-column– closure #3 (buffer depth column-name) (let (… … …) (let* … …) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (fn groups depth) (let ((list groups) (it-index 0)) (while list (let (…) (cond … …)) (setq it-index (1+ it-index)) (setq list (cdr list))))) (closure ((–cl-each-buffer– closure #4 (fn groups depth) (let (… …) (while list … … …))) (–cl-format-buffer– . #2) (–cl-format-column– closure #4 (buffer depth column-name) (let (… … …) (let* … …) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (buffer depth) (puthash buffer (mapcar #'(lambda … …) columns) table)) ("*Special" ("Special" #<buffer *scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil ("bufler-list-mode" #<buffer *Bufler*>) ("org-agenda-mode" #<buffer *Org Agenda(a)*>) ("gnus-group-mode" #<buffer *Group*>) ("comint-mode" #<buffer *compilation*>) ("special-mode" #<buffer *elfeed-log*>) ("bbdb-mode" #<buffer *BBDB*>) ("fundamental-mode" #<buffer *trace of SMTP session to gateway.byu.edu*> #<buffer *trace of SMTP session to smtp.gmail.com*>) ("eww-mode" #<buffer *eww*>) ("calendar-mode" #<buffer *Calendar*>) ("shell-mode" #<buffer *shell*> #<buffer *Async Shell Command*> # #<buffer *Async Shell Command*<5>> #<buffer *Async Shell Command*<6>>))) 1) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth)))) (let ((it (car list))) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth))))) (while list (let ((it (car list))) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth))))) (setq it-index (1+ it-index)) (setq list (cdr list))) (let ((list groups) (it-index 0)) (while list (let ((it (car list))) (cond ((bufferp it) (funcall –cl-format-buffer– it depth)) ((listp it) (funcall –cl-each-buffer– fn it (if (car it) (1+ depth) depth))))) (setq it-index (1+ it-index)) (setq list (cdr list)))) (closure ((–cl-each-buffer– . #0) (–cl-format-buffer– closure #2 (buffer depth) (puthash buffer (mapcar … columns) table)) (–cl-format-column– closure #2 (buffer depth column-name) (let* (… … …) (let* … …) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (fn groups depth) (let ((list groups) (it-index 0)) (while list (let (…) (cond … …)) (setq it-index (1+ it-index)) (setq list (cdr list)))))((closure ((–cl-each-buffer– closure #3 (fn groups depth) (let (… …) (while list … … …))) (–cl-format-buffer– . #1) (–cl-format-column– closure #3 (buffer depth column-name) (let (… … …) (let* … …) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (buffer depth) (puthash buffer (mapcar #'(lambda … …) columns) table)) (("*EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil ("bufler-list-mode" #<buffer *Bufler*>) ("org-agenda-mode" #<buffer *Org Agenda(a)*>) ("gnus-group-mode" #<buffer *Group*>) ("comint-mode" #<buffer *compilation*>) ("special-mode" #<buffer *elfeed-log*>) ("bbdb-mode" #<buffer *BBDB*>) ("fundamental-mode" #<buffer *trace of SMTP session to gateway.byu.edu*> #<buffer *trace of SMTP session to smtp.gmail.com*>) ("eww-mode" #<buffer *eww*>) ("calendar-mode" #<buffer *Calendar*>) ("shell-mode" #<buffer *shell*> #<buffer *Async Shell Command*> # #<buffer *Async Shell Command*<5>> #<buffer *Async Shell Command*<6>>))) ("Dir: ~/emacs/.emacs.d/" (#("Dir: home/torysa/emacs.emacs.d/strai…" 0 71 (face magit-section-heading)) ("message-mode" #<buffer *sent mail to John Cheng*> #<buffer *sent reply to Clemens Radermacher*> #<buffer *sent reply to Brad Woodward*> #<buffer *sent reply to Shannon Resare*>) ("fundamental-mode" #<buffer .newsrc-dribble>))) (nil (#("Dir: home/torysa/Documents/Diary" 0 34 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/Documents/Priesthood…" 0 39 (face magit-section-heading)) ("org-mode" #)) (#("Dir: /home/torysa/Language/Natural" 0 35 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/emacs" 0 24 (face magit-section-heading)) ("org-mode" #) ("emacs-lisp-mode" #)) (#("Dir: home/torysa/emacs/org" 0 28 (face magit-section-heading)) ("org-mode" #<buffer odh_meetings.org> # #<buffer odh_agenda.org> # # # # # # # # #) ("message-mode" #<buffer *sent mail to Bonnie Bingham*>)) (#("Dir: home/torysa/Language/Formal" 0 34 (face magit-section-heading)) ("org-mode" # #) ("message-mode" #<buffer *sent mail to John Cheng*<2>>)))) 0) funcall((closure ((–cl-each-buffer– . #1) (–cl-format-buffer– closure #3 (buffer depth) (puthash buffer (mapcar … columns) table)) (–cl-format-column– closure #3 (buffer depth column-name) (let (… … …) (let* … …) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (fn groups depth) (let ((list groups) (it-index 0)) (while list (let (…) (cond … …)) (setq it-index (1+ it-index)) (setq list (cdr list))))) (closure ((–cl-each-buffer– closure #4 (fn groups depth) (let (… …) (while list … … …))) (–cl-format-buffer– . #2) (–cl-format-column– closure #4 (buffer depth column-name) (let (… … …) (let* … …) value)) (column-sizes ("Path" . 56) ("Size" . 6) ("Name" . 35)) (columns "Name" "Size" "Path") (table . #<hash-table eql 22/65 0x5b6e15>) (groups ("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil … … … … … … … … … …)) ("Dir: ~/emacs/.emacs.d/" (… … …)) (nil (… …) (… …) (… …) (… … …) (… … …) (… … …))) cl-struct-bufler-group-tags bufler-list-mode-abbrev-table bufler-list-mode-syntax-table bufler-groups t) (buffer depth) (puthash buffer (mapcar #'(lambda … …) columns) table)) (("*EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil ("bufler-list-mode" #<buffer *Bufler*>) ("org-agenda-mode" #<buffer *Org Agenda(a)*>) ("gnus-group-mode" #<buffer *Group*>) ("comint-mode" #<buffer *compilation*>) ("special-mode" #<buffer *elfeed-log*>) ("bbdb-mode" #<buffer *BBDB*>) ("fundamental-mode" #<buffer *trace of SMTP session to gateway.byu.edu*> #<buffer *trace of SMTP session to smtp.gmail.com*>) ("eww-mode" #<buffer *eww*>) ("calendar-mode" #<buffer *Calendar*>) ("shell-mode" #<buffer *shell*> #<buffer *Async Shell Command*> # #<buffer *Async Shell Command*<5>> #<buffer *Async Shell Command*<6>>))) ("Dir: ~/emacs/.emacs.d/" (#("Dir: home/torysa/emacs.emacs.d/strai…" 0 71 (face magit-section-heading)) ("message-mode" #<buffer *sent mail to John Cheng*> #<buffer *sent reply to Clemens Radermacher*> #<buffer *sent reply to Brad Woodward*> #<buffer *sent reply to Shannon Resare*>) ("fundamental-mode" #<buffer .newsrc-dribble>))) (nil (#("Dir: home/torysa/Documents/Diary" 0 34 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/Documents/Priesthood…" 0 39 (face magit-section-heading)) ("org-mode" #)) (#("Dir: /home/torysa/Language/Natural" 0 35 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/emacs" 0 24 (face magit-section-heading)) ("org-mode" #) ("emacs-lisp-mode" #)) (#("Dir: home/torysa/emacs/org" 0 28 (face magit-section-heading)) ("org-mode" #<buffer odh_meetings.org> # #<buffer odh_agenda.org> # # # # # # # # #) ("message-mode" #<buffer *sent mail to Bonnie Bingham*>)) (#("Dir: home/torysa/Language/Formal" 0 34 (face magit-section-heading)) ("org-mode" # #) ("message-mode" #<buffer *sent mail to John Cheng*<2>>)))) 0) (let (–cl-format-column– –cl-format-buffer– –cl-each-buffer–) (setq –cl-format-column– #'(lambda (buffer depth column-name) (let ((fn (alist-get column-name bufler-column-format-fns nil nil …)) (value (funcall fn buffer depth)) (current-column-size (or … 0))) (let* ((key column-name)) (condition-case nil (with-no-warnings …) (map-not-inplace …))) value))) (setq –cl-format-buffer– #'(lambda (buffer depth) (puthash buffer (mapcar #'(lambda … …) columns) table))) (setq –cl-each-buffer– #'(lambda (fn groups depth) (let ((list groups) (it-index 0)) (while list (let (…) (cond … …)) (setq it-index (1+ it-index)) (setq list (cdr list)))))) (funcall –cl-each-buffer– –cl-format-buffer– groups 0) (let* ((column-sizes (nreverse column-sizes)) (format-string (string-join (let* ((–cl-var– column-sizes) (size nil) (–cl-var–) (–cl-var– nil)) (while (consp –cl-var–) (setq size … –cl-var– …) (setq –cl-var– …) (setq –cl-var– …)) (nreverse –cl-var–)) " "))) (maphash #'(lambda (buffer column-values) (puthash buffer (apply #'format format-string column-values) table)) table) (cons table column-sizes))) (let ((table (make-hash-table)) (columns bufler-columns) column-sizes) (let (–cl-format-column– –cl-format-buffer– –cl-each-buffer–) (setq –cl-format-column– #'(lambda (buffer depth column-name) (let* ((fn …) (value …) (current-column-size …)) (let* (…) (condition-case nil … …)) value))) (setq –cl-format-buffer– #'(lambda (buffer depth) (puthash buffer (mapcar #'… columns) table))) (setq –cl-each-buffer– #'(lambda (fn groups depth) (let ((list groups) (it-index 0)) (while list (let … …) (setq it-index …) (setq list …))))) (funcall –cl-each-buffer– –cl-format-buffer– groups 0) (let* ((column-sizes (nreverse column-sizes)) (format-string (string-join (let* (… … … …) (while … … … …) (nreverse –cl-var–)) " "))) (maphash #'(lambda (buffer column-values) (puthash buffer (apply … format-string column-values) table)) table) (cons table column-sizes)))) bufler-format-buffer-groups((("EXWM" ("Firefox" # #<buffer F : Notifications / Twit> #<buffer F : Slack | Lindsay Chin>) (nil #<buffer G : Thank you - Zoom - G> #<buffer E : emacs@endless-inside> #<buffer T : Telegram (7)> #)) ("Special" ("Special" #<buffer scratch*> #<buffer *Messages*> #<buffer *Warnings*>) (nil ("bufler-list-mode" #<buffer *Bufler*>) ("org-agenda-mode" #<buffer *Org Agenda(a)*>) ("gnus-group-mode" #<buffer *Group*>) ("comint-mode" #<buffer *compilation*>) ("special-mode" #<buffer *elfeed-log*>) ("bbdb-mode" #<buffer *BBDB*>) ("fundamental-mode" #<buffer *trace of SMTP session to gateway.byu.edu*> #<buffer *trace of SMTP session to smtp.gmail.com*>) ("eww-mode" #<buffer *eww*>) ("calendar-mode" #<buffer *Calendar*>) ("shell-mode" #<buffer *shell*> #<buffer *Async Shell Command*> # #<buffer *Async Shell Command*<5>> #<buffer *Async Shell Command*<6>>))) ("Dir: ~/emacs/.emacs.d/" (#("Dir: home/torysa/emacs.emacs.d/straight/build/pd…" 0 71 (face magit-section-heading)) ("message-mode" #<buffer *sent mail to John Cheng*> #<buffer *sent reply to Clemens Radermacher*> #<buffer *sent reply to Brad Woodward*> #<buffer *sent reply to Shannon Resare*>) ("fundamental-mode" #<buffer .newsrc-dribble>))) (nil (#("Dir: home/torysa/Documents/Diary" 0 34 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/Documents/Priesthood" 0 39 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/Language/Natural" 0 35 (face magit-section-heading)) ("org-mode" #)) (#("Dir: home/torysa/emacs" 0 24 (face magit-section-heading)) ("org-mode" #) ("emacs-lisp-mode" #)) (#("Dir: home/torysa/emacs/org" 0 28 (face magit-section-heading)) ("org-mode" #<buffer odh_meetings.org> # #<buffer odh_agenda.org> # # # # # # # # #) ("message-mode" #<buffer *sent mail to Bonnie Bingham*>)) (#("Dir: home/torysa/Language/Formal" 0 34 (face magit-section-heading)) ("org-mode" # #) ("message-mode" #<buffer *sent mail to John Cheng*<2>>))))) (let ((inhibit-read-only t) (bufler-vc-refresh force-refresh) (groups (bufler-buffers)) (val (bufler-format-buffer-groups groups)) (x23 (car val)) (x24 (cdr val))) (let ((column-sizes x24) (format-table x23)) (let ((header (concat (format (format " %%-%ss" …) (car …)) (let* (… … … … …) (while … … … … …) –cl-var–))) (pos)) (progn (setq format-table format-table) (if bufler-reverse (progn (setq groups (nreverse …)))) (save-current-buffer (set-buffer (get-buffer-create "*Bufler")) (setq pos (point)) (bufler-list-mode) (erase-buffer) (let* ((type24 …) (section25 …)) (eieio-oset section25 'hidden (let … …)) (let (… … …) (catch … … … … … … …) section25)) (setq header-line-format header) (setq buffer-read-only t) (pop-to-buffer (current-buffer)) (goto-char pos)) (if bufler-cache-related-dirs-timer (progn (cancel-timer bufler-cache-related-dirs-timer))) (setq bufler-cache-related-dirs-timer (run-with-idle-timer bufler-cache-related-dirs-timeout nil #'(lambda nil …))))))) (let (–cl-insert-thing– –cl-insert-buffer– –cl-insert-group– –cl-format-group– –cl-hidden-p– –cl-as-string– –cl-format<– –cl-boring-p–) (setq –cl-insert-thing– #'(lambda (thing path &rest –cl-rest–) "\n\n(fn THING PATH &optional (LEVEL 0))" (let* ((level (if –cl-rest– … 0))) (progn (if –cl-rest– (signal … …)) (if (bufferp thing) (progn …) (funcall –cl-insert-group– thing … level)))))) (setq –cl-insert-buffer– #'(lambda (buffer) (let* ((type20 'bufler-buffer) (section21 (funcall … :type … :value buffer :start … :parent magit-insert-section–parent))) (eieio-oset section21 'hidden (let (…) (if value … …))) (let ((magit-insert-section–current section21) (magit-insert-section–parent section21) (magit-insert-section–oldroot …)) (catch 'cancel-section (insert … "\n") (run-hooks …) (magit-insert-child-count section21) (set-marker-insertion-type … t) (let* … …) (if … … …)) section21)))) (setq –cl-insert-group– #'(lambda (group path level) (let* ((val (car group))) (if (null val) (progn (let* … …)) (let* (… …) (let … …)))))) (setq –cl-format-group– #'(lambda (group level) (let* ((string (cond … …))) (propertize string 'face (list :inherit (list … …)))))) (setq –cl-hidden-p– #'(lambda (buffer) (string-prefix-p " " (buffer-name buffer)))) (setq –cl-as-string– #'(lambda (arg) (cond ((stringp arg) arg) (t (format "%s" arg))))) (setq –cl-format<– #'(lambda (test-dir buffer-dir) (string< (funcall –cl-as-string– test-dir) (funcall –cl-as-string– buffer-dir)))) (setq –cl-boring-p– #'(lambda (buffer) (funcall –cl-hidden-p– buffer))) (if force-refresh (progn (setq bufler-cache nil))) (let* ((inhibit-read-only t) (bufler-vc-refresh force-refresh) (groups (bufler-buffers)) (val (bufler-format-buffer-groups groups)) (x23 (car val)) (x24 (cdr val))) (let ((column-sizes x24) (format-table x23)) (let ((header (concat (format … …) (let* … … –cl-var–))) (pos)) (progn (setq format-table format-table) (if bufler-reverse (progn (setq groups …))) (save-current-buffer (set-buffer (get-buffer-create "*Bufler")) (setq pos (point)) (bufler-list-mode) (erase-buffer) (let* (… …) (eieio-oset section25 … …) (let … … section25)) (setq header-line-format header) (setq buffer-read-only t) (pop-to-buffer (current-buffer)) (goto-char pos)) (if bufler-cache-related-dirs-timer (progn (cancel-timer bufler-cache-related-dirs-timer))) (setq bufler-cache-related-dirs-timer (run-with-idle-timer bufler-cache-related-dirs-timeout nil #'…))))))) (let (format-table) (let (–cl-insert-thing– –cl-insert-buffer– –cl-insert-group– –cl-format-group– –cl-hidden-p– –cl-as-string– –cl-format<– –cl-boring-p–) (setq –cl-insert-thing– #'(lambda (thing path &rest –cl-rest–) "\n\n(fn THING PATH &optional (LEVEL 0))" (let* ((level …)) (progn (if –cl-rest– …) (if … … …))))) (setq –cl-insert-buffer– #'(lambda (buffer) (let* ((type20 …) (section21 …)) (eieio-oset section21 'hidden (let … …)) (let (… … …) (catch … … … … … … …) section21)))) (setq –cl-insert-group– #'(lambda (group path level) (let* ((val …)) (if (null val) (progn …) (let* … …))))) (setq –cl-format-group– #'(lambda (group level) (let* ((string …)) (propertize string 'face (list :inherit …))))) (setq –cl-hidden-p– #'(lambda (buffer) (string-prefix-p " " (buffer-name buffer)))) (setq –cl-as-string– #'(lambda (arg) (cond ((stringp arg) arg) (t (format "%s" arg))))) (setq –cl-format<– #'(lambda (test-dir buffer-dir) (string< (funcall –cl-as-string– test-dir) (funcall –cl-as-string– buffer-dir)))) (setq –cl-boring-p– #'(lambda (buffer) (funcall –cl-hidden-p– buffer))) (if force-refresh (progn (setq bufler-cache nil))) (let* ((inhibit-read-only t) (bufler-vc-refresh force-refresh) (groups (bufler-buffers)) (val (bufler-format-buffer-groups groups)) (x23 (car val)) (x24 (cdr val))) (let ((column-sizes x24) (format-table x23)) (let ((header (concat … …)) (pos)) (progn (setq format-table format-table) (if bufler-reverse (progn …)) (save-current-buffer (set-buffer …) (setq pos …) (bufler-list-mode) (erase-buffer) (let … … …) (setq header-line-format header) (setq buffer-read-only t) (pop-to-buffer …) (goto-char pos)) (if bufler-cache-related-dirs-timer (progn …)) (setq bufler-cache-related-dirs-timer (run-with-idle-timer bufler-cache-related-dirs-timeout nil …)))))))) bufler-list() (let* nil (bufler–map-sections #'kill-buffer sections) (bufler-list)) (if sections (let* nil (bufler–map-sections #'kill-buffer sections) (bufler-list))) (let* ((sections (and t (or (magit-region-sections) (list (magit-current-section)))))) (if sections (let* nil (bufler–map-sections #'kill-buffer sections) (bufler-list)))) bufler-list-buffer-kill() funcall-interactively(bufler-list-buffer-kill) call-interactively(bufler-list-buffer-kill nil nil) command-execute(bufler-list-buffer-kill)

[alphapapa]

Thanks, I've seen this myself sometimes.

[alphapapa]

@WorldsEndless I think this is the same problem, or at least the same root cause, as the ones reported and fixed in #8 and #21. AFAICT, #21 should fix this, but that fix was applied a long time before you reported this. I hate to ask this, but can you confirm that this still happens, and that it happens on the latest version of this package? If it does, then maybe there's another place that buffer-live-p needs to be tested.

[WorldsEndless]

I haven't actually seen this issue in a while, so I think it may be gone.

[alphapapa]

Thanks, me neither, so I'm closing. Let me know if you see it again.