Fix last change for non-X platforms

* lisp/cus-start.el: Don't announce
`scroll-bar-adjust-thumb-portion' on non-X systems.

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index e895ebd56921cd45c8cc6c77e403904b6748f65e..45b81e5bc5f72371c452fb3b3ede05d25c51453a 100644 (file)
--- 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))