emacs-diffs
[Top][All Lists]
Advanced

[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!



reply via email to

[Prev in Thread] Current Thread [Next in Thread]