Mercurial > emacs

comparison lisp/term/x-win.el @ 282:341f07a24b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Thu, 23 May 1991 00:42:33 +0000
parents 38eb4a29516b
children d14d86137063
comparison
equal deleted inserted replaced
281:38eb4a29516b 282:341f07a24b10
194 "Reread the X defaults from the X server and install them in 194 "Reread the X defaults from the X server and install them in
195 `screen-default-alist', to be used in new screens." 195 `screen-default-alist', to be used in new screens."
196 (interactive) 196 (interactive)
197 (mapcar (function 197 (mapcar (function
198 (lambda (key-resname-default) 198 (lambda (key-resname-default)
199 (let* ((key (car key-resname-default)) 199 (let* ((key (nth 0 key-resname-default))
200 (tail (assq key screen-default-alist)) 200 (tail (assq key screen-default-alist))
201 (value 201 (value
202 (or (x-get-resource (nth 2 key-resname-default)) 202 (or (x-get-resource (nth 1 key-resname-default))
203 (nth 3 key-resname-default)))) 203 (nth 3 key-resname-default))))
204 (if tail (setcdr tail value) 204 (if tail (setcdr tail value)
205 (setq screen-default-alist 205 (setq screen-default-alist
206 (cons (cons key value) 206 (cons (cons key value)
207 screen-default-alist)))))) 207 screen-default-alist))))))