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) |