procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Really make `x-scroll-event-delta-factor' dependent on system

Browse source 
* lisp/cus-start.el: Move X specific builtins that start
with "x-" before the catch-all test.
This commit is contained in:
Po Lu 2021-11-29 18:25:10 +08:00
parent 6943786b5c
commit d8dd705e9d
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/cus-start.el
View file

@ -857,6 +857,11 @@ since it could result in memory overflow and make Emacs crash."
(featurep 'gtk))
((string-match "clipboard-manager" (symbol-name symbol))
(boundp 'x-select-enable-clipboard-manager))
((or (equal "scroll-bar-adjust-thumb-portion"
(symbol-name symbol))
(equal "x-scroll-event-delta-factor"
(symbol-name symbol)))
(featurep 'x))
((string-match "\\`x-" (symbol-name symbol))
(fboundp 'x-create-frame))
((string-match "selection" (symbol-name symbol))
@ -877,11 +882,6 @@ since it could result in memory overflow and make Emacs crash."
(symbol-name symbol))
;; Any function from fontset.c will do.
(fboundp 'new-fontset))
((or (equal "scroll-bar-adjust-thumb-portion"
(symbol-name symbol))
(equal "x-scroll-event-delta-factor"
(symbol-name symbol)))
(featurep 'x))
(t t))))
(if (not (boundp symbol))
;; If variables are removed from C code, give an error here!