From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 3 Nov 1999 17:17:28 +0000 (+0000)
Subject: (make-face-bold, make-face-unbold, make-face-italic)
X-Git-Tag: emacs-pretest-21.0.90~6184
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=39cac3e78f3387c6ea06276d5dd56d9726e30163;p=emacs.git

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