diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi index ee86df446a6..5d75e58108c 100644 --- a/doc/lispref/display.texi +++ b/doc/lispref/display.texi @@ -2654,9 +2654,10 @@ used automatically to handle certain shades of gray. @item :font The font used to display the face. Its value should be a font object -or a fontset. @xref{Low-Level Font}, for information about font -objects, font specs, and font entities. @xref{Fontsets}, for -information about fontsets. +or a fontset. If it is a font object, it specifies the font to be +used by the face for displaying ASCII characters. @xref{Low-Level +Font}, for information about font objects, font specs, and font +entities. @xref{Fontsets}, for information about fontsets. @anchor{face-font-attribute} When specifying this attribute using @code{set-face-attribute} or @@ -3100,13 +3101,19 @@ return value is always specified, use a value of @code{default} for @var{inherit}. @defun face-font face &optional frame character -This function returns the name of the font of face @var{face}. +This function returns the name of the font used by the specified +@var{face}. If the optional argument @var{frame} is specified, it returns the name -of the font of @var{face} for that frame. If @var{frame} is omitted or -@code{nil}, the selected frame is used. In the latter case, if the -optional third argument @var{character} is supplied, it returns the font -name used for @var{character}. +of the font of @var{face} for that frame; @var{frame} defaults to the +selected frame if it is @code{nil} or omitted. If @var{frame} is +@code{t}, the function reports on the font defaults for @var{face} to +be used for new frames. + +By default, the returned font is for displaying ASCII characters, but +if @var{frame} is anything but @code{t}, and the optional third +argument @var{character} is supplied, the function returns the font +name used by @var{face} for that character. @end defun @defun face-foreground face &optional frame inherit diff --git a/src/eval.c b/src/eval.c index 1076985d097..4e8a4e9d9da 100644 --- a/src/eval.c +++ b/src/eval.c @@ -1884,7 +1884,7 @@ signal_or_quit (Lisp_Object error_symbol, Lisp_Object data, bool keyboard_quit) && NILP (Vinhibit_debugger)) { ptrdiff_t count = SPECPDL_INDEX (); - specbind (Vdebugger, Qdebug); + specbind (Qdebugger, Qdebug); call_debugger (list2 (Qerror, Fcons (error_symbol, data))); unbind_to (count, Qnil); } @@ -4460,6 +4460,7 @@ might not be safe to continue. */); doc: /* Non-nil means display call stack frames as lists. */); debugger_stack_frame_as_list = 0; + DEFSYM (Qdebugger, "debugger"); DEFVAR_LISP ("debugger", Vdebugger, doc: /* Function to call to invoke debugger. If due to frame exit, args are `exit' and the value being returned; diff --git a/src/xfaces.c b/src/xfaces.c index 6a279f87192..76ce6932023 100644 --- a/src/xfaces.c +++ b/src/xfaces.c @@ -4151,9 +4151,9 @@ If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). The font default for a face is either nil, or a list of the form (bold), (italic) or (bold italic). -If FRAME is omitted or nil, use the selected frame. And, in this case, -if the optional third argument CHARACTER is given, -return the font name used for CHARACTER. */) +If FRAME is omitted or nil, use the selected frame. +If FRAME is anything but t, and the optional third argument CHARACTER +is given, return the font name used by FACE for CHARACTER on FRAME. */) (Lisp_Object face, Lisp_Object frame, Lisp_Object character) { if (EQ (frame, Qt))