On Sun, Jun 16, 2024 at 5:42 PM Ihor Radchenko 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)