Mercurial > hg > xemacs-beta
annotate src/general.c @ 5371:6f10ac29bf40
Be better about searching for chars typed via XIM and x-compose.el, isearch
lisp/ChangeLog addition:
2011-03-12 Aidan Kehoe <kehoea@parhasard.net>
* isearch-mode.el (isearch-mode-map):
Document why we bind the ASCII characters to isearch-printing-char
in more detail.
* isearch-mode.el (isearch-maybe-frob-keyboard-macros):
If `this-command' is nil and the keys typed would normally be
bound to `self-insert-command' in the global map, force
`isearch-printing-char' to be called with an appropriate value for
last-command-event. Addresses an issue where searching for
characters generated from x-compose.el and XIM threw errors for me
in dired.
src/ChangeLog addition:
2011-03-12 Aidan Kehoe <kehoea@parhasard.net>
* event-stream.c (Fdispatch_event):
As documented, allow pre-command-hook to usefully modify
this-command even when this-command is nil (that is, we would
normally throw an undefined-keystroke-sequence error). Don't throw
that error if this-command was modified, instead try to execute
the new value.
Allow pre-command-hook to modify last-command-event in this
specific context. Don't document this, for the moment.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sat, 12 Mar 2011 13:11:31 +0000 |
parents | 31be2a3d121d |
children | 6506fcb40fcf |
rev | line source |
---|---|
428 | 1 /* Commonly-used symbols |
2 Copyright (C) 1995 Sun Microsystems. | |
442 | 3 Copyright (C) 1995, 1996, 2000 Ben Wing. |
428 | 4 |
5 This file is part of XEmacs. | |
6 | |
7 XEmacs is free software; you can redistribute it and/or modify it | |
8 under the terms of the GNU General Public License as published by the | |
9 Free Software Foundation; either version 2, or (at your option) any | |
10 later version. | |
11 | |
12 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
15 for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
18 along with XEmacs; see the file COPYING. If not, write to | |
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
20 Boston, MA 02111-1307, USA. */ | |
21 | |
22 /* Synched up with: Not in FSF. */ | |
23 | |
442 | 24 /* See general-slots.h. |
25 */ | |
428 | 26 |
27 #include <config.h> | |
28 #include "lisp.h" | |
29 | |
442 | 30 #define SYMBOL(fou) Lisp_Object fou |
1632 | 31 #define SYMBOL_MODULE_API(fou) Lisp_Object fou |
5320
31be2a3d121d
Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL()
Aidan Kehoe <kehoea@parhasard.net>
parents:
1632
diff
changeset
|
32 #define SYMBOL_KEYWORD(la_cle_est_folle) Lisp_Object la_cle_est_folle |
442 | 33 #define SYMBOL_GENERAL(tout_le_monde, est_fou) Lisp_Object tout_le_monde |
5320
31be2a3d121d
Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL()
Aidan Kehoe <kehoea@parhasard.net>
parents:
1632
diff
changeset
|
34 #define SYMBOL_KEYWORD_GENERAL(ponle, la_clave) Lisp_Object ponle |
442 | 35 |
36 #include "general-slots.h" | |
37 | |
38 #undef SYMBOL | |
1632 | 39 #undef SYMBOL_MODULE_API |
442 | 40 #undef SYMBOL_KEYWORD |
41 #undef SYMBOL_GENERAL | |
5320
31be2a3d121d
Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL()
Aidan Kehoe <kehoea@parhasard.net>
parents:
1632
diff
changeset
|
42 #undef SYMBOL_KEYWORD_GENERAL |
428 | 43 |
44 void | |
45 syms_of_general (void) | |
46 { | |
442 | 47 #define SYMBOL(loco) DEFSYMBOL (loco) |
1632 | 48 #define SYMBOL_MODULE_API(loco) DEFSYMBOL (loco) |
442 | 49 #define SYMBOL_KEYWORD(meshugeneh) DEFKEYWORD (meshugeneh) |
50 #define SYMBOL_GENERAL(vachement, fou) defsymbol (&vachement, fou) | |
5320
31be2a3d121d
Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL()
Aidan Kehoe <kehoea@parhasard.net>
parents:
1632
diff
changeset
|
51 #define SYMBOL_KEYWORD_GENERAL(bescheuert, gaaanz_bescheuert) \ |
31be2a3d121d
Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL()
Aidan Kehoe <kehoea@parhasard.net>
parents:
1632
diff
changeset
|
52 defkeyword (&bescheuert, gaaanz_bescheuert) |
442 | 53 |
54 #include "general-slots.h" | |
55 | |
56 #undef SYMBOL | |
57 #undef SYMBOL_KEYWORD | |
58 #undef SYMBOL_GENERAL | |
5320
31be2a3d121d
Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL()
Aidan Kehoe <kehoea@parhasard.net>
parents:
1632
diff
changeset
|
59 #undef SYMBOL_KEYWORD_GENERAL |
428 | 60 } |