Mercurial > emacs
comparison lisp/term/x-win.el @ 282:341f07a24b10
*** 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)))))) |