From 4320180111422ad803f26a30e616f1f18efedb65 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Mon, 29 Nov 2021 17:19:27 +0800 Subject: [PATCH] Fix last change for non-X platforms * lisp/cus-start.el: Don't announce `scroll-bar-adjust-thumb-portion' on non-X systems. --- lisp/cus-start.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/cus-start.el b/lisp/cus-start.el index e895ebd5692..45b81e5bc5f 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -877,8 +877,10 @@ since it could result in memory overflow and make Emacs crash." (symbol-name symbol)) ;; Any function from fontset.c will do. (fboundp 'new-fontset)) - ((equal "scroll-bar-adjust-thumb-portion" - (symbol-name symbol)) + ((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)) -- 2.39.2