Mercurial > emacs
comparison lisp/faces.el @ 8515:3043fef029a7
(copy-face): Ignore errors in set-face-font.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 11 Aug 1994 07:11:51 +0000 |
| parents | 4ac21edb9f78 |
| children | 58d6dc80af5c |
comparison
equal
deleted
inserted
replaced
| 8514:66866be86727 | 8515:3043fef029a7 |
|---|---|
| 321 (setq frames (cdr frames))) | 321 (setq frames (cdr frames))) |
| 322 (copy-face old-face new-face t)) | 322 (copy-face old-face new-face t)) |
| 323 (setq old-face (internal-get-face old-face frame)) | 323 (setq old-face (internal-get-face old-face frame)) |
| 324 (setq new-face (or (internal-find-face new-face new-frame) | 324 (setq new-face (or (internal-find-face new-face new-frame) |
| 325 (make-face new-face))) | 325 (make-face new-face))) |
| 326 (set-face-font new-face (face-font old-face frame) new-frame) | 326 (condition-case nil |
| 327 ;; A face that has a global symbolic font modifier such as `bold' | |
| 328 ;; might legitimately get an error here. | |
| 329 ;; Use the frame's default font in that case. | |
| 330 (set-face-font new-face (face-font old-face frame) new-frame) | |
| 331 (error | |
| 332 (set-face-font new-face nil new-frame))) | |
| 327 (set-face-foreground new-face (face-foreground old-face frame) new-frame) | 333 (set-face-foreground new-face (face-foreground old-face frame) new-frame) |
| 328 (set-face-background new-face (face-background old-face frame) new-frame) | 334 (set-face-background new-face (face-background old-face frame) new-frame) |
| 329 ;;; (set-face-background-pixmap | 335 ;;; (set-face-background-pixmap |
| 330 ;;; new-face (face-background-pixmap old-face frame) new-frame) | 336 ;;; new-face (face-background-pixmap old-face frame) new-frame) |
| 331 (set-face-underline-p new-face (face-underline-p old-face frame) | 337 (set-face-underline-p new-face (face-underline-p old-face frame) |