daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

change scroll setting

Browse Source
This commit is contained in:
Daniel Weschke
2025-06-27 16:30:36 +02:00
parent 65bd50b345
commit 004f309399
3 changed files with 17 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/update-autoloads.el
View File

@@ -50,3 +50,8 @@
(package-generate-autoloads "org-contrib" (concat config-dir "lisp/org-contrib")) (package-generate-autoloads "org-contrib" (concat config-dir "lisp/org-contrib"))
(package-generate-autoloads "swiper" (concat config-dir "lisp/swiper")) (package-generate-autoloads "swiper" (concat config-dir "lisp/swiper"))
) )
(defun my-byte-compile ()
"recursive byte-compiling"
(interactive)
(byte-recompile-directory (concat user-emacs-directory "lisp") 0))

9
settings/general-settings.el
View File

@@ -571,10 +571,11 @@ Version 2016-07-13"
(global-set-key (kbd "<mouse-8>") (lambda () (interactive) (previous-buffer))) (global-set-key (kbd "<mouse-8>") (lambda () (interactive) (previous-buffer)))
(global-set-key (kbd "<mouse-9>") (lambda () (interactive) (next-buffer))) (global-set-key (kbd "<mouse-9>") (lambda () (interactive) (next-buffer)))
;;; Scrolling ;;; Scrolling
;;(setq mouse-wheel-scroll-amount '(1)) ; Distance in pixel-resolution to scroll each mouse wheel event. ;; (setq mouse-wheel-scroll-amount '(1)) ; Distance in pixel-resolution to scroll each mouse wheel event.
(setq mouse-wheel-progressive-speed nil) ; Progressive speed is too fast for me. (setq mouse-wheel-progressive-speed nil) ; Progressive speed is too fast for me.
(setq mouse-wheel-tilt-scroll t) ; Turn on horizontal scrolling with mouse wheel (setq mouse-wheel-tilt-scroll t) ; Turn on horizontal scrolling with mouse wheel
(setq mouse-wheel-flip-direction t) ; Swap direction of `wheel-right' and `wheel-left' (setq mouse-wheel-flip-direction t) ; Swap direction of `wheel-right' and `wheel-left'
(setq scroll-conservatively 101) ; 101 minimizes screen movement and maintains point visibility with minimal adjustment
;; for scroll-all-mode add mouse wheel support ;; for scroll-all-mode add mouse wheel support
;; https://www.emacswiki.org/emacs/ScrollAllMode ;; https://www.emacswiki.org/emacs/ScrollAllMode
(defun my-mwheel-scroll-all-function (func &optional arg) (defun my-mwheel-scroll-all-function (func &optional arg)

13
settings/pre-settings.el
View File

@@ -2,12 +2,13 @@
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
;; count startup time ;; count startup time
(add-hook 'emacs-startup-hook ;; Use a hook so the message doesn't get clobbered by other messages. (defun display-startup-time ()
(lambda () "Display the startup time and number of garbage collections."
(message (message "Emacs init loaded in %.2f seconds (Full emacs-startup: %.2fs) with %d garbage collections."
"Emacs ready in %s with %d garbage collections." (float-time (time-subtract after-init-time before-init-time))
(format "%.2f seconds" (float-time (time-subtract after-init-time before-init-time))) (time-to-seconds (time-since before-init-time))
gcs-done))) gcs-done))
(add-hook 'emacs-startup-hook #'display-startup-time 100)
;; omit warnings like: /opt/emacs-conf/lisp/org/oc-basic.el: Warning: ‘buffer-substring’ is an obsolete generalized variable. ;; omit warnings like: /opt/emacs-conf/lisp/org/oc-basic.el: Warning: ‘buffer-substring’ is an obsolete generalized variable.
(setq byte-compile-warnings nil) (setq byte-compile-warnings nil)