diff -r 665bd30beaae -r 64b0c8d9821d .emacs-my --- a/.emacs-my Tue Dec 10 18:07:06 2019 +0200 +++ b/.emacs-my Tue Dec 10 18:08:41 2019 +0200 @@ -12,6 +12,24 @@ (with-no-warnings (require 'cl)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(message "silent runing") + +(setq inhibit-splash-screen t) +(setq inhibit-startup-message t) + +(setq initial-scratch-message nil) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(message "helper buffers") + +(define-key global-map "\C-v" nil) +(define-key global-map "\C-vt" (lambda nil (interactive) (switch-to-buffer "*scratch*"))) + +(defvar my-work-file (expand-file-name "~/work.txt")) +(setq initial-buffer-choice my-work-file) +(define-key global-map "\C-vw" (lambda nil (interactive) (find-file-literally my-work-file))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (message "recentf") (eval-and-compile @@ -467,14 +485,6 @@ (setq confirm-kill-emacs 'y-or-n-p)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(message "silent runing") - -(setq inhibit-splash-screen t) -(setq inhibit-startup-message t) - -(setq initial-scratch-message nil) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (message "date, time") (require 'time) @@ -676,8 +686,6 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (message "standart/general settings") -(eval-when 'compile (require 'generic)) - ;; Try to speed things up, especially in VM. (setq gc-cons-threshold 2000000) @@ -767,9 +775,6 @@ (if (member (buffer-name) '("*scratch*" "NOTE.org")) nil t)) (add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer) -(define-key global-map "\C-v" nil) -(define-key global-map "\C-vt" (lambda nil (interactive) (switch-to-buffer "*scratch*"))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (message "scrolling")