Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 321:19dcec799385 r21-0-58

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-58
author cvs
date Mon, 13 Aug 2007 10:46:44 +0200
parents 341dac730539
children f2b5d7006b0a
comparison
equal deleted inserted replaced
320:73c75c43c1f2 321:19dcec799385
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)