# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 941649373 0
# Node ID 6bf33b333eb2fcde1c4833fac5f99905c6f176b5
# Parent  555733a3a38ec33ee0217b1d0ba6b39cfa559969
(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.

diff -r 555733a3a38e -r 6bf33b333eb2 lisp/faces.el
--- 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))