aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorJan Djärv2014-11-01 12:41:50 +0100
committerJan Djärv2014-11-01 12:41:50 +0100
commit711066c8c14c8bd2b7ca88fda3d9847b6622b148 (patch)
treec8a677b22f06316722a1cb70e8be4314619de89a /src
parent722afcab51adbc97b5cc5679c87ed2115259a9a7 (diff)
downloademacs-711066c8c14c8bd2b7ca88fda3d9847b6622b148.tar.gz
emacs-711066c8c14c8bd2b7ca88fda3d9847b6622b148.zip
nsselect.m cleanup, remove unused, declare vars static.
* nsselect.m (QCLIPBOARD, QSECONDARY, QTEXT, QFILE_NAME) (NXPrimaryPboard, NXSecondaryPboard): Declare static. (Qforeign_selection): Remove. (ns_get_local_selection): Identation fix. (syms_of_nsselect): Remove Qforeign_selection, ns-lost-selection-hooks
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog8
-rw-r--r--src/nsselect.m21
2 files changed, 11 insertions, 18 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 6580ce2d7ac..0ddc2659512 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,10 +1,16 @@
12014-11-01 Jan Djärv <jan.h.d@swipnet.se> 12014-11-01 Jan Djärv <jan.h.d@swipnet.se>
2 2
3 * nsselect.m (QCLIPBOARD, QSECONDARY, QTEXT, QFILE_NAME)
4 (NXPrimaryPboard, NXSecondaryPboard): Declare static.
5 (Qforeign_selection): Remove.
6 (ns_get_local_selection): Identation fix.
7 (syms_of_nsselect): Remove Qforeign_selection, ns-lost-selection-hooks
8
3 * nsselect.m (ns_get_local_selection): Remove calling of 9 * nsselect.m (ns_get_local_selection): Remove calling of
4 functions in Vselection_converter_alist (Bug#18911). 10 functions in Vselection_converter_alist (Bug#18911).
5 (syms_of_nsselect): Remove Vselection_converter_alist. 11 (syms_of_nsselect): Remove Vselection_converter_alist.
6 12
72014-10-31 Dmitry Antipov <dmantipov@yandex.ru> 13(2014-10-31 Dmitry Antipov <dmantipov@yandex.ru>
8 14
9 * font.c (copy_font_spec): Redesign to avoid Fcopy_alist 15 * font.c (copy_font_spec): Redesign to avoid Fcopy_alist
10 and unnecessary initialization. Adjust comments. 16 and unnecessary initialization. Adjust comments.
diff --git a/src/nsselect.m b/src/nsselect.m
index 8d3b567e796..bcf2ac1fe63 100644
--- a/src/nsselect.m
+++ b/src/nsselect.m
@@ -34,15 +34,13 @@ GNUstep port and post-20 update by Adrian Robert (arobert@cogsci.ucsd.edu)
34#include "termhooks.h" 34#include "termhooks.h"
35#include "keyboard.h" 35#include "keyboard.h"
36 36
37Lisp_Object QCLIPBOARD, QSECONDARY, QTEXT, QFILE_NAME; 37static Lisp_Object QCLIPBOARD, QSECONDARY, QTEXT, QFILE_NAME;
38 38
39static Lisp_Object Vselection_alist; 39static Lisp_Object Vselection_alist;
40 40
41static Lisp_Object Qforeign_selection;
42
43/* NSGeneralPboard is pretty much analogous to X11 CLIPBOARD */ 41/* NSGeneralPboard is pretty much analogous to X11 CLIPBOARD */
44NSString *NXPrimaryPboard; 42static NSString *NXPrimaryPboard;
45NSString *NXSecondaryPboard; 43static NSString *NXSecondaryPboard;
46 44
47 45
48static NSMutableDictionary *pasteboard_changecount; 46static NSMutableDictionary *pasteboard_changecount;
@@ -208,7 +206,7 @@ ns_string_to_pasteboard_internal (id pb, Lisp_Object str, NSString *gtype)
208 206
209Lisp_Object 207Lisp_Object
210ns_get_local_selection (Lisp_Object selection_name, 208ns_get_local_selection (Lisp_Object selection_name,
211 Lisp_Object target_type) 209 Lisp_Object target_type)
212{ 210{
213 Lisp_Object local_value; 211 Lisp_Object local_value;
214 local_value = assq_no_quit (selection_name, Vselection_alist); 212 local_value = assq_no_quit (selection_name, Vselection_alist);
@@ -533,15 +531,4 @@ to convert into a type that we don't know about or that is inappropriate.\n\
533This hook doesn't let you change the behavior of Emacs's selection replies,\n\ 531This hook doesn't let you change the behavior of Emacs's selection replies,\n\
534it merely informs you that they have happened."); 532it merely informs you that they have happened.");
535 Vns_sent_selection_hooks = Qnil; 533 Vns_sent_selection_hooks = Qnil;
536
537 DEFVAR_LISP ("ns-lost-selection-hooks", Vns_lost_selection_hooks,
538 "A list of functions to be called when Emacs loses an X selection.\n\
539\(This happens when some other X client makes its own selection\n\
540or when a Lisp program explicitly clears the selection.)\n\
541The functions are called with one argument, the selection type\n\
542\(a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD').");
543 Vns_lost_selection_hooks = Qnil;
544
545 Qforeign_selection = intern_c_string ("foreign-selection");
546 staticpro (&Qforeign_selection);
547} 534}