ink/.emacs.d
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

better scroll

Browse Source
This commit is contained in:
Iñaki Domínguez Ochoa
2018-09-21 14:04:34 +02:00
committed by GitHub
parent 39dc24edfe
commit 3c72294435
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
init.el
View File

@@ -39,11 +39,13 @@
mouse-wheel-scroll-amount '(1 ((shift) . 1)) mouse-wheel-scroll-amount '(1 ((shift) . 1))
mouse-wheel-progressive-speed nil mouse-wheel-progressive-speed nil
mouse-wheel-follow-mouse 't mouse-wheel-follow-mouse 't
scroll-margin 1 ;; scroll-margin 1
scroll-conservatively 0 scroll-conservatively 10000
scroll-up-aggressively 0.01 ;; scroll-up-aggressively 0.01
scroll-down-aggressively 0.01 ;; scroll-down-aggressively 0.01
scroll-step 1 scroll-step 1
auto-save-interval 1000
auto-window-vscroll nil
backup-by-copying t backup-by-copying t
backup-directory-alist '(("." . "~/.saves")) backup-directory-alist '(("." . "~/.saves"))
undo-tree-history-directory-alist '(("." . "~/.undo-tree")) undo-tree-history-directory-alist '(("." . "~/.undo-tree"))
@@ -231,6 +233,7 @@
(point-max)))))) (point-max))))))
(concat " %" (number-to-string w) "d "))))) (concat " %" (number-to-string w) "d ")))))
(defun linum-format-func (line) (defun linum-format-func (line)
(let ((face (let ((face
(if (= line linum-current-line) (if (= line linum-current-line)