(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.

2 files changed, 14 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04102abf88d..48e3cacb3a8 100644
--- 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 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))