diff options
| author | Jan Djärv | 2011-01-19 23:11:33 +0100 |
|---|---|---|
| committer | Jan Djärv | 2011-01-19 23:11:33 +0100 |
| commit | fb9d0f5afc688e0225c173fa85fd0123467be59c (patch) | |
| tree | cbb26f50e3d5690c2a8178c62c899a5db4fb3932 /src | |
| parent | 817a735de075cfdb0196eeee8c90435a7cacf13a (diff) | |
| download | emacs-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.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 41 | ||||
| -rw-r--r-- | src/globals.h | 111 | ||||
| -rw-r--r-- | src/nsfns.m | 15 | ||||
| -rw-r--r-- | src/nsfont.m | 4 | ||||
| -rw-r--r-- | src/nsmenu.m | 3 | ||||
| -rw-r--r-- | src/nsselect.m | 11 | ||||
| -rw-r--r-- | src/nsterm.m | 87 |
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 @@ | |||
| 1 | 2011-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 | |||
| 1 | 2011-01-19 Sam Steingold <sds@gnu.org> | 42 | 2011-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 | ||
| 1700 | extern struct emacs_globals globals; | 1761 | extern 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; | |||
| 82 | extern Lisp_Object Qheight, Qminibuffer, Qname, Qonly, Qwidth; | 82 | extern Lisp_Object Qheight, Qminibuffer, Qname, Qonly, Qwidth; |
| 83 | extern Lisp_Object Qunsplittable, Qmenu_bar_lines, Qbuffer_predicate, Qtitle; | 83 | extern Lisp_Object Qunsplittable, Qmenu_bar_lines, Qbuffer_predicate, Qtitle; |
| 84 | extern Lisp_Object Qnone; | 84 | extern Lisp_Object Qnone; |
| 85 | extern Lisp_Object Vframe_title_format, Vicon_title_format; | ||
| 86 | 85 | ||
| 87 | /* The below are defined in frame.c. */ | ||
| 88 | |||
| 89 | extern Lisp_Object Vmenu_bar_mode, Vtool_bar_mode; | ||
| 90 | 86 | ||
| 91 | Lisp_Object Qbuffered; | 87 | Lisp_Object Qbuffered; |
| 92 | Lisp_Object Qfontsize; | 88 | Lisp_Object Qfontsize; |
| @@ -94,13 +90,6 @@ Lisp_Object Qfontsize; | |||
| 94 | /* hack for OS X file panels */ | 90 | /* hack for OS X file panels */ |
| 95 | char panelOK = 0; | 91 | char panelOK = 0; |
| 96 | 92 | ||
| 97 | /* Alist of elements (REGEXP . IMAGE) for images of icons associated | ||
| 98 | to frames.*/ | ||
| 99 | static Lisp_Object Vns_icon_type_alist; | ||
| 100 | |||
| 101 | /* Toolkit version support. */ | ||
| 102 | static Lisp_Object Vns_version_string; | ||
| 103 | |||
| 104 | EmacsTooltip *ns_tooltip; | 93 | EmacsTooltip *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. |
| 2598 | If the title of a frame matches REGEXP, then IMAGE.tiff is | 2587 | If the title of a frame matches REGEXP, then IMAGE.tiff is |
| 2599 | selected as the image of the icon representing the frame when it's | 2588 | selected 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 | |||
| 2614 | be used as the image of the icon representing the frame. */); | 2603 | be 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 | ||
| 49 | extern Lisp_Object Qns; | 49 | extern Lisp_Object Qns; |
| 50 | extern Lisp_Object Qnormal, Qbold, Qitalic, Qcondensed, Qexpanded; | 50 | extern Lisp_Object Qnormal, Qbold, Qitalic, Qcondensed, Qexpanded; |
| 51 | static Lisp_Object Vns_reg_to_script; | ||
| 52 | static Lisp_Object Qapple, Qroman, Qmedium; | 51 | static Lisp_Object Qapple, Qroman, Qmedium; |
| 53 | extern Lisp_Object Qappend; | 52 | extern Lisp_Object Qappend; |
| 54 | extern Lisp_Object ns_antialias_text; | ||
| 55 | extern float ns_antialias_threshold; | 53 | extern float ns_antialias_threshold; |
| 56 | extern int ns_tmp_flags; | 54 | extern int ns_tmp_flags; |
| 57 | extern struct nsfont_info *ns_tmp_font; | 55 | extern 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; | |||
| 65 | extern Lisp_Object QCtoggle, QCradio; | 65 | extern Lisp_Object QCtoggle, QCradio; |
| 66 | 66 | ||
| 67 | Lisp_Object Qdebug_on_next_call; | 67 | Lisp_Object Qdebug_on_next_call; |
| 68 | extern Lisp_Object Voverriding_local_map, Voverriding_local_map_menu_flag, | 68 | extern Lisp_Object Qoverriding_local_map, Qoverriding_terminal_local_map; |
| 69 | Qoverriding_local_map, Qoverriding_terminal_local_map; | ||
| 70 | 69 | ||
| 71 | extern long context_menu_value; | 70 | extern long context_menu_value; |
| 72 | EmacsMenu *mainMenu, *svcsMenu, *dockMenu; | 71 | EmacsMenu *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 | ||
| 40 | Lisp_Object QCLIPBOARD, QSECONDARY, QTEXT, QFILE_NAME; | 40 | Lisp_Object QCLIPBOARD, QSECONDARY, QTEXT, QFILE_NAME; |
| 41 | 41 | ||
| 42 | static Lisp_Object Vns_sent_selection_hooks; | ||
| 43 | static Lisp_Object Vns_lost_selection_hooks; | ||
| 44 | static Lisp_Object Vselection_alist; | ||
| 45 | static Lisp_Object Vselection_converter_alist; | ||
| 46 | |||
| 47 | static Lisp_Object Qforeign_selection; | 42 | static 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\ |
| 573 | The functions are called with four arguments:\n\ | 568 | The 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\ | |||
| 582 | it merely informs you that they have happened."); | 577 | it 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\ |
| 587 | These functions are called to convert the selection, with three args:\n\ | 582 | These functions are called to convert the selection, with three args:\n\ |
| 588 | the name of the selection (typically `PRIMARY', `SECONDARY', or `CLIPBOARD');\n\ | 583 | the name of the selection (typically `PRIMARY', `SECONDARY', or `CLIPBOARD');\n\ |
| @@ -597,7 +592,7 @@ means that a side-effect was executed,\n\ | |||
| 597 | and there is no meaningful selection value."); | 592 | and 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\ |
| 603 | or when a Lisp program explicitly clears the selection.)\n\ | 598 | or 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 */ | ||
| 139 | Lisp_Object ns_input_file, ns_input_font, ns_input_fontsize, ns_input_line; | ||
| 140 | Lisp_Object ns_input_color, ns_input_text, ns_working_text; | ||
| 141 | Lisp_Object ns_input_spi_name, ns_input_spi_arg; | ||
| 142 | Lisp_Object Vx_toolkit_scroll_bars; | ||
| 143 | static Lisp_Object Qmodifier_value; | 138 | static Lisp_Object Qmodifier_value; |
| 144 | Lisp_Object Qalt, Qcontrol, Qhyper, Qmeta, Qsuper, Qnone; | 139 | Lisp_Object Qalt, Qcontrol, Qhyper, Qmeta, Qsuper, Qnone; |
| 145 | extern Lisp_Object Qcursor_color, Qcursor_type, Qns, Qleft; | 140 | extern 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. */ | ||
| 149 | Lisp_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. */ | ||
| 154 | Lisp_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. */ | ||
| 158 | Lisp_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. */ | ||
| 163 | Lisp_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. */ | ||
| 167 | Lisp_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. */ | ||
| 172 | Lisp_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. */ | ||
| 176 | Lisp_Object ns_function_modifier; | ||
| 177 | |||
| 178 | /* Control via default 'GSFontAntiAlias' on OS X and GNUstep. */ | ||
| 179 | Lisp_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 */ |
| 187 | NSString *ns_selection_color; | 148 | NSString *ns_selection_color; |
| 188 | 149 | ||
| 189 | /* Confirm on exit. */ | ||
| 190 | Lisp_Object ns_confirm_quit; | ||
| 191 | |||
| 192 | NSArray *ns_send_types =0, *ns_return_types =0, *ns_drag_types =0; | 150 | NSArray *ns_send_types =0, *ns_return_types =0, *ns_drag_types =0; |
| 193 | NSString *ns_app_name = @"Emacs"; /* default changed later */ | 151 | NSString *ns_app_name = @"Emacs"; /* default changed later */ |
| 194 | 152 | ||
| @@ -303,8 +261,6 @@ static void ns_condemn_scroll_bars (struct frame *f); | |||
| 303 | static void ns_judge_scroll_bars (struct frame *f); | 261 | static void ns_judge_scroll_bars (struct frame *f); |
| 304 | void x_set_frame_alpha (struct frame *f); | 262 | void x_set_frame_alpha (struct frame *f); |
| 305 | 263 | ||
| 306 | /* unused variables needed for compatibility reasons */ | ||
| 307 | int 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 | ||
| 3983 | extern Lisp_Object Vauto_save_list_file_name; | ||
| 3984 | void | 3939 | void |
| 3985 | ns_term_shutdown (int sig) | 3940 | ns_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\ |
| 6336 | Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\ | 6291 | Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\ |
| 6337 | Set to none means that the alternate / option key is not interpreted by Emacs\n\ | 6292 | Set to none means that the alternate / option key is not interpreted by Emacs\n\ |
| 6338 | at all, allowing it to be used at a lower level for accented character entry."); | 6293 | at 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\ |
| 6343 | Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\ | 6298 | Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\ |
| 6344 | Set to left means be the same key as `ns-alternate-modifier'.\n\ | 6299 | Set 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\ | |||
| 6346 | at all, allowing it to be used at a lower level for accented character entry."); | 6301 | at 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\ |
| 6351 | Set to control, meta, alt, super, or hyper means it is taken to be that key."); | 6306 | Set 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\ |
| 6356 | Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\ | 6311 | Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\ |
| 6357 | Set to left means be the same key as `ns-command-modifier'.\n\ | 6312 | Set 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\ | |||
| 6359 | at all, allowing it to be used at a lower level for accented character entry."); | 6314 | at 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\ |
| 6364 | Set to control, meta, alt, super, or hyper means it is taken to be that key."); | 6319 | Set 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\ |
| 6369 | Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\ | 6324 | Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\ |
| 6370 | Set to left means be the same key as `ns-control-modifier'.\n\ | 6325 | Set 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\ | |||
| 6372 | at all, allowing it to be used at a lower level for accented character entry."); | 6327 | at 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\ |
| 6377 | Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\ | 6332 | Set to control, meta, alt, super, or hyper means it is taken to be that key.\n\ |
| 6378 | Set to none means that the function key is not interpreted by Emacs at all,\n\ | 6333 | Set to none means that the function key is not interpreted by Emacs at all,\n\ |
| 6379 | allowing it to be used at a lower level for accented character entry."); | 6334 | allowing 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. |
| 6411 | A value of nil means ignore them. If you encounter fonts with bogus | 6366 | A 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. |
| 6422 | A value of nil means to draw the underline according to the value of the | 6377 | A value of nil means to draw the underline according to the value of the |