From 7b8f1ef4121b168f84531806555af2f0b628525b Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 29 Jan 2016 07:10:26 -0500 Subject: [PATCH] write-mode: remove vestigial code --- modules/module-write.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/modules/module-write.el b/modules/module-write.el index b1b100ee3..6a60ade28 100644 --- a/modules/module-write.el +++ b/modules/module-write.el @@ -19,7 +19,7 @@ (defun write-mode-toggle () (interactive) - (let* ((mode-p (or (not arg) write-mode)) + (let* ((mode-p write-mode) (on-off (if mode-p -1 +1))) (disable-theme (if mode-p write-mode-theme narf-theme)) (scroll-bar-mode on-off) @@ -29,8 +29,8 @@ (volatile-highlights-mode (not on-off))) (when IS-MAC ;; sane trackpad/mouse scroll settings - (setq mac-mouse-wheel-smooth-scroll on-off - mouse-wheel-progressive-speed on-off)) + (setq mac-mouse-wheel-smooth-scroll (not mode-p) + mouse-wheel-progressive-speed (not mode-p))) (mapc (lambda (b) (with-current-buffer b (setq line-spacing (if mode-p write-mode--last-line-spacing '2))