aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJan Djärv2011-01-19 23:11:33 +0100
committerJan Djärv2011-01-19 23:11:33 +0100
commitfb9d0f5afc688e0225c173fa85fd0123467be59c (patch)
treecbb26f50e3d5690c2a8178c62c899a5db4fb3932
parent817a735de075cfdb0196eeee8c90435a7cacf13a (diff)
downloademacs-fb9d0f5afc688e0225c173fa85fd0123467be59c.tar.gz
emacs-fb9d0f5afc688e0225c173fa85fd0123467be59c.zip
Fix NextStep build problems with globals.h introducion.
* src/globals.h (struct emacs_globals): Add f_ns_input_file, f_ns_input_font, f_ns_input_fontsize, f_ns_input_line, f_ns_input_color, f_ns_input_text, f_ns_working_text, f_ns_input_spi_name, f_ns_input_spi_arg, f_ns_alternate_modifier, f_ns_right_alternate_modifier, f_ns_command_modifier, f_ns_right_command_modifier, f_ns_control_modifier, f_ns_right_control_modifier, f_ns_function_modifier, f_ns_antialias_text, f_ns_confirm_quit, f_Vns_icon_type_alist, f_Vns_version_string, f_Vns_sent_selection_hooks, f_Vns_lost_selection_hooks, f_Vselection_alist, f_Vns_reg_to_script and corresponding defines. * src/nsfns.m (Vmenu_bar_mode, Vtool_bar_mode): Remove declaration. (Vns_icon_type_alist, Vns_version_string): Move to globals.h. (syms_of_nsfns): Remove & from DEFVAR_LISP calls. * src/nsfont.m (Vns_reg_to_script, ns_antialias_text): Move to globals.h. (syms_of_nsfont): Remove & from DEFVAR_LISP. * src/nsselect.m (Vns_sent_selection_hooks, Vns_lost_selection_hooks (Vselection_alist, Vselection_converter_alist): Move to globals.h. (syms_of_nsselect): Remove & from DEFVAR_LISP. * src/nsterm.m (ns_input_file, ns_input_font, ns_input_fontsize) (ns_input_line, ns_input_color, ns_input_text, ns_working_text) (ns_input_spi_name, ns_input_spi_arg) (ns_alternate_modifier, ns_right_alternate_modifier) (ns_command_modifier, ns_right_command_modifier, ns_control_modifier) (ns_right_control_modifier, ns_function_modifier) (ns_antialias_text, ns_confirm_quit): Move to globals.h. (Vx_toolkit_scroll_bars, x_use_underline_position_properties) (x_underline_at_descent_line): Remove declaration. (syms_of_nsterm): Remove & from DEFVAR_LISP and DEFVAR_BOOL. * src/nsmenu.m (Voverriding_local_map, Voverriding_local_map_menu_flag): Remove declaration.
-rw-r--r--src/ChangeLog41
-rw-r--r--src/globals.h111
-rw-r--r--src/nsfns.m15
-rw-r--r--src/nsfont.m4
-rw-r--r--src/nsmenu.m3
-rw-r--r--src/nsselect.m11
-rw-r--r--src/nsterm.m87
7 files changed, 180 insertions, 92 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 5e50ddb59ee..2f8e7a7ceeb 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,44 @@
12011-01-19 Jan Djärv <jan.h.d@swipnet.se>
2
3 * nsterm.m (ns_input_file, ns_input_font, ns_input_fontsize)
4 (ns_input_line, ns_input_color, ns_input_text, ns_working_text)
5 (ns_input_spi_name, ns_input_spi_arg)
6 (ns_alternate_modifier, ns_right_alternate_modifier)
7 (ns_command_modifier, ns_right_command_modifier, ns_control_modifier)
8 (ns_right_control_modifier, ns_function_modifier)
9 (ns_antialias_text, ns_confirm_quit): Move to globals.h.
10 (Vx_toolkit_scroll_bars, x_use_underline_position_properties)
11 (x_underline_at_descent_line): Remove declaration.
12 (syms_of_nsterm): Remove & from DEFVAR_LISP and DEFVAR_BOOL.
13
14 * nsselect.m (Vns_sent_selection_hooks, Vns_lost_selection_hooks
15 (Vselection_alist, Vselection_converter_alist): Move to globals.h.
16 (syms_of_nsselect): Remove & from DEFVAR_LISP.
17
18 * nsmenu.m (Voverriding_local_map, Voverriding_local_map_menu_flag):
19 Remove declaration.
20
21 * nsfont.m (Vns_reg_to_script, ns_antialias_text): Move to
22 globals.h.
23 (syms_of_nsfont): Remove & from DEFVAR_LISP.
24
25 * nsfns.m (Vmenu_bar_mode, Vtool_bar_mode): Remove declaration.
26 (Vns_icon_type_alist, Vns_version_string): Move to globals.h.
27 (syms_of_nsfns): Remove & from DEFVAR_LISP calls.
28
29 * globals.h (struct emacs_globals): Add f_ns_input_file,
30 f_ns_input_font, f_ns_input_fontsize, f_ns_input_line,
31 f_ns_input_color, f_ns_input_text, f_ns_working_text,
32 f_ns_input_spi_name, f_ns_input_spi_arg, f_ns_alternate_modifier,
33 f_ns_right_alternate_modifier, f_ns_command_modifier,
34 f_ns_right_command_modifier, f_ns_control_modifier,
35 f_ns_right_control_modifier, f_ns_function_modifier,
36 f_ns_antialias_text, f_ns_confirm_quit, f_Vns_icon_type_alist,
37 f_Vns_version_string, f_Vns_sent_selection_hooks,
38 f_Vns_lost_selection_hooks, f_Vselection_alist, f_Vns_reg_to_script
39 and corresponding defines.
40
41
12011-01-19 Sam Steingold <sds@gnu.org> 422011-01-19 Sam Steingold <sds@gnu.org>
2 43
3 * w32.c (check_windows_init_file): Remove declarations of 44 * w32.c (check_windows_init_file): Remove declarations of
diff --git a/src/globals.h b/src/globals.h
index b4aceb4a1e4..f8563c4d939 100644
--- a/src/globals.h
+++ b/src/globals.h
@@ -1695,6 +1695,67 @@ struct emacs_globals
1695 Lisp_Object f_Vx_super_keysym; 1695 Lisp_Object f_Vx_super_keysym;
1696 1696
1697 Lisp_Object f_Vx_keysym_table; 1697 Lisp_Object f_Vx_keysym_table;
1698
1699 /* Lisp communications */
1700 Lisp_Object f_ns_input_file, f_ns_input_font, f_ns_input_fontsize,
1701 f_ns_input_line;
1702 Lisp_Object f_ns_input_color, f_ns_input_text, f_ns_working_text;
1703 Lisp_Object f_ns_input_spi_name, f_ns_input_spi_arg;
1704
1705 /* Specifies which emacs modifier should be generated when NS receives
1706 the Alternate modifier. May be Qnone or any of the modifier lisp symbols.
1707 */
1708 Lisp_Object f_ns_alternate_modifier;
1709
1710 /* Specifies which emacs modifier should be generated when NS receives
1711 the right Alternate modifier. Has same values as ns_alternate_modifier
1712 plus the value Qleft which means whatever value ns_alternate_modifier has.
1713 */
1714 Lisp_Object f_ns_right_alternate_modifier;
1715
1716 /* Specifies which emacs modifier should be generated when NS receives
1717 the Command modifier. May be any of the modifier lisp symbols. */
1718 Lisp_Object f_ns_command_modifier;
1719
1720 /* Specifies which emacs modifier should be generated when NS receives
1721 the right Command modifier. Has same values as ns_command_modifier plus
1722 the value Qleft which means whatever value ns_command_modifier has. */
1723 Lisp_Object f_ns_right_command_modifier;
1724
1725 /* Specifies which emacs modifier should be generated when NS receives
1726 the Control modifier. May be any of the modifier lisp symbols. */
1727 Lisp_Object f_ns_control_modifier;
1728
1729 /* Specifies which emacs modifier should be generated when NS receives
1730 the right Control modifier. Has same values as ns_control_modifier plus
1731 the value Qleft which means whatever value ns_control_modifier has. */
1732 Lisp_Object f_ns_right_control_modifier;
1733
1734 /* Specifies which emacs modifier should be generated when NS receives
1735 the Function modifier (laptops). May be any of the modifier lisp symbols.
1736 */
1737 Lisp_Object f_ns_function_modifier;
1738
1739 /* Control via default 'GSFontAntiAlias' on OS X and GNUstep. */
1740 Lisp_Object f_ns_antialias_text;
1741
1742 /* Confirm on exit. */
1743 Lisp_Object f_ns_confirm_quit;
1744
1745 /* Alist of elements (REGEXP . IMAGE) for images of icons associated
1746 to frames.*/
1747 Lisp_Object f_Vns_icon_type_alist;
1748
1749 /* Toolkit version support. */
1750 Lisp_Object f_Vns_version_string;
1751
1752 Lisp_Object f_Vns_sent_selection_hooks;
1753 Lisp_Object f_Vns_lost_selection_hooks;
1754 Lisp_Object f_Vselection_alist;
1755
1756 Lisp_Object f_Vns_reg_to_script;
1757
1758
1698}; 1759};
1699 1760
1700extern struct emacs_globals globals; 1761extern struct emacs_globals globals;
@@ -2773,3 +2834,53 @@ extern struct emacs_globals globals;
2773 globals.f_x_underline_at_descent_line 2834 globals.f_x_underline_at_descent_line
2774#define x_use_underline_position_properties \ 2835#define x_use_underline_position_properties \
2775 globals.f_x_use_underline_position_properties 2836 globals.f_x_use_underline_position_properties
2837#define ns_input_file \
2838 globals.f_ns_input_file
2839#define ns_input_font \
2840 globals.f_ns_input_font
2841#define ns_input_fontsize \
2842 globals.f_ns_input_fontsize
2843#define ns_input_line \
2844 globals.f_ns_input_line
2845#define ns_input_color \
2846 globals.f_ns_input_color
2847#define ns_input_text \
2848 globals.f_ns_input_text
2849#define ns_working_text \
2850 globals.f_ns_working_text
2851#define ns_input_spi_name \
2852 globals.f_ns_input_spi_name
2853#define ns_input_spi_arg \
2854 globals.f_ns_input_spi_arg
2855#define ns_alternate_modifier \
2856 globals.f_ns_alternate_modifier
2857#define ns_right_alternate_modifier \
2858 globals.f_ns_right_alternate_modifier
2859#define ns_command_modifier \
2860 globals.f_ns_command_modifier
2861#define ns_right_command_modifier \
2862 globals.f_ns_right_command_modifier
2863#define ns_control_modifier \
2864 globals.f_ns_control_modifier
2865#define ns_right_control_modifier \
2866 globals.f_ns_right_control_modifier
2867#define ns_function_modifier \
2868 globals.f_ns_function_modifier
2869#define ns_antialias_text \
2870 globals.f_ns_antialias_text
2871#define ns_confirm_quit \
2872 globals.f_ns_confirm_quit
2873#define Vns_icon_type_alist \
2874 globals.f_Vns_icon_type_alist
2875#define Vns_version_string \
2876 globals.f_Vns_version_string
2877#define Vns_sent_selection_hooks \
2878 globals.f_Vns_sent_selection_hooks
2879#define Vns_lost_selection_hooks \
2880 globals.f_Vns_lost_selection_hooks
2881#define Vselection_alist \
2882 globals.f_Vselection_alist
2883#define Vns_reg_to_script \
2884 globals.f_Vns_reg_to_script
2885
2886
diff --git a/src/nsfns.m b/src/nsfns.m
index b98f8bc815f..b9042c1de60 100644
--- a/src/nsfns.m
+++ b/src/nsfns.m
@@ -82,11 +82,7 @@ extern Lisp_Object Qunderline, Qundefined;
82extern Lisp_Object Qheight, Qminibuffer, Qname, Qonly, Qwidth; 82extern Lisp_Object Qheight, Qminibuffer, Qname, Qonly, Qwidth;
83extern Lisp_Object Qunsplittable, Qmenu_bar_lines, Qbuffer_predicate, Qtitle; 83extern Lisp_Object Qunsplittable, Qmenu_bar_lines, Qbuffer_predicate, Qtitle;
84extern Lisp_Object Qnone; 84extern Lisp_Object Qnone;
85extern Lisp_Object Vframe_title_format, Vicon_title_format;
86 85
87/* The below are defined in frame.c. */
88
89extern Lisp_Object Vmenu_bar_mode, Vtool_bar_mode;
90 86
91Lisp_Object Qbuffered; 87Lisp_Object Qbuffered;
92Lisp_Object Qfontsize; 88Lisp_Object Qfontsize;
@@ -94,13 +90,6 @@ Lisp_Object Qfontsize;
94/* hack for OS X file panels */ 90/* hack for OS X file panels */
95char panelOK = 0; 91char panelOK = 0;
96 92
97/* Alist of elements (REGEXP . IMAGE) for images of icons associated
98 to frames.*/
99static Lisp_Object Vns_icon_type_alist;
100
101/* Toolkit version support. */
102static Lisp_Object Vns_version_string;
103
104EmacsTooltip *ns_tooltip; 93EmacsTooltip *ns_tooltip;
105 94
106/* Need forward declaration here to preserve organizational integrity of file */ 95/* Need forward declaration here to preserve organizational integrity of file */
@@ -2593,7 +2582,7 @@ syms_of_nsfns (void)
2593 Qfontsize = intern_c_string ("fontsize"); 2582 Qfontsize = intern_c_string ("fontsize");
2594 staticpro (&Qfontsize); 2583 staticpro (&Qfontsize);
2595 2584
2596 DEFVAR_LISP ("ns-icon-type-alist", &Vns_icon_type_alist, 2585 DEFVAR_LISP ("ns-icon-type-alist", Vns_icon_type_alist,
2597 doc: /* Alist of elements (REGEXP . IMAGE) for images of icons associated to frames. 2586 doc: /* Alist of elements (REGEXP . IMAGE) for images of icons associated to frames.
2598If the title of a frame matches REGEXP, then IMAGE.tiff is 2587If the title of a frame matches REGEXP, then IMAGE.tiff is
2599selected as the image of the icon representing the frame when it's 2588selected as the image of the icon representing the frame when it's
@@ -2614,7 +2603,7 @@ When you miniaturize a Group, Summary or Article frame, Gnus.tiff will
2614be used as the image of the icon representing the frame. */); 2603be used as the image of the icon representing the frame. */);
2615 Vns_icon_type_alist = Fcons (Qt, Qnil); 2604 Vns_icon_type_alist = Fcons (Qt, Qnil);
2616 2605
2617 DEFVAR_LISP ("ns-version-string", &Vns_version_string, 2606 DEFVAR_LISP ("ns-version-string", Vns_version_string,
2618 doc: /* Toolkit version for NS Windowing. */); 2607 doc: /* Toolkit version for NS Windowing. */);
2619 Vns_version_string = ns_appkit_version_str (); 2608 Vns_version_string = ns_appkit_version_str ();
2620 2609
diff --git a/src/nsfont.m b/src/nsfont.m
index 9dc0fb5160d..03b6d56ef09 100644
--- a/src/nsfont.m
+++ b/src/nsfont.m
@@ -48,10 +48,8 @@ Author: Adrian Robert (arobert@cogsci.ucsd.edu)
48 48
49extern Lisp_Object Qns; 49extern Lisp_Object Qns;
50extern Lisp_Object Qnormal, Qbold, Qitalic, Qcondensed, Qexpanded; 50extern Lisp_Object Qnormal, Qbold, Qitalic, Qcondensed, Qexpanded;
51static Lisp_Object Vns_reg_to_script;
52static Lisp_Object Qapple, Qroman, Qmedium; 51static Lisp_Object Qapple, Qroman, Qmedium;
53extern Lisp_Object Qappend; 52extern Lisp_Object Qappend;
54extern Lisp_Object ns_antialias_text;
55extern float ns_antialias_threshold; 53extern float ns_antialias_threshold;
56extern int ns_tmp_flags; 54extern int ns_tmp_flags;
57extern struct nsfont_info *ns_tmp_font; 55extern struct nsfont_info *ns_tmp_font;
@@ -1517,7 +1515,7 @@ syms_of_nsfont (void)
1517 DEFSYM (Qapple, "apple"); 1515 DEFSYM (Qapple, "apple");
1518 DEFSYM (Qroman, "roman"); 1516 DEFSYM (Qroman, "roman");
1519 DEFSYM (Qmedium, "medium"); 1517 DEFSYM (Qmedium, "medium");
1520 DEFVAR_LISP ("ns-reg-to-script", &Vns_reg_to_script, 1518 DEFVAR_LISP ("ns-reg-to-script", Vns_reg_to_script,
1521 doc: /* Internal use: maps font registry to unicode script. */); 1519 doc: /* Internal use: maps font registry to unicode script. */);
1522} 1520}
1523 1521
diff --git a/src/nsmenu.m b/src/nsmenu.m
index 330a17ab6f8..fb402845cf1 100644
--- a/src/nsmenu.m
+++ b/src/nsmenu.m
@@ -65,8 +65,7 @@ extern Lisp_Object Qundefined, Qmenu_enable, Qmenu_bar_update_hook;
65extern Lisp_Object QCtoggle, QCradio; 65extern Lisp_Object QCtoggle, QCradio;
66 66
67Lisp_Object Qdebug_on_next_call; 67Lisp_Object Qdebug_on_next_call;
68extern Lisp_Object Voverriding_local_map, Voverriding_local_map_menu_flag, 68extern Lisp_Object Qoverriding_local_map, Qoverriding_terminal_local_map;
69 Qoverriding_local_map, Qoverriding_terminal_local_map;
70 69
71extern long context_menu_value; 70extern long context_menu_value;
72EmacsMenu *mainMenu, *svcsMenu, *dockMenu; 71EmacsMenu *mainMenu, *svcsMenu, *dockMenu;
diff --git a/src/nsselect.m b/src/nsselect.m
index 7920918eb6e..041125c0603 100644
--- a/src/nsselect.m
+++ b/src/nsselect.m
@@ -39,11 +39,6 @@ GNUstep port and post-20 update by Adrian Robert (arobert@cogsci.ucsd.edu)
39 39
40Lisp_Object QCLIPBOARD, QSECONDARY, QTEXT, QFILE_NAME; 40Lisp_Object QCLIPBOARD, QSECONDARY, QTEXT, QFILE_NAME;
41 41
42static Lisp_Object Vns_sent_selection_hooks;
43static Lisp_Object Vns_lost_selection_hooks;
44static Lisp_Object Vselection_alist;
45static Lisp_Object Vselection_converter_alist;
46
47static Lisp_Object Qforeign_selection; 42static Lisp_Object Qforeign_selection;
48 43
49/* NSGeneralPboard is pretty much analogous to X11 CLIPBOARD */ 44/* NSGeneralPboard is pretty much analogous to X11 CLIPBOARD */
@@ -568,7 +563,7 @@ syms_of_nsselect (void)
568 Vselection_alist = Qnil; 563 Vselection_alist = Qnil;
569 staticpro (&Vselection_alist); 564 staticpro (&Vselection_alist);
570 565
571 DEFVAR_LISP ("ns-sent-selection-hooks", &Vns_sent_selection_hooks, 566 DEFVAR_LISP ("ns-sent-selection-hooks", Vns_sent_selection_hooks,
572 "A list of functions to be called when Emacs answers a selection request.\n\ 567 "A list of functions to be called when Emacs answers a selection request.\n\
573The functions are called with four arguments:\n\ 568The functions are called with four arguments:\n\
574 - the selection name (typically `PRIMARY', `SECONDARY', or `CLIPBOARD');\n\ 569 - the selection name (typically `PRIMARY', `SECONDARY', or `CLIPBOARD');\n\
@@ -582,7 +577,7 @@ This hook doesn't let you change the behavior of Emacs's selection replies,\n\
582it merely informs you that they have happened."); 577it merely informs you that they have happened.");
583 Vns_sent_selection_hooks = Qnil; 578 Vns_sent_selection_hooks = Qnil;
584 579
585 DEFVAR_LISP ("selection-converter-alist", &Vselection_converter_alist, 580 DEFVAR_LISP ("selection-converter-alist", Vselection_converter_alist,
586 "An alist associating X Windows selection-types with functions.\n\ 581 "An alist associating X Windows selection-types with functions.\n\
587These functions are called to convert the selection, with three args:\n\ 582These functions are called to convert the selection, with three args:\n\
588the name of the selection (typically `PRIMARY', `SECONDARY', or `CLIPBOARD');\n\ 583the name of the selection (typically `PRIMARY', `SECONDARY', or `CLIPBOARD');\n\
@@ -597,7 +592,7 @@ means that a side-effect was executed,\n\
597and there is no meaningful selection value."); 592and there is no meaningful selection value.");
598 Vselection_converter_alist = Qnil; 593 Vselection_converter_alist = Qnil;
599 594
600 DEFVAR_LISP ("ns-lost-selection-hooks", &Vns_lost_selection_hooks, 595 DEFVAR_LISP ("ns-lost-selection-hooks", Vns_lost_selection_hooks,
601 "A list of functions to be called when Emacs loses an X selection.\n\ 596 "A list of functions to be called when Emacs loses an X selection.\n\
602\(This happens when some other X client makes its own selection\n\ 597\(This happens when some other X client makes its own selection\n\
603or when a Lisp program explicitly clears the selection.)\n\ 598or when a Lisp program explicitly clears the selection.)\n\
diff --git a/src/nsterm.m b/src/nsterm.m
index 714b8a03d63..34841387d3b 100644
--- a/src/nsterm.m
+++ b/src/nsterm.m
@@ -135,49 +135,10 @@ static unsigned convert_ns_to_X_keysym[] =
135}; 135};
136 136
137 137
138/* Lisp communications */
139Lisp_Object ns_input_file, ns_input_font, ns_input_fontsize, ns_input_line;
140Lisp_Object ns_input_color, ns_input_text, ns_working_text;
141Lisp_Object ns_input_spi_name, ns_input_spi_arg;
142Lisp_Object Vx_toolkit_scroll_bars;
143static Lisp_Object Qmodifier_value; 138static Lisp_Object Qmodifier_value;
144Lisp_Object Qalt, Qcontrol, Qhyper, Qmeta, Qsuper, Qnone; 139Lisp_Object Qalt, Qcontrol, Qhyper, Qmeta, Qsuper, Qnone;
145extern Lisp_Object Qcursor_color, Qcursor_type, Qns, Qleft; 140extern Lisp_Object Qcursor_color, Qcursor_type, Qns, Qleft;
146 141
147/* Specifies which emacs modifier should be generated when NS receives
148 the Alternate modifier. May be Qnone or any of the modifier lisp symbols. */
149Lisp_Object ns_alternate_modifier;
150
151/* Specifies which emacs modifier should be generated when NS receives
152 the right Alternate modifier. Has same values as ns_alternate_modifier plus
153 the value Qleft which means whatever value ns_alternate_modifier has. */
154Lisp_Object ns_right_alternate_modifier;
155
156/* Specifies which emacs modifier should be generated when NS receives
157 the Command modifier. May be any of the modifier lisp symbols. */
158Lisp_Object ns_command_modifier;
159
160/* Specifies which emacs modifier should be generated when NS receives
161 the right Command modifier. Has same values as ns_command_modifier plus
162 the value Qleft which means whatever value ns_command_modifier has. */
163Lisp_Object ns_right_command_modifier;
164
165/* Specifies which emacs modifier should be generated when NS receives
166 the Control modifier. May be any of the modifier lisp symbols. */
167Lisp_Object ns_control_modifier;
168
169/* Specifies which emacs modifier should be generated when NS receives
170 the right Control modifier. Has same values as ns_control_modifier plus
171 the value Qleft which means whatever value ns_control_modifier has. */
172Lisp_Object ns_right_control_modifier;
173
174/* Specifies which emacs modifier should be generated when NS receives
175 the Function modifier (laptops). May be any of the modifier lisp symbols. */
176Lisp_Object ns_function_modifier;
177
178/* Control via default 'GSFontAntiAlias' on OS X and GNUstep. */
179Lisp_Object ns_antialias_text;
180
181/* On OS X picks up the default NSGlobalDomain AppleAntiAliasingThreshold, 142/* On OS X picks up the default NSGlobalDomain AppleAntiAliasingThreshold,
182 the maximum font size to NOT antialias. On GNUstep there is currently 143 the maximum font size to NOT antialias. On GNUstep there is currently
183 no way to control this behavior. */ 144 no way to control this behavior. */
@@ -186,9 +147,6 @@ float ns_antialias_threshold;
186/* Used to pick up AppleHighlightColor on OS X */ 147/* Used to pick up AppleHighlightColor on OS X */
187NSString *ns_selection_color; 148NSString *ns_selection_color;
188 149
189/* Confirm on exit. */
190Lisp_Object ns_confirm_quit;
191
192NSArray *ns_send_types =0, *ns_return_types =0, *ns_drag_types =0; 150NSArray *ns_send_types =0, *ns_return_types =0, *ns_drag_types =0;
193NSString *ns_app_name = @"Emacs"; /* default changed later */ 151NSString *ns_app_name = @"Emacs"; /* default changed later */
194 152
@@ -303,8 +261,6 @@ static void ns_condemn_scroll_bars (struct frame *f);
303static void ns_judge_scroll_bars (struct frame *f); 261static void ns_judge_scroll_bars (struct frame *f);
304void x_set_frame_alpha (struct frame *f); 262void x_set_frame_alpha (struct frame *f);
305 263
306/* unused variables needed for compatibility reasons */
307int x_use_underline_position_properties, x_underline_at_descent_line;
308/* FIXME: figure out what to do with underline_minimum_offset. */ 264/* FIXME: figure out what to do with underline_minimum_offset. */
309 265
310 266
@@ -3980,7 +3936,6 @@ ns_term_init (Lisp_Object display_name)
3980} 3936}
3981 3937
3982 3938
3983extern Lisp_Object Vauto_save_list_file_name;
3984void 3939void
3985ns_term_shutdown (int sig) 3940ns_term_shutdown (int sig)
3986{ 3941{
@@ -6295,50 +6250,50 @@ syms_of_nsterm (void)
6295 Fput (Qsuper, Qmodifier_value, make_number (super_modifier)); 6250 Fput (Qsuper, Qmodifier_value, make_number (super_modifier));
6296 Fput (Qcontrol, Qmodifier_value, make_number (ctrl_modifier)); 6251 Fput (Qcontrol, Qmodifier_value, make_number (ctrl_modifier));
6297 6252
6298 DEFVAR_LISP ("ns-input-file", &ns_input_file, 6253 DEFVAR_LISP ("ns-input-file", ns_input_file,
6299 "The file specified in the last NS event."); 6254 "The file specified in the last NS event.");
6300 ns_input_file =Qnil; 6255 ns_input_file =Qnil;
6301 6256
6302 DEFVAR_LISP ("ns-input-text", &ns_input_text, 6257 DEFVAR_LISP ("ns-input-text", ns_input_text,
6303 "The data received in the last NS text drag event."); 6258 "The data received in the last NS text drag event.");
6304 ns_input_text =Qnil; 6259 ns_input_text =Qnil;
6305 6260
6306 DEFVAR_LISP ("ns-working-text", &ns_working_text, 6261 DEFVAR_LISP ("ns-working-text", ns_working_text,
6307 "String for visualizing working composition sequence."); 6262 "String for visualizing working composition sequence.");
6308 ns_working_text =Qnil; 6263 ns_working_text =Qnil;
6309 6264
6310 DEFVAR_LISP ("ns-input-font", &ns_input_font, 6265 DEFVAR_LISP ("ns-input-font", ns_input_font,
6311 "The font specified in the last NS event."); 6266 "The font specified in the last NS event.");
6312 ns_input_font =Qnil; 6267 ns_input_font =Qnil;
6313 6268
6314 DEFVAR_LISP ("ns-input-fontsize", &ns_input_fontsize, 6269 DEFVAR_LISP ("ns-input-fontsize", ns_input_fontsize,
6315 "The fontsize specified in the last NS event."); 6270 "The fontsize specified in the last NS event.");
6316 ns_input_fontsize =Qnil; 6271 ns_input_fontsize =Qnil;
6317 6272
6318 DEFVAR_LISP ("ns-input-line", &ns_input_line, 6273 DEFVAR_LISP ("ns-input-line", ns_input_line,
6319 "The line specified in the last NS event."); 6274 "The line specified in the last NS event.");
6320 ns_input_line =Qnil; 6275 ns_input_line =Qnil;
6321 6276
6322 DEFVAR_LISP ("ns-input-color", &ns_input_color, 6277 DEFVAR_LISP ("ns-input-color", ns_input_color,
6323 "The color specified in the last NS event."); 6278 "The color specified in the last NS event.");
6324 ns_input_color =Qnil; 6279 ns_input_color =Qnil;
6325 6280
6326 DEFVAR_LISP ("ns-input-spi-name", &ns_input_spi_name, 6281 DEFVAR_LISP ("ns-input-spi-name", ns_input_spi_name,
6327 "The service name specified in the last NS event."); 6282 "The service name specified in the last NS event.");
6328 ns_input_spi_name =Qnil; 6283 ns_input_spi_name =Qnil;
6329 6284
6330 DEFVAR_LISP ("ns-input-spi-arg", &ns_input_spi_arg, 6285 DEFVAR_LISP ("ns-input-spi-arg", ns_input_spi_arg,
6331 "The service argument specified in the last NS event."); 6286 "The service argument specified in the last NS event.");
6332 ns_input_spi_arg =Qnil; 6287 ns_input_spi_arg =Qnil;
6333 6288
6334 DEFVAR_LISP ("ns-alternate-modifier", &ns_alternate_modifier, 6289 DEFVAR_LISP ("ns-alternate-modifier", ns_alternate_modifier,
6335 "This variable describes the behavior of the alternate or option key.\n\ 6290 "This variable describes the behavior of the alternate or option key.\n\
6336Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\ 6291Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\
6337Set to none means that the alternate / option key is not interpreted by Emacs\n\ 6292Set to none means that the alternate / option key is not interpreted by Emacs\n\
6338at all, allowing it to be used at a lower level for accented character entry."); 6293at all, allowing it to be used at a lower level for accented character entry.");
6339 ns_alternate_modifier = Qmeta; 6294 ns_alternate_modifier = Qmeta;
6340 6295
6341 DEFVAR_LISP ("ns-right-alternate-modifier", &ns_right_alternate_modifier, 6296 DEFVAR_LISP ("ns-right-alternate-modifier", ns_right_alternate_modifier,
6342 "This variable describes the behavior of the right alternate or option key.\n\ 6297 "This variable describes the behavior of the right alternate or option key.\n\
6343Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\ 6298Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\
6344Set to left means be the same key as `ns-alternate-modifier'.\n\ 6299Set to left means be the same key as `ns-alternate-modifier'.\n\
@@ -6346,12 +6301,12 @@ Set to none means that the alternate / option key is not interpreted by Emacs\n\
6346at all, allowing it to be used at a lower level for accented character entry."); 6301at all, allowing it to be used at a lower level for accented character entry.");
6347 ns_right_alternate_modifier = Qleft; 6302 ns_right_alternate_modifier = Qleft;
6348 6303
6349 DEFVAR_LISP ("ns-command-modifier", &ns_command_modifier, 6304 DEFVAR_LISP ("ns-command-modifier", ns_command_modifier,
6350 "This variable describes the behavior of the command key.\n\ 6305 "This variable describes the behavior of the command key.\n\
6351Set to control, meta, alt, super, or hyper means it is taken to be that key."); 6306Set to control, meta, alt, super, or hyper means it is taken to be that key.");
6352 ns_command_modifier = Qsuper; 6307 ns_command_modifier = Qsuper;
6353 6308
6354 DEFVAR_LISP ("ns-right-command-modifier", &ns_right_command_modifier, 6309 DEFVAR_LISP ("ns-right-command-modifier", ns_right_command_modifier,
6355 "This variable describes the behavior of the right command key.\n\ 6310 "This variable describes the behavior of the right command key.\n\
6356Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\ 6311Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\
6357Set to left means be the same key as `ns-command-modifier'.\n\ 6312Set to left means be the same key as `ns-command-modifier'.\n\
@@ -6359,12 +6314,12 @@ Set to none means that the command / option key is not interpreted by Emacs\n\
6359at all, allowing it to be used at a lower level for accented character entry."); 6314at all, allowing it to be used at a lower level for accented character entry.");
6360 ns_right_command_modifier = Qleft; 6315 ns_right_command_modifier = Qleft;
6361 6316
6362 DEFVAR_LISP ("ns-control-modifier", &ns_control_modifier, 6317 DEFVAR_LISP ("ns-control-modifier", ns_control_modifier,
6363 "This variable describes the behavior of the control key.\n\ 6318 "This variable describes the behavior of the control key.\n\
6364Set to control, meta, alt, super, or hyper means it is taken to be that key."); 6319Set to control, meta, alt, super, or hyper means it is taken to be that key.");
6365 ns_control_modifier = Qcontrol; 6320 ns_control_modifier = Qcontrol;
6366 6321
6367 DEFVAR_LISP ("ns-right-control-modifier", &ns_right_control_modifier, 6322 DEFVAR_LISP ("ns-right-control-modifier", ns_right_control_modifier,
6368 "This variable describes the behavior of the right control key.\n\ 6323 "This variable describes the behavior of the right control key.\n\
6369Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\ 6324Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\
6370Set to left means be the same key as `ns-control-modifier'.\n\ 6325Set to left means be the same key as `ns-control-modifier'.\n\
@@ -6372,18 +6327,18 @@ Set to none means that the control / option key is not interpreted by Emacs\n\
6372at all, allowing it to be used at a lower level for accented character entry."); 6327at all, allowing it to be used at a lower level for accented character entry.");
6373 ns_right_control_modifier = Qleft; 6328 ns_right_control_modifier = Qleft;
6374 6329
6375 DEFVAR_LISP ("ns-function-modifier", &ns_function_modifier, 6330 DEFVAR_LISP ("ns-function-modifier", ns_function_modifier,
6376 "This variable describes the behavior of the function key (on laptops).\n\ 6331 "This variable describes the behavior of the function key (on laptops).\n\
6377Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\ 6332Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\
6378Set to none means that the function key is not interpreted by Emacs at all,\n\ 6333Set to none means that the function key is not interpreted by Emacs at all,\n\
6379allowing it to be used at a lower level for accented character entry."); 6334allowing it to be used at a lower level for accented character entry.");
6380 ns_function_modifier = Qnone; 6335 ns_function_modifier = Qnone;
6381 6336
6382 DEFVAR_LISP ("ns-antialias-text", &ns_antialias_text, 6337 DEFVAR_LISP ("ns-antialias-text", ns_antialias_text,
6383 "Non-nil (the default) means to render text antialiased. Only has an effect on OS X Panther and above."); 6338 "Non-nil (the default) means to render text antialiased. Only has an effect on OS X Panther and above.");
6384 ns_antialias_text = Qt; 6339 ns_antialias_text = Qt;
6385 6340
6386 DEFVAR_LISP ("ns-confirm-quit", &ns_confirm_quit, 6341 DEFVAR_LISP ("ns-confirm-quit", ns_confirm_quit,
6387 "Whether to confirm application quit using dialog."); 6342 "Whether to confirm application quit using dialog.");
6388 ns_confirm_quit = Qnil; 6343 ns_confirm_quit = Qnil;
6389 6344
@@ -6394,7 +6349,7 @@ allowing it to be used at a lower level for accented character entry.");
6394 last_mouse_motion_frame = Qnil; 6349 last_mouse_motion_frame = Qnil;
6395 6350
6396 /* TODO: move to common code */ 6351 /* TODO: move to common code */
6397 DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars, 6352 DEFVAR_LISP ("x-toolkit-scroll-bars", Vx_toolkit_scroll_bars,
6398 doc: /* If not nil, Emacs uses toolkit scroll bars. */); 6353 doc: /* If not nil, Emacs uses toolkit scroll bars. */);
6399#ifdef USE_TOOLKIT_SCROLL_BARS 6354#ifdef USE_TOOLKIT_SCROLL_BARS
6400 Vx_toolkit_scroll_bars = Qt; 6355 Vx_toolkit_scroll_bars = Qt;
@@ -6405,7 +6360,7 @@ allowing it to be used at a lower level for accented character entry.");
6405 /* these are unsupported but we need the declarations to avoid whining 6360 /* these are unsupported but we need the declarations to avoid whining
6406 messages from cus-start.el */ 6361 messages from cus-start.el */
6407 DEFVAR_BOOL ("x-use-underline-position-properties", 6362 DEFVAR_BOOL ("x-use-underline-position-properties",
6408 &x_use_underline_position_properties, 6363 x_use_underline_position_properties,
6409 doc: /* NOT SUPPORTED UNDER NS. 6364 doc: /* NOT SUPPORTED UNDER NS.
6410*Non-nil means make use of UNDERLINE_POSITION font properties. 6365*Non-nil means make use of UNDERLINE_POSITION font properties.
6411A value of nil means ignore them. If you encounter fonts with bogus 6366A value of nil means ignore them. If you encounter fonts with bogus
@@ -6416,7 +6371,7 @@ NOTE: Not supported on Mac yet. */);
6416 x_use_underline_position_properties = 0; 6371 x_use_underline_position_properties = 0;
6417 6372
6418 DEFVAR_BOOL ("x-underline-at-descent-line", 6373 DEFVAR_BOOL ("x-underline-at-descent-line",
6419 &x_underline_at_descent_line, 6374 x_underline_at_descent_line,
6420 doc: /* NOT SUPPORTED UNDER NS. 6375 doc: /* NOT SUPPORTED UNDER NS.
6421*Non-nil means to draw the underline at the same place as the descent line. 6376*Non-nil means to draw the underline at the same place as the descent line.
6422A value of nil means to draw the underline according to the value of the 6377A value of nil means to draw the underline according to the value of the