Mercurial > hg > xemacs-beta
annotate src/keymap.h @ 5368:ed74d2ca7082
Use ', not #', when a given symbol may not have a function binding at read time
2011-03-10 Aidan Kehoe <kehoea@parhasard.net>
* cmdloop.el (yes-or-no-p):
* cmdloop.el (y-or-n-p):
* descr-text.el (describe-char):
* diagnose.el (show-memory-usage):
* diagnose.el (show-object-memory-usage-stats):
* diagnose.el (show-mc-alloc-memory-usage):
* diagnose.el (show-gc-stats):
* faces.el (face-font-instance):
* gtk-font-menu.el (gtk-reset-device-font-menus):
* help.el (help-symbol-function-context-menu):
* help.el (help-symbol-variable-context-menu):
* help.el (help-symbol-function-and-variable-context-menu):
* help.el (help-find-source-or-scroll-up):
* help.el (help-mouse-find-source-or-track):
* help.el (temp-buffer-resize-mode):
* minibuf.el (mouse-read-file-name-1):
* obsolete.el (find-non-ascii-charset-string):
* obsolete.el (find-non-ascii-charset-region):
* occur.el (occur-engine):
* paragraphs.el (forward-paragraph):
* paragraphs.el (forward-sentence):
* select.el (activate-region-as-selection):
* select.el (select-make-extent-for-selection):
* simple.el (zmacs-make-extent-for-region):
Use quote, not function, for quoting symbols that may not be
fboundp at the point they are read (again, a style issue, since
Common Lisp throws an error on this, but we don't, and have no
plans to.)
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Thu, 10 Mar 2011 18:51:15 +0000 |
parents | b5df3737028a |
children | 308d34e9f07d |
rev | line source |
---|---|
428 | 1 /* prototypes for keymap-hacking |
2 Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. | |
3 | |
4 This file is part of XEmacs. | |
5 | |
6 XEmacs is free software; you can redistribute it and/or modify it | |
7 under the terms of the GNU General Public License as published by the | |
8 Free Software Foundation; either version 2, or (at your option) any | |
9 later version. | |
10 | |
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
14 for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with XEmacs; see the file COPYING. If not, write to | |
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
19 Boston, MA 02111-1307, USA. */ | |
20 | |
21 /* Synched up with: Not in FSF. */ | |
22 | |
23 | |
440 | 24 #ifndef INCLUDED_keymap_h_ |
25 #define INCLUDED_keymap_h_ | |
428 | 26 |
440 | 27 typedef struct Lisp_Keymap Lisp_Keymap; |
28 | |
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4272
diff
changeset
|
29 DECLARE_LISP_OBJECT (keymap, Lisp_Keymap); |
440 | 30 #define XKEYMAP(x) XRECORD (x, keymap, Lisp_Keymap) |
617 | 31 #define wrap_keymap(p) wrap_record (p, keymap) |
428 | 32 #define KEYMAPP(x) RECORDP (x, keymap) |
33 #define CHECK_KEYMAP(x) CHECK_RECORD (x, keymap) | |
34 #define CONCHECK_KEYMAP(x) CONCHECK_RECORD (x, keymap) | |
35 | |
36 EXFUN (Fkeymap_prompt, 2); | |
37 EXFUN (Fkeymapp, 1); | |
38 EXFUN (Fmake_keymap, 1); | |
39 EXFUN (Fwhere_is_internal, 5); | |
40 | |
41 extern Lisp_Object Qalt, Qcontrol, Qhyper, Qmeta, Qshift, Qsuper; | |
4906
6ef8256a020a
implement equalp in C, fix case-folding, add equal() method for keymaps
Ben Wing <ben@xemacs.org>
parents:
4272
diff
changeset
|
42 |
6ef8256a020a
implement equalp in C, fix case-folding, add equal() method for keymaps
Ben Wing <ben@xemacs.org>
parents:
4272
diff
changeset
|
43 #define FROB(num) \ |
6ef8256a020a
implement equalp in C, fix case-folding, add equal() method for keymaps
Ben Wing <ben@xemacs.org>
parents:
4272
diff
changeset
|
44 extern Lisp_Object Qbutton##num; |
6ef8256a020a
implement equalp in C, fix case-folding, add equal() method for keymaps
Ben Wing <ben@xemacs.org>
parents:
4272
diff
changeset
|
45 #include "keymap-buttons.h" |
428 | 46 extern Lisp_Object Vmeta_prefix_char; |
47 | |
48 Lisp_Object get_keymap (Lisp_Object object, int errorp, int autoload); | |
49 Lisp_Object event_binding (Lisp_Object event0, int accept_default); | |
50 Lisp_Object event_binding_in (Lisp_Object event0, Lisp_Object keymap, | |
51 int accept_default); | |
52 | |
53 Lisp_Object munging_key_map_event_binding (Lisp_Object event0, | |
54 enum munge_me_out_the_door munge); | |
55 int relevant_keymaps_to_search (Lisp_Object keys, | |
56 int max_maps, Lisp_Object maps[]); | |
57 void describe_map_tree (Lisp_Object startmap, int partial, | |
58 Lisp_Object shadow, Lisp_Object prefix, | |
59 int mice_only_p, Lisp_Object buffer); | |
60 | |
61 void key_desc_list_to_event (Lisp_Object list, Lisp_Object event, | |
62 int allow_menu_events); | |
63 | |
1204 | 64 int event_matches_key_specifier_p (Lisp_Object event, |
428 | 65 Lisp_Object key_specifier); |
66 | |
440 | 67 #endif /* INCLUDED_keymap_h_ */ |