Mercurial > hg > xemacs-beta

comparison lisp/custom.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
570 (nreverse (cdr (member elt (reverse list))))) 570 (nreverse (cdr (member elt (reverse list)))))
571 571
572 (defun custom-theme-value (theme theme-spec-list) 572 (defun custom-theme-value (theme theme-spec-list)
573 "Determine the value for THEME defined by THEME-SPEC-LIST. 573 "Determine the value for THEME defined by THEME-SPEC-LIST.
574 Returns (list value) if found. Nil otherwise." 574 Returns (list value) if found. Nil otherwise."
575 ;; Note we do _NOT_ singal an error if the theme is unkown 575 ;; Note we do _NOT_ signal an error if the theme is unknown
576 ;; it might have gone away without the user knowing. 576 ;; it might have gone away without the user knowing.
577 (let ((theme-or-lower (memq theme (cons 'user custom-loaded-themes))) 577 (let ((theme-or-lower (memq theme (cons 'user custom-loaded-themes)))
578 value) 578 value)
579 (mapc #'(lambda (theme-spec) 579 (mapc #'(lambda (theme-spec)
580 (when (member (car theme-spec) theme-or-lower) 580 (when (member (car theme-spec) theme-or-lower)