Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 377:d883f39b8495 r21-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b4
author cvs
date Mon, 13 Aug 2007 11:05:42 +0200
parents 6240c7796c7a
children 064ab7fed2e0
comparison
equal deleted inserted replaced
376:e2295b4d9f2e 377:d883f39b8495
1247 ;; Oh well, get it then. 1247 ;; Oh well, get it then.
1248 (setq cache (extract-custom-frame-properties frame)) 1248 (setq cache (extract-custom-frame-properties frame))
1249 ;; and cache it... 1249 ;; and cache it...
1250 (set-frame-property frame 'custom-properties cache)) 1250 (set-frame-property frame 'custom-properties cache))
1251 cache)) 1251 cache))
1252 ;; We avoid this cache, because various frame and device 1252 (default-custom-frame-properties)
1253 ;; properties can change.
1254 ;;(default-custom-frame-properties)
1255 (t 1253 (t
1256 (setq default-custom-frame-properties 1254 (setq default-custom-frame-properties
1257 (extract-custom-frame-properties (selected-frame)))))) 1255 (extract-custom-frame-properties (selected-frame))))))
1258 1256
1259 (defun face-spec-update-all-matching (spec display plist) 1257 (defun face-spec-update-all-matching (spec display plist)