From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Ihor Radchenko Newsgroups: gmane.emacs.bugs Subject: bug#57972: 29.0.50; Autoloaded function raises (void-function org-element-cache-reset) when called within major-mode body Date: Wed, 21 Sep 2022 22:51:16 +0800 Message-ID: References: <87fsglxh24.fsf@localhost> <83k05xufhf.fsf@gnu.org> <8735clx8cl.fsf@localhost> <83edw4vqsq.fsf@gnu.org> <838rmcvphe.fsf@gnu.org> <8335ckvn5p.fsf@gnu.org> <83zgesu7jz.fsf@gnu.org> Mime-Version: 1.0 Content-Type: multipart/alternative; boundary="000000000000dff76b05e9311080" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="13856"; mail-complaints-to="usenet@ciao.gmane.io" Cc: 57972@debbugs.gnu.org To: Eli Zaretskii Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Wed Sep 21 16:58:53 2022 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1ob1Bc-0003PR-3u for geb-bug-gnu-emacs@m.gmane-mx.org; Wed, 21 Sep 2022 16:58:52 +0200 Original-Received: from localhost ([::1]:33300 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ob1Bb-0005ql-0f for geb-bug-gnu-emacs@m.gmane-mx.org; Wed, 21 Sep 2022 10:58:51 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:54644) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ob142-0005FO-SK for bug-gnu-emacs@gnu.org; Wed, 21 Sep 2022 10:51:03 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:35940) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1ob142-0004SS-Kc for bug-gnu-emacs@gnu.org; Wed, 21 Sep 2022 10:51:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ob142-0004D3-3a for bug-gnu-emacs@gnu.org; Wed, 21 Sep 2022 10:51:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Ihor Radchenko Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 21 Sep 2022 14:51:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 57972 X-GNU-PR-Package: emacs Original-Received: via spool by 57972-submit@debbugs.gnu.org id=B57972.166377184616158 (code B ref 57972); Wed, 21 Sep 2022 14:51:02 +0000 Original-Received: (at 57972) by debbugs.gnu.org; 21 Sep 2022 14:50:46 +0000 Original-Received: from localhost ([127.0.0.1]:35018 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ob13i-0004CT-F5 for submit@debbugs.gnu.org; Wed, 21 Sep 2022 10:50:46 -0400 Original-Received: from mail-lf1-f51.google.com ([209.85.167.51]:47074) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ob13c-0004C7-7G for 57972@debbugs.gnu.org; Wed, 21 Sep 2022 10:50:39 -0400 Original-Received: by mail-lf1-f51.google.com with SMTP id a8so9567594lff.13 for <57972@debbugs.gnu.org>; Wed, 21 Sep 2022 07:50:36 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=cc:to:subject:message-id:date:from:in-reply-to:references :mime-version:from:to:cc:subject:date; bh=ixLdBm6eoTg6tbkUqsZJk/dreA4BwxmThhUZO8ees38=; b=lvaMLyC7vPLtI7D+rjrL1Re2y0Q18ENq/cXZSexLfNiVzWRBkyAiokZob8io2WkJKU CASbKLRok3a9yo5nsVmi7xAbESFLSLwWQoUYv7tzrpmjbPQCePQRbNreWdsdniyUSQol pYo5Pfju7hUu0Us6fOYpwyeWy+32PVXYl4hhGWRwWllfEuTM0ImU99YPSo5Yd06TC6cV HQKNatmvIogZXPArPZJiVS9scNm/zwrZaKWsQP85PCvF7rA/eb3ixtBBtkBUSLNx0x+s 6NI2mTRkGpLuJ3TR+7FAb+Z5VaVy/Ul8pm3GP0l80x4WoJBlsfnY04d1xNgQp/p8wILC KGcg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=cc:to:subject:message-id:date:from:in-reply-to:references :mime-version:x-gm-message-state:from:to:cc:subject:date; bh=ixLdBm6eoTg6tbkUqsZJk/dreA4BwxmThhUZO8ees38=; b=bsmnP2MFVBa37u1uhFZJ7p8P+bRMOui2/4GZb3G5r0t4V/FEnfkp5jAY9XdFlWJywX AIrBlswEkUYFJ3taeHSTqnkslU/Wy+s33Re33QzWXJ2GZYvXlue706tLSApYXQTnR0KP clkSZvMelwcHDtevl2dHu7CnK+3DX2Mj0xlcND2QKpgsC1T3HsEksAx6bqN+XnVXPzT7 acRNae1z+VsN66N9muHJcJXOrgGOFrlqN45XLAB5Lb4uWYb/TRscJNrxsXSKi9UauoCJ 6gtGBccEirOK0KUu3PDuQGA32OiNxlBNcpYsZwVx0HubPw8NRkyleGlCHZuzN/Uo1LPn Y02w== X-Gm-Message-State: ACrzQf0OhagY7NEztG9ozu2o0hl8tc5KcPvbLxwZ70tnmhvVgUOQLaj/ GJpiBb8TodTXUBR1sMbySP4rQEMyeg3320nu7ughcTLKk4NRyA== X-Google-Smtp-Source: AMsMyM7EuptWdAzw+NZivYAHNc4cC+Jr/S5wSaKO2rWC9gxqRMfoO25eHpa31ePwK+3rhE/+rdVwfBjCmeaXrAADaQo= X-Received: by 2002:ac2:544a:0:b0:49f:4ecb:178d with SMTP id d10-20020ac2544a000000b0049f4ecb178dmr9807535lfn.663.1663771829334; Wed, 21 Sep 2022 07:50:29 -0700 (PDT) In-Reply-To: <83zgesu7jz.fsf@gnu.org> X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:243364 Archived-At: --000000000000dff76b05e9311080 Content-Type: text/plain; charset="UTF-8" > > And another thing: do you have any clue (or maybe more than a clue) > what changes in Org wrt what's on the Emacs master branch could have > caused this? If you do, can you show those changes, or point to the > specific places in Org files where those changes can be eye-balled? I bisected Org repo and found the first bad commit. Unfortunately, it is not very useful. The commit changed the order function calls in org-mode. Before the commit, `org-setup-filling' got called prior to `org-element-cache-reset' and `org-setup-filling' has an explicit (require 'org-element) statement, which made autoloading unnecessary in the past. Would it help to make the backtrace more detailed? Right now, we > don't see anything between the call to normal-mode and the error. If > you manually "M-x load-file RET files.el RET" before doing > eval-buffer, do you get a more detailed backtrace? > > Doing load-file made no difference. I can generate an alternative backtrace using debug-on-entry org-mode. The debug buffer right before error is below Debugger entered--beginning evaluation of function call form: * (org-element-cache-reset) * (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) (org-load-modules-maybe) (if org-agenda-file-menu-enabled (progn (org-install-agenda-files-menu))) (if (and org-link-descriptive (eq org-fold-core-style 'overlays)) (progn (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 org-link-descriptive (org-fold-core-set-folding-spec-property (car org-link--link-folding-spec) :visible nil) (org-fold-core-set-folding-spec-property (car org-link--link-folding-spec) :visible t)) (set (make-local-variable 'outline-regexp) org-outline-regexp) (set (make-local-variable 'outline-level) 'org-outline-level) (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-regexps-and-options) (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) "# ") (modify-syntax-entry 34 "\"") (modify-syntax-entry 92 "_") (modify-syntax-entry 126 "_") (modify-syntax-entry 60 "(>") (modify-syntax-entry 62 ")<") (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-element-cache-reset) (if (and org-element-cache-persistent org-element-use-cache) (progn (org-persist-load 'org-element--cache (current-buffer) t))) (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) ...) * (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) (org-load-modules-maybe) (if org-agenda-file-menu-enabled (progn (org-install-agenda-files-menu))) (if (and org-link-descriptive (eq org-fold-core-style 'overlays)) (progn (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 org-link-descriptive (org-fold-core-set-folding-spec-property (car org-link--link-folding-spec) :visible nil) (org-fold-core-set-folding-spec-property (car org-link--link-folding-spec) :visible t)) (set (make-local-variable 'outline-regexp) org-outline-regexp) (set (make-local-variable 'outline-level) 'org-outline-level) (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-regexps-and-options) (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) "# ") (modify-syntax-entry 34 "\"") (modify-syntax-entry 92 "_") (modify-syntax-entry 126 "_") (modify-syntax-entry 60 "(>") (modify-syntax-entry 62 ")<") (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-element-cache-reset) (if (and org-element-cache-persistent org-element-use-cache) (progn (org-persist-load 'org-element--cache (current-buffer) t))) (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) ...)) * (closure (org-mode-abbrev-table org-mode-syntax-table org-element-use-cache org-element-cache-persistent buffer-face-mode-face org-tbl-menu org-org-menu org-struct-menu org-entities org-last-state org-id-track-globally org-clock-start-time texmathp-why remember-data-file org-agenda-tags-todo-honor-ignore-options iswitchb-temp-buflist calc-embedded-open-mode calc-embedded-open-formula calc-embedded-close-formula align-mode-rules-list org-emphasis-alist org-emphasis-regexp-components org-export-registered-backends org-modules crm-separator org-babel-load-languages org-id-overriding-file-name org-indent-indentation-per-level org-element--timestamp-regexp org-element-cache-map-continue-from org-element-paragraph-separate org-agenda-buffer-name org-inlinetask-min-level t) nil "Outline-based notes management and organizer, alia..." (interactive) (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 ...)) 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) (org-load-modules-maybe) (if org-agenda-file-menu-enabled (progn (org-install-agenda-files-menu))) (if (and org-link-descriptive (eq org-fold-core-style 'overlays)) (progn (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 org-link-descriptive (org-fold-core-set-folding-spec-property (car org-link--link-folding-spec) :visible nil) (org-fold-core-set-folding-spec-property (car org-link--link-folding-spec) :visible t)) (set (make-local-variable 'outline-regexp) org-outline-regexp) (set (make-local-variable 'outline-level) 'org-outline-level) (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-regexps-and-options) (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) "# ") (modify-syntax-entry 34 "\"") (modify-syntax-entry 92 "_") (modify-syntax-entry 126 "_") (modify-syntax-entry 60 "(>") (modify-syntax-entry 62 ")<") (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-element-cache-reset) (if (and org-element-cache-persistent org-element-use-cache) (progn (org-persist-load 'org-element--cache (current-buffer) t))) (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-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 ...)))) (set (make-local-variable 'pcomplete-command-completion-function) #'org-pcomplete-initial) (set (make-local-variable 'pcomplete-command-name-function) #'org-command-at-point) ...)) (run-mode-hooks 'org-mode-hook))() * apply((closure (org-mode-abbrev-table org-mode-syntax-table org-element-use-cache org-element-cache-persistent buffer-face-mode-face org-tbl-menu org-org-menu org-struct-menu org-entities org-last-state org-id-track-globally org-clock-start-time texmathp-why remember-data-file org-agenda-tags-todo-honor-ignore-options iswitchb-temp-buflist calc-embedded-open-mode calc-embedded-open-formula calc-embedded-close-formula align-mode-rules-list org-emphasis-alist org-emphasis-regexp-components org-export-registered-backends org-modules crm-separator org-babel-load-languages org-id-overriding-file-name org-indent-indentation-per-level org-element--timestamp-regexp org-element-cache-map-continue-from org-element-paragraph-separate org-agenda-buffer-name org-inlinetask-min-level t) nil "Outline-based notes management and organizer, alia..." (interactive) (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 ... ...))) (if (keymap-parent org-mode-map) nil (set-keymap-parent org-mode-map (current-local-map))) (let ((parent ...)) (if (and parent ...) nil (set-char-table-parent org-mode-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) (org-load-modules-maybe) (if org-agenda-file-menu-enabled (progn (org-install-agenda-files-menu))) (if (and org-link-descriptive (eq org-fold-core-style 'overlays)) (progn (add-to-invisibility-spec '...))) (org-fold-initialize (or (and (stringp org-ellipsis) (not ...) org-ellipsis) "...")) (make-local-variable 'org-link-descriptive) (if (eq org-fold-core-style 'overlays) (progn (add-to-invisibility-spec '...))) (if org-link-descriptive (org-fold-core-set-folding-spec-property (car org-link--link-folding-spec) :visible nil) (org-fold-core-set-folding-spec-property (car org-link--link-folding-spec) :visible t)) (set (make-local-variable 'outline-regexp) org-outline-regexp) (set (make-local-variable 'outline-level) 'org-outline-level) (if (and (stringp org-ellipsis) (not (equal "" org-ellipsis))) (progn (if org-display-table nil (setq org-display-table ...)) (set-display-table-slot org-display-table 4 (vconcat ...)) (setq buffer-display-table org-display-table))) (org-set-regexps-and-options) (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) "# ") (modify-syntax-entry 34 "\"") (modify-syntax-entry 92 "_") (modify-syntax-entry 126 "_") (modify-syntax-entry 60 "(>") (modify-syntax-entry 62 ")<") (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-element-cache-reset) (if (and org-element-cache-persistent org-element-use-cache) (progn (org-persist-load 'org-element--cache (current-buffer) t))) (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 ... ... ... ...))) (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 ... ...))) (set (make-local-variable 'pcomplete-command-completion-function) #'org-pcomplete-initial) (set (make-local-variable 'pcomplete-command-name-function) #'org-command-at-point) ...)) (run-mode-hooks 'org-mode-hook)) nil) * org-mode() funcall(org-mode) (progn (funcall mode) mode) (if mode (progn (funcall mode) mode)) (if (and keep-mode-if-same (eq (indirect-function mode) (indirect-function major-mode))) nil (if mode (progn (funcall mode) mode))) set-auto-mode-0(org-mode nil) (progn (set-auto-mode-0 mode keep-mode-if-same) t) (if mode (progn (set-auto-mode-0 mode keep-mode-if-same) t)) (let (mode (name buffer-file-name) (remote-id (file-remote-p buffer-file-name)) (case-insensitive-p (file-name-case-insensitive-p buffer-file-name))) (setq name (file-name-sans-versions name)) (if (and (stringp remote-id) (string-match (regexp-quote remote-id) name)) (progn (setq name (substring name (match-end 0))))) (while name (setq mode (if case-insensitive-p (let ((case-fold-search t)) (assoc-default name alist 'string-match)) (or (let ((case-fold-search nil)) (assoc-default name alist 'string-match)) (and auto-mode-case-fold (let (...) (assoc-default name alist ...)))))) (if (and mode (not (functionp mode)) (consp mode) (car (cdr mode))) (progn (setq mode (car mode)) (setq name (substring name 0 (match-beginning 0)))) (setq name nil))) (if (and dir-local mode (not (set-auto-mode--dir-local-valid-p mode))) (progn (message "Ignoring invalid mode `%s'" mode) (setq mode nil))) (if mode (progn (set-auto-mode-0 mode keep-mode-if-same) t))) (if buffer-file-name (let (mode (name buffer-file-name) (remote-id (file-remote-p buffer-file-name)) (case-insensitive-p (file-name-case-insensitive-p buffer-file-name))) (setq name (file-name-sans-versions name)) (if (and (stringp remote-id) (string-match (regexp-quote remote-id) name)) (progn (setq name (substring name (match-end 0))))) (while name (setq mode (if case-insensitive-p (let ((case-fold-search t)) (assoc-default name alist 'string-match)) (or (let (...) (assoc-default name alist ...)) (and auto-mode-case-fold (let ... ...))))) (if (and mode (not (functionp mode)) (consp mode) (car (cdr mode))) (progn (setq mode (car mode)) (setq name (substring name 0 (match-beginning 0)))) (setq name nil))) (if (and dir-local mode (not (set-auto-mode--dir-local-valid-p mode))) (progn (message "Ignoring invalid mode `%s'" mode) (setq mode nil))) (if mode (progn (set-auto-mode-0 mode keep-mode-if-same) t)))) set-auto-mode--apply-alist((("\\.gpg\\(~\\|\\.~[0-9]+~\\)?\\'" nil epa-file) ("\\.elc\\'" . elisp-byte-code-mode) ("\\.\\(?:3fr\\|a\\(?:rw\\|vs\\)\\|bmp[23]?\\|c\\(?:als?\\|myk..." . image-mode) ("\\.zst\\'" nil jka-compr) ("\\.dz\\'" nil jka-compr) ("\\.xz\\'" nil jka-compr) ("\\.lzma\\'" nil jka-compr) ("\\.lz\\'" nil jka-compr) ("\\.g?z\\'" nil jka-compr) ("\\.bz2\\'" nil jka-compr) ("\\.Z\\'" nil jka-compr) ("\\.vr[hi]?\\'" . vera-mode) ("\\(?:\\.\\(?:rbw?\\|ru\\|rake\\|thor\\|jbuilder\\|rabl\\|ge..." . ruby-mode) ("\\.re?st\\'" . rst-mode) ("\\.py[iw]?\\'" . python-mode) ("\\.m\\'" . octave-maybe-mode) ("\\.less\\'" . less-css-mode) ("\\.scss\\'" . scss-mode) ("\\.awk\\'" . awk-mode) ("\\.\\(u?lpc\\|pike\\|pmod\\(\\.in\\)?\\)\\'" . pike-mode) ("\\.idl\\'" . idl-mode) ("\\.java\\'" . java-mode) ("\\.m\\'" . objc-mode) ("\\.ii\\'" . c++-mode) ("\\.i\\'" . c-mode) ("\\.lex\\'" . c-mode) ("\\.y\\(acc\\)?\\'" . c-mode) ("\\.h\\'" . c-or-c++-mode) ("\\.c\\'" . c-mode) ("\\.\\(CC?\\|HH?\\)\\'" . c++-mode) ("\\.[ch]\\(pp\\|xx\\|\\+\\+\\)\\'" . c++-mode) ("\\.\\(cc\\|hh\\)\\'" . c++-mode) ("\\.\\(bat\\|cmd\\)\\'" . bat-mode) ("\\.[sx]?html?\\(\\.[a-zA-Z_]+\\)?\\'" . mhtml-mode) ("\\.svgz?\\'" . image-mode) ("\\.svgz?\\'" . xml-mode) ("\\.x[bp]m\\'" . image-mode) ("\\.x[bp]m\\'" . c-mode) ("\\.p[bpgn]m\\'" . image-mode) ("\\.tiff?\\'" . image-mode) ("\\.gif\\'" . image-mode) ("\\.png\\'" . image-mode) ("\\.jpe?g\\'" . image-mode) ("\\.webp\\'" . image-mode) ("\\.te?xt\\'" . text-mode) ("\\.[tT]e[xX]\\'" . tex-mode) ("\\.ins\\'" . tex-mode) ("\\.ltx\\'" . latex-mode) ("\\.dtx\\'" . doctex-mode) ("\\.org\\'" . org-mode) ...) nil nil) (setq done (set-auto-mode--apply-alist auto-mode-alist keep-mode-if-same nil)) (if done nil (setq done (set-auto-mode--apply-alist auto-mode-alist keep-mode-if-same nil))) (let ((try-locals (not (inhibit-local-variables-p))) end done mode modes) (save-excursion (goto-char (point-min)) (skip-chars-forward " \11\n") (and enable-local-variables try-locals (setq end (set-auto-mode-1)) (if (save-excursion (search-forward ":" end t)) (while (let ((case-fold-search t)) (or (and ... ...) (re-search-forward "[ \11;]mode:" end t))) (skip-chars-forward " \11") (let ((beg ...)) (if (search-forward ";" end t) (forward-char -1) (goto-char end)) (skip-chars-backward " \11") (setq modes (cons ... modes)))) (setq modes (cons (intern (concat ... "-mode")) modes))))) (if modes (catch 'nop (let ((--dolist-tail-- (nreverse modes))) (while --dolist-tail-- (let ((mode ...)) (if (not ...) (message "Ignoring unknown mode `%s'" mode) (setq done t) (or ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (if done nil (condition-case err (let* ((mode-alist (cdr (hack-dir-local--get-variables ...)))) (setq done (set-auto-mode--apply-alist mode-alist keep-mode-if-same t))) ((debug error) (message "Directory-local variables error: %s" err) nil))) (and (not done) (setq mode (hack-local-variables t (not try-locals))) (not (memq mode modes)) (if (not (functionp mode)) (message "Ignoring unknown mode `%s'" mode) (setq done t) (set-auto-mode-0 mode keep-mode-if-same))) (and (not done) (setq mode (save-excursion (goto-char (point-min)) (if (looking-at auto-mode-interpreter-regexp) (match-string 2)))) (setq done (assoc-default (file-name-nondirectory mode) (mapcar #'(lambda (e) (cons ... ...)) interpreter-mode-alist) #'string-match-p)) (set-auto-mode-0 done keep-mode-if-same)) (if done nil (if (setq done (save-excursion (goto-char (point-min)) (save-restriction (narrow-to-region (point-min) (min ... ...)) (assoc-default nil magic-mode-alist #'...)))) (set-auto-mode-0 done keep-mode-if-same))) (if done nil (setq done (set-auto-mode--apply-alist auto-mode-alist keep-mode-if-same nil))) (if done nil (if (setq done (save-excursion (goto-char (point-min)) (save-restriction (narrow-to-region (point-min) (min ... ...)) (assoc-default nil magic-fallback-mode-alist #'...)))) (set-auto-mode-0 done keep-mode-if-same))) (if done nil (set-buffer-major-mode (current-buffer)))) set-auto-mode() (condition-case err (set-auto-mode) ((debug error) (message "File mode specification error: %s" err) nil)) (let ((enable-local-variables (or (not find-file) enable-local-variables))) (condition-case err (set-auto-mode) ((debug error) (message "File mode specification error: %s" err) nil)) (if delay-mode-hooks (progn (condition-case err (hack-local-variables 'no-mode) ((debug error) (message "File local-variables error: %s" err) nil))))) normal-mode(t) (if nomodes nil (if (and view-read-only view-mode) (progn (view-mode -1))) (normal-mode t) (and (memq require-final-newline '(visit visit-save)) (> (point-max) (point-min)) (/= (char-after (1- (point-max))) 10) (not (and (eq selective-display t) (= (char-after (1- (point-max))) 13))) (not buffer-read-only) (save-excursion (goto-char (point-max)) (condition-case nil (progn (insert "\n")) (error nil)))) (if (and buffer-read-only view-read-only (not (eq (get major-mode 'mode-class) 'special))) (progn (view-mode-enter))) (run-hooks 'find-file-hook)) after-find-file(nil t) (if rawfile (let ((enable-local-variables nil)) (set-buffer-multibyte nil) (setq buffer-file-coding-system 'no-conversion) (set-buffer-major-mode buf) (set (make-local-variable 'find-file-literally) t)) (after-find-file error (not nowarn))) (save-current-buffer (set-buffer buf) (kill-local-variable 'find-file-literally) (kill-local-variable 'buffer-file-coding-system) (kill-local-variable 'cursor-type) (let ((inhibit-read-only t)) (erase-buffer)) (and (not rawfile) (set-buffer-multibyte t)) (if rawfile (condition-case nil (let ((inhibit-read-only t) (enable-local-variables nil)) (insert-file-contents-literally filename t)) (file-error (if (and (file-exists-p filename) (not (file-readable-p filename))) (progn (kill-buffer buf) (signal 'file-error (list "File is not readable" filename)))) (setq error t))) (condition-case nil (let ((inhibit-read-only t)) (insert-file-contents filename t)) (file-error (if (and (file-exists-p filename) (not (file-readable-p filename))) (progn (kill-buffer buf) (signal 'file-error (list "File is not readable" filename)))) (or (run-hook-with-args-until-success 'find-file-not-found-functions) (setq error t))))) (setq buffer-file-truename (if (equal filename buffer-file-name) truename (abbreviate-file-name (file-truename buffer-file-name)))) (setq buffer-file-number number) (if find-file-visit-truename (setq buffer-file-name (expand-file-name buffer-file-truename))) (setq default-directory (file-name-directory buffer-file-name)) (and backup-enable-predicate (not (funcall backup-enable-predicate buffer-file-name)) (set (make-local-variable 'backup-inhibited) t)) (if rawfile (let ((enable-local-variables nil)) (set-buffer-multibyte nil) (setq buffer-file-coding-system 'no-conversion) (set-buffer-major-mode buf) (set (make-local-variable 'find-file-literally) t)) (after-find-file error (not nowarn))) (current-buffer)) (let (error) (save-current-buffer (set-buffer buf) (kill-local-variable 'find-file-literally) (kill-local-variable 'buffer-file-coding-system) (kill-local-variable 'cursor-type) (let ((inhibit-read-only t)) (erase-buffer)) (and (not rawfile) (set-buffer-multibyte t)) (if rawfile (condition-case nil (let ((inhibit-read-only t) (enable-local-variables nil)) (insert-file-contents-literally filename t)) (file-error (if (and (file-exists-p filename) (not ...)) (progn (kill-buffer buf) (signal ... ...))) (setq error t))) (condition-case nil (let ((inhibit-read-only t)) (insert-file-contents filename t)) (file-error (if (and (file-exists-p filename) (not ...)) (progn (kill-buffer buf) (signal ... ...))) (or (run-hook-with-args-until-success 'find-file-not-found-functions) (setq error t))))) (setq buffer-file-truename (if (equal filename buffer-file-name) truename (abbreviate-file-name (file-truename buffer-file-name)))) (setq buffer-file-number number) (if find-file-visit-truename (setq buffer-file-name (expand-file-name buffer-file-truename))) (setq default-directory (file-name-directory buffer-file-name)) (and backup-enable-predicate (not (funcall backup-enable-predicate buffer-file-name)) (set (make-local-variable 'backup-inhibited) t)) (if rawfile (let ((enable-local-variables nil)) (set-buffer-multibyte nil) (setq buffer-file-coding-system 'no-conversion) (set-buffer-major-mode buf) (set (make-local-variable 'find-file-literally) t)) (after-find-file error (not nowarn))) (current-buffer))) find-file-noselect-1(# "/tmp/bug.org" nil nil "/tmp/ bug.org" (127741036 26)) (if buf (let (nonexistent) (or nowarn (verify-visited-file-modtime buf) (cond ((not (file-exists-p filename)) (setq nonexistent t) (message "File %s no longer exists!" filename)) ((and (not (buffer-modified-p buf)) (let (... ...) (while tail ... ...) found)) (save-current-buffer (set-buffer buf) (message "Reverting file %s..." filename) (revert-buffer t t) (message "Reverting file %s...done" filename))) ((not query-about-changed-file) (message (substitute-command-keys "File %s changed on disk. \\[revert-buffer-quick] t...") (file-name-nondirectory filename) (if (buffer-modified-p buf) " and discard your edits" ""))) ((yes-or-no-p (if (string= ... ...) (format ... ...) (format ... ... ...))) (save-current-buffer (set-buffer buf) (revert-buffer t t))))) (save-current-buffer (set-buffer buf) (let ((read-only (not (file-writable-p buffer-file-name)))) (if (or nonexistent (eq read-only buffer-file-read-only) (eq read-only buffer-read-only)) nil (if (or nowarn (let* ... ...)) (progn (setq buffer-read-only read-only)))) (setq buffer-file-read-only read-only)) (if (or (eq (null rawfile) (null find-file-literally)) nonexistent (memq major-mode '(hexl-mode image-mode))) nil (if (buffer-modified-p) (if (let (...) (y-or-n-p ...)) (progn (save-buffer) (find-file-noselect-1 buf filename nowarn rawfile truename number)) (if (y-or-n-p ...) (find-file-noselect-1 buf filename nowarn rawfile truename number) (error ...))) (if (let (...) (y-or-n-p ...)) (find-file-noselect-1 buf filename nowarn rawfile truename number) (error (if rawfile "File already visited non-literally" "File already visited literally")))))) buf) (setq buf (create-file-buffer filename)) (find-file-noselect-1 buf filename nowarn rawfile truename number)) (let* ((buf (get-file-buffer filename)) (truename (abbreviate-file-name (file-truename filename))) (attributes (file-attributes truename)) (number (nthcdr 10 attributes)) (other (and (not buf) (find-buffer-visiting filename #'(lambda (buffer) (let ... ...)))))) (if other (progn (or nowarn find-file-suppress-same-file-warnings (string-equal filename (buffer-file-name other)) (files--message "%s and %s are the same file" filename (buffer-file-name other))) (if (or find-file-existing-other-name find-file-visit-truename) (setq buf other)))) (if (not (or buf nowarn)) (progn (if (eq (abort-if-file-too-large (file-attribute-size attributes) "open" filename (not rawfile)) 'raw) (progn (setq rawfile t))) (warn-maybe-out-of-memory (file-attribute-size attributes)))) (if buf (let (nonexistent) (or nowarn (verify-visited-file-modtime buf) (cond ((not (file-exists-p filename)) (setq nonexistent t) (message "File %s no longer exists!" filename)) ((and (not ...) (let ... ... found)) (save-current-buffer (set-buffer buf) (message "Reverting file %s..." filename) (revert-buffer t t) (message "Reverting file %s...done" filename))) ((not query-about-changed-file) (message (substitute-command-keys "File %s changed on disk. \\[revert-buffer-quick] t...") (file-name-nondirectory filename) (if ... " and discard your edits" ""))) ((yes-or-no-p (if ... ... ...)) (save-current-buffer (set-buffer buf) (revert-buffer t t))))) (save-current-buffer (set-buffer buf) (let ((read-only (not ...))) (if (or nonexistent (eq read-only buffer-file-read-only) (eq read-only buffer-read-only)) nil (if (or nowarn ...) (progn ...))) (setq buffer-file-read-only read-only)) (if (or (eq (null rawfile) (null find-file-literally)) nonexistent (memq major-mode '...)) nil (if (buffer-modified-p) (if (let ... ...) (progn ... ...) (if ... ... ...)) (if (let ... ...) (find-file-noselect-1 buf filename nowarn rawfile truename number) (error ...))))) buf) (setq buf (create-file-buffer filename)) (find-file-noselect-1 buf filename nowarn rawfile truename number))) (if (and wildcards find-file-wildcards (not (file-name-quoted-p filename)) (string-match "[[*?]" filename)) (let ((files (condition-case nil (file-expand-wildcards filename t) (error (list filename)))) (find-file-wildcards nil)) (if (null files) (find-file-noselect filename) (mapcar #'find-file-noselect files))) (let* ((buf (get-file-buffer filename)) (truename (abbreviate-file-name (file-truename filename))) (attributes (file-attributes truename)) (number (nthcdr 10 attributes)) (other (and (not buf) (find-buffer-visiting filename #'(lambda ... ...))))) (if other (progn (or nowarn find-file-suppress-same-file-warnings (string-equal filename (buffer-file-name other)) (files--message "%s and %s are the same file" filename (buffer-file-name other))) (if (or find-file-existing-other-name find-file-visit-truename) (setq buf other)))) (if (not (or buf nowarn)) (progn (if (eq (abort-if-file-too-large (file-attribute-size attributes) "open" filename (not rawfile)) 'raw) (progn (setq rawfile t))) (warn-maybe-out-of-memory (file-attribute-size attributes)))) (if buf (let (nonexistent) (or nowarn (verify-visited-file-modtime buf) (cond ((not ...) (setq nonexistent t) (message "File %s no longer exists!" filename)) ((and ... ...) (save-current-buffer ... ... ... ...)) ((not query-about-changed-file) (message ... ... ...)) ((yes-or-no-p ...) (save-current-buffer ... ...)))) (save-current-buffer (set-buffer buf) (let ((read-only ...)) (if (or nonexistent ... ...) nil (if ... ...)) (setq buffer-file-read-only read-only)) (if (or (eq ... ...) nonexistent (memq major-mode ...)) nil (if (buffer-modified-p) (if ... ... ...) (if ... ... ...)))) buf) (setq buf (create-file-buffer filename)) (find-file-noselect-1 buf filename nowarn rawfile truename number)))) (if (file-directory-p filename) (or (and find-file-run-dired (run-hook-with-args-until-success 'find-directory-functions (if find-file-visit-truename (abbreviate-file-name (file-truename filename)) filename))) (error "%s is a directory" filename)) (if (and wildcards find-file-wildcards (not (file-name-quoted-p filename)) (string-match "[[*?]" filename)) (let ((files (condition-case nil (file-expand-wildcards filename t) (error (list filename)))) (find-file-wildcards nil)) (if (null files) (find-file-noselect filename) (mapcar #'find-file-noselect files))) (let* ((buf (get-file-buffer filename)) (truename (abbreviate-file-name (file-truename filename))) (attributes (file-attributes truename)) (number (nthcdr 10 attributes)) (other (and (not buf) (find-buffer-visiting filename #'...)))) (if other (progn (or nowarn find-file-suppress-same-file-warnings (string-equal filename (buffer-file-name other)) (files--message "%s and %s are the same file" filename (buffer-file-name other))) (if (or find-file-existing-other-name find-file-visit-truename) (setq buf other)))) (if (not (or buf nowarn)) (progn (if (eq (abort-if-file-too-large ... "open" filename ...) 'raw) (progn (setq rawfile t))) (warn-maybe-out-of-memory (file-attribute-size attributes)))) (if buf (let (nonexistent) (or nowarn (verify-visited-file-modtime buf) (cond (... ... ...) (... ...) (... ...) (... ...))) (save-current-buffer (set-buffer buf) (let (...) (if ... nil ...) (setq buffer-file-read-only read-only)) (if (or ... nonexistent ...) nil (if ... ... ...))) buf) (setq buf (create-file-buffer filename)) (find-file-noselect-1 buf filename nowarn rawfile truename number))))) find-file-noselect("/tmp/bug.org" nil nil t) (let ((value (find-file-noselect filename nil nil wildcards))) (if (listp value) (mapcar 'pop-to-buffer-same-window (nreverse value)) (pop-to-buffer-same-window value))) find-file("/tmp/bug.org" t) funcall-interactively(find-file "/tmp/bug.org" t) command-execute(find-file) --000000000000dff76b05e9311080 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
And another thing: do you have any clue (or maybe more t= han a clue)
what changes in Org wrt what's on the Emacs master branc= h could have
caused this?=C2=A0 If you do, can you show those changes, o= r point to the
specific places in Org files where those changes can be e= ye-balled?

I bisected Org repo and found th= e first bad commit. Unfortunately, it is not very useful.

The commit changed the order function calls in org-mode. Before the= commit,=C2=A0
`org-setup-filling' got called prior to `org-e= lement-cache-reset' and
=C2=A0`org-setup-filling' has an = explicit (require 'org-element) statement, which
=C2=A0 made = autoloading unnecessary in the past.=C2=A0

Would it help to make the backtrace m= ore detailed?=C2=A0 Right now, we
don't see anything between the call to normal-mode and the error.=C2=A0= If
you manually "M-x load-file RET files.el RET" before doing
eval-buffer, do you get a more detailed backtrace?


Doing load-file made no difference.
I can generate an alternative backtrace using debug-on-entry org-mo= de.
The debug buffer right before error is below

Debugger entered--beginning evaluation of function call form:
*= (org-element-cache-reset)
* (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 (c= har-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-m= ode-abbrev-table :parents (list local-abbrev-table)))) (use-local-map org-m= ode-map) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-table = org-mode-abbrev-table) (set (make-local-variable 'org-mode-loading) t) = (org-load-modules-maybe) (if org-agenda-file-menu-enabled (progn (org-insta= ll-agenda-files-menu))) (if (and org-link-descriptive (eq org-fold-core-sty= le 'overlays)) (progn (add-to-invisibility-spec '(org-link)))) (org= -fold-initialize (or (and (stringp org-ellipsis) (not (equal "" o= rg-ellipsis)) org-ellipsis) "...")) (make-local-variable 'org= -link-descriptive) (if (eq org-fold-core-style 'overlays) (progn (add-t= o-invisibility-spec '(org-hide-block . t)))) (if org-link-descriptive (= org-fold-core-set-folding-spec-property (car org-link--link-folding-spec) := visible nil) (org-fold-core-set-folding-spec-property (car org-link--link-f= olding-spec) :visible t)) (set (make-local-variable 'outline-regexp) or= g-outline-regexp) (set (make-local-variable 'outline-level) 'org-ou= tline-level) (if (and (stringp org-ellipsis) (not (equal "" org-e= llipsis))) (progn (if org-display-table nil (setq org-display-table (make-d= isplay-table))) (set-display-table-slot org-display-table 4 (vconcat (mapca= r #'(lambda ... ...) org-ellipsis))) (setq buffer-display-table org-dis= play-table))) (org-set-regexps-and-options) (org-set-font-lock-defaults) (i= f (and org-tag-faces (not org-tags-special-faces-re)) (progn (org-set-tag-f= aces 'org-tag-faces org-tag-faces))) (set (make-local-variable 'cal= c-embedded-open-mode) "# ") (modify-syntax-entry 34 "\"= ") (modify-syntax-entry 92 "_") (modify-syntax-entry 126 &qu= ot;_") (modify-syntax-entry 60 "(>") (modify-syntax-entry= 62 ")<") (set (make-local-variable 'font-lock-unfontify-r= egion-function) 'org-unfontify-region) (set (make-local-variable 'o= rg-table-may-need-update) t) (add-hook 'before-change-functions 'or= g-before-change-function nil 'local) (add-hook 'kill-buffer-hook &#= 39;org-check-running-clock nil 'local) (org-element-cache-reset) (if (a= nd org-element-cache-persistent org-element-use-cache) (progn (org-persist-= load 'org-element--cache (current-buffer) t))) (org-macro-initialize-te= mplates) (org-update-radio-target-regexp) (set (make-local-variable 'in= dent-line-function) 'org-indent-line) (set (make-local-variable 'in= dent-region-function) 'org-indent-region) (org-setup-filling) (org-setu= p-comments-handling) (set (make-local-variable 'beginning-of-defun-func= tion) 'org-backward-element) (set (make-local-variable 'end-of-defu= n-function) #'(lambda nil (if (not (org-at-heading-p)) (org-forward-ele= ment) (org-forward-element) (forward-char -1)))) (set (make-local-variable = 'next-error-function) 'org-occur-next-match) (set (make-local-varia= ble 'add-log-current-defun-function) #'org-add-log-current-headline= ) (if org-enforce-todo-dependencies (add-hook 'org-blocker-hook 'or= g-block-todo-from-children-or-siblings-or-parent) (remove-hook 'org-blo= cker-hook 'org-block-todo-from-children-or-siblings-or-parent)) (if org= -enforce-todo-checkbox-dependencies (add-hook 'org-blocker-hook 'or= g-block-todo-from-checkboxes) (remove-hook 'org-blocker-hook 'org-b= lock-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-co= mmand-at-point) ...)
* (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 'm= ode-class) (put 'org-mode 'mode-class (get 'outline-mode 'm= ode-class))) (if (keymap-parent org-mode-map) nil (set-keymap-parent org-mo= de-map (current-local-map))) (let ((parent (char-table-parent org-mode-synt= ax-table))) (if (and parent (not (eq parent ...))) nil (set-char-table-pare= nt org-mode-syntax-table (syntax-table)))) (if (or (abbrev-table-get org-mo= de-abbrev-table :parents) (eq org-mode-abbrev-table local-abbrev-table)) ni= l (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 &= #39;org-mode-loading) t) (org-load-modules-maybe) (if org-agenda-file-menu-= enabled (progn (org-install-agenda-files-menu))) (if (and org-link-descript= ive (eq org-fold-core-style 'overlays)) (progn (add-to-invisibility-spe= c '(org-link)))) (org-fold-initialize (or (and (stringp org-ellipsis) (= not (equal "" org-ellipsis)) org-ellipsis) "...")) (mak= e-local-variable 'org-link-descriptive) (if (eq org-fold-core-style = 9;overlays) (progn (add-to-invisibility-spec '(org-hide-block . t)))) (= if org-link-descriptive (org-fold-core-set-folding-spec-property (car org-l= ink--link-folding-spec) :visible nil) (org-fold-core-set-folding-spec-prope= rty (car org-link--link-folding-spec) :visible t)) (set (make-local-variabl= e 'outline-regexp) org-outline-regexp) (set (make-local-variable 'o= utline-level) 'org-outline-level) (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-displa= y-table 4 (vconcat (mapcar #'... org-ellipsis))) (setq buffer-display-t= able org-display-table))) (org-set-regexps-and-options) (org-set-font-lock-= defaults) (if (and org-tag-faces (not org-tags-special-faces-re)) (progn (o= rg-set-tag-faces 'org-tag-faces org-tag-faces))) (set (make-local-varia= ble 'calc-embedded-open-mode) "# ") (modify-syntax-entry 34 &= quot;\"") (modify-syntax-entry 92 "_") (modify-syntax-e= ntry 126 "_") (modify-syntax-entry 60 "(>") (modify-= syntax-entry 62 ")<") (set (make-local-variable 'font-lock= -unfontify-region-function) 'org-unfontify-region) (set (make-local-var= iable 'org-table-may-need-update) t) (add-hook 'before-change-funct= ions 'org-before-change-function nil 'local) (add-hook 'kill-bu= ffer-hook 'org-check-running-clock nil 'local) (org-element-cache-r= eset) (if (and org-element-cache-persistent org-element-use-cache) (progn (= org-persist-load 'org-element--cache (current-buffer) t))) (org-macro-i= nitialize-templates) (org-update-radio-target-regexp) (set (make-local-vari= able 'indent-line-function) 'org-indent-line) (set (make-local-vari= able 'indent-region-function) 'org-indent-region) (org-setup-fillin= g) (org-setup-comments-handling) (set (make-local-variable 'beginning-o= f-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-loc= al-variable 'next-error-function) 'org-occur-next-match) (set (make= -local-variable 'add-log-current-defun-function) #'org-add-log-curr= ent-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-pare= nt)) (if org-enforce-todo-checkbox-dependencies (add-hook 'org-blocker-= hook 'org-block-todo-from-checkboxes) (remove-hook 'org-blocker-hoo= k 'org-block-todo-from-checkboxes)) (set (make-local-variable 'alig= n-mode-rules-list) '((org-in-buffer-settings (regexp . "^[ \11]*#\= \+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote (org-mode))))) (set (make-lo= cal-variable 'pcomplete-command-completion-function) #'org-pcomplet= e-initial) (set (make-local-variable 'pcomplete-command-name-function) = #'org-command-at-point) ...))
* (closure (org-mode-abbrev-table org-= mode-syntax-table org-element-use-cache org-element-cache-persistent buffer= -face-mode-face org-tbl-menu org-org-menu org-struct-menu org-entities org-= last-state org-id-track-globally org-clock-start-time texmathp-why remember= -data-file org-agenda-tags-todo-honor-ignore-options iswitchb-temp-buflist = calc-embedded-open-mode calc-embedded-open-formula calc-embedded-close-form= ula align-mode-rules-list org-emphasis-alist org-emphasis-regexp-components= org-export-registered-backends org-modules crm-separator org-babel-load-la= nguages org-id-overriding-file-name org-indent-indentation-per-level org-el= ement--timestamp-regexp org-element-cache-map-continue-from org-element-par= agraph-separate org-agenda-buffer-name org-inlinetask-min-level t) nil &quo= t;Outline-based notes management and organizer, alia..." (interactive)= (progn (make-local-variable 'delay-mode-hooks) (let ((delay-mode-hooks= t)) (outline-mode) (setq major-mode 'org-mode) (setq mode-name "O= rg") (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 pare= nt (not ...)) nil (set-char-table-parent org-mode-syntax-table (syntax-tabl= e)))) (if (or (abbrev-table-get org-mode-abbrev-table :parents) (eq org-mod= e-abbrev-table local-abbrev-table)) nil (abbrev-table-put org-mode-abbrev-t= able :parents (list local-abbrev-table)))) (use-local-map org-mode-map) (se= t-syntax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abb= rev-table) (set (make-local-variable 'org-mode-loading) t) (org-load-mo= dules-maybe) (if org-agenda-file-menu-enabled (progn (org-install-agenda-fi= les-menu))) (if (and org-link-descriptive (eq org-fold-core-style 'over= lays)) (progn (add-to-invisibility-spec '(org-link)))) (org-fold-initia= lize (or (and (stringp org-ellipsis) (not (equal "" org-ellipsis)= ) org-ellipsis) "...")) (make-local-variable 'org-link-descri= ptive) (if (eq org-fold-core-style 'overlays) (progn (add-to-invisibili= ty-spec '(org-hide-block . t)))) (if org-link-descriptive (org-fold-cor= e-set-folding-spec-property (car org-link--link-folding-spec) :visible nil)= (org-fold-core-set-folding-spec-property (car org-link--link-folding-spec)= :visible t)) (set (make-local-variable 'outline-regexp) org-outline-re= gexp) (set (make-local-variable 'outline-level) 'org-outline-level)= (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-el= lipsis))) (setq buffer-display-table org-display-table))) (org-set-regexps-= and-options) (org-set-font-lock-defaults) (if (and org-tag-faces (not org-t= ags-special-faces-re)) (progn (org-set-tag-faces 'org-tag-faces org-tag= -faces))) (set (make-local-variable 'calc-embedded-open-mode) "# &= quot;) (modify-syntax-entry 34 "\"") (modify-syntax-entry 92= "_") (modify-syntax-entry 126 "_") (modify-syntax-entr= y 60 "(>") (modify-syntax-entry 62 ")<") (set (ma= ke-local-variable 'font-lock-unfontify-region-function) 'org-unfont= ify-region) (set (make-local-variable 'org-table-may-need-update) t) (a= dd-hook 'before-change-functions 'org-before-change-function nil &#= 39;local) (add-hook 'kill-buffer-hook 'org-check-running-clock nil = 'local) (org-element-cache-reset) (if (and org-element-cache-persistent= org-element-use-cache) (progn (org-persist-load 'org-element--cache (c= urrent-buffer) t))) (org-macro-initialize-templates) (org-update-radio-targ= et-regexp) (set (make-local-variable 'indent-line-function) 'org-in= dent-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-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-pare= nt) (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 = 9;org-blocker-hook 'org-block-todo-from-checkboxes)) (set (make-local-v= ariable 'align-mode-rules-list) '((org-in-buffer-settings (regexp .= "^[ \11]*#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote ...)))) (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) ...)) (run-mode-hooks 'org-mode-h= ook))()
* apply((closure (org-mode-abbrev-table org-mode-syntax-table or= g-element-use-cache org-element-cache-persistent buffer-face-mode-face org-= tbl-menu org-org-menu org-struct-menu org-entities org-last-state org-id-tr= ack-globally org-clock-start-time texmathp-why remember-data-file org-agend= a-tags-todo-honor-ignore-options iswitchb-temp-buflist calc-embedded-open-m= ode calc-embedded-open-formula calc-embedded-close-formula align-mode-rules= -list org-emphasis-alist org-emphasis-regexp-components org-export-register= ed-backends org-modules crm-separator org-babel-load-languages org-id-overr= iding-file-name org-indent-indentation-per-level org-element--timestamp-reg= exp org-element-cache-map-continue-from org-element-paragraph-separate org-= agenda-buffer-name org-inlinetask-min-level t) nil "Outline-based note= s management and organizer, alia..." (interactive) (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 ... ...))) (if (keymap-parent org-mode-map) nil (set-keymap-parent or= g-mode-map (current-local-map))) (let ((parent ...)) (if (and parent ...) n= il (set-char-table-parent org-mode-syntax-table ...))) (if (or (abbrev-tabl= e-get org-mode-abbrev-table :parents) (eq org-mode-abbrev-table local-abbre= v-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-sy= ntax-table) (setq local-abbrev-table org-mode-abbrev-table) (set (make-loca= l-variable 'org-mode-loading) t) (org-load-modules-maybe) (if org-agend= a-file-menu-enabled (progn (org-install-agenda-files-menu))) (if (and org-l= ink-descriptive (eq org-fold-core-style 'overlays)) (progn (add-to-invi= sibility-spec '...))) (org-fold-initialize (or (and (stringp org-ellips= is) (not ...) org-ellipsis) "...")) (make-local-variable 'org= -link-descriptive) (if (eq org-fold-core-style 'overlays) (progn (add-t= o-invisibility-spec '...))) (if org-link-descriptive (org-fold-core-set= -folding-spec-property (car org-link--link-folding-spec) :visible nil) (org= -fold-core-set-folding-spec-property (car org-link--link-folding-spec) :vis= ible t)) (set (make-local-variable 'outline-regexp) org-outline-regexp)= (set (make-local-variable 'outline-level) 'org-outline-level) (if = (and (stringp org-ellipsis) (not (equal "" org-ellipsis))) (progn= (if org-display-table nil (setq org-display-table ...)) (set-display-table= -slot org-display-table 4 (vconcat ...)) (setq buffer-display-table org-dis= play-table))) (org-set-regexps-and-options) (org-set-font-lock-defaults) (i= f (and org-tag-faces (not org-tags-special-faces-re)) (progn (org-set-tag-f= aces 'org-tag-faces org-tag-faces))) (set (make-local-variable 'cal= c-embedded-open-mode) "# ") (modify-syntax-entry 34 "\"= ") (modify-syntax-entry 92 "_") (modify-syntax-entry 126 &qu= ot;_") (modify-syntax-entry 60 "(>") (modify-syntax-entry= 62 ")<") (set (make-local-variable 'font-lock-unfontify-r= egion-function) 'org-unfontify-region) (set (make-local-variable 'o= rg-table-may-need-update) t) (add-hook 'before-change-functions 'or= g-before-change-function nil 'local) (add-hook 'kill-buffer-hook &#= 39;org-check-running-clock nil 'local) (org-element-cache-reset) (if (a= nd org-element-cache-persistent org-element-use-cache) (progn (org-persist-= load 'org-element--cache (current-buffer) t))) (org-macro-initialize-te= mplates) (org-update-radio-target-regexp) (set (make-local-variable 'in= dent-line-function) 'org-indent-line) (set (make-local-variable 'in= dent-region-function) 'org-indent-region) (org-setup-filling) (org-setu= p-comments-handling) (set (make-local-variable 'beginning-of-defun-func= tion) 'org-backward-element) (set (make-local-variable 'end-of-defu= n-function) #'(lambda nil (if ... ... ... ...))) (set (make-local-varia= ble 'next-error-function) 'org-occur-next-match) (set (make-local-v= ariable 'add-log-current-defun-function) #'org-add-log-current-head= line) (if org-enforce-todo-dependencies (add-hook 'org-blocker-hook = 9;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 = 9;org-block-todo-from-checkboxes) (remove-hook 'org-blocker-hook 'o= rg-block-todo-from-checkboxes)) (set (make-local-variable 'align-mode-r= ules-list) '((org-in-buffer-settings ... ...))) (set (make-local-variab= le 'pcomplete-command-completion-function) #'org-pcomplete-initial)= (set (make-local-variable 'pcomplete-command-name-function) #'org-= command-at-point) ...)) (run-mode-hooks 'org-mode-hook)) nil)
* org-= mode()
=C2=A0 funcall(org-mode)
=C2=A0 (progn (funcall mode) mode)=C2=A0 (if mode (progn (funcall mode) mode))
=C2=A0 (if (and keep-mode-= if-same (eq (indirect-function mode) (indirect-function major-mode))) nil (= if mode (progn (funcall mode) mode)))
=C2=A0 set-auto-mode-0(org-mode ni= l)
=C2=A0 (progn (set-auto-mode-0 mode keep-mode-if-same) t)
=C2=A0 (= if mode (progn (set-auto-mode-0 mode keep-mode-if-same) t))
=C2=A0 (let = (mode (name buffer-file-name) (remote-id (file-remote-p buffer-file-name)) = (case-insensitive-p (file-name-case-insensitive-p buffer-file-name))) (setq= name (file-name-sans-versions name)) (if (and (stringp remote-id) (string-= match (regexp-quote remote-id) name)) (progn (setq name (substring name (ma= tch-end 0))))) (while name (setq mode (if case-insensitive-p (let ((case-fo= ld-search t)) (assoc-default name alist 'string-match)) (or (let ((case= -fold-search nil)) (assoc-default name alist 'string-match)) (and auto-= mode-case-fold (let (...) (assoc-default name alist ...)))))) (if (and mode= (not (functionp mode)) (consp mode) (car (cdr mode))) (progn (setq mode (c= ar mode)) (setq name (substring name 0 (match-beginning 0)))) (setq name ni= l))) (if (and dir-local mode (not (set-auto-mode--dir-local-valid-p mode)))= (progn (message "Ignoring invalid mode `%s'" mode) (setq mod= e nil))) (if mode (progn (set-auto-mode-0 mode keep-mode-if-same) t)))
= =C2=A0 (if buffer-file-name (let (mode (name buffer-file-name) (remote-id (= file-remote-p buffer-file-name)) (case-insensitive-p (file-name-case-insens= itive-p buffer-file-name))) (setq name (file-name-sans-versions name)) (if = (and (stringp remote-id) (string-match (regexp-quote remote-id) name)) (pro= gn (setq name (substring name (match-end 0))))) (while name (setq mode (if = case-insensitive-p (let ((case-fold-search t)) (assoc-default name alist &#= 39;string-match)) (or (let (...) (assoc-default name alist ...)) (and auto-= mode-case-fold (let ... ...))))) (if (and mode (not (functionp mode)) (cons= p mode) (car (cdr mode))) (progn (setq mode (car mode)) (setq name (substri= ng name 0 (match-beginning 0)))) (setq name nil))) (if (and dir-local mode = (not (set-auto-mode--dir-local-valid-p mode))) (progn (message "Ignori= ng invalid mode `%s'" mode) (setq mode nil))) (if mode (progn (set= -auto-mode-0 mode keep-mode-if-same) t))))
=C2=A0 set-auto-mode--apply-a= list((("\\.gpg\\(~\\|\\.~[0-9]+~\\)?\\'" nil epa-file) ("= ;\\.elc\\'" . elisp-byte-code-mode) ("\\.\\(?:3fr\\|a\\(?:rw\= \|vs\\)\\|bmp[23]?\\|c\\(?:als?\\|myk..." . image-mode) ("\\.zst\= \'" nil jka-compr) ("\\.dz\\'" nil jka-compr) ("= ;\\.xz\\'" nil jka-compr) ("\\.lzma\\'" nil jka-comp= r) ("\\.lz\\'" nil jka-compr) ("\\.g?z\\'" nil = jka-compr) ("\\.bz2\\'" nil jka-compr) ("\\.Z\\'&quo= t; nil jka-compr) ("\\.vr[hi]?\\'" . vera-mode) ("\\(?:\= \.\\(?:rbw?\\|ru\\|rake\\|thor\\|jbuilder\\|rabl\\|ge..." . ruby-mode)= ("\\.re?st\\'" . rst-mode) ("\\.py[iw]?\\'" . = python-mode) ("\\.m\\'" . octave-maybe-mode) ("\\.less\\= '" . less-css-mode) ("\\.scss\\'" . scss-mode) (&quo= t;\\.awk\\'" . awk-mode) ("\\.\\(u?lpc\\|pike\\|pmod\\(\\.in\= \)?\\)\\'" . pike-mode) ("\\.idl\\'" . idl-mode) (&q= uot;\\.java\\'" . java-mode) ("\\.m\\'" . objc-mode)= ("\\.ii\\'" . c++-mode) ("\\.i\\'" . c-mode) (= "\\.lex\\'" . c-mode) ("\\.y\\(acc\\)?\\'" . c-= mode) ("\\.h\\'" . c-or-c++-mode) ("\\.c\\'" . = c-mode) ("\\.\\(CC?\\|HH?\\)\\'" . c++-mode) ("\\.[ch]\\= (pp\\|xx\\|\\+\\+\\)\\'" . c++-mode) ("\\.\\(cc\\|hh\\)\\'= ;" . c++-mode) ("\\.\\(bat\\|cmd\\)\\'" . bat-mode) (&qu= ot;\\.[sx]?html?\\(\\.[a-zA-Z_]+\\)?\\'" . mhtml-mode) ("\\.s= vgz?\\'" . image-mode) ("\\.svgz?\\'" . xml-mode) (&= quot;\\.x[bp]m\\'" . image-mode) ("\\.x[bp]m\\'" . c= -mode) ("\\.p[bpgn]m\\'" . image-mode) ("\\.tiff?\\'= " . image-mode) ("\\.gif\\'" . image-mode) ("\\.png= \\'" . image-mode) ("\\.jpe?g\\'" . image-mode) (&qu= ot;\\.webp\\'" . image-mode) ("\\.te?xt\\'" . text-m= ode) ("\\.[tT]e[xX]\\'" . tex-mode) ("\\.ins\\'"= ; . tex-mode) ("\\.ltx\\'" . latex-mode) ("\\.dtx\\'= " . doctex-mode) ("\\.org\\'" . org-mode) ...) nil nil)<= br>=C2=A0 (setq done (set-auto-mode--apply-alist auto-mode-alist keep-mode-= if-same nil))
=C2=A0 (if done nil (setq done (set-auto-mode--apply-alist= auto-mode-alist keep-mode-if-same nil)))
=C2=A0 (let ((try-locals (not = (inhibit-local-variables-p))) end done mode modes) (save-excursion (goto-ch= ar (point-min)) (skip-chars-forward " \11\n") (and enable-local-v= ariables try-locals (setq end (set-auto-mode-1)) (if (save-excursion (searc= h-forward ":" end t)) (while (let ((case-fold-search t)) (or (and= ... ...) (re-search-forward "[ \11;]mode:" end t))) (skip-chars-= forward " \11") (let ((beg ...)) (if (search-forward ";"= ; end t) (forward-char -1) (goto-char end)) (skip-chars-backward " \11= ") (setq modes (cons ... modes)))) (setq modes (cons (intern (concat .= .. "-mode")) modes))))) (if modes (catch 'nop (let ((--dolist= -tail-- (nreverse modes))) (while --dolist-tail-- (let ((mode ...)) (if (no= t ...) (message "Ignoring unknown mode `%s'" mode) (setq done= t) (or ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (if don= e nil (condition-case err (let* ((mode-alist (cdr (hack-dir-local--get-vari= ables ...)))) (setq done (set-auto-mode--apply-alist mode-alist keep-mode-i= f-same t))) ((debug error) (message "Directory-local variables error: = %s" err) nil))) (and (not done) (setq mode (hack-local-variables t (no= t try-locals))) (not (memq mode modes)) (if (not (functionp mode)) (message= "Ignoring unknown mode `%s'" mode) (setq done t) (set-auto-m= ode-0 mode keep-mode-if-same))) (and (not done) (setq mode (save-excursion = (goto-char (point-min)) (if (looking-at auto-mode-interpreter-regexp) (matc= h-string 2)))) (setq done (assoc-default (file-name-nondirectory mode) (map= car #'(lambda (e) (cons ... ...)) interpreter-mode-alist) #'string-= match-p)) (set-auto-mode-0 done keep-mode-if-same)) (if done nil (if (setq = done (save-excursion (goto-char (point-min)) (save-restriction (narrow-to-r= egion (point-min) (min ... ...)) (assoc-default nil magic-mode-alist #'= ...)))) (set-auto-mode-0 done keep-mode-if-same))) (if done nil (setq done = (set-auto-mode--apply-alist auto-mode-alist keep-mode-if-same nil))) (if do= ne nil (if (setq done (save-excursion (goto-char (point-min)) (save-restric= tion (narrow-to-region (point-min) (min ... ...)) (assoc-default nil magic-= fallback-mode-alist #'...)))) (set-auto-mode-0 done keep-mode-if-same))= ) (if done nil (set-buffer-major-mode (current-buffer))))
=C2=A0 set-aut= o-mode()
=C2=A0 (condition-case err (set-auto-mode) ((debug error) (mess= age "File mode specification error: %s" err) nil))
=C2=A0 (let= ((enable-local-variables (or (not find-file) enable-local-variables))) (co= ndition-case err (set-auto-mode) ((debug error) (message "File mode sp= ecification error: %s" err) nil)) (if delay-mode-hooks (progn (conditi= on-case err (hack-local-variables 'no-mode) ((debug error) (message &qu= ot;File local-variables error: %s" err) nil)))))
=C2=A0 normal-mode= (t)
=C2=A0 (if nomodes nil (if (and view-read-only view-mode) (progn (vi= ew-mode -1))) (normal-mode t) (and (memq require-final-newline '(visit = visit-save)) (> (point-max) (point-min)) (/=3D (char-after (1- (point-ma= x))) 10) (not (and (eq selective-display t) (=3D (char-after (1- (point-max= ))) 13))) (not buffer-read-only) (save-excursion (goto-char (point-max)) (c= ondition-case nil (progn (insert "\n")) (error nil)))) (if (and b= uffer-read-only view-read-only (not (eq (get major-mode 'mode-class) &#= 39;special))) (progn (view-mode-enter))) (run-hooks 'find-file-hook))=C2=A0 after-find-file(nil t)
=C2=A0 (if rawfile (let ((enable-local-v= ariables nil)) (set-buffer-multibyte nil) (setq buffer-file-coding-system &= #39;no-conversion) (set-buffer-major-mode buf) (set (make-local-variable &#= 39;find-file-literally) t)) (after-find-file error (not nowarn)))
=C2=A0= (save-current-buffer (set-buffer buf) (kill-local-variable 'find-file-= literally) (kill-local-variable 'buffer-file-coding-system) (kill-local= -variable 'cursor-type) (let ((inhibit-read-only t)) (erase-buffer)) (a= nd (not rawfile) (set-buffer-multibyte t)) (if rawfile (condition-case nil = (let ((inhibit-read-only t) (enable-local-variables nil)) (insert-file-cont= ents-literally filename t)) (file-error (if (and (file-exists-p filename) (= not (file-readable-p filename))) (progn (kill-buffer buf) (signal 'file= -error (list "File is not readable" filename)))) (setq error t)))= (condition-case nil (let ((inhibit-read-only t)) (insert-file-contents fil= ename t)) (file-error (if (and (file-exists-p filename) (not (file-readable= -p filename))) (progn (kill-buffer buf) (signal 'file-error (list "= ;File is not readable" filename)))) (or (run-hook-with-args-until-succ= ess 'find-file-not-found-functions) (setq error t))))) (setq buffer-fil= e-truename (if (equal filename buffer-file-name) truename (abbreviate-file-= name (file-truename buffer-file-name)))) (setq buffer-file-number number) (= if find-file-visit-truename (setq buffer-file-name (expand-file-name buffer= -file-truename))) (setq default-directory (file-name-directory buffer-file-= name)) (and backup-enable-predicate (not (funcall backup-enable-predicate b= uffer-file-name)) (set (make-local-variable 'backup-inhibited) t)) (if = rawfile (let ((enable-local-variables nil)) (set-buffer-multibyte nil) (set= q buffer-file-coding-system 'no-conversion) (set-buffer-major-mode buf)= (set (make-local-variable 'find-file-literally) t)) (after-find-file e= rror (not nowarn))) (current-buffer))
=C2=A0 (let (error) (save-current-= buffer (set-buffer buf) (kill-local-variable 'find-file-literally) (kil= l-local-variable 'buffer-file-coding-system) (kill-local-variable '= cursor-type) (let ((inhibit-read-only t)) (erase-buffer)) (and (not rawfile= ) (set-buffer-multibyte t)) (if rawfile (condition-case nil (let ((inhibit-= read-only t) (enable-local-variables nil)) (insert-file-contents-literally = filename t)) (file-error (if (and (file-exists-p filename) (not ...)) (prog= n (kill-buffer buf) (signal ... ...))) (setq error t))) (condition-case nil= (let ((inhibit-read-only t)) (insert-file-contents filename t)) (file-erro= r (if (and (file-exists-p filename) (not ...)) (progn (kill-buffer buf) (si= gnal ... ...))) (or (run-hook-with-args-until-success 'find-file-not-fo= und-functions) (setq error t))))) (setq buffer-file-truename (if (equal fil= ename buffer-file-name) truename (abbreviate-file-name (file-truename buffe= r-file-name)))) (setq buffer-file-number number) (if find-file-visit-truena= me (setq buffer-file-name (expand-file-name buffer-file-truename))) (setq d= efault-directory (file-name-directory buffer-file-name)) (and backup-enable= -predicate (not (funcall backup-enable-predicate buffer-file-name)) (set (m= ake-local-variable 'backup-inhibited) t)) (if rawfile (let ((enable-loc= al-variables nil)) (set-buffer-multibyte nil) (setq buffer-file-coding-syst= em 'no-conversion) (set-buffer-major-mode buf) (set (make-local-variabl= e 'find-file-literally) t)) (after-find-file error (not nowarn))) (curr= ent-buffer)))
=C2=A0 find-file-noselect-1(#<buffer bug.org> "/tmp/bug.org&= quot; nil nil "/tmp/bug.org" (1277= 41036 26))
=C2=A0 (if buf (let (nonexistent) (or nowarn (verify-visited-= file-modtime buf) (cond ((not (file-exists-p filename)) (setq nonexistent t= ) (message "File %s no longer exists!" filename)) ((and (not (buf= fer-modified-p buf)) (let (... ...) (while tail ... ...) found)) (save-curr= ent-buffer (set-buffer buf) (message "Reverting file %s..." filen= ame) (revert-buffer t t) (message "Reverting file %s...done" file= name))) ((not query-about-changed-file) (message (substitute-command-keys &= quot;File %s changed on disk. =C2=A0\\[revert-buffer-quick] t...") (fi= le-name-nondirectory filename) (if (buffer-modified-p buf) " and disca= rd your edits" ""))) ((yes-or-no-p (if (string=3D ... ...) (= format ... ...) (format ... ... ...))) (save-current-buffer (set-buffer buf= ) (revert-buffer t t))))) (save-current-buffer (set-buffer buf) (let ((read= -only (not (file-writable-p buffer-file-name)))) (if (or nonexistent (eq re= ad-only buffer-file-read-only) (eq read-only buffer-read-only)) nil (if (or= nowarn (let* ... ...)) (progn (setq buffer-read-only read-only)))) (setq b= uffer-file-read-only read-only)) (if (or (eq (null rawfile) (null find-file= -literally)) nonexistent (memq major-mode '(hexl-mode image-mode))) nil= (if (buffer-modified-p) (if (let (...) (y-or-n-p ...)) (progn (save-buffer= ) (find-file-noselect-1 buf filename nowarn rawfile truename number)) (if (= y-or-n-p ...) (find-file-noselect-1 buf filename nowarn rawfile truename nu= mber) (error ...))) (if (let (...) (y-or-n-p ...)) (find-file-noselect-1 bu= f filename nowarn rawfile truename number) (error (if rawfile "File al= ready visited non-literally" "File already visited literally"= ;)))))) buf) (setq buf (create-file-buffer filename)) (find-file-noselect-1= buf filename nowarn rawfile truename number))
=C2=A0 (let* ((buf (get-f= ile-buffer filename)) (truename (abbreviate-file-name (file-truename filena= me))) (attributes (file-attributes truename)) (number (nthcdr 10 attributes= )) (other (and (not buf) (find-buffer-visiting filename #'(lambda (buff= er) (let ... ...)))))) (if other (progn (or nowarn find-file-suppress-same-= file-warnings (string-equal filename (buffer-file-name other)) (files--mess= age "%s and %s are the same file" filename (buffer-file-name othe= r))) (if (or find-file-existing-other-name find-file-visit-truename) (setq = buf other)))) (if (not (or buf nowarn)) (progn (if (eq (abort-if-file-too-l= arge (file-attribute-size attributes) "open" filename (not rawfil= e)) 'raw) (progn (setq rawfile t))) (warn-maybe-out-of-memory (file-att= ribute-size attributes)))) (if buf (let (nonexistent) (or nowarn (verify-vi= sited-file-modtime buf) (cond ((not (file-exists-p filename)) (setq nonexis= tent t) (message "File %s no longer exists!" filename)) ((and (no= t ...) (let ... ... found)) (save-current-buffer (set-buffer buf) (message = "Reverting file %s..." filename) (revert-buffer t t) (message &qu= ot;Reverting file %s...done" filename))) ((not query-about-changed-fil= e) (message (substitute-command-keys "File %s changed on disk. =C2=A0\= \[revert-buffer-quick] t...") (file-name-nondirectory filename) (if ..= . " and discard your edits" ""))) ((yes-or-no-p (if ...= ... ...)) (save-current-buffer (set-buffer buf) (revert-buffer t t))))) (s= ave-current-buffer (set-buffer buf) (let ((read-only (not ...))) (if (or no= nexistent (eq read-only buffer-file-read-only) (eq read-only buffer-read-on= ly)) nil (if (or nowarn ...) (progn ...))) (setq buffer-file-read-only read= -only)) (if (or (eq (null rawfile) (null find-file-literally)) nonexistent = (memq major-mode '...)) nil (if (buffer-modified-p) (if (let ... ...) (= progn ... ...) (if ... ... ...)) (if (let ... ...) (find-file-noselect-1 bu= f filename nowarn rawfile truename number) (error ...))))) buf) (setq buf (= create-file-buffer filename)) (find-file-noselect-1 buf filename nowarn raw= file truename number)))
=C2=A0 (if (and wildcards find-file-wildcards (n= ot (file-name-quoted-p filename)) (string-match "[[*?]" filename)= ) (let ((files (condition-case nil (file-expand-wildcards filename t) (erro= r (list filename)))) (find-file-wildcards nil)) (if (null files) (find-file= -noselect filename) (mapcar #'find-file-noselect files))) (let* ((buf (= get-file-buffer filename)) (truename (abbreviate-file-name (file-truename f= ilename))) (attributes (file-attributes truename)) (number (nthcdr 10 attri= butes)) (other (and (not buf) (find-buffer-visiting filename #'(lambda = ... ...))))) (if other (progn (or nowarn find-file-suppress-same-file-warni= ngs (string-equal filename (buffer-file-name other)) (files--message "= %s and %s are the same file" filename (buffer-file-name other))) (if (= or find-file-existing-other-name find-file-visit-truename) (setq buf other)= ))) (if (not (or buf nowarn)) (progn (if (eq (abort-if-file-too-large (file= -attribute-size attributes) "open" filename (not rawfile)) 'r= aw) (progn (setq rawfile t))) (warn-maybe-out-of-memory (file-attribute-siz= e attributes)))) (if buf (let (nonexistent) (or nowarn (verify-visited-file= -modtime buf) (cond ((not ...) (setq nonexistent t) (message "File %s = no longer exists!" filename)) ((and ... ...) (save-current-buffer ... = ... ... ...)) ((not query-about-changed-file) (message ... ... ...)) ((yes-= or-no-p ...) (save-current-buffer ... ...)))) (save-current-buffer (set-buf= fer buf) (let ((read-only ...)) (if (or nonexistent ... ...) nil (if ... ..= .)) (setq buffer-file-read-only read-only)) (if (or (eq ... ...) nonexisten= t (memq major-mode ...)) nil (if (buffer-modified-p) (if ... ... ...) (if .= .. ... ...)))) buf) (setq buf (create-file-buffer filename)) (find-file-nos= elect-1 buf filename nowarn rawfile truename number))))
=C2=A0 (if (file= -directory-p filename) (or (and find-file-run-dired (run-hook-with-args-unt= il-success 'find-directory-functions (if find-file-visit-truename (abbr= eviate-file-name (file-truename filename)) filename))) (error "%s is a= directory" filename)) (if (and wildcards find-file-wildcards (not (fi= le-name-quoted-p filename)) (string-match "[[*?]" filename)) (let= ((files (condition-case nil (file-expand-wildcards filename t) (error (lis= t filename)))) (find-file-wildcards nil)) (if (null files) (find-file-nosel= ect filename) (mapcar #'find-file-noselect files))) (let* ((buf (get-fi= le-buffer filename)) (truename (abbreviate-file-name (file-truename filenam= e))) (attributes (file-attributes truename)) (number (nthcdr 10 attributes)= ) (other (and (not buf) (find-buffer-visiting filename #'...)))) (if ot= her (progn (or nowarn find-file-suppress-same-file-warnings (string-equal f= ilename (buffer-file-name other)) (files--message "%s and %s are the s= ame file" filename (buffer-file-name other))) (if (or find-file-existi= ng-other-name find-file-visit-truename) (setq buf other)))) (if (not (or bu= f nowarn)) (progn (if (eq (abort-if-file-too-large ... "open" fil= ename ...) 'raw) (progn (setq rawfile t))) (warn-maybe-out-of-memory (f= ile-attribute-size attributes)))) (if buf (let (nonexistent) (or nowarn (ve= rify-visited-file-modtime buf) (cond (... ... ...) (... ...) (... ...) (...= ...))) (save-current-buffer (set-buffer buf) (let (...) (if ... nil ...) (= setq buffer-file-read-only read-only)) (if (or ... nonexistent ...) nil (if= ... ... ...))) buf) (setq buf (create-file-buffer filename)) (find-file-no= select-1 buf filename nowarn rawfile truename number)))))
=C2=A0 find-fi= le-noselect("/tmp/bug.org" nil nil= t)
=C2=A0 (let ((value (find-file-noselect filename nil nil wildcards))= ) (if (listp value) (mapcar 'pop-to-buffer-same-window (nreverse value)= ) (pop-to-buffer-same-window value)))
=C2=A0 find-file("/tmp/bug.org" t)
=C2=A0 funcall-interactively(f= ind-file "/tmp/bug.org" t)
=C2= =A0 command-execute(find-file)
=C2=A0
--000000000000dff76b05e9311080--