Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 219:262b8bb4a523 r20-4b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b8
author cvs
date Mon, 13 Aug 2007 10:09:35 +0200
parents d44af0c54775
children 0e522484dd2a
comparison
equal deleted inserted replaced
218:c9f226976f56 219:262b8bb4a523
1235 ;; Oh well, get it then. 1235 ;; Oh well, get it then.
1236 (setq cache (extract-custom-frame-properties frame)) 1236 (setq cache (extract-custom-frame-properties frame))
1237 ;; and cache it... 1237 ;; and cache it...
1238 (set-frame-property frame 'custom-properties cache)) 1238 (set-frame-property frame 'custom-properties cache))
1239 cache)) 1239 cache))
1240 (default-custom-frame-properties) 1240 ;; We avoid this cache, because various frame and device
1241 ;; properties can change.
1242 ;;(default-custom-frame-properties)
1241 (t 1243 (t
1242 (setq default-custom-frame-properties 1244 (setq default-custom-frame-properties
1243 (extract-custom-frame-properties (selected-frame)))))) 1245 (extract-custom-frame-properties (selected-frame))))))
1244 1246
1245 (defun face-spec-set-match-display (display frame) 1247 (defun face-spec-set-match-display (display frame)