Mercurial > emacs
changeset 3969:6851e4266920
* faces.el (make-face-bold, make-face-italic,
make-face-bold-italic, make-face-unbold, make-face-unitalic):
Properly pass noerror argument to recursive calls.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sun, 04 Jul 1993 01:46:30 +0000 |
| parents | e6f0cff88f06 |
| children | 020fe391d5c1 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Sat Jul 03 21:11:51 1993 +0000 +++ b/lisp/faces.el Sun Jul 04 01:46:30 1993 +0000 @@ -498,7 +498,7 @@ (if (null frame) (let ((frames (frame-list))) (while frames - (make-face-bold face (car frames)) + (make-face-bold face (car frames) noerror) (setq frames (cdr frames)))) (setq face (internal-get-face face frame)) (setq font (or (face-font face frame) @@ -522,7 +522,7 @@ (if (null frame) (let ((frames (frame-list))) (while frames - (make-face-italic face (car frames)) + (make-face-italic face (car frames) noerror) (setq frames (cdr frames)))) (setq face (internal-get-face face frame)) (setq font (or (face-font face frame) @@ -546,7 +546,7 @@ (if (null frame) (let ((frames (frame-list))) (while frames - (make-face-bold-italic face (car frames)) + (make-face-bold-italic face (car frames) noerror) (setq frames (cdr frames)))) (setq face (internal-get-face face frame)) (setq font (or (face-font face frame) @@ -586,7 +586,7 @@ (if (null frame) (let ((frames (frame-list))) (while frames - (make-face-unbold face (car frames)) + (make-face-unbold face (car frames) noerror) (setq frames (cdr frames)))) (setq face (internal-get-face face frame)) (setq font1 (or (face-font face frame) @@ -608,7 +608,7 @@ (if (null frame) (let ((frames (frame-list))) (while frames - (make-face-unitalic face (car frames)) + (make-face-unitalic face (car frames) noerror) (setq frames (cdr frames)))) (setq face (internal-get-face face frame)) (setq font1 (or (face-font face frame)