Mercurial > emacs

comparison lisp/cus-start.el @ 90227:10fe5fadaf89

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-81 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 532-541) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 112-115) - Update from CVS
author Miles Bader <miles@gnu.org>
date Sun, 11 Sep 2005 22:21:01 +0000
parents 2d92f5c9d6ae 4b9f048f9a7e
children 5e2d3828e89f
comparison
equal deleted inserted replaced
90226:df78f2fb8f6a 90227:10fe5fadaf89
367 ((string-match "\\`dos-" (symbol-name symbol)) 367 ((string-match "\\`dos-" (symbol-name symbol))
368 (eq system-type 'ms-dos)) 368 (eq system-type 'ms-dos))
369 ((string-match "\\`w32-" (symbol-name symbol)) 369 ((string-match "\\`w32-" (symbol-name symbol))
370 (eq system-type 'windows-nt)) 370 (eq system-type 'windows-nt))
371 ((string-match "\\`x-.*gtk" (symbol-name symbol)) 371 ((string-match "\\`x-.*gtk" (symbol-name symbol))
372 (or (boundp 'gtk) (not (eq system-type 'windows-nt)))) 372 (or (boundp 'gtk)
373 (and window-system
374 (not (eq window-system 'pc))
375 (not (eq system-type 'windows-nt)))))
373 ((string-match "\\`x-" (symbol-name symbol)) 376 ((string-match "\\`x-" (symbol-name symbol))
374 (fboundp 'x-create-frame)) 377 (fboundp 'x-create-frame))
378 ((string-match "selection" (symbol-name symbol))
379 (fboundp 'x-selection-exists-p))
380 ((string-match "fringe" (symbol-name symbol))
381 (fboundp 'define-fringe-bitmap))
375 (t t)))) 382 (t t))))
376 (if (not (boundp symbol)) 383 (if (not (boundp symbol))
377 ;; If variables are removed from C code, give an error here! 384 ;; If variables are removed from C code, give an error here!
378 (and native-p 385 (and native-p
379 (message "Note, built-in variable `%S' not bound" symbol)) 386 (message "Note, built-in variable `%S' not bound" symbol))