X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/018bdf7528d0d4bb0560d86b84c21ae9fed1206a..9bf31d1d3f35880c652f76509d1e27d33e454121:/src/fontset.c diff --git a/src/fontset.c b/src/fontset.c index 0485f6bfd4..67696d0fea 100644 --- a/src/fontset.c +++ b/src/fontset.c @@ -13,8 +13,8 @@ This file is part of GNU Emacs. GNU Emacs is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by -the Free Software Foundation, either version 3 of the License, or -(at your option) any later version. +the Free Software Foundation, either version 3 of the License, or (at +your option) any later version. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of @@ -750,7 +750,8 @@ fontset_find_font (Lisp_Object fontset, int c, struct face *face, static Lisp_Object fontset_font (Lisp_Object fontset, int c, struct face *face, int id) { - Lisp_Object rfont_def, default_rfont_def IF_LINT (= Qnil); + Lisp_Object rfont_def; + Lisp_Object default_rfont_def UNINIT; Lisp_Object base_fontset; /* Try a font-group of FONTSET. */ @@ -1304,7 +1305,7 @@ free_realized_fontsets (Lisp_Object base) { struct frame *f = XFRAME (FONTSET_FRAME (this)); int face_id = XINT (XCDR (XCAR (tail))); - struct face *face = FACE_FROM_ID (f, face_id); + struct face *face = FACE_FROM_ID_OR_NULL (f, face_id); /* Face THIS itself is also freed by the following call. */ free_realized_face (f, face); @@ -1636,7 +1637,7 @@ appended. By default, FONT-SPEC overrides the previous settings. */) continue; if (fontset_id != FRAME_FONTSET (f)) continue; - face = FACE_FROM_ID (f, DEFAULT_FACE_ID); + face = FACE_FROM_ID_OR_NULL (f, DEFAULT_FACE_ID); if (face) font_object = font_load_for_lface (f, face->lface, font_spec); else