From: Alan Third <alan@idiocy.org>
To: "Charles A. Roelli" <charles@aurox.ch>
Cc: homeros.misasa@gmail.com, emacs-devel@gnu.org
Subject: Re: Smoother macOS touchpad scrolling
Date: Mon, 18 Sep 2017 20:03:37 +0100 [thread overview]
Message-ID: <20170918190337.GA16455@breton.holly.idiocy.org> (raw)
In-Reply-To: <m2k20vnah8.fsf@aurox.ch>
On Mon, Sep 18, 2017 at 08:10:59PM +0200, Charles A. Roelli wrote:
> With macOS 10.6, I haven't found Emacs scrolling with the touchpad to
> be too unusual, maybe just a bit clunky. Wouldn't the following code
> also affect 10.6?
You’re right.
Can you confirm that this doesn’t return true on 10.6?
(let ((appkit-version (progn (string-match "^appkit-\\([^\s-]*\\)"
ns-version-string)
(match-string 1 ns-version-string))))
(>= (string-to-number appkit-version) 1138))
> > +(when (featurep 'cocoa)
> > + (setq mouse-wheel-scroll-amount '(1 ((shift) . 5) ((control))))
> > + (setq mouse-wheel-progressive-speed nil))
>
> Also, won't these variable changes make Customize report that their
> values were "changed outside Customize"?
I have absolutely no idea...
Customize is something I’ve largely done my best to avoid, so I don’t
know how I should go about setting them in a way that’s friendly to
it.
Something like this?
(let ((appkit-version (progn
(string-match "^appkit-\\([^\s-]*\\)" ns-version-string)
(match-string 1 ns-version-string))))
(when (and (featurep 'cocoa) (>= (string-to-number 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))))))
It looks pretty messy.
--
Alan Third
next prev parent reply other threads:[~2017-09-18 19:03 UTC|newest]
Thread overview: 17+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-09-08 18:46 Smoother macOS touchpad scrolling Alan Third
2017-09-08 22:21 ` Tak Kunihiro
2017-09-09 8:18 ` Alan Third
2017-09-10 1:20 ` Tak Kunihiro
2017-09-10 8:37 ` Alan Third
2017-09-11 18:09 ` Alan Third
2017-09-12 1:54 ` James Nguyen
2017-09-12 17:03 ` Alan Third
2017-09-12 23:13 ` Tak Kunihiro
2017-09-13 16:26 ` Better macOS scrolling (was: Smoother macOS touchpad scrolling) Alan Third
2017-09-13 22:52 ` Better macOS scrolling Tak Kunihiro
2017-09-16 22:33 ` Smoother macOS touchpad scrolling Alan Third
2017-09-18 18:10 ` Charles A. Roelli
2017-09-18 18:57 ` Charles A. Roelli
2017-09-18 19:03 ` Alan Third [this message]
2017-09-18 20:19 ` Charles A. Roelli
2017-09-19 19:12 ` Alan Third
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20170918190337.GA16455@breton.holly.idiocy.org \
--to=alan@idiocy.org \
--cc=charles@aurox.ch \
--cc=emacs-devel@gnu.org \
--cc=homeros.misasa@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.