X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/68395b70ec9564298aa91d5231f01388859666cb..f70e9e1e64e5e48823bc4a1ba585e0a615ef28bc:/lisp/hilit19.el

diff --git a/lisp/hilit19.el b/lisp/hilit19.el
index 348b6c55a3..4813033bf5 100644
--- a/lisp/hilit19.el
+++ b/lisp/hilit19.el
@@ -1,5 +1,5 @@
 ;; hilit19.el (Release 2.19) -- customizable highlighting for Emacs19.
-;; Copyright (c) 1993 Free Software Foundation, Inc.
+;; Copyright (c) 1993, 1994 Free Software Foundation, Inc.
 ;;
 ;; Author:   Jonathan Stigelman <Stig@netcom.com>
 ;; Keywords: faces
@@ -132,9 +132,6 @@
 ;;
 ;; KNOWN BUGS/TO DO LIST/HELP WANTED/APPLY WITHIN
 ;;
-;; * When more than one size of font is used in different frames, only one
-;;   font size can have bold & italic properties.
-;;
 ;; * unbalanced, unescaped double quote characters can confuse hilit19.
 ;;   This will be fixed someday, so don't bug me about it.
 ;;
@@ -637,17 +634,11 @@ See the documentation for hilit-translate and hilit-face-translation-table."
 	    (set-face-font face nil frame)
 	    (set-face-underline-p face (string-match "underline" fn))
 	    (if (string-match ".*bold" fn)
-		(progn
-		  ;; first, fix up this frame's face
-		  (make-face-bold face frame  'noerr)
-		  ;; now, fix up the face from the global list
-		  (set-face-font face (face-font face frame) t)))
+		;; make face bold in all frames
+		(make-face-bold face nil 'noerr))
 	    (if (string-match ".*italic" fn)
-		(progn
-		  ;; first, fix up this frame's face
-		  (make-face-italic face frame 'noerr)
-		  ;; now, fix up the face from the global list
-		  (set-face-font face (face-font face frame) t)))
+		;; make face italic in all frames
+		(make-face-italic face nil 'noerr))
 	    ))
       )))
   face)