diff options
| author | Po Lu <luangruo@yahoo.com> | 2022-09-20 03:00:10 +0000 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2022-09-20 03:00:10 +0000 |
| commit | 1b77f1981d8aa107becf571939f01ae04ed16873 (patch) | |
| tree | d5bae8bc0cbc66d46e515e2bb8f6232e5615277a /src/haikufns.c | |
| parent | 132d5cb0a3ec94afbb49772631861e00160ffffb (diff) | |
| download | emacs-1b77f1981d8aa107becf571939f01ae04ed16873.tar.gz | |
Remove intern calls with a static string from haiku*.c
* src/haikufns.c (Fx_show_tip, syms_of_haikufns):
* src/haikufont.c (haikufont_maybe_handle_special_family)
(syms_of_haikufont):
* src/haikuterm.c (haiku_term_init, syms_of_haikuterm): Replace
intern with real predefined symbols.
Diffstat (limited to 'src/haikufns.c')
| -rw-r--r-- | src/haikufns.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/haikufns.c b/src/haikufns.c index aaa4e866228..711202c5df3 100644 --- a/src/haikufns.c +++ b/src/haikufns.c @@ -2636,8 +2636,7 @@ DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0, start_timer: /* Let the tip disappear after timeout seconds. */ - tip_timer = call3 (intern ("run-at-time"), timeout, Qnil, - intern ("x-hide-tip")); + tip_timer = call3 (Qrun_at_time, timeout, Qnil, Qx_hide_tip); return unbind_to (count, Qnil); } @@ -3149,6 +3148,9 @@ syms_of_haikufns (void) DEFSYM (Qcancel_timer, "cancel-timer"); DEFSYM (Qassq_delete_all, "assq-delete-all"); + DEFSYM (Qrun_at_time, "run-at-time"); + DEFSYM (Qx_hide_tip, "x-hide-tip"); + DEFSYM (Qalways, "always"); DEFSYM (Qnot_useful, "not-useful"); DEFSYM (Qwhen_mapped, "when-mapped"); |