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

Remove bell function

Browse Source
This commit is contained in:
ink
2020-01-08 19:16:27 +01:00
parent 0c00ef858b
commit 89051d02e5
1 changed files with 9 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
init.el
View File

@@ -165,6 +165,7 @@
auto-save-file-name-transforms `((".*" ,temporary-file-directory t)) auto-save-file-name-transforms `((".*" ,temporary-file-directory t))
undo-tree-auto-save-history t undo-tree-auto-save-history t
vc-mode 1 vc-mode 1
ring-bell-function 'ignore
column-number-mode 1) column-number-mode 1)
(setq-default scroll-up-aggressively 0.01 (setq-default scroll-up-aggressively 0.01
@@ -243,13 +244,9 @@
(define-key minibuffer-local-must-match-map [escape] 'minibuffer-keyboard-quit) (define-key minibuffer-local-must-match-map [escape] 'minibuffer-keyboard-quit)
(define-key minibuffer-local-isearch-map [escape] 'minibuffer-keyboard-quit) (define-key minibuffer-local-isearch-map [escape] 'minibuffer-keyboard-quit)
(defun gcm-scroll-down () (defun gcm-scroll-down () (interactive) (scroll-up 1))
(interactive)
(scroll-up 1))
(defun gcm-scroll-up () (defun gcm-scroll-up () (interactive) (scroll-down 1))
(interactive)
(scroll-down 1))
(global-set-key [(control down)] 'gcm-scroll-down) (global-set-key [(control down)] 'gcm-scroll-down)
(global-set-key [(control up)] 'gcm-scroll-up) (global-set-key [(control up)] 'gcm-scroll-up)
@@ -276,24 +273,19 @@
(add-hook 'linum-before-numbering-hook (add-hook 'linum-before-numbering-hook
(lambda () (lambda ()
(setq-local linum-format-fmt (setq-local linum-format-fmt
(let ((w (length (number-to-string (let ((w (length (number-to-string (count-lines
(count-lines (point-min)
(point-min) (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)
'linum-current-line 'linum-current-line 'linum)))
'linum)))
(propertize (format linum-format-fmt line) 'face face))) (propertize (format linum-format-fmt line) 'face face)))
(setq linum-format 'linum-format-func) (setq linum-format 'linum-format-func)
(add-hook 'find-file-hook (lambda () (add-hook 'find-file-hook (lambda () (linum-mode 1)))
(linum-mode 1))) (add-hook 'eshell-mode-hook (lambda () (linum-mode -1)))
(add-hook 'eshell-mode-hook (lambda ()
(linum-mode -1)))
(linum-mode t) (linum-mode t)