Mercurial > emacs

comparison lisp/term/x-win.el @ 281:38eb4a29516b

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:29:13 +0000
parents 481ba9350304
children 341f07a24b10
comparison
equal deleted inserted replaced
280:e6f9ccb230ad 281:38eb4a29516b
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 (car 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-default (nth 2 key-resname-default)) 202 (or (x-get-resource (nth 2 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))))))