From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1.migadu.com ([2001:41d0:303:e16b::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms13.migadu.com with LMTPS id OIpCD4rDb2as6QAA62LTzQ:P1 (envelope-from ) for ; Mon, 17 Jun 2024 05:03:06 +0000 Received: from aspmx1.migadu.com ([2001:41d0:303:e16b::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1.migadu.com with LMTPS id OIpCD4rDb2as6QAA62LTzQ (envelope-from ) for ; Mon, 17 Jun 2024 07:03:06 +0200 X-Envelope-To: larch@yhetil.org Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20230601 header.b=NBFIvgKa; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org"; dmarc=pass (policy=none) header.from=gmail.com ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1718600586; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=gN8bRbfLEj9i+LA9nIB/ceKEwc9HFAGs55L4hnb50Eo=; b=pcxJ6TYVmKpYZUZshQGiB9JX6qCYJTwf0pRQ4hHtXIAkNXBTrMN9YthCdhIONwmiQ8Pwv2 5UAd/nELnhM7BotLRXAel8OUmIiqTMs2FkKAA7IKQOrcXr/SnNZk8B+pkBeN2qb7bzJQay RHpQkO+NIeeWm7Bbh6eW1WTlYFUCJrkcr9pZvVldGQfNSJz7lQqfwNFwQqwSgA5htrV+i7 eUQqH5q8eG5toYPGBHbr+fSkt6EfjkuybDTdar1gpPJrF5aQ+2Gj9MQRUcJLE3MkrfM/+/ gLOPjtaXXkITc7dfdTPBeUOCkeZ/nEH2wUmrz5bgxr/IHRNv+mGtcilwvgfKHg== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20230601 header.b=NBFIvgKa; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org"; dmarc=pass (policy=none) header.from=gmail.com ARC-Seal: i=1; s=key1; d=yhetil.org; t=1718600586; a=rsa-sha256; cv=none; b=PTGJyaXDybNsSm36rttxRn1vgMPJ+qCqA7P1zwc0OlyGb/VUiSe5gao82UJ8zxbXWMRxZH K0MJffGDy67RywDtb6o1BkksSJ6hBWCfPkvZfiPhiSuYSk3XvvKIDCdHLFtmFBmmKc0Yn6 Qtkl9WFQPT8IoZwJeduknrAgmC1WjWfHOgyVp/oucIkKZuLsxOpsXhvnGlbZy95J3nYLn/ //uL50D69x3ovGTKIqI0nYih7SsRPwRjbNJA73s8ZhEfB1NW1m0VnMN0XyBBcWWO7DBUmN SIHHsGvuEg2k0AxwNC+ftD/1Sjba1JM6BkVIZwCNN3trCHCUAYNLUSDm9b/eXA== Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id D4B436583C for ; Mon, 17 Jun 2024 07:03:05 +0200 (CEST) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1sJ4VL-0000bd-E1; Mon, 17 Jun 2024 01:02:07 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1sJ4VK-0000bN-DC for emacs-orgmode@gnu.org; Mon, 17 Jun 2024 01:02:06 -0400 Received: from mail-pj1-x102a.google.com ([2607:f8b0:4864:20::102a]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1sJ4VG-0005RX-33 for emacs-orgmode@gnu.org; Mon, 17 Jun 2024 01:02:06 -0400 Received: by mail-pj1-x102a.google.com with SMTP id 98e67ed59e1d1-2c4af25f7d7so3439276a91.1 for ; Sun, 16 Jun 2024 22:02:01 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1718600520; x=1719205320; darn=gnu.org; h=cc:to:subject:message-id:date:from:in-reply-to:references :mime-version:from:to:cc:subject:date:message-id:reply-to; bh=gN8bRbfLEj9i+LA9nIB/ceKEwc9HFAGs55L4hnb50Eo=; b=NBFIvgKa1h52NX5Y1KxrUkSrYfH/3JBqoSqstpjKgoOQ3X8eiiHytMTlx9hc6Y0zr6 i4avlV7e15iNU+E/0p5Bzhzc0Y6iGLP+mszLDDKlx1Q2NmxvyBAsc+NCoC1Yn6VgNLTo dThmePHBdZWpD6K5+L1DWjX45c/UBHwBNwieW45azOzRyAzNK+NmohooB4qaiggLDxg2 gNh6hbDIRzPfJ4LcBMsnck/fiGMcIyn/H9J8PlOIIqDN3eozSYgzi2g3Z3WUDARNQzUK HY5Zp8O0R5TtjVeoNk7EoLF7SSfpob+tZ7JRlV+3TE7Im9h8lWlR928oHA+se06gXOSB C3jw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1718600520; x=1719205320; h=cc:to:subject:message-id:date:from:in-reply-to:references :mime-version:x-gm-message-state:from:to:cc:subject:date:message-id :reply-to; bh=gN8bRbfLEj9i+LA9nIB/ceKEwc9HFAGs55L4hnb50Eo=; b=evvuGWphklErtSNv0Sf6kFxdny6pO3dO0gEoP2/7/fsp6r1stIJDcTJGTHKBEhrRU0 Jy/YoOHMV5pzqVhsnBWapgdRbpZywULvnqVVITjb14yJUfuJ9AqwpO7hvxMGaljkIxu4 9T58lnFzQ+PR2XGTH79vt1i7Q9vO8Wm5QURIRm5wwlRDXf9TSn0xRaIfKTOqAwwlZv0+ eLo9hQpNLTBWtObQS1dYaDUKLniZyTT6AHzjO1d57eHqrO8qbNpfBT639v38LykK3TZq Tatc2s+czI7vkVAihWNM6WcP1AmmqaCtu0YFcTRw5h4imvSDEkv2i8tHK5TAUl4ntsZb peHQ== X-Forwarded-Encrypted: i=1; AJvYcCVVxYCXs5bmD4izezlw38pJrv98YkDcCwXfzX1DVj4PeC0NaaHUPScfT33tS/gIWeID9NPEvVvxrEInhOAgVVFt6n8IBE8= X-Gm-Message-State: AOJu0YyXh0umV17P/FaK4xnxS76dTKJi3ZQJKnReA3JBc3xYgCj4R+jb OiXfQFZ6BluD5UFyS6WyEiKGlxqFw6AirHL3D3iWpQwlifmMAzsdoLGPzavn4rU46HSQZHzmJ6f v6euZnvQT8qzOlpQco51JiySPgKU= X-Google-Smtp-Source: AGHT+IHctjGo3QlR4v/LOpuuTa8A2mx2bx4p/27dfSltDYPHYuZKBLCeENbn6qdauf3Q0NdPTvT+KuntcMHXN9UopAI= X-Received: by 2002:a17:90b:a4f:b0:2b6:c650:fb54 with SMTP id 98e67ed59e1d1-2c4dc035512mr7792713a91.49.1718600519805; Sun, 16 Jun 2024 22:01:59 -0700 (PDT) MIME-Version: 1.0 References: <87le36gwus.fsf@localhost> <87v829t794.fsf@localhost> In-Reply-To: <87v829t794.fsf@localhost> From: Rustom Mody Date: Mon, 17 Jun 2024 10:32:14 +0530 Message-ID: Subject: Re: [BUG] orgalist send bug To: Ihor Radchenko Cc: Nicolas Goaziou , emacs-orgmode@gnu.org Content-Type: multipart/alternative; boundary="0000000000007e7289061b0edd0e" Received-SPF: pass client-ip=2607:f8b0:4864:20::102a; envelope-from=rustompmody@gmail.com; helo=mail-pj1-x102a.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: emacs-orgmode-bounces+larch=yhetil.org@gnu.org X-Migadu-Country: US X-Migadu-Flow: FLOW_IN X-Migadu-Queue-Id: D4B436583C X-Migadu-Scanner: mx13.migadu.com X-Migadu-Spam-Score: -9.69 X-Spam-Score: -9.69 X-TUID: zNbl7YGTinOi --0000000000007e7289061b0edd0e Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable On Sun, Jun 16, 2024 at 5:42=E2=80=AFPM 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) --0000000000007e7289061b0edd0e Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable


=
On Sun, Jun 16, 2024 at 5:42=E2=80=AF= PM Ihor Radchenko <yantar92@poste= o.net> wrote:

Please follow https://orgmode.org/manual/Feedback.h= tml#Feedback


1. make repro
2. package-ini= tialize (to get org-alist)
3. load file shown above
4. = M-x orgalist-send-list



Backtrace

Debugger entered--Lisp error: (void-v= ariable org-element-cache-version)
=C2=A0 (list 'version org-element= -cache-version)
=C2=A0 (list '(elisp org-element--cache) (list '= version org-element-cache-version))
=C2=A0 (org-persist-load (list '= (elisp org-element--cache) (list 'version org-element-cache-version)) (= current-buffer) 'match-hash :read-related t)
=C2=A0 (progn (org-pers= ist-load (list '(elisp org-element--cache) (list 'version org-eleme= nt-cache-version)) (current-buffer) 'match-hash :read-related t))
= =C2=A0 (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)))
=C2=A0 (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode = 'org-mode) (setq mode-name "Org") (progn (if (get 'outlin= e-mode 'mode-class) (put 'org-mode 'mode-class (get 'outlin= e-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-t= able)))) nil (set-char-table-parent org-mode-syntax-table (syntax-table))))= (if (or (abbrev-table-get org-mode-abbrev-table :parents) (eq org-mode-abb= rev-table local-abbrev-table)) nil (abbrev-table-put org-mode-abbrev-table = :parents (list local-abbrev-table)))) (use-local-map org-mode-map) (set-syn= tax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-t= able) (set (make-local-variable 'org-mode-loading) t) (set (make-local-= variable 'tab-width) 8) (org-load-modules-maybe) (if org-agenda-file-me= nu-enabled (progn (org-install-agenda-files-menu))) (set (make-local-variab= le 'outline-regexp) org-outline-regexp) (set (make-local-variable '= outline-level) 'org-outline-level) (org-element-cache-reset) (if (and o= rg-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-reg= exps-and-options) (add-to-invisibility-spec '(org-link)) (org-fold-init= ialize (or (and (stringp org-ellipsis) (not (equal "" org-ellipsi= s)) org-ellipsis) "...")) (make-local-variable 'org-link-desc= riptive) (if (eq org-fold-core-style 'overlays) (progn (add-to-invisibi= lity-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-displ= ay-table 4 (vconcat (mapcar #'(lambda ... ...) org-ellipsis))) (setq bu= ffer-display-table org-display-table))) (org-set-font-lock-defaults) (if (a= nd 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-em= bedded-open-mode) "# ") (set-syntax-table (make-syntax-table org-= mode-syntax-table)) (set (make-local-variable 'font-lock-unfontify-regi= on-function) 'org-unfontify-region) (set (make-local-variable 'org-= table-may-need-update) t) (add-hook 'before-change-functions 'org-b= efore-change-function nil 'local) (add-hook 'kill-buffer-hook '= org-check-running-clock nil 'local) (org-fold--advice-edit-commands) (o= rg-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-se= tup-filling) (org-setup-comments-handling) (set (make-local-variable 'b= eginning-of-defun-function) 'org-backward-element) (set (make-local-var= iable 'end-of-defun-function) #'(lambda nil (if (not (org-at-headin= g-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-ad= d-log-current-headline) (if org-enforce-todo-dependencies (add-hook 'or= g-blocker-hook 'org-block-todo-from-children-or-siblings-or-parent) (re= move-hook 'org-blocker-hook 'org-block-todo-from-children-or-siblin= gs-or-parent)) (if org-enforce-todo-checkbox-dependencies (add-hook 'or= g-blocker-hook 'org-block-todo-from-checkboxes) (remove-hook 'org-b= locker-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))))) (se= t (make-local-variable 'pcomplete-command-completion-function) #'or= g-pcomplete-initial) (set (make-local-variable 'pcomplete-command-name-= function) #'org-command-at-point) (set (make-local-variable 'pcompl= ete-default-completion-function) #'ignore) (set (make-local-variable &#= 39;pcomplete-parse-arguments-function) #'org-parse-arguments) (set (mak= e-local-variable 'pcomplete-termination-string) "") ...)
= =C2=A0 (progn (make-local-variable 'delay-mode-hooks) (let ((delay-mode= -hooks t)) (outline-mode) (setq major-mode 'org-mode) (setq mode-name &= quot;Org") (progn (if (get 'outline-mode 'mode-class) (put = 9;org-mode 'mode-class (get 'outline-mode 'mode-class))) (if (k= eymap-parent org-mode-map) nil (set-keymap-parent org-mode-map (current-loc= al-map))) (let ((parent (char-table-parent org-mode-syntax-table))) (if (an= d parent (not (eq parent ...))) nil (set-char-table-parent org-mode-syntax-= table (syntax-table)))) (if (or (abbrev-table-get org-mode-abbrev-table :pa= rents) (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-loadin= g) 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 (ma= ke-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 've= rsion org-element-cache-version)) (current-buffer) 'match-hash :read-re= lated t))) (org-set-regexps-and-options) (add-to-invisibility-spec '(or= g-link)) (org-fold-initialize (or (and (stringp org-ellipsis) (not (equal &= quot;" org-ellipsis)) org-ellipsis) "...")) (make-local-vari= able 'org-link-descriptive) (if (eq org-fold-core-style 'overlays) = (progn (add-to-invisibility-spec '(org-hide-block . t)))) (if (and (str= ingp org-ellipsis) (not (equal "" org-ellipsis))) (progn (if org-= display-table nil (setq org-display-table (make-display-table))) (set-displ= ay-table-slot org-display-table 4 (vconcat (mapcar #'... org-ellipsis))= ) (setq buffer-display-table org-display-table))) (org-set-font-lock-defaul= ts) (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 &#= 39;calc-embedded-open-mode) "# ") (set-syntax-table (make-syntax-= table org-mode-syntax-table)) (set (make-local-variable 'font-lock-unfo= ntify-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-co= mmands) (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-regio= n) (org-setup-filling) (org-setup-comments-handling) (set (make-local-varia= ble '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-ne= xt-match) (set (make-local-variable 'add-log-current-defun-function) #&= #39;org-add-log-current-headline) (if org-enforce-todo-dependencies (add-ho= ok 'org-blocker-hook 'org-block-todo-from-children-or-siblings-or-p= arent) (remove-hook 'org-blocker-hook 'org-block-todo-from-children= -or-siblings-or-parent)) (if org-enforce-todo-checkbox-dependencies (add-ho= ok 'org-blocker-hook 'org-block-todo-from-checkboxes) (remove-hook = 'org-blocker-hook 'org-block-todo-from-checkboxes)) (set (make-loca= l-variable 'align-mode-rules-list) '((org-in-buffer-settings (regex= p . "^[ \11]*#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote (org-mod= e))))) (set (make-local-variable 'pcomplete-command-completion-function= ) #'org-pcomplete-initial) (set (make-local-variable 'pcomplete-com= mand-name-function) #'org-command-at-point) (set (make-local-variable &= #39;pcomplete-default-completion-function) #'ignore) (set (make-local-v= ariable 'pcomplete-parse-arguments-function) #'org-parse-arguments)= (set (make-local-variable 'pcomplete-termination-string) "")= ...))
=C2=A0 org-mode()
=C2=A0 (let ((org-inhibit-startup t)) (org-m= ode))
=C2=A0 (progn (let ((org-inhibit-startup t)) (org-mode)) (let (ins= ert-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-b= uffer) 'plain-list #'identity nil t)) (setq info (org-export-get-en= vironment backend nil params)))
=C2=A0 (unwind-protect (progn (let ((org= -inhibit-startup t)) (org-mode)) (let (insert-list insert-item) (setq inser= t-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-eleme= nt-map (org-element-parse-buffer) 'plain-list #'identity nil t)) (s= etq info (org-export-get-environment backend nil params))) (and (buffer-nam= e temp-buffer) (kill-buffer temp-buffer)))
=C2=A0 (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 #'(lamb= da (l) (let ... ...))) (setq insert-item #'(lambda (i type) (let ... ..= . ... ... ...))) (funcall insert-list list)) (setq data (org-element-map (o= rg-element-parse-buffer) 'plain-list #'identity nil t)) (setq info = (org-export-get-environment backend nil params))) (and (buffer-name temp-bu= ffer) (kill-buffer temp-buffer))))
=C2=A0 (let ((temp-buffer (generate-n= ew-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-bu= ffer) (unwind-protect (progn (let ((org-inhibit-startup t)) (org-mode)) (le= t (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)))))
=C2=A0 (let* ((b= ackend (plist-get params :backend)) (custom-backend (org-export-create-back= end :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 (gene= rate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer t= emp-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 (o= rg-element-parse-buffer) 'plain-list #'identity nil t)) (setq info = (org-export-get-environment backend nil params))) (and (buffer-name temp-bu= ffer) (kill-buffer temp-buffer))))) (if (and backend (symbolp backend) (not= (org-export-get-backend backend))) (progn (user-error "Unknown :backe= nd value"))) (if backend nil (require 'ox-org)) (if (and backend (= plist-get params :raw)) (progn (org-element-map data org-element-all-object= s #'(lambda (object) (org-element-set object (org-element-interpret-dat= a object)))))) (let ((output (org-export-data-with-backend data custom-back= end info))) (if (org-string-nw-p output) (substring-no-properties output 0 = -1) "")))
=C2=A0 org-list-to-generic((unordered ("a new h= ouse") ("a new computer" (unordered ("a new keyboard&qu= ot;) ("a new mouse"))) ("a new life")) (:backend latex)= )
=C2=A0 org-list-to-latex((unordered ("a new house") ("a= new computer" (unordered ("a new keyboard") ("a new mo= use"))) ("a new life")))
=C2=A0 orgalist-send-list()
= =C2=A0 funcall-interactively(orgalist-send-list)
=C2=A0 command-execute(= orgalist-send-list record)
=C2=A0 execute-extended-command(nil "org= alist-send-list" "orgalist-se")
=C2=A0 funcall-interactiv= ely(execute-extended-command nil "orgalist-send-list" "orgal= ist-se")
=C2=A0 command-execute(execute-extended-command)
=
--0000000000007e7289061b0edd0e--