1 files changed, 7 insertions, 5 deletions

diff --git a/src/keymap.c b/src/keymap.c
index b9d8d18931d..0f50d804dff 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -642,7 +642,7 @@ usage: (map-keymap FUNCTION KEYMAP)  */)
   (Lisp_Object function, Lisp_Object keymap, Lisp_Object sort_first)
 {
   if (! NILP (sort_first))
-    return call2 (intern ("map-keymap-sorted"), function, keymap);
+    return call2 (Qmap_keymap_sorted, function, keymap);
 
   map_keymap (keymap, map_keymap_call, function, NULL, 1);
   return Qnil;
@@ -1334,7 +1334,7 @@ recognize the default bindings, just as `read-key-sequence' does.  */)
   /* Initialize the unicode case table, if it wasn't already.  */
   if (NILP (unicode_case_table))
     {
-      unicode_case_table = uniprop_table (intern ("lowercase"));
+      unicode_case_table = uniprop_table (Qlowercase);
       /* uni-lowercase.el might be unavailable during bootstrap.  */
       if (NILP (unicode_case_table))
         return found;
@@ -3053,7 +3053,7 @@ DESCRIBER is the output function used; nil means use `princ'.  */)
 {
   specpdl_ref count = SPECPDL_INDEX ();
   if (NILP (describer))
-    describer = intern ("princ");
+    describer = Qprinc;
   specbind (Qstandard_output, Fcurrent_buffer ());
   CHECK_VECTOR_OR_CHAR_TABLE (vector);
   describe_vector (vector, Qnil, describer, describe_vector_princ, 0,
@@ -3169,7 +3169,7 @@ describe_vector (Lisp_Object vector, Lisp_Object prefix, Lisp_Object args,
   Lisp_Object kludge = make_nil_vector (1);
 
   if (partial)
-    suppress = intern ("suppress-keymap");
+    suppress = Qsuppress_keymap;
 
   /* STOP is a boundary between normal characters (-#x3FFF7F) and
      8-bit characters (#x3FFF80-), used below when VECTOR is a
@@ -3342,6 +3342,7 @@ syms_of_keymap (void)
 {
   DEFSYM (Qkeymap, "keymap");
   DEFSYM (Qhelp__describe_map_tree, "help--describe-map-tree");
+  DEFSYM (Qmap_keymap_sorted, "map-keymap-sorted");
 
   DEFSYM (Qkeymap_canonicalize, "keymap-canonicalize");
 
@@ -3485,6 +3486,7 @@ that describe key bindings.  That is why the default is nil.  */);
 
   DEFSYM (Qkey_parse, "key-parse");
   DEFSYM (Qkey_valid_p, "key-valid-p");
-
   DEFSYM (Qnon_key_event, "non-key-event");
+  DEFSYM (Qprinc, "princ");
+  DEFSYM (Qsuppress_keymap, "suppress-keymap");
 }