2 |
* default qemacs configuration |
* default qemacs configuration |
3 |
*/ |
*/ |
4 |
CmdDef basic_commands[] = { |
CmdDef basic_commands[] = { |
5 |
CMD1( KEY_DEFAULT, KEY_NONE, "self-insert-command", do_char, ' ') |
CMDV( KEY_DEFAULT, KEY_NONE, "self-insert-command", do_char, ' ', "*v") |
6 |
CMD0( KEY_CTRL('o'), KEY_NONE, "open-line", do_open_line) |
CMD_( KEY_CTRL('o'), KEY_NONE, "open-line", do_open_line, "*") |
7 |
CMD1( KEY_CTRL('p'), KEY_UP, "previous-line", do_up_down, -1 ) |
CMD1( KEY_CTRL('p'), KEY_UP, "previous-line", do_up_down, -1 ) |
8 |
CMD1( KEY_CTRL('n'), KEY_DOWN, "next-line", do_up_down, 1 ) |
CMD1( KEY_CTRL('n'), KEY_DOWN, "next-line", do_up_down, 1 ) |
9 |
CMD1( KEY_CTRL('b'), KEY_LEFT, "backward-char", do_left_right, -1 ) |
CMD1( KEY_CTRL('b'), KEY_LEFT, "backward-char", do_left_right, -1 ) |
17 |
CMD0( KEY_HOME, KEY_CTRL('a'), "beginning-of-line", do_bol) |
CMD0( KEY_HOME, KEY_CTRL('a'), "beginning-of-line", do_bol) |
18 |
CMD0( KEY_END, KEY_CTRL('e'), "end-of-line", do_eol) |
CMD0( KEY_END, KEY_CTRL('e'), "end-of-line", do_eol) |
19 |
CMD0( KEY_INSERT, KEY_NONE, "overwrite-mode", do_insert) |
CMD0( KEY_INSERT, KEY_NONE, "overwrite-mode", do_insert) |
20 |
|
/* deletion commands are allowed in read only buffers, |
21 |
|
* they will merely copy the data to the kill ring */ |
22 |
CMD0( KEY_CTRL('d'), KEY_DELETE, "delete-char", do_delete_char) |
CMD0( KEY_CTRL('d'), KEY_DELETE, "delete-char", do_delete_char) |
23 |
CMD0( 127, KEY_NONE, "backward-delete-char", do_backspace) |
CMD0( 127, KEY_NONE, "backward-delete-char", do_backspace) |
24 |
CMD1( KEY_META(KEY_DEL) , KEY_META(KEY_BS), |
CMD1( KEY_META(KEY_DEL) , KEY_META(KEY_BS), |
35 |
"s{Command: }[command]|command|i") |
"s{Command: }[command]|command|i") |
36 |
CMD0( KEY_CTRL('u'), KEY_NONE, "universal-argument", |
CMD0( KEY_CTRL('u'), KEY_NONE, "universal-argument", |
37 |
do_universal_argument) |
do_universal_argument) |
38 |
CMD0( KEY_CTRL('y'), KEY_NONE, "yank", do_yank) |
CMD_( KEY_CTRL('y'), KEY_NONE, "yank", do_yank, "*") |
39 |
CMD0( KEY_META('y'), KEY_NONE, "yank-pop", do_yank_pop) |
CMD_( KEY_META('y'), KEY_NONE, "yank-pop", do_yank_pop, "*") |
40 |
|
/* do_tab will not change read only buffer */ |
41 |
CMD0( KEY_CTRL('i'), KEY_NONE, "tabulate", do_tab) |
CMD0( KEY_CTRL('i'), KEY_NONE, "tabulate", do_tab) |
42 |
CMD0( KEY_CTRL('q'), KEY_NONE, "quoted-insert", do_quote) |
CMD_( KEY_CTRL('q'), KEY_NONE, "quoted-insert", do_quote, "*") |
43 |
CMD1( KEY_CTRLX(KEY_CTRL('s')), KEY_NONE, "save-buffer", do_save, 0 ) |
CMD1( KEY_CTRLX(KEY_CTRL('s')), KEY_NONE, "save-buffer", do_save, 0 ) |
44 |
CMD1( KEY_CTRLX(KEY_CTRL('w')), KEY_NONE, "write-file", do_save, 1 ) |
CMD1( KEY_CTRLX(KEY_CTRL('w')), KEY_NONE, "write-file", do_save, 1 ) |
45 |
CMD0( KEY_CTRLX(KEY_CTRL('c')), KEY_NONE, "suspend-emacs", do_quit ) |
CMD0( KEY_CTRLX(KEY_CTRL('c')), KEY_NONE, "suspend-emacs", do_quit ) |
53 |
CMD_( KEY_CTRLX('k'), KEY_NONE, "kill-buffer", do_kill_buffer, |
CMD_( KEY_CTRLX('k'), KEY_NONE, "kill-buffer", do_kill_buffer, |
54 |
"s{Kill buffer: }[buffer]|buffer|") |
"s{Kill buffer: }[buffer]|buffer|") |
55 |
CMD_( KEY_CTRLX('i'), KEY_NONE, "insert-file", do_insert_file, |
CMD_( KEY_CTRLX('i'), KEY_NONE, "insert-file", do_insert_file, |
56 |
"s{Insert file: }[file]|file|") |
"*s{Insert file: }[file]|file|") |
57 |
CMD0( KEY_CTRL('g'), KEY_NONE, "abort", do_break) |
CMD0( KEY_CTRL('g'), KEY_CTRLX(KEY_CTRL('g')), "abort", do_break) |
58 |
CMD0( KEY_NONE, KEY_NONE, "doctor", do_doctor) |
CMD0( KEY_NONE, KEY_NONE, "doctor", do_doctor) |
59 |
CMDV( KEY_NONE, KEY_NONE, "search-forward", do_search_string, 1, |
CMDV( KEY_NONE, KEY_NONE, "search-forward", do_search_string, 1, |
60 |
"s{Search forward: }|search|v") |
"s{Search forward: }|search|v") |
63 |
CMD1( KEY_CTRL('s'), KEY_NONE, "isearch-forward", do_isearch, 1 ) |
CMD1( KEY_CTRL('s'), KEY_NONE, "isearch-forward", do_isearch, 1 ) |
64 |
CMD1( KEY_CTRL('r'), KEY_NONE, "isearch-backward", do_isearch, -1 ) |
CMD1( KEY_CTRL('r'), KEY_NONE, "isearch-backward", do_isearch, -1 ) |
65 |
CMD_( KEY_META('%'), KEY_NONE, "query-replace", do_query_replace, |
CMD_( KEY_META('%'), KEY_NONE, "query-replace", do_query_replace, |
66 |
"s{Query replace: }|search|s{With: }|replace|") |
"*s{Query replace: }|search|s{With: }|replace|") |
67 |
CMD_( KEY_META('r'), KEY_NONE, "replace-string", do_replace_string, |
CMD_( KEY_META('r'), KEY_NONE, "replace-string", do_replace_string, |
68 |
"s{Replace String: }|search|s{With: }|replace|") |
"*s{Replace String: }|search|s{With: }|replace|") |
69 |
CMD0( KEY_CTRLX('u'), KEY_CTRL('_'), "undo", do_undo) |
CMD0( KEY_CTRLX('u'), KEY_CTRL('_'), "undo", do_undo) |
70 |
CMD0( KEY_RET, KEY_NONE, "newline", do_return) |
CMD_( KEY_RET, KEY_NONE, "newline", do_return, "*") |
71 |
CMD0( KEY_CTRL('l'), KEY_NONE, "refresh", do_refresh_complete) |
CMD0( KEY_CTRL('l'), KEY_NONE, "refresh", do_refresh_complete) |
72 |
/* CG: should take a string if no numeric argument given */ |
/* CG: should take a string if no numeric argument given */ |
73 |
CMD_( KEY_META('g'), KEY_NONE, "goto-line", do_goto_line, "i{Goto line: }") |
CMD_( KEY_META('g'), KEY_NONE, "goto-line", do_goto_line, "i{Goto line: }") |
74 |
CMD_( KEY_NONE, KEY_NONE, "goto-char", do_goto_char, "i{Goto char: }") |
CMD_( KEY_NONE, KEY_NONE, "goto-char", do_goto_char, "i{Goto char: }") |
75 |
CMD0( KEY_CTRLX(KEY_CTRL('q')), KEY_NONE, "vc-toggle-read-only", |
CMD0( KEY_CTRLX(KEY_CTRL('q')), KEY_NONE, "vc-toggle-read-only", |
76 |
do_toggle_read_only) |
do_toggle_read_only) |
77 |
CMD0( KEY_META('q'), KEY_NONE, "fill-paragraph", do_fill_paragraph) |
CMD0( KEY_META('~'), KEY_NONE, "not-modified", do_not_modified) |
78 |
|
CMD_( KEY_META('q'), KEY_NONE, "fill-paragraph", do_fill_paragraph, "*") |
79 |
CMD0( KEY_META('{'), KEY_NONE, "backward-paragraph", do_backward_paragraph) |
CMD0( KEY_META('{'), KEY_NONE, "backward-paragraph", do_backward_paragraph) |
80 |
CMD0( KEY_META('}'), KEY_NONE, "forward-paragraph", do_forward_paragraph) |
CMD0( KEY_META('}'), KEY_NONE, "forward-paragraph", do_forward_paragraph) |
81 |
CMD0( KEY_CTRLX(KEY_CTRL('x')), KEY_NONE, "exchange-point-and-mark", |
CMD0( KEY_CTRLX(KEY_CTRL('x')), KEY_NONE, "exchange-point-and-mark", |
82 |
do_exchange_point_and_mark) |
do_exchange_point_and_mark) |
83 |
CMD1( KEY_META('l'), KEY_NONE, "downcase-word", do_changecase_word, 0) |
CMDV( KEY_META('l'), KEY_NONE, "downcase-word", do_changecase_word, 0, "*v") |
84 |
CMD1( KEY_META('u'), KEY_NONE, "upcase-word", do_changecase_word, 1) |
CMDV( KEY_META('u'), KEY_NONE, "upcase-word", do_changecase_word, 1, "*v") |
85 |
CMD1( KEY_CTRLX(KEY_CTRL('l')), KEY_NONE, "downcase-region", |
CMDV( KEY_CTRLX(KEY_CTRL('l')), KEY_NONE, "downcase-region", |
86 |
do_changecase_region, 0) |
do_changecase_region, 0, "*v") |
87 |
CMD1( KEY_CTRLX(KEY_CTRL('u')), KEY_NONE, "upcase-region", |
CMDV( KEY_CTRLX(KEY_CTRL('u')), KEY_NONE, "upcase-region", |
88 |
do_changecase_region, 1) |
do_changecase_region, 1, "*v") |
89 |
|
|
90 |
/* keyboard macros */ |
/* keyboard macros */ |
91 |
CMD0( KEY_CTRLX('('), KEY_NONE, "start-kbd-macro", do_start_macro) |
CMD0( KEY_CTRLX('('), KEY_NONE, "start-kbd-macro", do_start_macro) |
92 |
CMD0( KEY_CTRLX(')'), KEY_NONE, "end-kbd-macro", do_end_macro) |
CMD0( KEY_CTRLX(')'), KEY_NONE, "end-kbd-macro", do_end_macro) |
93 |
CMD0( KEY_CTRLX('e'), KEY_NONE, "call-last-kbd-macro", do_call_macro) |
CMD0( KEY_CTRLX('e'), KEY_CTRL('\\'), "call-last-kbd-macro", do_call_macro) |
94 |
CMD_( KEY_NONE, KEY_NONE, "define-kbd-macro", do_define_kbd_macro, |
CMD_( KEY_NONE, KEY_NONE, "define-kbd-macro", do_define_kbd_macro, |
95 |
"s{Macro name: }[command]s{Macro keys: }s{Bind to key: }[key]") |
"s{Macro name: }[command]s{Macro keys: }s{Bind to key: }[key]") |
96 |
CMD_( KEY_NONE, KEY_NONE, "global-set-key", do_global_set_key, |
CMD_( KEY_NONE, KEY_NONE, "global-set-key", do_global_set_key, |
100 |
CMD0( KEY_CTRLX('o'), KEY_NONE, "other-window", do_other_window) |
CMD0( KEY_CTRLX('o'), KEY_NONE, "other-window", do_other_window) |
101 |
CMD0( KEY_CTRLX('n'), KEY_NONE, "next-window", do_other_window) |
CMD0( KEY_CTRLX('n'), KEY_NONE, "next-window", do_other_window) |
102 |
CMD0( KEY_CTRLX('p'), KEY_NONE, "previous-window", do_previous_window) |
CMD0( KEY_CTRLX('p'), KEY_NONE, "previous-window", do_previous_window) |
103 |
|
#ifndef CONFIG_TINY |
104 |
CMD1( KEY_CTRL('x'), KEY_UP, "find-window-up", do_find_window, |
CMD1( KEY_CTRL('x'), KEY_UP, "find-window-up", do_find_window, |
105 |
KEY_UP) |
KEY_UP) |
106 |
CMD1( KEY_CTRL('x'), KEY_DOWN, "find-window-down", do_find_window, |
CMD1( KEY_CTRL('x'), KEY_DOWN, "find-window-down", do_find_window, |
109 |
KEY_LEFT) |
KEY_LEFT) |
110 |
CMD1( KEY_CTRL('x'), KEY_RIGHT, "find-window-right", do_find_window, |
CMD1( KEY_CTRL('x'), KEY_RIGHT, "find-window-right", do_find_window, |
111 |
KEY_RIGHT) |
KEY_RIGHT) |
112 |
|
#endif |
113 |
CMD1( KEY_CTRLX('0'), KEY_NONE, "delete-window", do_delete_window, 0) |
CMD1( KEY_CTRLX('0'), KEY_NONE, "delete-window", do_delete_window, 0) |
114 |
CMD0( KEY_CTRLX('1'), KEY_NONE, "delete-other-windows", |
CMD0( KEY_CTRLX('1'), KEY_NONE, "delete-other-windows", |
115 |
do_delete_other_windows) |
do_delete_other_windows) |
130 |
"s{Charset: }[charset]") |
"s{Charset: }[charset]") |
131 |
CMD_( KEY_NONE, KEY_NONE, "convert-buffer-file-coding-system", |
CMD_( KEY_NONE, KEY_NONE, "convert-buffer-file-coding-system", |
132 |
do_convert_buffer_file_coding_system, |
do_convert_buffer_file_coding_system, |
133 |
"s{Charset: }[charset]") |
"*s{Charset: }[charset]") |
134 |
CMD0( KEY_CTRLXRET('b'), KEY_NONE, "toggle-bidir", do_toggle_bidir) |
CMD0( KEY_CTRLXRET('b'), KEY_NONE, "toggle-bidir", do_toggle_bidir) |
135 |
CMD_( KEY_CTRLXRET(KEY_CTRL('\\')), KEY_NONE, "set-input-method", |
CMD_( KEY_CTRLXRET(KEY_CTRL('\\')), KEY_NONE, "set-input-method", |
136 |
do_set_input_method, |
do_set_input_method, |
137 |
"s{Input method: }[input]") |
"s{Input method: }[input]") |
138 |
CMD0( KEY_CTRL('\\'), KEY_NONE, |
CMD0( KEY_CTRLX(KEY_CTRL('\\')), KEY_NONE, |
139 |
"switch-input-method", do_switch_input_method) |
"switch-input-method", do_switch_input_method) |
140 |
|
|
141 |
/* styles & display */ |
/* styles & display */ |
153 |
CMD0( KEY_NONE, KEY_NONE, "toggle-mode-line", do_toggle_mode_line) |
CMD0( KEY_NONE, KEY_NONE, "toggle-mode-line", do_toggle_mode_line) |
154 |
|
|
155 |
/* other stuff */ |
/* other stuff */ |
156 |
|
CMD_( KEY_NONE, KEY_NONE, "load-file-from-path", do_load_file_from_path, |
157 |
|
"s{Load file from path: }|file|") |
158 |
CMD_( KEY_NONE, KEY_NONE, "parse-config-file", parse_config, |
CMD_( KEY_NONE, KEY_NONE, "parse-config-file", parse_config, |
159 |
"s{Configuration file: }[file]|file|") |
"s{Configuration file: }[file]|file|") |
160 |
CMD_( KEY_NONE, KEY_NONE, "load-qerc", do_load_qerc, |
CMD_( KEY_NONE, KEY_NONE, "load-qerc", do_load_qerc, |
176 |
"s{Change default directory: }[file]|file|") |
"s{Change default directory: }[file]|file|") |
177 |
CMD_( KEY_NONE, KEY_NONE, "set-mode", do_cmd_set_mode, |
CMD_( KEY_NONE, KEY_NONE, "set-mode", do_cmd_set_mode, |
178 |
"s{Set mode: }[mode]") |
"s{Set mode: }[mode]") |
179 |
|
CMD0( KEY_CTRLX('h'), KEY_NONE, "mark-whole-buffer", do_mark_whole_buffer) |
180 |
|
CMD0( KEY_CTRLX('l'), KEY_NONE, "count-lines", do_count_lines) |
181 |
|
CMD0( KEY_CTRLX('='), KEY_NONE, "what-cursor-position", |
182 |
|
do_what_cursor_position) |
183 |
|
|
184 |
/* tab & indent */ |
/* tab & indent */ |
185 |
CMD_( KEY_NONE, KEY_NONE, "set-tab-width", do_set_tab_width, |
CMD_( KEY_NONE, KEY_NONE, "set-tab-width", do_set_tab_width, |