diff options
author | Alan Third <alan@breton-build.holly.idiocy.org> | 2017-08-15 09:58:33 +0100 |
---|---|---|
committer | Alan Third <alan@breton-build.holly.idiocy.org> | 2017-08-15 09:58:33 +0100 |
commit | 7abb5c39601a420bf74db41e2d70f8e36d07e349 (patch) | |
tree | 8385a054e9b6e758cfee62a03a5f42754434ca02 | |
parent | 07ea5ef99a509622981a8ca69aadff15cbc0ef10 (diff) | |
download | emacs-7abb5c3960.tar.gz |
Fix ns-win.el on GNUstep
* lisp/term/ns-win.el: Appkit version check only works on macOS, so
don't try it when not using Cocoa.
-rw-r--r-- | lisp/term/ns-win.el | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index bc211ea9589..16633792e4f 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -741,18 +741,20 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.") ;; FIXME: This doesn't look right. Is there a better way to do this ;; that keeps customize happy? -(let ((appkit-version (progn - (string-match "^appkit-\\([^\s-]*\\)" ns-version-string) - (string-to-number (match-string 1 ns-version-string))))) - ;; Appkit 1138 ~= macOS 10.7. - (when (and (featurep 'cocoa) (>= 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) - (put 'mouse-wheel-progressive-speed 'customized-value - (list (custom-quote (symbol-value 'mouse-wheel-progressive-speed)))))) +(when (featurep 'cocoa) + (let ((appkit-version + (progn (string-match "^appkit-\\([^\s-]*\\)" ns-version-string) + (string-to-number (match-string 1 ns-version-string))))) + ;; Appkit 1138 ~= macOS 10.7. + (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) + (put 'mouse-wheel-progressive-speed 'customized-value + (list (custom-quote + (symbol-value 'mouse-wheel-progressive-speed))))))) ;;;; Color support. |