# HG changeset patch # User Eli Zaretskii # Date 1126282883 0 # Node ID 27b65d33884f5cd8455780d012edb10ca1c821fe # Parent 5888f8ee2138407ca9211daf0ae7b2b1a5799ebe (all): Don't complain about fringe-related built-ins if fringes are not supported. Ditto about selection-related built-ins. Fix the test for GTK-related built-ins. diff -r 5888f8ee2138 -r 27b65d33884f lisp/cus-start.el --- a/lisp/cus-start.el Fri Sep 09 13:42:01 2005 +0000 +++ b/lisp/cus-start.el Fri Sep 09 16:21:23 2005 +0000 @@ -366,9 +366,15 @@ ((string-match "\\`w32-" (symbol-name symbol)) (eq system-type 'windows-nt)) ((string-match "\\`x-.*gtk" (symbol-name symbol)) - (or (boundp 'gtk) (not (eq system-type 'windows-nt)))) + (or (boundp 'gtk) + (and (display-graphic-p) + (not (eq system-type 'windows-nt))))) ((string-match "\\`x-" (symbol-name symbol)) (fboundp 'x-create-frame)) + ((string-match "selection" (symbol-name symbol)) + (fboundp 'x-selection-exists-p)) + ((string-match "fringe" (symbol-name symbol)) + (fboundp 'define-fringe-bitmap)) (t t)))) (if (not (boundp symbol)) ;; If variables are removed from C code, give an error here!