Re: [BUG] orgalist send bug

[Rustom Mody <rustompmody@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 13290 bytes --]

On Sun, Jun 16, 2024 at 5:42 PM Ihor Radchenko <yantar92@posteo.net> wrote:

>
> Please follow https://orgmode.org/manual/Feedback.html#Feedback
>
>
1. make repro
2. package-initialize (to get org-alist)
3. load file shown above
4. M-x orgalist-send-list



Backtrace

Debugger entered--Lisp error: (void-variable org-element-cache-version)
  (list 'version org-element-cache-version)
  (list '(elisp org-element--cache) (list 'version
org-element-cache-version))
  (org-persist-load (list '(elisp org-element--cache) (list 'version
org-element-cache-version)) (current-buffer) 'match-hash :read-related t)
  (progn (org-persist-load (list '(elisp org-element--cache) (list 'version
org-element-cache-version)) (current-buffer) 'match-hash :read-related t))
  (if (and org-element-cache-persistent org-element-use-cache) (progn
(org-persist-load (list '(elisp org-element--cache) (list 'version
org-element-cache-version)) (current-buffer) 'match-hash :read-related t)))
  (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode 'org-mode)
(setq mode-name "Org") (progn (if (get 'outline-mode 'mode-class) (put
'org-mode 'mode-class (get 'outline-mode 'mode-class))) (if (keymap-parent
org-mode-map) nil (set-keymap-parent org-mode-map (current-local-map)))
(let ((parent (char-table-parent org-mode-syntax-table))) (if (and parent
(not (eq parent (standard-syntax-table)))) nil (set-char-table-parent
org-mode-syntax-table (syntax-table)))) (if (or (abbrev-table-get
org-mode-abbrev-table :parents) (eq org-mode-abbrev-table
local-abbrev-table)) nil (abbrev-table-put org-mode-abbrev-table :parents
(list local-abbrev-table)))) (use-local-map org-mode-map) (set-syntax-table
org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-table) (set
(make-local-variable 'org-mode-loading) t) (set (make-local-variable
'tab-width) 8) (org-load-modules-maybe) (if org-agenda-file-menu-enabled
(progn (org-install-agenda-files-menu))) (set (make-local-variable
'outline-regexp) org-outline-regexp) (set (make-local-variable
'outline-level) 'org-outline-level) (org-element-cache-reset) (if (and
org-element-cache-persistent org-element-use-cache) (progn
(org-persist-load (list '(elisp org-element--cache) (list 'version
org-element-cache-version)) (current-buffer) 'match-hash :read-related t)))
(org-set-regexps-and-options) (add-to-invisibility-spec '(org-link))
(org-fold-initialize (or (and (stringp org-ellipsis) (not (equal ""
org-ellipsis)) org-ellipsis) "...")) (make-local-variable
'org-link-descriptive) (if (eq org-fold-core-style 'overlays) (progn
(add-to-invisibility-spec '(org-hide-block . t)))) (if (and (stringp
org-ellipsis) (not (equal "" org-ellipsis))) (progn (if org-display-table
nil (setq org-display-table (make-display-table))) (set-display-table-slot
org-display-table 4 (vconcat (mapcar #'(lambda ... ...) org-ellipsis)))
(setq buffer-display-table org-display-table)))
(org-set-font-lock-defaults) (if (and org-tag-faces (not
org-tags-special-faces-re)) (progn (org-set-tag-faces 'org-tag-faces
org-tag-faces))) (set (make-local-variable 'calc-embedded-open-mode) "# ")
(set-syntax-table (make-syntax-table org-mode-syntax-table)) (set
(make-local-variable 'font-lock-unfontify-region-function)
'org-unfontify-region) (set (make-local-variable
'org-table-may-need-update) t) (add-hook 'before-change-functions
'org-before-change-function nil 'local) (add-hook 'kill-buffer-hook
'org-check-running-clock nil 'local) (org-fold--advice-edit-commands)
(org-macro-initialize-templates) (org-update-radio-target-regexp) (set
(make-local-variable 'indent-line-function) 'org-indent-line) (set
(make-local-variable 'indent-region-function) 'org-indent-region)
(org-setup-filling) (org-setup-comments-handling) (set (make-local-variable
'beginning-of-defun-function) 'org-backward-element) (set
(make-local-variable 'end-of-defun-function) #'(lambda nil (if (not
(org-at-heading-p)) (org-forward-element) (org-forward-element)
(forward-char -1)))) (set (make-local-variable 'next-error-function)
'org-occur-next-match) (set (make-local-variable
'add-log-current-defun-function) #'org-add-log-current-headline) (if
org-enforce-todo-dependencies (add-hook 'org-blocker-hook
'org-block-todo-from-children-or-siblings-or-parent) (remove-hook
'org-blocker-hook 'org-block-todo-from-children-or-siblings-or-parent)) (if
org-enforce-todo-checkbox-dependencies (add-hook 'org-blocker-hook
'org-block-todo-from-checkboxes) (remove-hook 'org-blocker-hook
'org-block-todo-from-checkboxes)) (set (make-local-variable
'align-mode-rules-list) '((org-in-buffer-settings (regexp . "^[
\11]*#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote (org-mode))))) (set
(make-local-variable 'pcomplete-command-completion-function)
#'org-pcomplete-initial) (set (make-local-variable
'pcomplete-command-name-function) #'org-command-at-point) (set
(make-local-variable 'pcomplete-default-completion-function) #'ignore) (set
(make-local-variable 'pcomplete-parse-arguments-function)
#'org-parse-arguments) (set (make-local-variable
'pcomplete-termination-string) "") ...)
  (progn (make-local-variable 'delay-mode-hooks) (let ((delay-mode-hooks
t)) (outline-mode) (setq major-mode 'org-mode) (setq mode-name "Org")
(progn (if (get 'outline-mode 'mode-class) (put 'org-mode 'mode-class (get
'outline-mode 'mode-class))) (if (keymap-parent org-mode-map) nil
(set-keymap-parent org-mode-map (current-local-map))) (let ((parent
(char-table-parent org-mode-syntax-table))) (if (and parent (not (eq parent
...))) nil (set-char-table-parent org-mode-syntax-table (syntax-table))))
(if (or (abbrev-table-get org-mode-abbrev-table :parents) (eq
org-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put
org-mode-abbrev-table :parents (list local-abbrev-table)))) (use-local-map
org-mode-map) (set-syntax-table org-mode-syntax-table) (setq
local-abbrev-table org-mode-abbrev-table) (set (make-local-variable
'org-mode-loading) t) (set (make-local-variable 'tab-width) 8)
(org-load-modules-maybe) (if org-agenda-file-menu-enabled (progn
(org-install-agenda-files-menu))) (set (make-local-variable
'outline-regexp) org-outline-regexp) (set (make-local-variable
'outline-level) 'org-outline-level) (org-element-cache-reset) (if (and
org-element-cache-persistent org-element-use-cache) (progn
(org-persist-load (list '(elisp org-element--cache) (list 'version
org-element-cache-version)) (current-buffer) 'match-hash :read-related t)))
(org-set-regexps-and-options) (add-to-invisibility-spec '(org-link))
(org-fold-initialize (or (and (stringp org-ellipsis) (not (equal ""
org-ellipsis)) org-ellipsis) "...")) (make-local-variable
'org-link-descriptive) (if (eq org-fold-core-style 'overlays) (progn
(add-to-invisibility-spec '(org-hide-block . t)))) (if (and (stringp
org-ellipsis) (not (equal "" org-ellipsis))) (progn (if org-display-table
nil (setq org-display-table (make-display-table))) (set-display-table-slot
org-display-table 4 (vconcat (mapcar #'... org-ellipsis))) (setq
buffer-display-table org-display-table))) (org-set-font-lock-defaults) (if
(and org-tag-faces (not org-tags-special-faces-re)) (progn
(org-set-tag-faces 'org-tag-faces org-tag-faces))) (set
(make-local-variable 'calc-embedded-open-mode) "# ") (set-syntax-table
(make-syntax-table org-mode-syntax-table)) (set (make-local-variable
'font-lock-unfontify-region-function) 'org-unfontify-region) (set
(make-local-variable 'org-table-may-need-update) t) (add-hook
'before-change-functions 'org-before-change-function nil 'local) (add-hook
'kill-buffer-hook 'org-check-running-clock nil 'local)
(org-fold--advice-edit-commands) (org-macro-initialize-templates)
(org-update-radio-target-regexp) (set (make-local-variable
'indent-line-function) 'org-indent-line) (set (make-local-variable
'indent-region-function) 'org-indent-region) (org-setup-filling)
(org-setup-comments-handling) (set (make-local-variable
'beginning-of-defun-function) 'org-backward-element) (set
(make-local-variable 'end-of-defun-function) #'(lambda nil (if (not
(org-at-heading-p)) (org-forward-element) (org-forward-element)
(forward-char -1)))) (set (make-local-variable 'next-error-function)
'org-occur-next-match) (set (make-local-variable
'add-log-current-defun-function) #'org-add-log-current-headline) (if
org-enforce-todo-dependencies (add-hook 'org-blocker-hook
'org-block-todo-from-children-or-siblings-or-parent) (remove-hook
'org-blocker-hook 'org-block-todo-from-children-or-siblings-or-parent)) (if
org-enforce-todo-checkbox-dependencies (add-hook 'org-blocker-hook
'org-block-todo-from-checkboxes) (remove-hook 'org-blocker-hook
'org-block-todo-from-checkboxes)) (set (make-local-variable
'align-mode-rules-list) '((org-in-buffer-settings (regexp . "^[
\11]*#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote (org-mode))))) (set
(make-local-variable 'pcomplete-command-completion-function)
#'org-pcomplete-initial) (set (make-local-variable
'pcomplete-command-name-function) #'org-command-at-point) (set
(make-local-variable 'pcomplete-default-completion-function) #'ignore) (set
(make-local-variable 'pcomplete-parse-arguments-function)
#'org-parse-arguments) (set (make-local-variable
'pcomplete-termination-string) "") ...))
  org-mode()
  (let ((org-inhibit-startup t)) (org-mode))
  (progn (let ((org-inhibit-startup t)) (org-mode)) (let (insert-list
insert-item) (setq insert-list #'(lambda (l) (let ((tail ...)) (while tail
(let ... ... ...))))) (setq insert-item #'(lambda (i type) (let ((start
...)) (insert (if ... "1. " "- ")) (let (...) (while tail ...))
(forward-line 0) (save-excursion (let ... ...))))) (funcall insert-list
list)) (setq data (org-element-map (org-element-parse-buffer) 'plain-list
#'identity nil t)) (setq info (org-export-get-environment backend nil
params)))
  (unwind-protect (progn (let ((org-inhibit-startup t)) (org-mode)) (let
(insert-list insert-item) (setq insert-list #'(lambda (l) (let (...) (while
tail ...)))) (setq insert-item #'(lambda (i type) (let (...) (insert ...)
(let ... ...) (forward-line 0) (save-excursion ...)))) (funcall insert-list
list)) (setq data (org-element-map (org-element-parse-buffer) 'plain-list
#'identity nil t)) (setq info (org-export-get-environment backend nil
params))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let
((org-inhibit-startup t)) (org-mode)) (let (insert-list insert-item) (setq
insert-list #'(lambda (l) (let ... ...))) (setq insert-item #'(lambda (i
type) (let ... ... ... ... ...))) (funcall insert-list list)) (setq data
(org-element-map (org-element-parse-buffer) 'plain-list #'identity nil t))
(setq info (org-export-get-environment backend nil params))) (and
(buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*" t)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let
((org-inhibit-startup t)) (org-mode)) (let (insert-list insert-item) (setq
insert-list #'(lambda ... ...)) (setq insert-item #'(lambda ... ...))
(funcall insert-list list)) (setq data (org-element-map
(org-element-parse-buffer) 'plain-list #'identity nil t)) (setq info
(org-export-get-environment backend nil params))) (and (buffer-name
temp-buffer) (kill-buffer temp-buffer)))))
  (let* ((backend (plist-get params :backend)) (custom-backend
(org-export-create-backend :parent (or backend 'org) :transcoders (cons
(cons 'plain-list (org-list--to-generic-plain-list params)) (cons (cons
'item (org-list--to-generic-item params)) '(...))))) data info) (let
((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer
(set-buffer temp-buffer) (unwind-protect (progn (let ((org-inhibit-startup
t)) (org-mode)) (let (insert-list insert-item) (setq insert-list #'...)
(setq insert-item #'...) (funcall insert-list list)) (setq data
(org-element-map (org-element-parse-buffer) 'plain-list #'identity nil t))
(setq info (org-export-get-environment backend nil params))) (and
(buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (and backend
(symbolp backend) (not (org-export-get-backend backend))) (progn
(user-error "Unknown :backend value"))) (if backend nil (require 'ox-org))
(if (and backend (plist-get params :raw)) (progn (org-element-map data
org-element-all-objects #'(lambda (object) (org-element-set object
(org-element-interpret-data object)))))) (let ((output
(org-export-data-with-backend data custom-backend info))) (if
(org-string-nw-p output) (substring-no-properties output 0 -1) "")))
  org-list-to-generic((unordered ("a new house") ("a new computer"
(unordered ("a new keyboard") ("a new mouse"))) ("a new life")) (:backend
latex))
  org-list-to-latex((unordered ("a new house") ("a new computer" (unordered
("a new keyboard") ("a new mouse"))) ("a new life")))
  orgalist-send-list()
  funcall-interactively(orgalist-send-list)
  command-execute(orgalist-send-list record)
  execute-extended-command(nil "orgalist-send-list" "orgalist-se")
  funcall-interactively(execute-extended-command nil "orgalist-send-list"
"orgalist-se")
  command-execute(execute-extended-command)

[-- Attachment #2: Type: text/html, Size: 14702 bytes --]