martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(x-create-frame-with-faces): Ignore case in X resource.

Browse Source 
(make-face-x-resource-internal): Test underline attribute as boolean.
This commit is contained in:
Richard M. Stallman
1994-07-05 20:28:33 +00:00
parent 05ef1cdab9
commit 69718e9d7c
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/faces.el
View File

@@ -270,9 +270,12 @@ If the face already exists, it is unmodified."
;; (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 @@ selected frame."
(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