Mercurial > emacs

changeset 31528:a461cad7a942

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(face-x-resources): Make custom type more specific. (frame-background-mode): Use mapc. (region) <defcustom>: Add :version.
author Dave Love <fx@gnu.org>
date Sun, 10 Sep 2000 21:55:22 +0000
parents aa909bf77781
children 7f307e299d03
files lisp/faces.el
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Sun Sep 10 11:19:00 2000 +0000
+++ b/lisp/faces.el	Sun Sep 10 21:55:22 2000 +0000
@@ -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 @@
 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 @@
   :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 @@
      (:background "light goldenrod yellow"))
     (t (:background "gray")))
   "Basic face for highlighting the region."
+  :version "21.1"
   :group 'basic-faces)