amogus2/emacs-dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add vc-git-print-log-follow and apropos-do-all

Browse Source
This commit is contained in:
James Cherti
2025-02-02 21:53:11 -05:00
parent a3a37c233d
commit b44f59a77d
2 changed files with 22 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
early-init.el
View File

@@ -90,14 +90,14 @@ When set to non-nil, Emacs will automatically call `package-initialize' and
(unless (daemonp) (unless (daemonp)
(let ((old-value (default-toplevel-value 'file-name-handler-alist))) (let ((old-value (default-toplevel-value 'file-name-handler-alist)))
(set-default-toplevel-value
'file-name-handler-alist
;; Determine the state of bundled libraries using calc-loaddefs.el. ;; Determine the state of bundled libraries using calc-loaddefs.el.
;; If compressed, retain the gzip handler in `file-name-handler-alist`. ;; If compressed, retain the gzip handler in `file-name-handler-alist`.
;; If compiled or neither, omit the gzip handler during startup for ;; If compiled or neither, omit the gzip handler during startup for
;; improved startup and package load time. ;; improved startup and package load time.
(set-default-toplevel-value 'file-name-handler-alist
(if (eval-when-compile (if (eval-when-compile
(locate-file-internal "calc-loaddefs.el" load-path)) (locate-file-internal "calc-loaddefs.el"
load-path))
nil nil
(list (rassq 'jka-compr-handler old-value)))) (list (rassq 'jka-compr-handler old-value))))
;; Ensure the new value persists through any current let-binding. ;; Ensure the new value persists through any current let-binding.
@@ -146,9 +146,8 @@ When set to non-nil, Emacs will automatically call `package-initialize' and
(defun minimal-emacs--startup-load-user-init-file (fn &rest args) (defun minimal-emacs--startup-load-user-init-file (fn &rest args)
"Advice for startup--load-user-init-file to reset mode-line-format." "Advice for startup--load-user-init-file to reset mode-line-format."
(unwind-protect (unwind-protect
(progn
;; Start up as normal ;; Start up as normal
(apply fn args)) (apply fn args)
;; If we don't undo inhibit-{message, redisplay} and there's an ;; If we don't undo inhibit-{message, redisplay} and there's an
;; error, we'll see nothing but a blank Emacs frame. ;; error, we'll see nothing but a blank Emacs frame.
(setq-default inhibit-message nil) (setq-default inhibit-message nil)

10
init.el
View File

@@ -166,6 +166,10 @@
(setq version-control t) ; Use version numbers for backup files (setq version-control t) ; Use version numbers for backup files
(setq kept-new-versions 5) (setq kept-new-versions 5)
(setq kept-old-versions 5) (setq kept-old-versions 5)
;;; VC
(setq vc-git-print-log-follow t)
(setq vc-make-backup-files nil) ; Do not backup version controlled files (setq vc-make-backup-files nil) ; Do not backup version controlled files
;;; Auto save ;;; Auto save
@@ -401,6 +405,12 @@
(setq ediff-window-setup-function #'ediff-setup-windows-plain (setq ediff-window-setup-function #'ediff-setup-windows-plain
ediff-split-window-function #'split-window-horizontally) ediff-split-window-function #'split-window-horizontally)
;;; Help
;; Enhance `apropos' and related functions to perform more extensive searches,
;; increasing their usefulness.
(setq apropos-do-all t)
;;; Load post-init.el ;;; Load post-init.el
(minimal-emacs-load-user-init "post-init.el") (minimal-emacs-load-user-init "post-init.el")