write-mode: remove vestigial code
This commit is contained in:
parent
18ac014f44
commit
7b8f1ef412
1 changed files with 3 additions and 3 deletions
|
@ -19,7 +19,7 @@
|
||||||
|
|
||||||
(defun write-mode-toggle ()
|
(defun write-mode-toggle ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(let* ((mode-p (or (not arg) write-mode))
|
(let* ((mode-p write-mode)
|
||||||
(on-off (if mode-p -1 +1)))
|
(on-off (if mode-p -1 +1)))
|
||||||
(disable-theme (if mode-p write-mode-theme narf-theme))
|
(disable-theme (if mode-p write-mode-theme narf-theme))
|
||||||
(scroll-bar-mode on-off)
|
(scroll-bar-mode on-off)
|
||||||
|
@ -29,8 +29,8 @@
|
||||||
(volatile-highlights-mode (not on-off)))
|
(volatile-highlights-mode (not on-off)))
|
||||||
(when IS-MAC
|
(when IS-MAC
|
||||||
;; sane trackpad/mouse scroll settings
|
;; sane trackpad/mouse scroll settings
|
||||||
(setq mac-mouse-wheel-smooth-scroll on-off
|
(setq mac-mouse-wheel-smooth-scroll (not mode-p)
|
||||||
mouse-wheel-progressive-speed on-off))
|
mouse-wheel-progressive-speed (not mode-p)))
|
||||||
(mapc (lambda (b)
|
(mapc (lambda (b)
|
||||||
(with-current-buffer b
|
(with-current-buffer b
|
||||||
(setq line-spacing (if mode-p write-mode--last-line-spacing '2))
|
(setq line-spacing (if mode-p write-mode--last-line-spacing '2))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue