Distribute some variable settings to specific configuration sections

Two configuration changes have been made:

- Removed `require-final-newline`, which originally had been set to nil; this is
  not necessary (I think), because this is a buffer-local variable that is
  usually set by the respective major mode when necessary; the default value is
  nil anyway.

- Activate `minibuffer-depth-indicate-mode` by default, to signify the depth of
  recursive minibuffer edits when they happen.
This commit is contained in:
Daniel Borchmann 2023-02-18 16:58:29 +01:00
parent 92d43a6306
commit b5f03ddf96
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625

66
init.el
View File

@ -117,6 +117,7 @@
;; Activate modes (packages) ;; Activate modes (packages)
(dolist (mode '(global-undo-tree-mode (dolist (mode '(global-undo-tree-mode
minibuffer-depth-indicate-mode
ace-window-display-mode ace-window-display-mode
key-chord-mode key-chord-mode
ivy-mode ivy-mode
@ -353,6 +354,7 @@
(use-package subr-x (use-package subr-x
:demand t) :demand t)
;; Encoding: use UTF-8 everywhere
(set-default-coding-systems 'utf-8) (set-default-coding-systems 'utf-8)
(prefer-coding-system 'utf-8) (prefer-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8) (set-terminal-coding-system 'utf-8)
@ -381,18 +383,14 @@
select-enable-primary t ; TODO select.el select-enable-primary t ; TODO select.el
save-interprogram-paste-before-kill t save-interprogram-paste-before-kill t
mouse-yank-at-point t ; TODO? mouse.el mouse-yank-at-point t ; TODO? mouse.el
require-final-newline nil ; TODO files.el
sentence-end-double-space t ; TODO? paragraphs.el
scroll-conservatively 10 scroll-conservatively 10
scroll-preserve-screen-position 'always ; Make M-v undo C-v
message-log-max t message-log-max t
inhibit-eol-conversion nil inhibit-eol-conversion nil
tab-always-indent 'complete ; TODO indent.el tab-always-indent 'complete ; TODO indent.el
completion-cycle-threshold 10 ; TODO minibuffer.el
enable-recursive-minibuffers t enable-recursive-minibuffers t
set-mark-command-repeat-pop t set-mark-command-repeat-pop t
large-file-warning-threshold 10000000 ; TODO files.el
echo-keystrokes 0.1 echo-keystrokes 0.1
delete-by-moving-to-trash t
delete-trailing-lines nil delete-trailing-lines nil
x-underline-at-descent-line t x-underline-at-descent-line t
visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow) visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow)
@ -404,13 +402,17 @@
next-error-message-highlight t next-error-message-highlight t
help-enable-symbol-autoload t ; TODO? help.el help-enable-symbol-autoload t ; TODO? help.el
describe-bindings-outline t ; TODO? help.el describe-bindings-outline t ; TODO? help.el
redisplay-skip-fontification-on-input t) redisplay-skip-fontification-on-input t
undo-limit 80000000
async-shell-command-buffer 'new-buffer)
(put 'set-goal-column 'disabled nil)
(when (memq system-type '(gnu gnu/linux gnu/kfreebsd)) (when (memq system-type '(gnu gnu/linux gnu/kfreebsd))
(setq x-wait-for-event-timeout nil)) (setq x-wait-for-event-timeout nil))
(when on-windows (when on-windows
;; treat memory for display time ... but hey, this is Windows, memory doesnt ;; Fix: treat memory for display time ... hey, this is Windows, memory doesnt
;; matter! ;; matter!
(setq inhibit-compacting-font-caches t)) (setq inhibit-compacting-font-caches t))
@ -419,31 +421,6 @@
face minibuffer-prompt face minibuffer-prompt
cursor-intangible t)) cursor-intangible t))
;; Make M-v undo C-v
(setq scroll-preserve-screen-position 'always)
;; Backups and Autosave
(defvar backup-dir (expand-file-name "ebackup/" emacs-d))
(defvar autosave-dir (expand-file-name "eautosave/" emacs-d))
(setq make-backup-files t
backup-directory-alist (list (cons ".*" backup-dir))
auto-save-list-file-prefix autosave-dir
auto-save-file-name-transforms `((".*" ,autosave-dir t))
version-control t
kept-old-versions 2
kept-new-versions 4
delete-old-versions t
vc-make-backup-files t)
(setq undo-limit 80000000)
(setq-default async-shell-command-buffer 'new-buffer)
(put 'set-goal-column 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'narrow-to-region 'disabled nil)
;; Fix: disable gconf settings, as it might interfere with ours, see ;; Fix: disable gconf settings, as it might interfere with ours, see
;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=25228 and ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=25228 and
;; https://emacs.stackexchange.com/questions/32641/something-changes-the-default-face-in-my-emacs. ;; https://emacs.stackexchange.com/questions/32641/something-changes-the-default-face-in-my-emacs.
@ -662,6 +639,12 @@
;; * Text editing ;; * Text editing
(setq sentence-end-double-space t)
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(use-package abbrev (use-package abbrev
:init (setq save-abbrevs 'silently :init (setq save-abbrevs 'silently
abbrev-file-name (expand-file-name "private/abbrev_defs")) abbrev-file-name (expand-file-name "private/abbrev_defs"))
@ -2107,6 +2090,22 @@ The password is assumed to be stored at the PASSWORD property."
;; * File Handling ;; * File Handling
(setq large-file-warning-threshold 10000000
delete-by-moving-to-trash t)
;; Backups and Autosave
(defvar backup-dir (expand-file-name "ebackup/" emacs-d))
(defvar autosave-dir (expand-file-name "eautosave/" emacs-d))
(setq make-backup-files t
backup-directory-alist (list (cons ".*" backup-dir))
auto-save-list-file-prefix autosave-dir
auto-save-file-name-transforms `((".*" ,autosave-dir t))
version-control t
kept-old-versions 2
kept-new-versions 4
delete-old-versions t
vc-make-backup-files t)
(use-package dired (use-package dired
:bind (:map dired-mode-map :bind (:map dired-mode-map
("e" . db/dired-ediff-files) ("e" . db/dired-ediff-files)
@ -2283,7 +2282,8 @@ The password is assumed to be stored at the PASSWORD property."
(setq suggest-key-bindings t (setq suggest-key-bindings t
extended-command-suggest-shorter t extended-command-suggest-shorter t
completions-detailed t) completions-detailed t
completion-cycle-threshold 10)
(use-package helm (use-package helm
:ensure t :ensure t