Commit 9f4c945b authored by Tak Kunihiro's avatar Tak Kunihiro Committed by Alan Third

Make mouse-wheel-scroll-amount consistent among platforms

* lisp/term/ns-win.el (mouse-wheel-scroll-amount): Do not put any
values on mouse-wheel-scroll-amount on ns.
parent 348657cc
Pipeline #1924 failed with stage
in 4 seconds
...@@ -745,10 +745,6 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.") ...@@ -745,10 +745,6 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
(string-to-number (match-string 1 ns-version-string))))) (string-to-number (match-string 1 ns-version-string)))))
;; Appkit 1138 ~= macOS 10.7. ;; Appkit 1138 ~= macOS 10.7.
(when (>= appkit-version 1138) (when (>= appkit-version 1138)
(setq mouse-wheel-scroll-amount '(1 ((shift) . 5) ((control))))
(put 'mouse-wheel-scroll-amount 'customized-value
(list (custom-quote (symbol-value 'mouse-wheel-scroll-amount))))
(setq mouse-wheel-progressive-speed nil) (setq mouse-wheel-progressive-speed nil)
(put 'mouse-wheel-progressive-speed 'customized-value (put 'mouse-wheel-progressive-speed 'customized-value
(list (custom-quote (list (custom-quote
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment