Auto-Mode-Alist Not Loaded N Org Hugoexport
Fleetingauto-mode-alist not loaded n org hugoexport
commit ec6d1df9bc8967e1db14bbd3c90828c71a6a8e0e
Author: TEC <tec@tecosaur.com>
Date: Mon May 3 19:23:39 2021 +0200
lisp/ox.el (org-export-to-file): Don't load the major mode
* lisp/ox.el (org-export-to-file): Don't load the major mode.
Prior to this, when `org-export-to-file' was called it activated the
major mode for that file type based on `auto-mode-alist'. This can be
mildly annoying in various ways as loading the major mode (1) makes
the export take longer, (2) can produce unwanted "noise" while
initialising, namely warnings and errors related to the mode itself,
(3) can produce spurious files like an .auctex-auto folder. By
locally binding `auto-mode-alist' to nil, all of these undesirable
behaviours can be avoided.
Link: https://orgmode.org/list/87lfa3fips.fsf@gmail.com/
diff --git a/lisp/ox.el b/lisp/ox.el
index 8c0252afc..6ec9b62ec 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -6394,7 +6394,8 @@ or FILE."
(declare (indent 2))
(if (not (file-writable-p file)) (error "Output file not writable")
(let ((ext-plist (org-combine-plists `(:output-file ,file) ext-plist))
- (encoding (or org-export-coding-system buffer-file-coding-system)))
+ (encoding (or org-export-coding-system buffer-file-coding-system))
+ auto-mode-alist)
(if async
(org-export-async-start
(lambda (file)
Debugger entered--ending let-binding of auto-mode-alist:
apply(debug watchpoint (auto-mode-alist (("\\.odc\\'" . archive-mode) ("\\.odf\\'" . archive-mode) ("\\.odi\\'" . archive-mode) ("\\.otp\\'" . archive-mode) ("\\.odp\\'" . archive-mode) ("\\.otg\\'" . archive-mode) ("\\.odg\\'" . archive-mode) ("\\.ots\\'" . archive-mode) ("\\.ods\\'" . archive-mode) ("\\.odm\\'" . archive-mode) ("\\.ott\\'" . archive-mode) ("\\.odt\\'" . archive-mode) ("Tiltfile" . python-mode) ("\\.puml$" . plantuml-mode) ("_helpers.tpl" . go-mode) ("\\.pdf$" . pdf-view-mode) ("gtd_contexts/" . konix/org-gtd-context-edit-mode) ("patch$" . diff-mode) ("Jenkinsfile$" . groovy-mode) ("\\.kv$" . yaml-mode) ("\\.java$" . java-mode) ("\\.js$" . js2-mode) ("\\.beancount$" . beancount-mode) ("\\.md$" . markdown-mode) ("\\.compilog$" . compilation-mode) ("CMakeLists.txt$" . cmake-mode) ("\\.cmake$" . cmake-mode) ("\\.txx$" . c++-mode) ("\\.ixx$" . c++-mode) ("\\.ino$" . arduino-mode) ("\\.java\\.tpl$" . java-mode) ("\\.cxx\\.tpl$" . c++-mode) ("\\.c\\.tpl$" . c-mode) (".+.mail$" . message-mode) ("/Mail/" . message-mode) ("/mutt" . mail-mode) ("\\.vbs?$" . visual-basic-mode) ("\\.wiki$" . wikipedia-mode) ("\\.bat$" . batch-mode) ("\\.scene$" . xml-mode) ("\\.make$" . make-mode) ("\\.gp$" . gnuplot-mode) ("\\.lua$" . lua-mode) ("\\.ebuild$" . sh-mode) ("\\.eclass$" . sh-mode) ("\\.wxm$" . maxima-mode) ("\\.mac$" . maxima-mode) ("\\.max$" . maxima-mode) ("emacs$" . lisp-mode) ("\\.sce$" . scilab-mode) ...) unlet nil))
edebug(watchpoint auto-mode-alist (("\\.odc\\'" . archive-mode) ("\\.odf\\'" . archive-mode) ("\\.odi\\'" . archive-mode) ("\\.otp\\'" . archive-mode) ("\\.odp\\'" . archive-mode) ("\\.otg\\'" . archive-mode) ("\\.odg\\'" . archive-mode) ("\\.ots\\'" . archive-mode) ("\\.ods\\'" . archive-mode) ("\\.odm\\'" . archive-mode) ("\\.ott\\'" . archive-mode) ("\\.odt\\'" . archive-mode) ("Tiltfile" . python-mode) ("\\.puml$" . plantuml-mode) ("_helpers.tpl" . go-mode) ("\\.pdf$" . pdf-view-mode) ("gtd_contexts/" . konix/org-gtd-context-edit-mode) ("patch$" . diff-mode) ("Jenkinsfile$" . groovy-mode) ("\\.kv$" . yaml-mode) ("\\.java$" . java-mode) ("\\.js$" . js2-mode) ("\\.beancount$" . beancount-mode) ("\\.md$" . markdown-mode) ("\\.compilog$" . compilation-mode) ("CMakeLists.txt$" . cmake-mode) ("\\.cmake$" . cmake-mode) ("\\.txx$" . c++-mode) ("\\.ixx$" . c++-mode) ("\\.ino$" . arduino-mode) ("\\.java\\.tpl$" . java-mode) ("\\.cxx\\.tpl$" . c++-mode) ("\\.c\\.tpl$" . c-mode) (".+.mail$" . message-mode) ("/Mail/" . message-mode) ("/mutt" . mail-mode) ("\\.vbs?$" . visual-basic-mode) ("\\.wiki$" . wikipedia-mode) ("\\.bat$" . batch-mode) ("\\.scene$" . xml-mode) ("\\.make$" . make-mode) ("\\.gp$" . gnuplot-mode) ("\\.lua$" . lua-mode) ("\\.ebuild$" . sh-mode) ("\\.eclass$" . sh-mode) ("\\.wxm$" . maxima-mode) ("\\.mac$" . maxima-mode) ("\\.max$" . maxima-mode) ("emacs$" . lisp-mode) ("\\.sce$" . scilab-mode) ...) unlet nil)
debug--implement-debug-watch(auto-mode-alist (("\\.odc\\'" . archive-mode) ("\\.odf\\'" . archive-mode) ("\\.odi\\'" . archive-mode) ("\\.otp\\'" . archive-mode) ("\\.odp\\'" . archive-mode) ("\\.otg\\'" . archive-mode) ("\\.odg\\'" . archive-mode) ("\\.ots\\'" . archive-mode) ("\\.ods\\'" . archive-mode) ("\\.odm\\'" . archive-mode) ("\\.ott\\'" . archive-mode) ("\\.odt\\'" . archive-mode) ("Tiltfile" . python-mode) ("\\.puml$" . plantuml-mode) ("_helpers.tpl" . go-mode) ("\\.pdf$" . pdf-view-mode) ("gtd_contexts/" . konix/org-gtd-context-edit-mode) ("patch$" . diff-mode) ("Jenkinsfile$" . groovy-mode) ("\\.kv$" . yaml-mode) ("\\.java$" . java-mode) ("\\.js$" . js2-mode) ("\\.beancount$" . beancount-mode) ("\\.md$" . markdown-mode) ("\\.compilog$" . compilation-mode) ("CMakeLists.txt$" . cmake-mode) ("\\.cmake$" . cmake-mode) ("\\.txx$" . c++-mode) ("\\.ixx$" . c++-mode) ("\\.ino$" . arduino-mode) ("\\.java\\.tpl$" . java-mode) ("\\.cxx\\.tpl$" . c++-mode) ("\\.c\\.tpl$" . c-mode) (".+.mail$" . message-mode) ("/Mail/" . message-mode) ("/mutt" . mail-mode) ("\\.vbs?$" . visual-basic-mode) ("\\.wiki$" . wikipedia-mode) ("\\.bat$" . batch-mode) ("\\.scene$" . xml-mode) ("\\.make$" . make-mode) ("\\.gp$" . gnuplot-mode) ("\\.lua$" . lua-mode) ("\\.ebuild$" . sh-mode) ("\\.eclass$" . sh-mode) ("\\.wxm$" . maxima-mode) ("\\.mac$" . maxima-mode) ("\\.max$" . maxima-mode) ("emacs$" . lisp-mode) ("\\.sce$" . scilab-mode) ...) unlet nil)
org-export-to-file(hugo "/home/sam/perso/org-publish/braindump/content/post..." nil nil nil)
org-hugo-export-to-md(nil nil nil)
org-hugo--export-file-to-md("aaaa.org" nil nil nil)
#f(compiled-function (&optional all-subtrees async visible-only noerror) "Export the current subtree/all subtrees/current file to a Hugo post.\n\nThis is an Export \"What I Mean\" function:\n\n- If the current subtree has the \"EXPORT_FILE_NAME\" property, export\n that subtree.\n- If the current subtree doesn't have that property, but one of its\n parent subtrees has, then export from that subtree's scope.\n- If none of the subtrees have that property (or if there are no Org\n subtrees at all), call `org-hugo--export-file-to-md'.\n\n- If ALL-SUBTREES is non-nil, export all valid Hugo post subtrees\n (that have the \"EXPORT_FILE_NAME\" property) in the current file\n to multiple Markdown posts.\n- If ALL-SUBTREES is non-nil, and again if none of the subtrees have\n that property (or if there are no Org subtrees), call\n `org-hugo--export-file-to-md'.\n\nA non-nil optional argument ASYNC means the process should happen\nasynchronously. The resulting file should be accessible through\nthe `org-export-stack' interface.\n\nWhen optional argument VISIBLE-ONLY is non-nil, don't export\ncontents of hidden elements.\n\nThe optional argument NOERROR is passed to\n`org-hugo--export-file-to-md'.\n\n- If ALL-SUBTREES is non-nil:\n - If valid subtrees are found, return the list of output files.\n - If no valid subtrees are found, return value is the same as\n that of `org-hugo--export-file-to-md'.\n\n- If ALL-SUBTREES is nil:\n - If `org-hugo--export-subtree-to-md' returns a non-nil value, return that.\n - Else return the value of `org-hugo--export-file-to-md'." (interactive "P") #<bytecode 0x158eb52f8375>)(nil)
apply(#f(compiled-function (&optional all-subtrees async visible-only noerror) "Export the current subtree/all subtrees/current file to a Hugo post.\n\nThis is an Export \"What I Mean\" function:\n\n- If the current subtree has the \"EXPORT_FILE_NAME\" property, export\n that subtree.\n- If the current subtree doesn't have that property, but one of its\n parent subtrees has, then export from that subtree's scope.\n- If none of the subtrees have that property (or if there are no Org\n subtrees at all), call `org-hugo--export-file-to-md'.\n\n- If ALL-SUBTREES is non-nil, export all valid Hugo post subtrees\n (that have the \"EXPORT_FILE_NAME\" property) in the current file\n to multiple Markdown posts.\n- If ALL-SUBTREES is non-nil, and again if none of the subtrees have\n that property (or if there are no Org subtrees), call\n `org-hugo--export-file-to-md'.\n\nA non-nil optional argument ASYNC means the process should happen\nasynchronously. The resulting file should be accessible through\nthe `org-export-stack' interface.\n\nWhen optional argument VISIBLE-ONLY is non-nil, don't export\ncontents of hidden elements.\n\nThe optional argument NOERROR is passed to\n`org-hugo--export-file-to-md'.\n\n- If ALL-SUBTREES is non-nil:\n - If valid subtrees are found, return the list of output files.\n - If no valid subtrees are found, return value is the same as\n that of `org-hugo--export-file-to-md'.\n\n- If ALL-SUBTREES is nil:\n - If `org-hugo--export-subtree-to-md' returns a non-nil value, return that.\n - Else return the value of `org-hugo--export-file-to-md'." (interactive "P") #<bytecode 0x158eb52f8375>) nil)
(let ((res (apply orig-fun args))) (advice-remove #'org-transclusion-before-kill #'konix/org-roam-export/org-transclusion-before-kill/prevent-it) res)
konix/org-roam-export/org-hugo-export-wim-to-md/prevent-org-transclusion-kill-behavior(#f(compiled-function (&optional all-subtrees async visible-only noerror) "Export the current subtree/all subtrees/current file to a Hugo post.\n\nThis is an Export \"What I Mean\" function:\n\n- If the current subtree has the \"EXPORT_FILE_NAME\" property, export\n that subtree.\n- If the current subtree doesn't have that property, but one of its\n parent subtrees has, then export from that subtree's scope.\n- If none of the subtrees have that property (or if there are no Org\n subtrees at all), call `org-hugo--export-file-to-md'.\n\n- If ALL-SUBTREES is non-nil, export all valid Hugo post subtrees\n (that have the \"EXPORT_FILE_NAME\" property) in the current file\n to multiple Markdown posts.\n- If ALL-SUBTREES is non-nil, and again if none of the subtrees have\n that property (or if there are no Org subtrees), call\n `org-hugo--export-file-to-md'.\n\nA non-nil optional argument ASYNC means the process should happen\nasynchronously. The resulting file should be accessible through\nthe `org-export-stack' interface.\n\nWhen optional argument VISIBLE-ONLY is non-nil, don't export\ncontents of hidden elements.\n\nThe optional argument NOERROR is passed to\n`org-hugo--export-file-to-md'.\n\n- If ALL-SUBTREES is non-nil:\n - If valid subtrees are found, return the list of output files.\n - If no valid subtrees are found, return value is the same as\n that of `org-hugo--export-file-to-md'.\n\n- If ALL-SUBTREES is nil:\n - If `org-hugo--export-subtree-to-md' returns a non-nil value, return that.\n - Else return the value of `org-hugo--export-file-to-md'." (interactive "P") #<bytecode 0x158eb52f8375>) nil)
apply(konix/org-roam-export/org-hugo-export-wim-to-md/prevent-org-transclusion-kill-behavior #f(compiled-function (&optional all-subtrees async visible-only noerror) "Export the current subtree/all subtrees/current file to a Hugo post.\n\nThis is an Export \"What I Mean\" function:\n\n- If the current subtree has the \"EXPORT_FILE_NAME\" property, export\n that subtree.\n- If the current subtree doesn't have that property, but one of its\n parent subtrees has, then export from that subtree's scope.\n- If none of the subtrees have that property (or if there are no Org\n subtrees at all), call `org-hugo--export-file-to-md'.\n\n- If ALL-SUBTREES is non-nil, export all valid Hugo post subtrees\n (that have the \"EXPORT_FILE_NAME\" property) in the current file\n to multiple Markdown posts.\n- If ALL-SUBTREES is non-nil, and again if none of the subtrees have\n that property (or if there are no Org subtrees), call\n `org-hugo--export-file-to-md'.\n\nA non-nil optional argument ASYNC means the process should happen\nasynchronously. The resulting file should be accessible through\nthe `org-export-stack' interface.\n\nWhen optional argument VISIBLE-ONLY is non-nil, don't export\ncontents of hidden elements.\n\nThe optional argument NOERROR is passed to\n`org-hugo--export-file-to-md'.\n\n- If ALL-SUBTREES is non-nil:\n - If valid subtrees are found, return the list of output files.\n - If no valid subtrees are found, return value is the same as\n that of `org-hugo--export-file-to-md'.\n\n- If ALL-SUBTREES is nil:\n - If `org-hugo--export-subtree-to-md' returns a non-nil value, return that.\n - Else return the value of `org-hugo--export-file-to-md'." (interactive "P") #<bytecode 0x158eb52f8375>) nil)
org-hugo-export-wim-to-md(nil)
funcall-interactively(org-hugo-export-wim-to-md nil)
call-interactively(org-hugo-export-wim-to-md record nil)
command-execute(org-hugo-export-wim-to-md record)
counsel-M-x-action("org-hugo-export-wim-to-md")
ivy-call()
ivy-read("M-x " [mml-smime-epg-verify c-clear-char-property-fun diary-included-files lsp-omnisharp-code-structure-request\? lsp:set-registration-register-options\? LOCK rng-what-schema message-all-epg-keys-available-p lsp:serenata-did-progress-indexing-folder-uri edebug-trace epg--status-VALIDSIG org-publish--store-crossrefs treemacs-project->path-status lsp-make-formatting-capabilities lsp-folding-range-limit posframe--insert-string :filterText clearfunsym gnus-agent-group-covered-p lsp--check-document-changes-version flycheck-error-list-mode-line-map resourceOperations lsp-solargraph-references :selection cl-print--preprocess which-key-side-window-max-height lsp-pyls-plugins-flake8-max-line-length :install konix/notmuch-unread-and-hide-tag lsp:signature-help-active-signature\? calc-arccosh post-deadline :tooltip RITUAL c-mode-var :End treemacs-workspace-p--cmacro nnheader-translate-file-chars lsp-sql-switch-database notmuch-hl-line-mode bs--goto-current-buffer path-dirs lsp--virtual-buffer-mappings treemacs-current-icons--inliner sessions dont-create calc-embedded-mode-hook BEETA wgrep-after-save-hook message-send-mail-function ...] :predicate #f(compiled-function (sym) #<bytecode 0x158eb594a9e5>) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x)
counsel-M-x()
funcall-interactively(counsel-M-x)
call-interactively(counsel-M-x nil nil)
command-execute(counsel-M-x)
recursive-edit()
edebug--recursive-edit(before)
edebug--display-1(nil 0 before)
edebug--display(nil 0 before)
edebug-debugger(0 before nil)
edebug-before(0)
(edebug-after (edebug-before 0) 371 (let ((try-locals (edebug-after (edebug-before 1) 4 (not (edebug-after (edebug-before 2) 3 (inhibit-local-variables-p))))) end done mode modes) (edebug-after (edebug-before 5) 90 (save-excursion (edebug-after (edebug-before 6) 9 (goto-char (edebug-after (edebug-before 7) 8 (point-min)))) (edebug-after (edebug-before 10) 11 (skip-chars-forward " \11\n")) (edebug-after (edebug-before 12) 89 (and (edebug-after 0 13 enable-local-variables) (edebug-after 0 14 try-locals) (edebug-after (edebug-before 15) 18 (setq end ...)) (edebug-after (edebug-before 19) 88 (if ... ... ...)))))) (edebug-after (edebug-before 91) 120 (if (edebug-after 0 92 modes) (edebug-after (edebug-before 93) 119 (catch 'nop (edebug-after (edebug-before 94) 118 (dolist ... ...)))))) (edebug-after (edebug-before 121) 154 (and (edebug-after (edebug-before 122) 124 (not (edebug-after 0 123 done))) (edebug-after 0 125 enable-local-variables) (edebug-after 0 126 local-enable-local-variables) (edebug-after 0 127 try-locals) (edebug-after (edebug-before 128) 131 (setq mode (edebug-after (edebug-before 129) 130 (hack-local-variables t)))) (edebug-after (edebug-before 132) 137 (not (edebug-after (edebug-before 133) 136 (memq ... ...)))) (edebug-after (edebug-before 138) 153 (if (edebug-after (edebug-before 139) 143 (not ...)) (edebug-after (edebug-before 144) 146 (message "Ignoring unknown mode `%s'" ...)) (edebug-after (edebug-before 147) 148 (setq done t)) (edebug-after (edebug-before 149) 152 (set-auto-mode-0 ... ...)))))) (edebug-after (edebug-before 155) 190 (and (edebug-after (edebug-before 156) 158 (not (edebug-after 0 157 done))) (edebug-after (edebug-before 159) 173 (setq mode (edebug-after (edebug-before 160) 172 (save-excursion ... ...)))) (edebug-after (edebug-before 174) 185 (setq done (edebug-after (edebug-before 175) 184 (assoc-default ... ... ...)))) (edebug-after (edebug-before 186) 189 (set-auto-mode-0 (edebug-after 0 187 done) (edebug-after 0 188 keep-mode-if-same))))) (edebug-after (edebug-before 191) 225 (unless (edebug-after 0 192 done) (edebug-after (edebug-before 193) 224 (if (edebug-after (edebug-before 194) 219 (setq done ...)) (edebug-after (edebug-before 220) 223 (set-auto-mode-0 ... ...)))))) (edebug-after (edebug-before 226) 328 (unless (edebug-after 0 227 done) (edebug-after (edebug-before 228) 327 (if (edebug-after 0 229 buffer-file-name) (edebug-after (edebug-before 230) 326 (let ... ... ... ...)))))) (edebug-after (edebug-before 329) 363 (unless (edebug-after 0 330 done) (edebug-after (edebug-before 331) 362 (if (edebug-after (edebug-before 332) 357 (setq done ...)) (edebug-after (edebug-before 358) 361 (set-auto-mode-0 ... ...)))))) (edebug-after (edebug-before 364) 370 (unless (edebug-after 0 365 done) (edebug-after (edebug-before 366) 369 (set-buffer-major-mode (edebug-after (edebug-before 367) 368 (current-buffer))))))))
(closure ((keep-mode-if-same) t) nil (edebug-after (edebug-before 0) 371 (let ((try-locals (edebug-after (edebug-before 1) 4 (not (edebug-after ... 3 ...)))) end done mode modes) (edebug-after (edebug-before 5) 90 (save-excursion (edebug-after (edebug-before 6) 9 (goto-char (edebug-after ... 8 ...))) (edebug-after (edebug-before 10) 11 (skip-chars-forward " \11\n")) (edebug-after (edebug-before 12) 89 (and (edebug-after 0 13 enable-local-variables) (edebug-after 0 14 try-locals) (edebug-after ... 18 ...) (edebug-after ... 88 ...))))) (edebug-after (edebug-before 91) 120 (if (edebug-after 0 92 modes) (edebug-after (edebug-before 93) 119 (catch 'nop (edebug-after ... 118 ...))))) (edebug-after (edebug-before 121) 154 (and (edebug-after (edebug-before 122) 124 (not (edebug-after 0 123 done))) (edebug-after 0 125 enable-local-variables) (edebug-after 0 126 local-enable-local-variables) (edebug-after 0 127 try-locals) (edebug-after (edebug-before 128) 131 (setq mode (edebug-after ... 130 ...))) (edebug-after (edebug-before 132) 137 (not (edebug-after ... 136 ...))) (edebug-after (edebug-before 138) 153 (if (edebug-after ... 143 ...) (edebug-after ... 146 ...) (edebug-after ... 148 ...) (edebug-after ... 152 ...))))) (edebug-after (edebug-before 155) 190 (and (edebug-after (edebug-before 156) 158 (not (edebug-after 0 157 done))) (edebug-after (edebug-before 159) 173 (setq mode (edebug-after ... 172 ...))) (edebug-after (edebug-before 174) 185 (setq done (edebug-after ... 184 ...))) (edebug-after (edebug-before 186) 189 (set-auto-mode-0 (edebug-after 0 187 done) (edebug-after 0 188 keep-mode-if-same))))) (edebug-after (edebug-before 191) 225 (unless (edebug-after 0 192 done) (edebug-after (edebug-before 193) 224 (if (edebug-after ... 219 ...) (edebug-after ... 223 ...))))) (edebug-after (edebug-before 226) 328 (unless (edebug-after 0 227 done) (edebug-after (edebug-before 228) 327 (if (edebug-after 0 229 buffer-file-name) (edebug-after ... 326 ...))))) (edebug-after (edebug-before 329) 363 (unless (edebug-after 0 330 done) (edebug-after (edebug-before 331) 362 (if (edebug-after ... 357 ...) (edebug-after ... 361 ...))))) (edebug-after (edebug-before 364) 370 (unless (edebug-after 0 365 done) (edebug-after (edebug-before 366) 369 (set-buffer-major-mode (edebug-after ... 368 ...))))))))()
edebug-default-enter(set-auto-mode (nil) (closure ((keep-mode-if-same) t) nil (edebug-after (edebug-before 0) 371 (let ((try-locals (edebug-after (edebug-before 1) 4 (not ...))) end done mode modes) (edebug-after (edebug-before 5) 90 (save-excursion (edebug-after (edebug-before 6) 9 (goto-char ...)) (edebug-after (edebug-before 10) 11 (skip-chars-forward " \11\n")) (edebug-after (edebug-before 12) 89 (and ... ... ... ...)))) (edebug-after (edebug-before 91) 120 (if (edebug-after 0 92 modes) (edebug-after (edebug-before 93) 119 (catch ... ...)))) (edebug-after (edebug-before 121) 154 (and (edebug-after (edebug-before 122) 124 (not ...)) (edebug-after 0 125 enable-local-variables) (edebug-after 0 126 local-enable-local-variables) (edebug-after 0 127 try-locals) (edebug-after (edebug-before 128) 131 (setq mode ...)) (edebug-after (edebug-before 132) 137 (not ...)) (edebug-after (edebug-before 138) 153 (if ... ... ... ...)))) (edebug-after (edebug-before 155) 190 (and (edebug-after (edebug-before 156) 158 (not ...)) (edebug-after (edebug-before 159) 173 (setq mode ...)) (edebug-after (edebug-before 174) 185 (setq done ...)) (edebug-after (edebug-before 186) 189 (set-auto-mode-0 ... ...)))) (edebug-after (edebug-before 191) 225 (unless (edebug-after 0 192 done) (edebug-after (edebug-before 193) 224 (if ... ...)))) (edebug-after (edebug-before 226) 328 (unless (edebug-after 0 227 done) (edebug-after (edebug-before 228) 327 (if ... ...)))) (edebug-after (edebug-before 329) 363 (unless (edebug-after 0 330 done) (edebug-after (edebug-before 331) 362 (if ... ...)))) (edebug-after (edebug-before 364) 370 (unless (edebug-after 0 365 done) (edebug-after (edebug-before 366) 369 (set-buffer-major-mode ...))))))))
edebug-default-enter(set-auto-mode (nil) (closure ((keep-mode-if-same) t) nil (edebug-after (edebug-before 0) 371 (let ((try-locals (edebug-after (edebug-before 1) 4 (not ...))) end done mode modes) (edebug-after (edebug-before 5) 90 (save-excursion (edebug-after (edebug-before 6) 9 (goto-char ...)) (edebug-after (edebug-before 10) 11 (skip-chars-forward " \11\n")) (edebug-after (edebug-before 12) 89 (and ... ... ... ...)))) (edebug-after (edebug-before 91) 120 (if (edebug-after 0 92 modes) (edebug-after (edebug-before 93) 119 (catch ... ...)))) (edebug-after (edebug-before 121) 154 (and (edebug-after (edebug-before 122) 124 (not ...)) (edebug-after 0 125 enable-local-variables) (edebug-after 0 126 local-enable-local-variables) (edebug-after 0 127 try-locals) (edebug-after (edebug-before 128) 131 (setq mode ...)) (edebug-after (edebug-before 132) 137 (not ...)) (edebug-after (edebug-before 138) 153 (if ... ... ... ...)))) (edebug-after (edebug-before 155) 190 (and (edebug-after (edebug-before 156) 158 (not ...)) (edebug-after (edebug-before 159) 173 (setq mode ...)) (edebug-after (edebug-before 174) 185 (setq done ...)) (edebug-after (edebug-before 186) 189 (set-auto-mode-0 ... ...)))) (edebug-after (edebug-before 191) 225 (unless (edebug-after 0 192 done) (edebug-after (edebug-before 193) 224 (if ... ...)))) (edebug-after (edebug-before 226) 328 (unless (edebug-after 0 227 done) (edebug-after (edebug-before 228) 327 (if ... ...)))) (edebug-after (edebug-before 329) 363 (unless (edebug-after 0 330 done) (edebug-after (edebug-before 331) 362 (if ... ...)))) (edebug-after (edebug-before 364) 370 (unless (edebug-after 0 365 done) (edebug-after (edebug-before 366) 369 (set-buffer-major-mode ...))))))))
edebug-enter(set-auto-mode (nil) (closure ((keep-mode-if-same) t) nil (edebug-after (edebug-before 0) 371 (let ((try-locals (edebug-after (edebug-before 1) 4 (not ...))) end done mode modes) (edebug-after (edebug-before 5) 90 (save-excursion (edebug-after (edebug-before 6) 9 (goto-char ...)) (edebug-after (edebug-before 10) 11 (skip-chars-forward " \11\n")) (edebug-after (edebug-before 12) 89 (and ... ... ... ...)))) (edebug-after (edebug-before 91) 120 (if (edebug-after 0 92 modes) (edebug-after (edebug-before 93) 119 (catch ... ...)))) (edebug-after (edebug-before 121) 154 (and (edebug-after (edebug-before 122) 124 (not ...)) (edebug-after 0 125 enable-local-variables) (edebug-after 0 126 local-enable-local-variables) (edebug-after 0 127 try-locals) (edebug-after (edebug-before 128) 131 (setq mode ...)) (edebug-after (edebug-before 132) 137 (not ...)) (edebug-after (edebug-before 138) 153 (if ... ... ... ...)))) (edebug-after (edebug-before 155) 190 (and (edebug-after (edebug-before 156) 158 (not ...)) (edebug-after (edebug-before 159) 173 (setq mode ...)) (edebug-after (edebug-before 174) 185 (setq done ...)) (edebug-after (edebug-before 186) 189 (set-auto-mode-0 ... ...)))) (edebug-after (edebug-before 191) 225 (unless (edebug-after 0 192 done) (edebug-after (edebug-before 193) 224 (if ... ...)))) (edebug-after (edebug-before 226) 328 (unless (edebug-after 0 227 done) (edebug-after (edebug-before 228) 327 (if ... ...)))) (edebug-after (edebug-before 329) 363 (unless (edebug-after 0 330 done) (edebug-after (edebug-before 331) 362 (if ... ...)))) (edebug-after (edebug-before 364) 370 (unless (edebug-after 0 365 done) (edebug-after (edebug-before 366) 369 (set-buffer-major-mode ...))))))))
set-auto-mode()
normal-mode(t)
after-find-file(nil t)
find-file-noselect-1(#<buffer org.el> "~/Prog/devel/.cask/27.1/elpa/org-9.5.2/org.el" nil nil "~/Prog/devel/.cask/27.1/elpa/org-9.5.2/org.el" (7737661 66306))
find-file-noselect("/home/sam/Prog/devel/.cask/27.1/elpa/org-9.5.2/org..." nil nil nil)
#f(compiled-function (filename &optional wildcards) "Edit file FILENAME.\nSwitch to a buffer visiting file FILENAME,\ncreating one if none already exists.\nInteractively, the default if you just type RET is the current directory,\nbut the visited file name is available through the minibuffer history:\ntype \\[next-history-element] to pull it into the minibuffer.\n\nThe first time \\[next-history-element] is used after Emacs prompts for\nthe file name, the result is affected by `file-name-at-point-functions',\nwhich by default try to guess the file name by looking at point in the\ncurrent buffer. Customize the value of `file-name-at-point-functions'\nor set it to nil, if you want only the visited file name and the\ncurrent directory to be available on first \\[next-history-element]\nrequest.\n\nYou can visit files on remote machines by specifying something\nlike /ssh:SOME_REMOTE_MACHINE:FILE for the file name. You can\nalso visit local files as a different user by specifying\n/sudo::FILE for the file name.\nSee the Info node `(tramp)File name Syntax' in the Tramp Info\nmanual, for more about this.\n\nInteractively, or if WILDCARDS is non-nil in a call from Lisp,\nexpand wildcards (if any) and visit multiple files. You can\nsuppress wildcard expansion by setting `find-file-wildcards' to nil.\n\nTo visit a file without any kind of conversion and without\nautomatically choosing a major mode, use \\[find-file-literally]." (interactive #f(compiled-function () #<bytecode 0x158eb5e0e5e1>)) #<bytecode 0x1fddc6c211e5>)("/home/sam/Prog/devel/.cask/27.1/elpa/org-9.5.2/org...")
apply(#f(compiled-function (filename &optional wildcards) "Edit file FILENAME.\nSwitch to a buffer visiting file FILENAME,\ncreating one if none already exists.\nInteractively, the default if you just type RET is the current directory,\nbut the visited file name is available through the minibuffer history:\ntype \\[next-history-element] to pull it into the minibuffer.\n\nThe first time \\[next-history-element] is used after Emacs prompts for\nthe file name, the result is affected by `file-name-at-point-functions',\nwhich by default try to guess the file name by looking at point in the\ncurrent buffer. Customize the value of `file-name-at-point-functions'\nor set it to nil, if you want only the visited file name and the\ncurrent directory to be available on first \\[next-history-element]\nrequest.\n\nYou can visit files on remote machines by specifying something\nlike /ssh:SOME_REMOTE_MACHINE:FILE for the file name. You can\nalso visit local files as a different user by specifying\n/sudo::FILE for the file name.\nSee the Info node `(tramp)File name Syntax' in the Tramp Info\nmanual, for more about this.\n\nInteractively, or if WILDCARDS is non-nil in a call from Lisp,\nexpand wildcards (if any) and visit multiple files. You can\nsuppress wildcard expansion by setting `find-file-wildcards' to nil.\n\nTo visit a file without any kind of conversion and without\nautomatically choosing a major mode, use \\[find-file-literally]." (interactive #f(compiled-function () #<bytecode 0x158eb60110f5>)) #<bytecode 0x1fddc6c211e5>) "/home/sam/Prog/devel/.cask/27.1/elpa/org-9.5.2/org..." nil)
konix/find-file/ipfs-ignore-query-parameter(#f(compiled-function (filename &optional wildcards) "Edit file FILENAME.\nSwitch to a buffer visiting file FILENAME,\ncreating one if none already exists.\nInteractively, the default if you just type RET is the current directory,\nbut the visited file name is available through the minibuffer history:\ntype \\[next-history-element] to pull it into the minibuffer.\n\nThe first time \\[next-history-element] is used after Emacs prompts for\nthe file name, the result is affected by `file-name-at-point-functions',\nwhich by default try to guess the file name by looking at point in the\ncurrent buffer. Customize the value of `file-name-at-point-functions'\nor set it to nil, if you want only the visited file name and the\ncurrent directory to be available on first \\[next-history-element]\nrequest.\n\nYou can visit files on remote machines by specifying something\nlike /ssh:SOME_REMOTE_MACHINE:FILE for the file name. You can\nalso visit local files as a different user by specifying\n/sudo::FILE for the file name.\nSee the Info node `(tramp)File name Syntax' in the Tramp Info\nmanual, for more about this.\n\nInteractively, or if WILDCARDS is non-nil in a call from Lisp,\nexpand wildcards (if any) and visit multiple files. You can\nsuppress wildcard expansion by setting `find-file-wildcards' to nil.\n\nTo visit a file without any kind of conversion and without\nautomatically choosing a major mode, use \\[find-file-literally]." (interactive #f(compiled-function () #<bytecode 0x158eb60be3bd>)) #<bytecode 0x1fddc6c211e5>) "/home/sam/Prog/devel/.cask/27.1/elpa/org-9.5.2/org...")
apply(konix/find-file/ipfs-ignore-query-parameter #f(compiled-function (filename &optional wildcards) "Edit file FILENAME.\nSwitch to a buffer visiting file FILENAME,\ncreating one if none already exists.\nInteractively, the default if you just type RET is the current directory,\nbut the visited file name is available through the minibuffer history:\ntype \\[next-history-element] to pull it into the minibuffer.\n\nThe first time \\[next-history-element] is used after Emacs prompts for\nthe file name, the result is affected by `file-name-at-point-functions',\nwhich by default try to guess the file name by looking at point in the\ncurrent buffer. Customize the value of `file-name-at-point-functions'\nor set it to nil, if you want only the visited file name and the\ncurrent directory to be available on first \\[next-history-element]\nrequest.\n\nYou can visit files on remote machines by specifying something\nlike /ssh:SOME_REMOTE_MACHINE:FILE for the file name. You can\nalso visit local files as a different user by specifying\n/sudo::FILE for the file name.\nSee the Info node `(tramp)File name Syntax' in the Tramp Info\nmanual, for more about this.\n\nInteractively, or if WILDCARDS is non-nil in a call from Lisp,\nexpand wildcards (if any) and visit multiple files. You can\nsuppress wildcard expansion by setting `find-file-wildcards' to nil.\n\nTo visit a file without any kind of conversion and without\nautomatically choosing a major mode, use \\[find-file-literally]." (interactive #f(compiled-function () #<bytecode 0x158eb5ede6b1>)) #<bytecode 0x1fddc6c211e5>) "/home/sam/Prog/devel/.cask/27.1/elpa/org-9.5.2/org...")
find-file("/home/sam/Prog/devel/.cask/27.1/elpa/org-9.5.2/org...")
ivy--switch-buffer-action(#("org.el" 0 6 (face ivy-virtual)))
ivy-call()
ivy-read("Switch to buffer: " internal-complete-buffer :keymap (keymap (11 . ivy-switch-buffer-kill)) :preselect "*Ox-hugo Pre-processed aaaa.org *" :action ivy--switch-buffer-action :matcher ivy--switch-buffer-matcher :caller ivy-switch-buffer)
ivy-switch-buffer()
funcall-interactively(ivy-switch-buffer)
call-interactively(ivy-switch-buffer nil nil)
command-execute(ivy-switch-buffer)