rougier / mu4e-dashboard

A dashboard for mu4e (mu for emacs)
GNU General Public License v3.0
463 stars 42 forks source link

mu4e-dashboard-update-all-async erroring #11

Closed sp1ff closed 3 years ago

sp1ff commented 3 years ago

Just downloaded; trying it out on a trivial dashboard & got Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil). Stack trace below, but I think the problem is in:

      (lambda (link)
        (when (string= (org-element-property :type link) "mu4e")
          (let* ((path  (org-element-property :path link))
                 (query (string-trim (nth 0 (split-string path "|"))))
                 (fmt   (nth 1 (split-string path "|")))
                 (beg   (org-element-property :contents-begin link))
                 (end   (org-element-property :contents-end link))
                 (size  (- end beg))) ;; <============= here

You should make sure beg and end are non-nil, first. Stack trace:

  -(nil nil)
  (let* ((path (org-element-property :path link)) (query (string-trim (nth 0 (split-string path "|")))) (fmt (nth 1 (split-string path "|"))) (beg (org-element-property :contents-begin link)) (end (org-element-property :contents-end link)) (size (- end beg))) (if (and fmt (> (length fmt) 0)) (let ((command (format "mu find %s 2> /dev/null | wc -l" query))) (async-shell-command-to-string command #'(lambda (output) (save-current-buffer (set-buffer buffer) (let ... ... ...)))))))
  (progn (let* ((path (org-element-property :path link)) (query (string-trim (nth 0 (split-string path "|")))) (fmt (nth 1 (split-string path "|"))) (beg (org-element-property :contents-begin link)) (end (org-element-property :contents-end link)) (size (- end beg))) (if (and fmt (> (length fmt) 0)) (let ((command (format "mu find %s 2> /dev/null | wc -l" query))) (async-shell-command-to-string command #'(lambda (output) (save-current-buffer ... ...)))))))
  (if (string= (org-element-property :type link) "mu4e") (progn (let* ((path (org-element-property :path link)) (query (string-trim (nth 0 (split-string path "|")))) (fmt (nth 1 (split-string path "|"))) (beg (org-element-property :contents-begin link)) (end (org-element-property :contents-end link)) (size (- end beg))) (if (and fmt (> (length fmt) 0)) (let ((command (format "mu find %s 2> /dev/null | wc -l" query))) (async-shell-command-to-string command #'(lambda ... ...)))))))
  (closure ((buffer . #<buffer dashboard.org>) t) (link) (if (string= (org-element-property :type link) "mu4e") (progn (let* ((path (org-element-property :path link)) (query (string-trim ...)) (fmt (nth 1 ...)) (beg (org-element-property :contents-begin link)) (end (org-element-property :contents-end link)) (size (- end beg))) (if (and fmt (> ... 0)) (let (...) (async-shell-command-to-string command ...)))))))((link (:type "mu4e" :path "m:/inria" :format plain :raw-link "mu4e:m:/inria" :application nil :search-option nil :begin 925 :end 938 :contents-begin nil :contents-end nil :post-blank 0 :parent (italic (:begin 922 :end 939 :contents-begin 923 :contents-end 938 :post-blank 0 :parent (paragraph (:begin 110 :end 1105 :contents-begin 110 :contents-end 1105 :post-blank 0 :post-affiliated 110 :parent (section ... #41)) (link (:type "mu4e" :path "flag:unread" :format bracket :raw-link "mu4e:flag:unread" :application nil :search-option nil :begin 110 :end 139 :contents-begin 130 :contents-end 136 :post-blank 1 :parent #41) #("Unread" 0 6 ...)) (italic (:begin 139 :end 175 :contents-begin 140 :contents-end 173 :post-blank 1 :parent #41) (link ... ...)) #(".... [u]  " 0 10 (:parent #41)) (link (:type "mu4e" :path "date:today..now" :format bracket :raw-link "mu4e:date:today..now" :application nil :search-option nil :begin 185 :end 217 :contents-begin 209 :contents-end 214 :post-blank 1 :parent #41) #("Today" 0 5 ...)) (italic (:begin 217 :end 257 :contents-begin 218 :contents-end 255 :post-blank 1 :parent #41) (link ... ...)) #(".......... [t]  " 0 16 (:parent #41)) (bold (:begin 273 :end 283 :contents-begin 274 :contents-end 281 :post-blank 1 :parent #41) #("Compose" 0 7 ...)) #("...... [C]\n" 0 11 (:parent #41)) (link (:type "mu4e" :path "m:/inria/inbox or m:/gmail/inbox or m:/univ/inbox" :format bracket :raw-link "mu4e:m:/inria/inbox or m:/gmail/inbox or m:/univ/i..." :application nil :search-option nil :begin 294 :end 361 :contents-begin 352 :contents-end 357 :post-blank 2 :parent #41) #("Inbox" 0 5 ...)) (italic (:begin 361 :end 435 :contents-begin 362 :contents-end 433 :post-blank 1 :parent #41) (link ... ...)) #(".... [i]  " 0 10 (:parent #41)) (link (:type "mu4e" :path "date:2d..today and not date:today..now" :format bracket :raw-link "mu4e:date:2d..today and not date:today..now" :application nil :search-option nil :begin 445 :end 504 :contents-begin 492 :contents-end 501 :post-blank 1 :parent #41) #("Yesterday" 0 9 ...)) (italic (:begin 504 :end 567 :contents-begin 505 :contents-end 565 :post-blank 1 :parent #41) (link ... ...)) #("...... [y]  " 0 12 (:parent #41)) (bold (:begin 579 :end 588 :contents-begin 580 :contents-end 586 :post-blank 1 :parent #41) #("Update" 0 6 ...)) #("....... [U]\n" 0 12 (:parent #41)) (link (:type "mu4e" :path "m:/inria/drafts or m:/gmail/drafts or m:/univ/draf..." :format bracket :raw-link "mu4e:m:/inria/drafts or m:/gmail/drafts or m:/univ..." :application nil :search-option nil :begin 600 :end 670 :contents-begin 661 :contents-end 667 :post-blank 1 :parent #41) #("Drafts" 0 6 ...)) (italic (:begin 670 :end 747 :contents-begin 671 :contents-end 745 :post-blank 1 :parent #41) (link ... ...)) #(".... [d]  " 0 10 (:parent #41)) (link (:type "mu4e" :path "date:7d..now" :format bracket :raw-link "mu4e:date:7d..now" :application nil :search-option nil :begin 757 :end 790 :contents-begin 778 :contents-end 787 :post-blank 1 :parent #41) #("Last week" 0 9 ...)) (italic (:begin 790 :end 828 :contents-begin 791 :contents-end 826 :post-blank 1 :parent #41) (link ... ...)) #("..... [w]  " 0 11 (:parent #41)) (bold (:begin 839 :end 856 :contents-begin 840 :contents-end 854 :post-blank 1 :parent #41) #("Switch context" 0 14 ...)) #("[;]\n" 0 4 (:parent #41)) (link (:type "mu4e" :path "m:/inria/sent or m:/gmail/sent or m:/univ/sent" :format bracket :raw-link "mu4e:m:/inria/sent or m:/gmail/sent or m:/univ/sen..." :application nil :search-option nil :begin 860 :end 922 :contents-begin 915 :contents-end 919 :post-blank 1 :parent #41) #("Sent" 0 4 ...)) #27 #("sent or m:/gmail/sent or m:/univ/sent|(%5d)][( 708..." 0 66 (:parent #41)) (link (:type "mu4e" :path "date:4w..now" :format bracket :raw-link "mu4e:date:4w..now" :application nil :search-option nil :begin 1005 :end 1039 :contents-begin 1026 :contents-end 1036 :post-blank 1 :parent #41) #("Last month" 0 10 ...)) (italic (:begin 1039 :end 1074 :contents-begin 1040 :contents-end 1072 :post-blank 1 :parent #41) (link ... ...)) #(".... [m]  " 0 10 (:parent #41)) (bold (:begin 1084 :end 1091 :contents-begin 1085 :contents-end 1089 :post-blank 1 :parent #41) #("Quit" 0 4 ...)) #("......... [q]\n" 0 14 (:parent #41)))) #("[[" 0 2 (:parent #27)) #1))))
  #f(compiled-function (--data) #<bytecode -0x5feeebb3b3d94c3>)((link (:type "mu4e" :path "m:/inria" :format plain :raw-link "mu4e:m:/inria" :application nil :search-option nil :begin 925 :end 938 :contents-begin nil :contents-end nil :post-blank 0 :parent (italic (:begin 922 :end 939 :contents-begin 923 :contents-end 938 :post-blank 0 :parent (paragraph (:begin 110 :end 1105 :contents-begin 110 :contents-end 1105 :post-blank 0 :post-affiliated 110 :parent (section ... #41)) (link (:type "mu4e" :path "flag:unread" :format bracket :raw-link "mu4e:flag:unread" :application nil :search-option nil :begin 110 :end 139 :contents-begin 130 :contents-end 136 :post-blank 1 :parent #41) #("Unread" 0 6 ...)) (italic (:begin 139 :end 175 :contents-begin 140 :contents-end 173 :post-blank 1 :parent #41) (link ... ...)) #(".... [u]  " 0 10 (:parent #41)) (link (:type "mu4e" :path "date:today..now" :format bracket :raw-link "mu4e:date:today..now" :application nil :search-option nil :begin 185 :end 217 :contents-begin 209 :contents-end 214 :post-blank 1 :parent #41) #("Today" 0 5 ...)) (italic (:begin 217 :end 257 :contents-begin 218 :contents-end 255 :post-blank 1 :parent #41) (link ... ...)) #(".......... [t]  " 0 16 (:parent #41)) (bold (:begin 273 :end 283 :contents-begin 274 :contents-end 281 :post-blank 1 :parent #41) #("Compose" 0 7 ...)) #("...... [C]\n" 0 11 (:parent #41)) (link (:type "mu4e" :path "m:/inria/inbox or m:/gmail/inbox or m:/univ/inbox" :format bracket :raw-link "mu4e:m:/inria/inbox or m:/gmail/inbox or m:/univ/i..." :application nil :search-option nil :begin 294 :end 361 :contents-begin 352 :contents-end 357 :post-blank 2 :parent #41) #("Inbox" 0 5 ...)) (italic (:begin 361 :end 435 :contents-begin 362 :contents-end 433 :post-blank 1 :parent #41) (link ... ...)) #(".... [i]  " 0 10 (:parent #41)) (link (:type "mu4e" :path "date:2d..today and not date:today..now" :format bracket :raw-link "mu4e:date:2d..today and not date:today..now" :application nil :search-option nil :begin 445 :end 504 :contents-begin 492 :contents-end 501 :post-blank 1 :parent #41) #("Yesterday" 0 9 ...)) (italic (:begin 504 :end 567 :contents-begin 505 :contents-end 565 :post-blank 1 :parent #41) (link ... ...)) #("...... [y]  " 0 12 (:parent #41)) (bold (:begin 579 :end 588 :contents-begin 580 :contents-end 586 :post-blank 1 :parent #41) #("Update" 0 6 ...)) #("....... [U]\n" 0 12 (:parent #41)) (link (:type "mu4e" :path "m:/inria/drafts or m:/gmail/drafts or m:/univ/draf..." :format bracket :raw-link "mu4e:m:/inria/drafts or m:/gmail/drafts or m:/univ..." :application nil :search-option nil :begin 600 :end 670 :contents-begin 661 :contents-end 667 :post-blank 1 :parent #41) #("Drafts" 0 6 ...)) (italic (:begin 670 :end 747 :contents-begin 671 :contents-end 745 :post-blank 1 :parent #41) (link ... ...)) #(".... [d]  " 0 10 (:parent #41)) (link (:type "mu4e" :path "date:7d..now" :format bracket :raw-link "mu4e:date:7d..now" :application nil :search-option nil :begin 757 :end 790 :contents-begin 778 :contents-end 787 :post-blank 1 :parent #41) #("Last week" 0 9 ...)) (italic (:begin 790 :end 828 :contents-begin 791 :contents-end 826 :post-blank 1 :parent #41) (link ... ...)) #("..... [w]  " 0 11 (:parent #41)) (bold (:begin 839 :end 856 :contents-begin 840 :contents-end 854 :post-blank 1 :parent #41) #("Switch context" 0 14 ...)) #("[;]\n" 0 4 (:parent #41)) (link (:type "mu4e" :path "m:/inria/sent or m:/gmail/sent or m:/univ/sent" :format bracket :raw-link "mu4e:m:/inria/sent or m:/gmail/sent or m:/univ/sen..." :application nil :search-option nil :begin 860 :end 922 :contents-begin 915 :contents-end 919 :post-blank 1 :parent #41) #("Sent" 0 4 ...)) #27 #("sent or m:/gmail/sent or m:/univ/sent|(%5d)][( 708..." 0 66 (:parent #41)) (link (:type "mu4e" :path "date:4w..now" :format bracket :raw-link "mu4e:date:4w..now" :application nil :search-option nil :begin 1005 :end 1039 :contents-begin 1026 :contents-end 1036 :post-blank 1 :parent #41) #("Last month" 0 10 ...)) (italic (:begin 1039 :end 1074 :contents-begin 1040 :contents-end 1072 :post-blank 1 :parent #41) (link ... ...)) #(".... [m]  " 0 10 (:parent #41)) (bold (:begin 1084 :end 1091 :contents-begin 1085 :contents-end 1089 :post-blank 1 :parent #41) #("Quit" 0 4 ...)) #("......... [q]\n" 0 14 (:parent #41)))) #("[[" 0 2 (:parent #27)) #1))))
  mapc(#f(compiled-function (--data) #<bytecode -0x5feeebb3b3d94c3>) (#("[[" 0 2 (:parent (italic (:begin 922 :end 939 :contents-begin 923 :contents-end 938 :post-blank 0 :parent (paragraph (:begin 110 :end 1105 :contents-begin 110 :contents-end 1105 :post-blank 0 :post-affiliated 110 :parent ...) (link ... ...) (italic ... ...) #(".... [u]  " 0 10 ...) (link ... ...) (italic ... ...) #(".......... [t]  " 0 16 ...) (bold ... ...) #("...... [C]\n" 0 11 ...) (link ... ...) (italic ... ...) #(".... [i]  " 0 10 ...) (link ... ...) (italic ... ...) #("...... [y]  " 0 12 ...) (bold ... ...) #("....... [U]\n" 0 12 ...) (link ... ...) (italic ... ...) #(".... [d]  " 0 10 ...) (link ... ...) (italic ... ...) #("..... [w]  " 0 11 ...) (bold ... ...) #("[;]\n" 0 4 ...) (link ... ...) #6 #("sent or m:/gmail/sent or m:/univ/sent|(%5d)][( 708..." 0 66 ...) (link ... ...) (italic ... ...) #(".... [m]  " 0 10 ...) (bold ... ...) #("......... [q]\n" 0 14 ...))) . #2))) (link (:type "mu4e" :path "m:/inria" :format plain :raw-link "mu4e:m:/inria" :application nil :search-option nil :begin 925 :end 938 :contents-begin nil :contents-end nil :post-blank 0 :parent (italic (:begin 922 :end 939 :contents-begin 923 :contents-end 938 :post-blank 0 :parent (paragraph (:begin 110 :end 1105 :contents-begin 110 :contents-end 1105 :post-blank 0 :post-affiliated 110 :parent ...) (link ... ...) (italic ... ...) #(".... [u]  " 0 10 ...) (link ... ...) (italic ... ...) #(".......... [t]  " 0 16 ...) (bold ... ...) #("...... [C]\n" 0 11 ...) (link ... ...) (italic ... ...) #(".... [i]  " 0 10 ...) (link ... ...) (italic ... ...) #("...... [y]  " 0 12 ...) (bold ... ...) #("....... [U]\n" 0 12 ...) (link ... ...) (italic ... ...) #(".... [d]  " 0 10 ...) (link ... ...) (italic ... ...) #("..... [w]  " 0 11 ...) (bold ... ...) #("[;]\n" 0 4 ...) (link ... ...) #30 #("sent or m:/gmail/sent or m:/univ/sent|(%5d)][( 708..." 0 66 ...) (link ... ...) (italic ... ...) #(".... [m]  " 0 10 ...) (bold ... ...) #("......... [q]\n" 0 14 ...))) . #2)))))
  #f(compiled-function (--data) #<bytecode -0x5feeebb3b3d94c3>)((italic (:begin 922 :end 939 :contents-begin 923 :contents-end 938 :post-blank 0 :parent (paragraph (:begin 110 :end 1105 :contents-begin 110 :contents-end 1105 :post-blank 0 :post-affiliated 110 :parent (section ... #15)) (link (:type "mu4e" :path "flag:unread" :format bracket :raw-link "mu4e:flag:unread" :application nil :search-option nil :begin 110 :end 139 :contents-begin 130 :contents-end 136 :post-blank 1 :parent #15) #("Unread" 0 6 ...)) (italic (:begin 139 :end 175 :contents-begin 140 :contents-end 173 :post-blank 1 :parent #15) (link ... ...)) #(".... [u]  " 0 10 (:parent #15)) (link (:type "mu4e" :path "date:today..now" :format bracket :raw-link "mu4e:date:today..now" :application nil :search-option nil :begin 185 :end 217 :contents-begin 209 :contents-end 214 :post-blank 1 :parent #15) #("Today" 0 5 ...)) (italic (:begin 217 :end 257 :contents-begin 218 :contents-end 255 :post-blank 1 :parent #15) (link ... ...)) #(".......... [t]  " 0 16 (:parent #15)) (bold (:begin 273 :end 283 :contents-begin 274 :contents-end 281 :post-blank 1 :parent #15) #("Compose" 0 7 ...)) #("...... [C]\n" 0 11 (:parent #15)) (link (:type "mu4e" :path "m:/inria/inbox or m:/gmail/inbox or m:..." :format bracket :raw-link "mu4e:m:/inria/inbox or m:/gmail/inbox ..." :application nil :search-option nil :begin 294 :end 361 :contents-begin 352 :contents-end 357 :post-blank 2 :parent #15) #("Inbox" 0 5 ...)) (italic (:begin 361 :end 435 :contents-begin 362 :contents-end 433 :post-blank 1 :parent #15) (link ... ...)) #(".... [i]  " 0 10 (:parent #15)) (link (:type "mu4e" :path "date:2d..today and not date:today..now" :format bracket :raw-link "mu4e:date:2d..today and not date:today..." :application nil :search-option nil :begin 445 :end 504 :contents-begin 492 :contents-end 501 :post-blank 1 :parent #15) #("Yesterday" 0 9 ...)) (italic (:begin 504 :end 567 :contents-begin 505 :contents-end 565 :post-blank 1 :parent #15) (link ... ...)) #("...... [y]  " 0 12 (:parent #15)) (bold (:begin 579 :end 588 :contents-begin 580 :contents-end 586 :post-blank 1 :parent #15) #("Update" 0 6 ...)) #("....... [U]\n" 0 12 (:parent #15)) (link (:type "mu4e" :path "m:/inria/drafts or m:/gmail/drafts or ..." :format bracket :raw-link "mu4e:m:/inria/drafts or m:/gmail/draft..." :application nil :search-option nil :begin 600 :end 670 :contents-begin 661 :contents-end 667 :post-blank 1 :parent #15) #("Drafts" 0 6 ...)) (italic (:begin 670 :end 747 :contents-begin 671 :contents-end 745 :post-blank 1 :parent #15) (link ... ...)) #(".... [d]  " 0 10 (:parent #15)) (link (:type "mu4e" :path "date:7d..now" :format bracket :raw-link "mu4e:date:7d..now" :application nil :search-option nil :begin 757 :end 790 :contents-begin 778 :contents-end 787 :post-blank 1 :parent #15) #("Last week" 0 9 ...)) (italic (:begin 790 :end 828 :contents-begin 791 :contents-end 826 :post-blank 1 :parent #15) (link ... ...)) #("..... [w]  " 0 11 (:parent #15)) (bold (:begin 839 :end 856 :contents-begin 840 :contents-end 854 :post-blank 1 :parent #15) #("Switch context" 0 14 ...)) #("[;]\n" 0 4 (:parent #15)) (link (:type "mu4e" :path "m:/inria/sent or m:/gmail/sent or m:/u..." :format bracket :raw-link "mu4e:m:/inria/sent or m:/gmail/sent or..." :application nil :search-option nil :begin 860 :end 922 :contents-begin 915 :contents-end 919 :post-blank 1 :parent #15) #("Sent" 0 4 ...)) #1 #("sent or m:/gmail/sent or m:/univ/sent|..." 0 66 (:parent #15)) (link (:type "mu4e" :path "date:4w..now" :format bracket :raw-link "mu4e:date:4w..now" :application nil :search-option nil :begin 1005 :end 1039 :contents-begin 1026 :contents-end 1036 :post-blank 1 :parent #15) #("Last month" 0 10 ...)) (italic (:begin 1039 :end 1074 :contents-begin 1040 :contents-end 1072 :post-blank 1 :parent #15) (link ... ...)) #(".... [m]  " 0 10 (:parent #15)) (bold (:begin 1084 :end 1091 :contents-begin 1085 :contents-end 1089 :post-blank 1 :parent #15) #("Quit" 0 4 ...)) #("......... [q]\n" 0 14 (:parent #15)))) #("[[" 0 2 (:parent #1)) (link (:type "mu4e" :path "m:/inria" :format plain :raw-link "mu4e:m:/inria" :application nil :search-option nil :begin 925 :end 938 :contents-begin nil :contents-end nil :post-blank 0 :parent #1))))
  mapc(#f(compiled-function (--data) #<bytecode -0x5feeebb3b3d94c3>) ((link (:type "mu4e" :path "flag:unread" :format bracket :raw-link "mu4e:flag:unread" :application nil :search-option nil :begin 110 :end 139 :contents-begin 130 :contents-end 136 :post-blank 1 :parent ...) #("Unread" 0 6 ...)) (italic (:begin 139 :end 175 :contents-begin 140 :contents-end 173 :post-blank 1 :parent ...) (link ... ...)) #(".... [u]  " 0 10 (:parent ...)) (link (:type "mu4e" :path "date:today..now" :format bracket :raw-link "mu4e:date:today..now" :application nil :search-option nil :begin 185 :end 217 :contents-begin 209 :contents-end 214 :post-blank 1 :parent ...) #("Today" 0 5 ...)) (italic (:begin 217 :end 257 :contents-begin 218 :contents-end 255 :post-blank 1 :parent ...) (link ... ...)) #(".......... [t]  " 0 16 (:parent ...)) (bold (:begin 273 :end 283 :contents-begin 274 :contents-end 281 :post-blank 1 :parent ...) #("Compose" 0 7 ...)) #("...... [C]\n" 0 11 (:parent ...)) (link (:type "mu4e" :path "m:/inria/inbox or m:/gmail..." :format bracket :raw-link "mu4e:m:/inria/inbox or m:/..." :application nil :search-option nil :begin 294 :end 361 :contents-begin 352 :contents-end 357 :post-blank 2 :parent ...) #("Inbox" 0 5 ...)) (italic (:begin 361 :end 435 :contents-begin 362 :contents-end 433 :post-blank 1 :parent ...) (link ... ...)) #(".... [i]  " 0 10 (:parent ...)) (link (:type "mu4e" :path "date:2d..today and not dat..." :format bracket :raw-link "mu4e:date:2d..today and no..." :application nil :search-option nil :begin 445 :end 504 :contents-begin 492 :contents-end 501 :post-blank 1 :parent ...) #("Yesterday" 0 9 ...)) (italic (:begin 504 :end 567 :contents-begin 505 :contents-end 565 :post-blank 1 :parent ...) (link ... ...)) #("...... [y]  " 0 12 (:parent ...)) (bold (:begin 579 :end 588 :contents-begin 580 :contents-end 586 :post-blank 1 :parent ...) #("Update" 0 6 ...)) #("....... [U]\n" 0 12 (:parent ...)) (link (:type "mu4e" :path "m:/inria/drafts or m:/gmai..." :format bracket :raw-link "mu4e:m:/inria/drafts or m:..." :application nil :search-option nil :begin 600 :end 670 :contents-begin 661 :contents-end 667 :post-blank 1 :parent ...) #("Drafts" 0 6 ...)) (italic (:begin 670 :end 747 :contents-begin 671 :contents-end 745 :post-blank 1 :parent ...) (link ... ...)) #(".... [d]  " 0 10 (:parent ...)) (link (:type "mu4e" :path "date:7d..now" :format bracket :raw-link "mu4e:date:7d..now" :application nil :search-option nil :begin 757 :end 790 :contents-begin 778 :contents-end 787 :post-blank 1 :parent ...) #("Last week" 0 9 ...)) (italic (:begin 790 :end 828 :contents-begin 791 :contents-end 826 :post-blank 1 :parent ...) (link ... ...)) #("..... [w]  " 0 11 (:parent ...)) (bold (:begin 839 :end 856 :contents-begin 840 :contents-end 854 :post-blank 1 :parent ...) #("Switch context" 0 14 ...)) #("[;]\n" 0 4 (:parent ...)) (link (:type "mu4e" :path "m:/inria/sent or m:/gmail/..." :format bracket :raw-link "mu4e:m:/inria/sent or m:/g..." :application nil :search-option nil :begin 860 :end 922 :contents-begin 915 :contents-end 919 :post-blank 1 :parent ...) #("Sent" 0 4 ...)) (italic (:begin 922 :end 939 :contents-begin 923 :contents-end 938 :post-blank 0 :parent ...) #("[[" 0 2 ...) (link ...)) ...))
  #f(compiled-function (--data) #<bytecode -0x5feeebb3b3d94c3>)((paragraph (:begin 110 :end 1105 :contents-begin 110 :contents-end 1105 :post-blank 0 :post-affiliated 110 :parent (section ... #1)) (link (:type "mu4e" :path "flag:unread" :format bracket :raw-link "mu4e:flag:unread" :application nil :search-option nil :begin 110 :end 139 :contents-begin 130 :contents-end 136 :post-blank 1 :parent #1) #("Unread" 0 6 ...)) (italic (:begin 139 :end 175 :contents-begin 140 :contents-end 173 :post-blank 1 :parent #1) (link ... ...)) #(".... [u]  " 0 10 (:parent #1)) (link (:type "mu4e" :path "date:today..now" :format bracket :raw-link "mu4e:date:today..now" :application nil :search-option nil :begin 185 :end 217 :contents-begin 209 :contents-end 214 :post-blank 1 :parent #1) #("Today" 0 5 ...)) (italic (:begin 217 :end 257 :contents-begin 218 :contents-end 255 :post-blank 1 :parent #1) (link ... ...)) #(".......... [t]  " 0 16 (:parent #1)) (bold (:begin 273 :end 283 :contents-begin 274 :contents-end 281 :post-blank 1 :parent #1) #("Compose" 0 7 ...)) #("...... [C]\n" 0 11 (:parent #1)) (link (:type "mu4e" :path "m:/inria/inbox or m:/gmail..." :format bracket :raw-link "mu4e:m:/inria/inbox or m:/..." :application nil :search-option nil :begin 294 :end 361 :contents-begin 352 :contents-end 357 :post-blank 2 :parent #1) #("Inbox" 0 5 ...)) (italic (:begin 361 :end 435 :contents-begin 362 :contents-end 433 :post-blank 1 :parent #1) (link ... ...)) #(".... [i]  " 0 10 (:parent #1)) (link (:type "mu4e" :path "date:2d..today and not dat..." :format bracket :raw-link "mu4e:date:2d..today and no..." :application nil :search-option nil :begin 445 :end 504 :contents-begin 492 :contents-end 501 :post-blank 1 :parent #1) #("Yesterday" 0 9 ...)) (italic (:begin 504 :end 567 :contents-begin 505 :contents-end 565 :post-blank 1 :parent #1) (link ... ...)) #("...... [y]  " 0 12 (:parent #1)) (bold (:begin 579 :end 588 :contents-begin 580 :contents-end 586 :post-blank 1 :parent #1) #("Update" 0 6 ...)) #("....... [U]\n" 0 12 (:parent #1)) (link (:type "mu4e" :path "m:/inria/drafts or m:/gmai..." :format bracket :raw-link "mu4e:m:/inria/drafts or m:..." :application nil :search-option nil :begin 600 :end 670 :contents-begin 661 :contents-end 667 :post-blank 1 :parent #1) #("Drafts" 0 6 ...)) (italic (:begin 670 :end 747 :contents-begin 671 :contents-end 745 :post-blank 1 :parent #1) (link ... ...)) #(".... [d]  " 0 10 (:parent #1)) (link (:type "mu4e" :path "date:7d..now" :format bracket :raw-link "mu4e:date:7d..now" :application nil :search-option nil :begin 757 :end 790 :contents-begin 778 :contents-end 787 :post-blank 1 :parent #1) #("Last week" 0 9 ...)) (italic (:begin 790 :end 828 :contents-begin 791 :contents-end 826 :post-blank 1 :parent #1) (link ... ...)) #("..... [w]  " 0 11 (:parent #1)) (bold (:begin 839 :end 856 :contents-begin 840 :contents-end 854 :post-blank 1 :parent #1) #("Switch context" 0 14 ...)) #("[;]\n" 0 4 (:parent #1)) ...))
  mapc(#f(compiled-function (--data) #<bytecode -0x5feeebb3b3d94c3>) ((paragraph (:begin 110 :end 1105 :contents-begin 110 :contents-end 1105 :post-blank 0 :post-affiliated 110 :parent (section ... . #2)) (link (:type "mu4e" :path "flag:unread" :format bracket :raw-link "mu4e:flag:unread" :application nil :search-option nil :begin 110 :end 139 :contents-begin 130 :contents-end 136 :post-blank 1 :parent #3) #("Unread" 0 6 ...)) (italic (:begin 139 :end 175 :contents-begin 140 :contents-end 173 :post-blank 1 :parent #3) (link ... ...)) #(".... [u]  " 0 10 (:parent #3)) (link (:type "mu4e" :path "date:today..now" :format bracket :raw-link "mu4e:date:today..now" :application nil :search-option nil :begin 185 :end 217 :contents-begin 209 :contents-end 214 :post-blank 1 :parent #3) #("Today" 0 5 ...)) (italic (:begin 217 :end 257 :contents-begin 218 :contents-end 255 :post-blank 1 :parent #3) (link ... ...)) #(".......... [t]  " 0 16 (:parent #3)) (bold (:begin 273 :end 283 :contents-begin 274 :contents-end 281 :post-blank 1 :parent #3) #("Compose" 0 7 ...)) #("...... [C]\n" 0 11 (:parent #3)) (link (:type "mu4e" :path "m:/inria/inbox or m:/gmail/inbox..." :format bracket :raw-link "mu4e:m:/inria/inbox or m:/gmail/..." :application nil :search-option nil :begin 294 :end 361 :contents-begin 352 :contents-end 357 :post-blank 2 :parent #3) #("Inbox" 0 5 ...)) (italic (:begin 361 :end 435 :contents-begin 362 :contents-end 433 :post-blank 1 :parent #3) (link ... ...)) #(".... [i]  " 0 10 (:parent #3)) (link (:type "mu4e" :path "date:2d..today and not date:toda..." :format bracket :raw-link "mu4e:date:2d..today and not date..." :application nil :search-option nil :begin 445 :end 504 :contents-begin 492 :contents-end 501 :post-blank 1 :parent #3) #("Yesterday" 0 9 ...)) (italic (:begin 504 :end 567 :contents-begin 505 :contents-end 565 :post-blank 1 :parent #3) (link ... ...)) #("...... [y]  " 0 12 (:parent #3)) (bold (:begin 579 :end 588 :contents-begin 580 :contents-end 586 :post-blank 1 :parent #3) #("Update" 0 6 ...)) #("....... [U]\n" 0 12 (:parent #3)) (link (:type "mu4e" :path "m:/inria/drafts or m:/gmail/draf..." :format bracket :raw-link "mu4e:m:/inria/drafts or m:/gmail..." :application nil :search-option nil :begin 600 :end 670 :contents-begin 661 :contents-end 667 :post-blank 1 :parent #3) #("Drafts" 0 6 ...)) (italic (:begin 670 :end 747 :contents-begin 671 :contents-end 745 :post-blank 1 :parent #3) (link ... ...)) #(".... [d]  " 0 10 (:parent #3)) (link (:type "mu4e" :path "date:7d..now" :format bracket :raw-link "mu4e:date:7d..now" :application nil :search-option nil :begin 757 :end 790 :contents-begin 778 :contents-end 787 :post-blank 1 :parent #3) #("Last week" 0 9 ...)) (italic (:begin 790 :end 828 :contents-begin 791 :contents-end 826 :post-blank 1 :parent #3) (link ... ...)) #("..... [w]  " 0 11 (:parent #3)) (bold (:begin 839 :end 856 :contents-begin 840 :contents-end 854 :post-blank 1 :parent #3) #("Switch context" 0 14 ...)) #("[;]\n" 0 4 (:parent #3)) (link (:type "mu4e" :path "m:/inria/sent or m:/gmail/sent o..." :format bracket :raw-link "mu4e:m:/inria/sent or m:/gmail/s..." :application nil :search-option nil :begin 860 :end 922 :contents-begin 915 :contents-end 919 :post-blank 1 :parent #3) #("Sent" 0 4 ...)) (italic (:begin 922 :end 939 :contents-begin 923 :contents-end 938 :post-blank 0 :parent #3) #("[[" 0 2 ...) (link ...)) #("sent or m:/gmail/sent or m:/univ..." 0 66 (:parent #3)) (link (:type "mu4e" :path "date:4w..now" :format bracket :raw-link "mu4e:date:4w..now" :application nil :search-option nil :begin 1005 :end 1039 :contents-begin 1026 :contents-end 1036 :post-blank 1 :parent #3) #("Last month" 0 10 ...)) (italic (:begin 1039 :end 1074 :contents-begin 1040 :contents-end 1072 :post-blank 1 :parent #3) (link ... ...)) #(".... [m]  " 0 10 (:parent #3)) ...)))
  #f(compiled-function (--data) #<bytecode -0x5feeebb3b3d94c3>)((section (:begin 110 :end 1106 :contents-begin 110 :contents-end 1105 :post-blank 1 :post-affiliated 110 :parent (headline (:raw-value "Mu for Emacs (mu4e)             ..." :begin 2 :end 1106 :pre-blank 1 :contents-begin 110 :contents-end 1105 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 2 ...) #1)) (paragraph (:begin 110 :end 1105 :contents-begin 110 :contents-end 1105 :post-blank 0 :post-affiliated 110 :parent #1) (link (:type "mu4e" :path "flag:unread" :format bracket :raw-link "mu4e:flag:unread" :application nil :search-option nil :begin 110 :end 139 :contents-begin 130 :contents-end 136 :post-blank 1 :parent #4) #("Unread" 0 6 ...)) (italic (:begin 139 :end 175 :contents-begin 140 :contents-end 173 :post-blank 1 :parent #4) (link ... ...)) #(".... [u]  " 0 10 (:parent #4)) (link (:type "mu4e" :path "date:today..now" :format bracket :raw-link "mu4e:date:today..now" :application nil :search-option nil :begin 185 :end 217 :contents-begin 209 :contents-end 214 :post-blank 1 :parent #4) #("Today" 0 5 ...)) (italic (:begin 217 :end 257 :contents-begin 218 :contents-end 255 :post-blank 1 :parent #4) (link ... ...)) #(".......... [t]  " 0 16 (:parent #4)) (bold (:begin 273 :end 283 :contents-begin 274 :contents-end 281 :post-blank 1 :parent #4) #("Compose" 0 7 ...)) #("...... [C]\n" 0 11 (:parent #4)) (link (:type "mu4e" :path "m:/inria/inbox or m:/gmail/inbox..." :format bracket :raw-link "mu4e:m:/inria/inbox or m:/gmail/..." :application nil :search-option nil :begin 294 :end 361 :contents-begin 352 :contents-end 357 :post-blank 2 :parent #4) #("Inbox" 0 5 ...)) (italic (:begin 361 :end 435 :contents-begin 362 :contents-end 433 :post-blank 1 :parent #4) (link ... ...)) #(".... [i]  " 0 10 (:parent #4)) (link (:type "mu4e" :path "date:2d..today and not date:toda..." :format bracket :raw-link "mu4e:date:2d..today and not date..." :application nil :search-option nil :begin 445 :end 504 :contents-begin 492 :contents-end 501 :post-blank 1 :parent #4) #("Yesterday" 0 9 ...)) (italic (:begin 504 :end 567 :contents-begin 505 :contents-end 565 :post-blank 1 :parent #4) (link ... ...)) #("...... [y]  " 0 12 (:parent #4)) (bold (:begin 579 :end 588 :contents-begin 580 :contents-end 586 :post-blank 1 :parent #4) #("Update" 0 6 ...)) #("....... [U]\n" 0 12 (:parent #4)) (link (:type "mu4e" :path "m:/inria/drafts or m:/gmail/draf..." :format bracket :raw-link "mu4e:m:/inria/drafts or m:/gmail..." :application nil :search-option nil :begin 600 :end 670 :contents-begin 661 :contents-end 667 :post-blank 1 :parent #4) #("Drafts" 0 6 ...)) (italic (:begin 670 :end 747 :contents-begin 671 :contents-end 745 :post-blank 1 :parent #4) (link ... ...)) #(".... [d]  " 0 10 (:parent #4)) (link (:type "mu4e" :path "date:7d..now" :format bracket :raw-link "mu4e:date:7d..now" :application nil :search-option nil :begin 757 :end 790 :contents-begin 778 :contents-end 787 :post-blank 1 :parent #4) #("Last week" 0 9 ...)) (italic (:begin 790 :end 828 :contents-begin 791 :contents-end 826 :post-blank 1 :parent #4) (link ... ...)) #("..... [w]  " 0 11 (:parent #4)) (bold (:begin 839 :end 856 :contents-begin 840 :contents-end 854 :post-blank 1 :parent #4) #("Switch context" 0 14 ...)) #("[;]\n" 0 4 (:parent #4)) (link (:type "mu4e" :path "m:/inria/sent or m:/gmail/sent o..." :format bracket :raw-link "mu4e:m:/inria/sent or m:/gmail/s..." :application nil :search-option nil :begin 860 :end 922 :contents-begin 915 :contents-end 919 :post-blank 1 :parent #4) #("Sent" 0 4 ...)) (italic (:begin 922 :end 939 :contents-begin 923 :contents-end 938 :post-blank 0 :parent #4) #("[[" 0 2 ...) (link ...)) #("sent or m:/gmail/sent or m:/univ..." 0 66 (:parent #4)) (link (:type "mu4e" :path "date:4w..now" :format bracket :raw-link "mu4e:date:4w..now" :application nil :search-option nil :begin 1005 :end 1039 :contents-begin 1026 :contents-end 1036 :post-blank 1 :parent #4) #("Last month" 0 10 ...)) (italic (:begin 1039 :end 1074 :contents-begin 1040 :contents-end 1072 :post-blank 1 :parent #4) (link ... ...)) #(".... [m]  " 0 10 (:parent #4)) ...)))
  mapc(#f(compiled-function (--data) #<bytecode -0x5feeebb3b3d94c3>) ((section (:begin 110 :end 1106 :contents-begin 110 :contents-end 1105 :post-blank 1 :post-affiliated 110 :parent (headline (:raw-value "Mu for Emacs (mu4e)                   ..." :begin 2 :end 1106 :pre-blank 1 :contents-begin 110 :contents-end 1105 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 2 :title ... :parent ...) . #2)) (paragraph (:begin 110 :end 1105 :contents-begin 110 :contents-end 1105 :post-blank 0 :post-affiliated 110 :parent #3) (link (:type "mu4e" :path "flag:unread" :format bracket :raw-link "mu4e:flag:unread" :application nil :search-option nil :begin 110 :end 139 :contents-begin 130 :contents-end 136 :post-blank 1 :parent #6) #("Unread" 0 6 ...)) (italic (:begin 139 :end 175 :contents-begin 140 :contents-end 173 :post-blank 1 :parent #6) (link ... ...)) #(".... [u]  " 0 10 (:parent #6)) (link (:type "mu4e" :path "date:today..now" :format bracket :raw-link "mu4e:date:today..now" :application nil :search-option nil :begin 185 :end 217 :contents-begin 209 :contents-end 214 :post-blank 1 :parent #6) #("Today" 0 5 ...)) (italic (:begin 217 :end 257 :contents-begin 218 :contents-end 255 :post-blank 1 :parent #6) (link ... ...)) #(".......... [t]  " 0 16 (:parent #6)) (bold (:begin 273 :end 283 :contents-begin 274 :contents-end 281 :post-blank 1 :parent #6) #("Compose" 0 7 ...)) #("...... [C]\n" 0 11 (:parent #6)) (link (:type "mu4e" :path "m:/inria/inbox or m:/gmail/inbox or m:..." :format bracket :raw-link "mu4e:m:/inria/inbox or m:/gmail/inbox ..." :application nil :search-option nil :begin 294 :end 361 :contents-begin 352 :contents-end 357 :post-blank 2 :parent #6) #("Inbox" 0 5 ...)) (italic (:begin 361 :end 435 :contents-begin 362 :contents-end 433 :post-blank 1 :parent #6) (link ... ...)) #(".... [i]  " 0 10 (:parent #6)) (link (:type "mu4e" :path "date:2d..today and not date:today..now" :format bracket :raw-link "mu4e:date:2d..today and not date:today..." :application nil :search-option nil :begin 445 :end 504 :contents-begin 492 :contents-end 501 :post-blank 1 :parent #6) #("Yesterday" 0 9 ...)) (italic (:begin 504 :end 567 :contents-begin 505 :contents-end 565 :post-blank 1 :parent #6) (link ... ...)) #("...... [y]  " 0 12 (:parent #6)) (bold (:begin 579 :end 588 :contents-begin 580 :contents-end 586 :post-blank 1 :parent #6) #("Update" 0 6 ...)) #("....... [U]\n" 0 12 (:parent #6)) (link (:type "mu4e" :path "m:/inria/drafts or m:/gmail/drafts or ..." :format bracket :raw-link "mu4e:m:/inria/drafts or m:/gmail/draft..." :application nil :search-option nil :begin 600 :end 670 :contents-begin 661 :contents-end 667 :post-blank 1 :parent #6) #("Drafts" 0 6 ...)) (italic (:begin 670 :end 747 :contents-begin 671 :contents-end 745 :post-blank 1 :parent #6) (link ... ...)) #(".... [d]  " 0 10 (:parent #6)) (link (:type "mu4e" :path "date:7d..now" :format bracket :raw-link "mu4e:date:7d..now" :application nil :search-option nil :begin 757 :end 790 :contents-begin 778 :contents-end 787 :post-blank 1 :parent #6) #("Last week" 0 9 ...)) (italic (:begin 790 :end 828 :contents-begin 791 :contents-end 826 :post-blank 1 :parent #6) (link ... ...)) #("..... [w]  " 0 11 (:parent #6)) (bold (:begin 839 :end 856 :contents-begin 840 :contents-end 854 :post-blank 1 :parent #6) #("Switch context" 0 14 ...)) #("[;]\n" 0 4 (:parent #6)) (link (:type "mu4e" :path "m:/inria/sent or m:/gmail/sent or m:/u..." :format bracket :raw-link "mu4e:m:/inria/sent or m:/gmail/sent or..." :application nil :search-option nil :begin 860 :end 922 :contents-begin 915 :contents-end 919 :post-blank 1 :parent #6) #("Sent" 0 4 ...)) (italic (:begin 922 :end 939 :contents-begin 923 :contents-end 938 :post-blank 0 :parent #6) #("[[" 0 2 ...) (link ...)) #("sent or m:/gmail/sent or m:/univ/sent|..." 0 66 (:parent #6)) (link (:type "mu4e" :path "date:4w..now" :format bracket :raw-link "mu4e:date:4w..now" :application nil :search-option nil :begin 1005 :end 1039 :contents-begin 1026 :contents-end 1036 :post-blank 1 :parent #6) #("Last month" 0 10 ...)) (italic (:begin 1039 :end 1074 :contents-begin 1040 :contents-end 1072 :post-blank 1 :parent #6) (link ... ...)) #(".... [m]  " 0 10 (:parent #6)) (bold (:begin 1084 :end 1091 :contents-begin 1085 :contents-end 1089 :post-blank 1 :parent #6) #("Quit" 0 4 ...)) #("......... [q]\n" 0 14 (:parent #6))))))
  #f(compiled-function (--data) #<bytecode -0x5feeebb3b3d94c3>)((headline (:raw-value "Mu for Emacs (mu4e)             ..." :begin 2 :end 1106 :pre-blank 1 :contents-begin 110 :contents-end 1105 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 2 ...) (section (:begin 110 :end 1106 :contents-begin 110 :contents-end 1105 :post-blank 1 :post-affiliated 110 :parent #1) (paragraph (:begin 110 :end 1105 :contents-begin 110 :contents-end 1105 :post-blank 0 :post-affiliated 110 :parent #4) (link ... ...) (italic ... ...) #(".... [u]  " 0 10 ...) (link ... ...) (italic ... ...) #(".......... [t]  " 0 16 ...) (bold ... ...) #("...... [C]\n" 0 11 ...) (link ... ...) (italic ... ...) #(".... [i]  " 0 10 ...) (link ... ...) (italic ... ...) #("...... [y]  " 0 12 ...) (bold ... ...) #("....... [U]\n" 0 12 ...) (link ... ...) (italic ... ...) #(".... [d]  " 0 10 ...) (link ... ...) (italic ... ...) #("..... [w]  " 0 11 ...) (bold ... ...) #("[;]\n" 0 4 ...) (link ... ...) (italic ... ... ...) #("sent or m:/gmail/sent or m:/univ..." 0 66 ...) (link ... ...) (italic ... ...) #(".... [m]  " 0 10 ...) ...))))
  mapc(#f(compiled-function (--data) #<bytecode -0x5feeebb3b3d94c3>) ((headline ... ...) (headline ... ...) (headline ... ... ... ... ...) (headline ... ...) (headline ... ...)))
  #f(compiled-function (--data) #<bytecode -0x5feeebb3b3d94c3>)((org-data nil (headline ... ...) (headline ... ...) (headline ... ... ... ... ...) (headline ... ...) (headline ... ...)))
  org-element-map((org-data nil (headline ... ...) (headline ... ...) (headline ... ... ... ... ...) (headline ... ...) (headline ... ...)) link (closure (... t) (link) (if ... ...)))
  (let ((buffer (current-buffer))) (org-element-map (org-element-parse-buffer) 'link #'(lambda (link) (if (string= (org-element-property :type link) "mu4e") (progn (let* (... ... ... ... ... ...) (if ... ...)))))))
  mu4e-dashboard-update-all-async()
  (save-current-buffer (set-buffer mu4e-dashboard--buffer) (message (concat "[" (propertize "mu4e dashboard" 'face 'bold) "] " (format-time-string "Update (%H:%M)"))) (mu4e-dashboard-update-all-async))
  mu4e-dashboard-update()
  mu4e-dashboard-activate()
  (if mu4e-dashboard-mode (mu4e-dashboard-deactivate) (mu4e-dashboard-activate))
  (progn (if mu4e-dashboard-mode (mu4e-dashboard-deactivate) (mu4e-dashboard-activate)))
  (if (and (eq major-mode 'org-mode) (boundp mu4e-dashboard-mode)) (progn (if mu4e-dashboard-mode (mu4e-dashboard-deactivate) (mu4e-dashboard-activate))))
  mu4e-dashboard-toggle()
  #<subr funcall-interactively>(mu4e-dashboard-toggle)
  apply(#<subr funcall-interactively> mu4e-dashboard-toggle)
  funcall-interactively(mu4e-dashboard-toggle)
  #<subr call-interactively>(mu4e-dashboard-toggle record nil)
  apply(#<subr call-interactively> (mu4e-dashboard-toggle record nil))
  (unwind-protect (apply original-func args) (let ((top-frame explain-pause--current-command-record)) (if extra-frame (cond ((and (eq (progn ... ...) target-function) (eq (progn ... ...) command-frame)) (explain-pause--command-record-and-store top-frame) (if (progn (or ... ...) (aref top-frame 7)) (progn (explain-pause--command-record--save-and-stop-profiling top-frame))) (explain-pause-log--send-command-exit top-frame) (explain-pause--run-measure-hook top-frame) (explain-pause-log--send-command-exit command-frame) (explain-pause--run-measure-hook command-frame)) ((eq top-frame command-frame) (explain-pause--command-record-and-store top-frame) (explain-pause-log--send-command-exit top-frame) (explain-pause--run-measure-hook top-frame)) (t (explain-pause-report-measuring-bug "call-interactively has extra-frame" "top-frame" top-frame "target-function" target-function))) (if (not (eq top-frame command-frame)) (explain-pause-report-measuring-bug "call interactively frame does not match" "command-frame" command-frame "should be equal" top-frame) (explain-pause--command-record-and-store command-frame) (if (progn (or (and ... t) (signal ... ...)) (aref command-frame 7)) (progn (explain-pause--command-record--save-and-stop-profiling command-frame))) (explain-pause-log--send-command-exit command-frame) (explain-pause--run-measure-hook command-frame)))) (if (eq parent explain-pause-root-command-loop) nil (progn (or (and (memq (type-of parent) cl-struct-explain-pause-command-record-tags) t) (signal 'wrong-type-argument (list 'explain-pause-command-record parent))) (let* ((v parent)) (aset v 5 (current-time))))) (setq explain-pause--current-command-record parent))
  (let ((parent explain-pause--current-command-record) (target-function (car args)) (command-frame nil) (extra-frame nil)) (if (eq parent explain-pause-root-command-loop) nil (explain-pause--command-record-and-store parent)) (if (or (eq target-function #'self-insert-command) (eq target-function #'newline) (eq target-function #'next-line) (eq target-function #'previous-line) (eq target-function #'delete-forward-char)) nil (let ((i-spec (car (cdr (interactive-form target-function))))) (if (and (stringp i-spec) (explain-pause--interactive-form-needs-frame-p i-spec)) (progn (setq command-frame (explain-pause--command-record-from-parent parent parent 'call-interactively-interactive t)) (setq extra-frame t))))) (if extra-frame nil (setq command-frame (explain-pause--command-record-from-parent parent parent target-function))) (explain-pause-log--send-command-entry parent command-frame) (setq explain-pause--current-command-record command-frame) (progn (or (and (memq (type-of command-frame) cl-struct-explain-pause-command-record-tags) t) (signal 'wrong-type-argument (list 'explain-pause-command-record command-frame))) (let* ((v command-frame)) (aset v 5 (current-time)))) (if (and (not extra-frame) (explain-pause--command-record-profile-p command-frame)) (progn (explain-pause--command-record-start-profiling command-frame))) (unwind-protect (apply original-func args) (let ((top-frame explain-pause--current-command-record)) (if extra-frame (cond ((and (eq ... target-function) (eq ... command-frame)) (explain-pause--command-record-and-store top-frame) (if (progn ... ...) (progn ...)) (explain-pause-log--send-command-exit top-frame) (explain-pause--run-measure-hook top-frame) (explain-pause-log--send-command-exit command-frame) (explain-pause--run-measure-hook command-frame)) ((eq top-frame command-frame) (explain-pause--command-record-and-store top-frame) (explain-pause-log--send-command-exit top-frame) (explain-pause--run-measure-hook top-frame)) (t (explain-pause-report-measuring-bug "call-interactively has extra-frame" "top-frame" top-frame "target-function" target-function))) (if (not (eq top-frame command-frame)) (explain-pause-report-measuring-bug "call interactively frame does not match" "command-frame" command-frame "should be equal" top-frame) (explain-pause--command-record-and-store command-frame) (if (progn (or ... ...) (aref command-frame 7)) (progn (explain-pause--command-record--save-and-stop-profiling command-frame))) (explain-pause-log--send-command-exit command-frame) (explain-pause--run-measure-hook command-frame)))) (if (eq parent explain-pause-root-command-loop) nil (progn (or (and (memq (type-of parent) cl-struct-explain-pause-command-record-tags) t) (signal 'wrong-type-argument (list 'explain-pause-command-record parent))) (let* ((v parent)) (aset v 5 (current-time))))) (setq explain-pause--current-command-record parent)))
  explain-pause--wrap-call-interactively(#<subr call-interactively> mu4e-dashboard-toggle record nil)
  apply(explain-pause--wrap-call-interactively #<subr call-interactively> (mu4e-dashboard-toggle record nil))
  call-interactively(mu4e-dashboard-toggle record nil)
  command-execute(mu4e-dashboard-toggle record)
  counsel-M-x-action("mu4e-dashboard-toggle")
  ivy-call()
  ivy-read("M-x " [browserFriendly soap-bound-operation-soap-headers =uxj1<fd*ZUfi*cRB:b4g= CTCP-CLIENTINFO locals 0 Undo eww-handle-link text-rendering artist-current-column shr-td-cache-315-nil tramp-find-user erc-readonly-mode-off-hook xsd:complexContent vc-git-make-version-backups-p shr-td-cache-366-t =C8c@c>:/Ra7z<oPbBd12= tramp-do-copy-or-rename-file-out-of-band =:Q$crg!N&|65e-W1DYJT= nsm-permanent-host-settings flycheck-error-list-mode-line-map sgml-syntax-propertize shr-td-cache-166-nil makefile-browser-format-macro-line =Pg3i>V34~qg>|YVjrSG<= extra-frame calcFunc-sec edebug-clear-frequency-count wicon bibtex-SuppCollection conf-space-mode-map post-deadline xsdre-to-symbolic debbugs-soap-invoke-async soap-element-namespace-tag--cmacro one =SWvMjXYXK*$~h>tR>Q1_= nnheader-translate-file-chars & \' tramp-rename-files gnus-summary-catchup-from-here tramp-cache-data =a|LPWL!VI-8DNPF!b572= =GekJ$XvBHWd<O9xa$*rH= align-set-vhdl-rules rng-xsd-decimal< --cl-block-elfeed-score-feed-rule--create--cmacro-- mu4e-view-image-max-height explain-pause-top--table-set-header ...] :predicate #f(compiled-function (sym) #<bytecode 0xcf9090198605e4c>) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x)
  counsel-M-x()
  #<subr funcall-interactively>(counsel-M-x)
  apply(#<subr funcall-interactively> counsel-M-x)
  funcall-interactively(counsel-M-x)
  #<subr call-interactively>(counsel-M-x nil nil)
  apply(#<subr call-interactively> (counsel-M-x nil nil))
  (unwind-protect (apply original-func args) (let ((top-frame explain-pause--current-command-record)) (if extra-frame (cond ((and (eq (progn ... ...) target-function) (eq (progn ... ...) command-frame)) (explain-pause--command-record-and-store top-frame) (if (progn (or ... ...) (aref top-frame 7)) (progn (explain-pause--command-record--save-and-stop-profiling top-frame))) (explain-pause-log--send-command-exit top-frame) (explain-pause--run-measure-hook top-frame) (explain-pause-log--send-command-exit command-frame) (explain-pause--run-measure-hook command-frame)) ((eq top-frame command-frame) (explain-pause--command-record-and-store top-frame) (explain-pause-log--send-command-exit top-frame) (explain-pause--run-measure-hook top-frame)) (t (explain-pause-report-measuring-bug "call-interactively has extra-frame" "top-frame" top-frame "target-function" target-function))) (if (not (eq top-frame command-frame)) (explain-pause-report-measuring-bug "call interactively frame does not match" "command-frame" command-frame "should be equal" top-frame) (explain-pause--command-record-and-store command-frame) (if (progn (or (and ... t) (signal ... ...)) (aref command-frame 7)) (progn (explain-pause--command-record--save-and-stop-profiling command-frame))) (explain-pause-log--send-command-exit command-frame) (explain-pause--run-measure-hook command-frame)))) (if (eq parent explain-pause-root-command-loop) nil (progn (or (and (memq (type-of parent) cl-struct-explain-pause-command-record-tags) t) (signal 'wrong-type-argument (list 'explain-pause-command-record parent))) (let* ((v parent)) (aset v 5 (current-time))))) (setq explain-pause--current-command-record parent))
  (let ((parent explain-pause--current-command-record) (target-function (car args)) (command-frame nil) (extra-frame nil)) (if (eq parent explain-pause-root-command-loop) nil (explain-pause--command-record-and-store parent)) (if (or (eq target-function #'self-insert-command) (eq target-function #'newline) (eq target-function #'next-line) (eq target-function #'previous-line) (eq target-function #'delete-forward-char)) nil (let ((i-spec (car (cdr (interactive-form target-function))))) (if (and (stringp i-spec) (explain-pause--interactive-form-needs-frame-p i-spec)) (progn (setq command-frame (explain-pause--command-record-from-parent parent parent 'call-interactively-interactive t)) (setq extra-frame t))))) (if extra-frame nil (setq command-frame (explain-pause--command-record-from-parent parent parent target-function))) (explain-pause-log--send-command-entry parent command-frame) (setq explain-pause--current-command-record command-frame) (progn (or (and (memq (type-of command-frame) cl-struct-explain-pause-command-record-tags) t) (signal 'wrong-type-argument (list 'explain-pause-command-record command-frame))) (let* ((v command-frame)) (aset v 5 (current-time)))) (if (and (not extra-frame) (explain-pause--command-record-profile-p command-frame)) (progn (explain-pause--command-record-start-profiling command-frame))) (unwind-protect (apply original-func args) (let ((top-frame explain-pause--current-command-record)) (if extra-frame (cond ((and (eq ... target-function) (eq ... command-frame)) (explain-pause--command-record-and-store top-frame) (if (progn ... ...) (progn ...)) (explain-pause-log--send-command-exit top-frame) (explain-pause--run-measure-hook top-frame) (explain-pause-log--send-command-exit command-frame) (explain-pause--run-measure-hook command-frame)) ((eq top-frame command-frame) (explain-pause--command-record-and-store top-frame) (explain-pause-log--send-command-exit top-frame) (explain-pause--run-measure-hook top-frame)) (t (explain-pause-report-measuring-bug "call-interactively has extra-frame" "top-frame" top-frame "target-function" target-function))) (if (not (eq top-frame command-frame)) (explain-pause-report-measuring-bug "call interactively frame does not match" "command-frame" command-frame "should be equal" top-frame) (explain-pause--command-record-and-store command-frame) (if (progn (or ... ...) (aref command-frame 7)) (progn (explain-pause--command-record--save-and-stop-profiling command-frame))) (explain-pause-log--send-command-exit command-frame) (explain-pause--run-measure-hook command-frame)))) (if (eq parent explain-pause-root-command-loop) nil (progn (or (and (memq (type-of parent) cl-struct-explain-pause-command-record-tags) t) (signal 'wrong-type-argument (list 'explain-pause-command-record parent))) (let* ((v parent)) (aset v 5 (current-time))))) (setq explain-pause--current-command-record parent)))
  explain-pause--wrap-call-interactively(#<subr call-interactively> counsel-M-x nil nil)
  apply(explain-pause--wrap-call-interactively #<subr call-interactively> (counsel-M-x nil nil))
  call-interactively(counsel-M-x nil nil)
  command-execute(counsel-M-x)
rougier commented 3 years ago

Oh yes, thanks for the report. Can you make a PR?

sp1ff commented 3 years ago

Yes; please see here.

rougier commented 3 years ago

Thanks, merged.