Mercurial > emacs

changeset 5199:b8b8063551e1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-face-unitalic, make-face-unbold, make-face-bold) (make-face-bold-italic, make-face-italic): If frame is t, do the special handling only if face-font is a list.
author Richard M. Stallman <rms@gnu.org>
date Sat, 27 Nov 1993 07:52:47 +0000
parents 1f14aa44c786
children 1006461bf759
files lisp/faces.el
diffstat 1 files changed, 16 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Sat Nov 27 07:52:19 1993 +0000
+++ b/lisp/faces.el	Sat Nov 27 07:52:47 1993 +0000
@@ -504,7 +504,7 @@
   "Make the font of the given face be bold, if possible.  
 If NOERROR is non-nil, return nil on failure."
   (interactive (list (read-face-name "Make which face bold: ")))
-  (if (eq frame t)
+  (if (and (eq frame t) (listp (face-font face t)))
       (set-face-font face (if (memq 'italic (face-font face t))
 			      '(bold italic) '(bold))
 		     t)
@@ -541,7 +541,7 @@
   "Make the font of the given face be italic, if possible.  
 If NOERROR is non-nil, return nil on failure."
   (interactive (list (read-face-name "Make which face italic: ")))
-  (if (eq frame t)
+  (if (and (eq frame t) (listp (face-font face t)))
       (set-face-font face (if (memq 'bold (face-font face t))
 			      '(bold italic) '(italic))
 		     t)
@@ -578,7 +578,7 @@
   "Make the font of the given face be bold and italic, if possible.  
 If NOERROR is non-nil, return nil on failure."
   (interactive (list (read-face-name "Make which face bold-italic: ")))
-  (if (eq frame t)
+  (if (and (eq frame t) (listp (face-font face t)))
       (set-face-font face '(bold italic) t)
     (let ((ofont (face-font face frame))
 	  font)
@@ -630,7 +630,7 @@
   "Make the font of the given face be non-bold, if possible.  
 If NOERROR is non-nil, return nil on failure."
   (interactive (list (read-face-name "Make which face non-bold: ")))
-  (if (eq frame t)
+  (if (and (eq frame t) (listp (face-font face t)))
       (set-face-font face (if (memq 'italic (face-font face t))
 			      '(italic) nil)
 		     t)
@@ -662,7 +662,7 @@
   "Make the font of the given face be non-italic, if possible.  
 If NOERROR is non-nil, return nil on failure."
   (interactive (list (read-face-name "Make which face non-italic: ")))
-  (if (eq frame t)
+  (if (and (eq frame t) (listp (face-font face t)))
       (set-face-font face (if (memq 'bold (face-font face t))
 			      '(bold) nil)
 		     t)
@@ -892,15 +892,17 @@
       ;; Also fill them in from X resources.
       (while rest
 	(setcdr (car rest) (copy-sequence (cdr (car rest))))
-	(if (listp (face-font (cdr (car rest))))
-	    (let ((bold (memq 'bold (face-font (cdr (car rest)))))
-		  (italic (memq 'italic (face-font (cdr (car rest))))))
-	      (if (and bold italic)
-		  (make-face-bold-italic (car (car rest)) frame)
-		(if bold
-		    (make-face-bold (car (car rest)) frame)
-		  (if italic
-		      (make-face-italic (car (car rest)) frame))))))
+	(condition-case nil
+	    (if (listp (face-font (cdr (car rest))))
+		(let ((bold (memq 'bold (face-font (cdr (car rest)))))
+		      (italic (memq 'italic (face-font (cdr (car rest))))))
+		  (if (and bold italic)
+		      (make-face-bold-italic (car (car rest)) frame)
+		    (if bold
+			(make-face-bold (car (car rest)) frame)
+		      (if italic
+			  (make-face-italic (car (car rest)) frame))))))
+	  (error nil))
 	(make-face-x-resource-internal (cdr (car rest)) frame t)
 	(setq rest (cdr rest)))