diff options
| author | Gerd Moellmann <gerd@gnu.org> | 1999-11-03 17:17:28 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 1999-11-03 17:17:28 +0000 |
| commit | 39cac3e78f3387c6ea06276d5dd56d9726e30163 (patch) | |
| tree | 062fbd461d54365b6df987b516ed6c12acb59eee /lisp/faces.el | |
| parent | b51b619b17e1e87e15ea5984660022d259bde9eb (diff) | |
| download | emacs-39cac3e78f3387c6ea06276d5dd56d9726e30163.tar.gz | |
(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.
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 83af2d40f94..e016814fe95 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -548,39 +548,43 @@ must be t or nil in that case. A value of `unspecified' is not allowed." (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)) |