From 3d4c93a2a024db16e933fbdfcb71df0460a2b894 Mon Sep 17 00:00:00 2001 From: Jethro Kuan Date: Mon, 3 May 2021 19:01:05 +0800 Subject: [PATCH] macro: find-file non-literally, but start in fundamental-mode? Lexically bind auto-mode-alist to nil, so emacs opens the file initially in the global major-mode, which is traditionally fundamental-mode. cc @nobiot --- org-roam-macs.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/org-roam-macs.el b/org-roam-macs.el index f62db2c..22ffea4 100644 --- a/org-roam-macs.el +++ b/org-roam-macs.el @@ -48,19 +48,19 @@ If FILE is nil, execute BODY in the current buffer. Kills the buffer if KEEP-BUF-P is nil, and FILE is not yet visited." (declare (indent 2) (debug t)) `(let* (new-buf + (auto-mode-alist nil) (buf (or (and (not ,file) (current-buffer)) ;If FILE is nil, use current buffer (find-buffer-visiting ,file) ; If FILE is already visited, find buffer (progn (setq new-buf t) - (find-file-noselect ,file nil t)))) ; Else, visit FILE and return buffer + (find-file-noselect ,file)))) ; Else, visit FILE and return buffer res) (with-current-buffer buf - (kill-local-variable 'buffer-file-coding-system) - (kill-local-variable 'find-file-literally) (unless (equal major-mode 'org-mode) (delay-mode-hooks - (let ((org-inhibit-startup t)) + (let ((org-inhibit-startup t) + (org-agenda-files nil)) (org-mode)))) (setq res (progn ,@body)) (unless (and new-buf (not ,keep-buf-p))