mirror of
https://codeberg.org/scip/dot-emacs.git
synced 2025-12-17 04:20:57 +01:00
fixed startup buffer switching
This commit is contained in:
12
.emacs
12
.emacs
@@ -545,6 +545,7 @@
|
|||||||
;; - added here-doc support to config-general using mmm-mode
|
;; - added here-doc support to config-general using mmm-mode
|
||||||
;; - made outline faces a little bigger, added face for level 4
|
;; - made outline faces a little bigger, added face for level 4
|
||||||
;; - rm initial buffer, doesnt open commandline files anymore with this
|
;; - rm initial buffer, doesnt open commandline files anymore with this
|
||||||
|
;; - finally initial buffer works, opens command line file or text scratch
|
||||||
|
|
||||||
;; ** TODO
|
;; ** TODO
|
||||||
|
|
||||||
@@ -1046,6 +1047,17 @@ to next buffer otherwise."
|
|||||||
(with-current-buffer (get-buffer-create "*text*")
|
(with-current-buffer (get-buffer-create "*text*")
|
||||||
(text-mode))
|
(text-mode))
|
||||||
|
|
||||||
|
(defun tvd-startup-scratch-or-file ()
|
||||||
|
"Jump to command line arg file, if any, or start with *text* buffer."
|
||||||
|
(interactive)
|
||||||
|
(let ((last-arg (find-buffer-visiting (replace-regexp-in-string "\\\\" "/" (car (last command-line-args))))))
|
||||||
|
(if last-arg
|
||||||
|
(switch-to-buffer last-arg)
|
||||||
|
(switch-to-buffer "*text*"))))
|
||||||
|
|
||||||
|
(setq initial-buffer-choice 'tvd-startup-scratch-or-file)
|
||||||
|
|
||||||
|
|
||||||
;; * Global Key Bindings
|
;; * Global Key Bindings
|
||||||
;; --------------------------------------------------------------------------------
|
;; --------------------------------------------------------------------------------
|
||||||
;; ** c-h != delete
|
;; ** c-h != delete
|
||||||
|
|||||||
862
emacs.html
862
emacs.html
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user