From b5325e7880946f6ced8837e9aa2ca5db9cf85ff0 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 10 Sep 2000 21:55:22 +0000 Subject: [PATCH] (face-x-resources): Make custom type more specific. (frame-background-mode): Use mapc. (region) : Add :version. --- lisp/faces.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index e1eedb84dd8..fa0a68eda6d 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -25,7 +25,9 @@ ;;; Code: (eval-when-compile - (require 'cl)) + (require 'cl) + ;; Warning suppression -- can't require x-win in batch: + (autoload 'xw-defined-colors "x-win")) (require 'cus-face) @@ -274,7 +276,7 @@ Each element has the form (ATTRIBUTE ENTRY1 ENTRY2...) where ATTRIBUTE is the name of a face attribute, and each ENTRY is a cons of the form (RESOURCE . CLASS) with RESOURCE being the resource and CLASS being the X resource class for the attribute." - :type 'sexp + :type '(repeat (cons symbol (repeat (cons string string)))) :group 'faces) @@ -1290,7 +1292,7 @@ this won't have the expected effect." :group 'faces :set #'(lambda (var value) (set-default var value) - (mapcar 'frame-set-background-mode (frame-list))) + (mapc 'frame-set-background-mode (frame-list))) :initialize 'custom-initialize-changed :type '(choice (choice-item dark) (choice-item light) @@ -1568,6 +1570,7 @@ created." (:background "light goldenrod yellow")) (t (:background "gray"))) "Basic face for highlighting the region." + :version "21.1" :group 'basic-faces) -- 2.39.5