mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(hilit-lookup-face-create): Don't put string values into the global face-font

Browse Source 
data.
This commit is contained in:
Karl Heuer 1994-05-06 03:07:23 +00:00
parent 00d3d838ef
commit ed6bdcdd65
1 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/hilit19.el
View File

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