From: Noam Postavsky <npostavs@gmail.com>
To: Robert Pluim <rpluim@gmail.com>
Cc: 35389@debbugs.gnu.org
Subject: bug#35389: 27.0.50; [PATCH] Emacs on macOS sets mouse-wheel variables directly
Date: Tue, 23 Apr 2019 07:17:24 -0400 [thread overview]
Message-ID: <87y341q8cb.fsf@gmail.com> (raw)
In-Reply-To: <m27eblcatc.fsf@gmail.com> (Robert Pluim's message of "Tue, 23 Apr 2019 11:47:43 +0200")
Robert Pluim <rpluim@gmail.com> writes:
> I use the cus-edit+ package, which prompts you to save unsaved
> customizations when you exit emacs. This triggers for me all the time,
> because lisp/term/ns-win.el does 'setq' on mouse-wheel-scroll-amount
> and mouse-wheel-progressive-speed, which I think is a no-no. The patch
> below fixes it for me, but Iʼm utterly ignorant of customize, so
> perhaps itʼs not the correct fix.
I think it should work to change customized-value to standard-value.
--- i/lisp/term/ns-win.el
+++ w/lisp/term/ns-win.el
@@ -746,11 +746,11 @@ (when (featurep 'cocoa)
;; 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
+ (put 'mouse-wheel-scroll-amount 'standard-value
(list (custom-quote (symbol-value 'mouse-wheel-scroll-amount))))
(setq mouse-wheel-progressive-speed nil)
- (put 'mouse-wheel-progressive-speed 'customized-value
+ (put 'mouse-wheel-progressive-speed 'standard-value
(list (custom-quote
(symbol-value 'mouse-wheel-progressive-speed)))))))
next prev parent reply other threads:[~2019-04-23 11:17 UTC|newest]
Thread overview: 33+ messages / expand[flat|nested] mbox.gz Atom feed top
2019-04-23 9:47 bug#35389: 27.0.50; [PATCH] Emacs on macOS sets mouse-wheel variables directly Robert Pluim
2019-04-23 11:17 ` Noam Postavsky [this message]
2019-04-23 11:38 ` Robert Pluim
2019-05-10 15:29 ` Robert Pluim
2019-05-10 19:53 ` Eli Zaretskii
2019-05-10 21:25 ` Alan Third
2019-05-11 6:12 ` Eli Zaretskii
2019-05-11 9:54 ` Robert Pluim
2019-05-11 10:58 ` Eli Zaretskii
2019-05-11 22:50 ` Alan Third
2019-05-12 4:58 ` Eli Zaretskii
2019-05-12 11:05 ` Alan Third
2019-05-12 14:36 ` Eli Zaretskii
2019-05-19 12:41 ` Alan Third
2019-05-12 23:29 ` Tak Kunihiro
2019-05-13 14:26 ` Eli Zaretskii
2019-05-16 9:00 ` Tak Kunihiro
2019-05-16 13:55 ` Eli Zaretskii
2019-05-16 23:24 ` Tak Kunihiro
2019-05-17 5:39 ` Eli Zaretskii
2019-05-18 8:50 ` Tak Kunihiro
2019-05-18 9:16 ` Eli Zaretskii
2019-05-19 12:32 ` Alan Third
2019-05-22 6:22 ` Eli Zaretskii
2019-05-23 4:24 ` Tak Kunihiro
2019-05-23 4:55 ` Eli Zaretskii
2019-06-06 2:21 ` Tak Kunihiro
2019-06-07 18:31 ` Alan Third
2020-08-10 11:32 ` Lars Ingebrigtsen
2020-08-10 13:04 ` Robert Pluim
2020-08-10 13:19 ` Lars Ingebrigtsen
2019-05-11 22:53 ` Alan Third
2019-05-11 23:06 ` 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=87y341q8cb.fsf@gmail.com \
--to=npostavs@gmail.com \
--cc=35389@debbugs.gnu.org \
--cc=rpluim@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.