diff options
author | Martin Rudalics <rudalics@gmx.at> | 2007-10-12 08:34:26 +0000 |
---|---|---|
committer | Martin Rudalics <rudalics@gmx.at> | 2007-10-12 08:34:26 +0000 |
commit | 96b379ba9b9d1b731e17a952bbe6ecbc0ddc3ea5 (patch) | |
tree | afa639a01b063c79d9843d5a8eee5519807de9e4 /src/frame.c | |
parent | 134b1ecce52f4166eb8894e092a903d6ac23ce50 (diff) | |
download | emacs-96b379ba9b9d1b731e17a952bbe6ecbc0ddc3ea5.tar.gz |
(Qexplicit_name): New variable.
(x_report_frame_params): Report it in parameter alist.
(syms_of_frame): Intern and staticpro it.
Diffstat (limited to 'src/frame.c')
-rw-r--r-- | src/frame.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/frame.c b/src/frame.c index a47dff82f5d..df98475d7b3 100644 --- a/src/frame.c +++ b/src/frame.c @@ -100,6 +100,7 @@ Lisp_Object Qouter_window_id; #endif Lisp_Object Qparent_id; Lisp_Object Qtitle, Qname; +Lisp_Object Qexplicit_name; Lisp_Object Qunsplittable; Lisp_Object Qmenu_bar_lines, Qtool_bar_lines; Lisp_Object Qleft_fringe, Qright_fringe; @@ -3006,6 +3007,7 @@ x_report_frame_params (f, alistptr) tem = Qnil; else XSETFASTINT (tem, FRAME_X_OUTPUT (f)->parent_desc); + store_in_alist (alistptr, Qexplicit_name, (f->explicit_name ? Qt : Qnil)); store_in_alist (alistptr, Qparent_id, tem); } @@ -3967,6 +3969,8 @@ syms_of_frame () staticpro (&Qframep); Qframe_live_p = intern ("frame-live-p"); staticpro (&Qframe_live_p); + Qexplicit_name = intern ("explicit-name"); + staticpro (&Qexplicit_name); Qheight = intern ("height"); staticpro (&Qheight); Qicon = intern ("icon"); |