[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master d8dd705: Really make `x-scroll-event-delta-factor' dependent on s
From: |
Po Lu |
Subject: |
master d8dd705: Really make `x-scroll-event-delta-factor' dependent on system |
Date: |
Mon, 29 Nov 2021 05:27:34 -0500 (EST) |
branch: master
commit d8dd705e9d82df96d67d88e1bf90373b6b4fbaa9
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
Really make `x-scroll-event-delta-factor' dependent on system
* lisp/cus-start.el: Move X specific builtins that start
with "x-" before the catch-all test.
---
lisp/cus-start.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 45b81e5..33b861b 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -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!
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master d8dd705: Really make `x-scroll-event-delta-factor' dependent on system,
Po Lu <=