Mercurial > hg > xemacs-beta
comparison lisp/faces.el @ 440:8de8e3f6228a r21-2-28
Import from CVS: tag r21-2-28
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:33:38 +0200 |
| parents | 3ecd8885ac67 |
| children | abe6d1db359e |
comparison
equal
deleted
inserted
replaced
| 439:357dd071b03c | 440:8de8e3f6228a |
|---|---|
| 1358 "Initialize frame-local custom faces for FRAME if necessary." | 1358 "Initialize frame-local custom faces for FRAME if necessary." |
| 1359 (unless (equal (get-custom-frame-properties) | 1359 (unless (equal (get-custom-frame-properties) |
| 1360 (get-custom-frame-properties frame)) | 1360 (get-custom-frame-properties frame)) |
| 1361 (initialize-custom-faces frame))) | 1361 (initialize-custom-faces frame))) |
| 1362 | 1362 |
| 1363 (defun startup-initialize-custom-faces () | |
| 1364 "Reset faces created by defface. Only called at startup. | |
| 1365 Don't use this function in your program." | |
| 1366 (when default-custom-frame-properties | |
| 1367 ;; Reset default value to the actual frame, not stream. | |
| 1368 (setq default-custom-frame-properties | |
| 1369 (extract-custom-frame-properties (selected-frame))) | |
| 1370 ;; like initialize-custom-faces but removes property first. | |
| 1371 (mapc (lambda (symbol) | |
| 1372 (let ((spec (or (get symbol 'saved-face) | |
| 1373 (get symbol 'face-defface-spec)))) | |
| 1374 (when spec | |
| 1375 ;; Reset faces created during auto-autoloads loading. | |
| 1376 (reset-face symbol) | |
| 1377 ;; And set it according to the spec. | |
| 1378 (face-display-set symbol spec nil)))) | |
| 1379 (face-list)))) | |
| 1380 | |
| 1363 | 1381 |
| 1364 (defun make-empty-face (name &optional doc-string temporary) | 1382 (defun make-empty-face (name &optional doc-string temporary) |
| 1365 "Like `make-face', but doesn't query the resource database." | 1383 "Like `make-face', but doesn't query the resource database." |
| 1366 (let ((init-face-from-resources nil)) | 1384 (let ((init-face-from-resources nil)) |
| 1367 (make-face name doc-string temporary))) | 1385 (make-face name doc-string temporary))) |
| 1519 | 1537 |
| 1520 ;; Similar for italic. | 1538 ;; Similar for italic. |
| 1521 ;; It's unreasonable to expect to be able to make a font italic all | 1539 ;; It's unreasonable to expect to be able to make a font italic all |
| 1522 ;; the time. For many languages, italic is an alien concept. | 1540 ;; the time. For many languages, italic is an alien concept. |
| 1523 ;; Basically, because italic is not a globally meaningful concept, | 1541 ;; Basically, because italic is not a globally meaningful concept, |
| 1524 ;; the use of the italic face should really be oboleted. | 1542 ;; the use of the italic face should really be obsoleted. |
| 1525 | 1543 |
| 1526 ;; I disagree with above. In many languages, the concept of capital | 1544 ;; I disagree with above. In many languages, the concept of capital |
| 1527 ;; letters is just as alien, and yet we use them. Italic is here to | 1545 ;; letters is just as alien, and yet we use them. Italic is here to |
| 1528 ;; stay. -hniksic | 1546 ;; stay. -hniksic |
| 1529 | 1547 |