write-mode: remove vestigial code

This commit is contained in:
Henrik Lissner 2016-01-29 07:10:26 -05:00
parent 18ac014f44
commit 7b8f1ef412

View file

@ -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))