diff options
| author | Paul Eggert | 2015-02-21 00:26:13 -0800 |
|---|---|---|
| committer | Paul Eggert | 2015-02-21 00:27:00 -0800 |
| commit | 3ebf06300b8186feac5e9b436ca263dc908ed886 (patch) | |
| tree | 65b287f79561cf18bb741b6d890ec0ac4f441121 /src/buffer.c | |
| parent | 066b17df681fabb40108d719086669957aebbc51 (diff) | |
| download | emacs-3ebf06300b8186feac5e9b436ca263dc908ed886.tar.gz emacs-3ebf06300b8186feac5e9b436ca263dc908ed886.zip | |
Prefer 'Qfoo' to 'intern ("foo")'
* buffer.c (syms_of_buffer):
* bytecode.c (exec_byte_code):
* callint.c (Fcall_interactively):
* callproc.c (create_temp_file):
* charset.c (define_charset_internal):
* coding.c (syms_of_coding):
* editfns.c (syms_of_editfns):
* emacs.c (main):
* fns.c (syms_of_fns):
* frame.c (delete_frame, Fframe_parameters):
* keyboard.c (syms_of_keyboard):
* keymap.c (syms_of_keymap):
* minibuf.c (read_minibuf, syms_of_minibuf):
* nsfns.m (ns_cursor_type_to_lisp):
* textprop.c (syms_of_textprop):
* xdisp.c (Fformat_mode_line, syms_of_xdisp):
* xfns.c (x_create_tip_frame, Fx_select_font):
* xml.c (parse_region):
Prefer constants like 'Qfoo' to calls like 'intern ("foo")'.
* buffer.c (syms_of_buffer): OK to do (put 'erase-buffer 'disabled
t) here now ...
(keys_of_buffer): ... instead of here.
* ftfont.c (syms_of_ftfont): Move DEFSYM of Qmono from here ...
* xfns.c (syms_of_xfns): ... to here, since ftfont.c is more
optional than xfns.c.
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/buffer.c b/src/buffer.c index 67eda3ee89e..371588b3093 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -5408,7 +5408,7 @@ syms_of_buffer (void) | |||
| 5408 | DEFSYM (Qoverwrite_mode, "overwrite-mode"); | 5408 | DEFSYM (Qoverwrite_mode, "overwrite-mode"); |
| 5409 | Fput (Qoverwrite_mode, Qchoice, | 5409 | Fput (Qoverwrite_mode, Qchoice, |
| 5410 | list3 (Qnil, intern ("overwrite-mode-textual"), | 5410 | list3 (Qnil, intern ("overwrite-mode-textual"), |
| 5411 | intern ("overwrite-mode-binary"))); | 5411 | Qoverwrite_mode_binary)); |
| 5412 | 5412 | ||
| 5413 | Fput (Qprotected_field, Qerror_conditions, | 5413 | Fput (Qprotected_field, Qerror_conditions, |
| 5414 | listn (CONSTYPE_PURE, 2, Qprotected_field, Qerror)); | 5414 | listn (CONSTYPE_PURE, 2, Qprotected_field, Qerror)); |
| @@ -6326,6 +6326,8 @@ Functions running this hook are, `get-buffer-create', | |||
| 6326 | defsubr (&Soverlay_get); | 6326 | defsubr (&Soverlay_get); |
| 6327 | defsubr (&Soverlay_put); | 6327 | defsubr (&Soverlay_put); |
| 6328 | defsubr (&Srestore_buffer_modified_p); | 6328 | defsubr (&Srestore_buffer_modified_p); |
| 6329 | |||
| 6330 | Fput (intern_c_string ("erase-buffer"), Qdisabled, Qt); | ||
| 6329 | } | 6331 | } |
| 6330 | 6332 | ||
| 6331 | void | 6333 | void |
| @@ -6333,8 +6335,4 @@ keys_of_buffer (void) | |||
| 6333 | { | 6335 | { |
| 6334 | initial_define_key (control_x_map, 'b', "switch-to-buffer"); | 6336 | initial_define_key (control_x_map, 'b', "switch-to-buffer"); |
| 6335 | initial_define_key (control_x_map, 'k', "kill-buffer"); | 6337 | initial_define_key (control_x_map, 'k', "kill-buffer"); |
| 6336 | |||
| 6337 | /* This must not be in syms_of_buffer, because Qdisabled is not | ||
| 6338 | initialized when that function gets called. */ | ||
| 6339 | Fput (intern_c_string ("erase-buffer"), Qdisabled, Qt); | ||
| 6340 | } | 6338 | } |