Set default major mode when visiting a non-file buffer

1 files changed, 6 insertions, 18 deletions

@@ -185,24 +185,12 @@ In short, DO NOT USE THIS FUNCTION!!!"
 
 (setup buffers
   (:global "C-x k" #'acdw/kill-a-buffer)
-  (defun buffer-list-update@set-major-mode ()
-    "Set `major-mode' from buffer name, even when not visiting a file."
-    (let ((name (buffer-name)))
-      (unless (or (active-minibuffer-window)
-                  (string-prefix-p "*" name)
-                  (not (eq major-mode 'fundamental-mode)))
-        (catch 'done
-          (dolist (cell auto-mode-alist)
-            (let ((regexp (car cell))
-                  (mode (cdr cell)))
-              (when (string-match regexp name)
-                (let ((major-mode mode))
-                  (funcall mode))
-                (throw 'done mode))))))))
-
-  ;; TODO: more testing, just in case.
-  ;;(add-hook 'buffer-list-update-hook #'buffer-list-update@set-major-mode)
-  )
+  ;; Set the right major mode based on buffer name, if not visiting a file.
+  ;; http://ruzkuku.com/emacs.d.html#orgeab93c3
+  (setq-default major-mode (lambda ()
+                             (unless buffer-file-name
+                               (let ((buffer-file-name (buffer-name)))
+                                 (set-auto-mode))))))
 
 (setup calendar
   (:option calendar-week-start-day 1))