Mercurial > emacs

changeset 8149:5e27997957db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-create-frame-with-faces): Ignore case in X resource. (make-face-x-resource-internal): Test underline attribute as boolean.
author Richard M. Stallman <rms@gnu.org>
date Tue, 05 Jul 1994 20:28:33 +0000
parents 0035bfc4bc9d
children 1b4a4f7a6dcb
files lisp/faces.el
diffstat 1 files changed, 9 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Tue Jul 05 20:23:13 1994 +0000
+++ b/lisp/faces.el	Tue Jul 05 20:28:33 1994 +0000
@@ -270,9 +270,12 @@
 ;;		(bgp (or (x-get-resource (concat name ".attributeBackgroundPixmap")
 ;;					 "Face.AttributeBackgroundPixmap")
 ;;			 (and set-anyway (face-background-pixmap face))))
-		(ulp (or (x-get-resource (concat name ".attributeUnderline")
-					 "Face.AttributeUnderline")
-			 (and set-anyway (face-underline-p face))))
+		(ulp (let ((resource (x-get-resource
+				      (concat name ".attributeUnderline")
+				      "Face.AttributeUnderline")))
+		       (if resource
+			   (member (downcase resource) '("on" "true"))
+			 (and set-anyway (face-underline-p face)))))
 		)
 	   (if fn
 	       (condition-case ()
@@ -812,9 +815,9 @@
 
       (if (cdr (or (assq 'reverse parameters)
 		   (assq 'reverse default-frame-alist)
-		   (cons nil
-			 (member (x-get-resource "reverseVideo" "ReverseVideo")
-				 '("on" "true")))))
+		   (cons nil (member (downcase (x-get-resource "reverseVideo"
+							       "ReverseVideo"))
+				     '("on" "true")))))
 	  (let ((params (frame-parameters frame)))
 	    (modify-frame-parameters
 	     frame