(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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04102abf88d1ab4754b3b8768f0831abc27b2d19..48e3cacb3a898750ec1bb4b83aee5bccee44b92a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 1999-11-03  Gerd Moellmann  <gerd@gnu.org>
 
+       * faces.el (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.
+
        * isearch.el (isearch-complete-edit, isearch-ring-advance-edit):
        Use erase-field instead of erase-buffer.
 

diff --git a/lisp/faces.el b/lisp/faces.el
index 83af2d40f948d1c42a49e1c2ac715f0285aed471..e016814fe9553842bf1d2aefd9eba631cd90fd44 100644 (file)
--- 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))