Mercurial > emacs
changeset 26337:6bf33b333eb2
(make-face-bold, make-face-unbold, make-face-italic)
(make-face-unitalic, make-face-bold-italic): Add NOERROR argument
for compatibility with old face implementation.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 03 Nov 1999 17:16:13 +0000 |
| parents | 555733a3a38e |
| children | 5a357bdec3e3 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 10 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Wed Nov 03 16:27:34 1999 +0000 +++ b/lisp/faces.el Wed Nov 03 17:16:13 1999 +0000 @@ -548,39 +548,43 @@ (setq args (cdr (cdr args))))))) -(defun make-face-bold (face &optional frame) +(defun make-face-bold (face &optional frame noerror) "Make the font of FACE be bold, if possible. FRAME nil or not specified means change face on all frames. +Argument NOERROR is ignored and retained for compatibility. Use `set-face-attribute' for finer control of the font weight." (interactive (list (read-face-name "Make which face bold: "))) (set-face-attribute face frame :weight 'bold)) -(defun make-face-unbold (face &optional frame) +(defun make-face-unbold (face &optional frame noerror) "Make the font of FACE be non-bold, if possible. -FRAME nil or not specified means change face on all frames." +FRAME nil or not specified means change face on all frames. +Argument NOERROR is ignored and retained for compatibility." (interactive (list (read-face-name "Make which face non-bold: "))) (set-face-attribute face frame :weight 'normal)) -(defun make-face-italic (face &optional frame) +(defun make-face-italic (face &optional frame noerror) "Make the font of FACE be italic, if possible. FRAME nil or not specified means change face on all frames. +Argument NOERROR is ignored and retained for compatibility. Use `set-face-attribute' for finer control of the font slant." (interactive (list (read-face-name "Make which face italic: "))) (set-face-attribute face frame :slant 'italic)) -(defun make-face-unitalic (face &optional frame) +(defun make-face-unitalic (face &optional frame noerror) "Make the font of FACE be non-italic, if possible. FRAME nil or not specified means change face on all frames." (interactive (list (read-face-name "Make which face non-italic: "))) (set-face-attribute face frame :slant 'normal)) -(defun make-face-bold-italic (face &optional frame) +(defun make-face-bold-italic (face &optional frame noerror) "Make the font of FACE be bold and italic, if possible. FRAME nil or not specified means change face on all frames. +Argument NOERROR is ignored and retained for compatibility. Use `set-face-attribute' for finer control of font weight and slant." (interactive (list (read-face-name "Make which face bold-italic: "))) (set-face-attribute face frame :weight 'bold :slant 'italic))