Symbol-name, intern* with additional arg

diff --git a/src/callint.c b/src/callint.c
index 8ef0e5240a5eac865688ea5837401b7b6b8fc6e0..be6fa99d423ca5a0b03b67a6cae96e9575085b49 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -460,7 +460,7 @@ invoke it (via an `interactive' spec that contains, for instance, an
          visargs[i] = Fcompleting_read (callint_message,
                                         Vobarray, Qfboundp, Qt,
                                         Qnil, Qnil, Qnil, Qnil);
-         args[i] = Fintern (visargs[i], Qnil);
+         args[i] = Fintern (visargs[i], Qnil, Qnil);
          break;
 
        case 'b':               /* Name of existing buffer.  */
@@ -494,7 +494,7 @@ invoke it (via an `interactive' spec that contains, for instance, an
          visargs[i] = Fcompleting_read (callint_message,
                                         Vobarray, Qcommandp,
                                         Qt, Qnil, Qnil, Qnil, Qnil);
-         args[i] = Fintern (visargs[i], Qnil);
+         args[i] = Fintern (visargs[i], Qnil, Qnil);
          break;
 
        case 'd':               /* Value of point.  Does not do I/O.  */
@@ -673,7 +673,7 @@ invoke it (via an `interactive' spec that contains, for instance, an
        case 'S':               /* Any symbol.  */
          visargs[i] = Fread_string (callint_message,
                                     Qnil, Qnil, Qnil, Qnil);
-         args[i] = Fintern (visargs[i], Qnil);
+         args[i] = Fintern (visargs[i], Qnil, Qnil);
          break;
 
        case 'v':               /* Variable name: symbol that is

diff --git a/src/coding.c b/src/coding.c
index ab73bda8440eeeaf3fd3ad013d13d49447ed1761..e8823339004d1577ae10dae3a2a593277bc6715d 100644 (file)
--- a/src/coding.c
+++ b/src/coding.c
@@ -8562,7 +8562,7 @@ DEFUN ("read-non-nil-coding-system", Fread_non_nil_coding_system,
                              Qt, Qnil, Qcoding_system_history, Qnil, Qnil);
     }
   while (SCHARS (val) == 0);
-  return (Fintern (val, Qnil));
+  return Fintern (val, Qnil, Qnil);
 }
 
 DEFUN ("read-coding-system", Fread_coding_system, Sread_coding_system, 1, 2, 0,
@@ -8582,7 +8582,7 @@ are lower-case).  */)
                          Qt, Qnil, Qcoding_system_history,
                          default_coding_system, Qnil);
   val = unbind_to (count, val);
-  return (SCHARS (val) == 0 ? Qnil : Fintern (val, Qnil));
+  return (SCHARS (val) == 0 ? Qnil : Fintern (val, Qnil, Qnil));
 }
 
 DEFUN ("check-coding-system", Fcheck_coding_system, Scheck_coding_system,
@@ -11412,10 +11412,10 @@ usage: (define-coding-system-internal ...)  */)
          ASET (this_spec, 2, this_eol_type);
          Fputhash (this_name, this_spec, Vcoding_system_hash_table);
          Vcoding_system_list = Fcons (this_name, Vcoding_system_list);
-         val = Fassoc (Fsymbol_name (this_name), Vcoding_system_alist, Qnil);
+         val = Fassoc (Fsymbol_name (this_name, Qnil), Vcoding_system_alist, Qnil);
          if (NILP (val))
            Vcoding_system_alist
-             = Fcons (Fcons (Fsymbol_name (this_name), Qnil),
+             = Fcons (Fcons (Fsymbol_name (this_name, Qnil), Qnil),
                       Vcoding_system_alist);
        }
     }
@@ -11427,9 +11427,9 @@ usage: (define-coding-system-internal ...)  */)
 
   Fputhash (name, spec_vec, Vcoding_system_hash_table);
   Vcoding_system_list = Fcons (name, Vcoding_system_list);
-  val = Fassoc (Fsymbol_name (name), Vcoding_system_alist, Qnil);
+  val = Fassoc (Fsymbol_name (name, Qnil), Vcoding_system_alist, Qnil);
   if (NILP (val))
-    Vcoding_system_alist = Fcons (Fcons (Fsymbol_name (name), Qnil),
+    Vcoding_system_alist = Fcons (Fcons (Fsymbol_name (name, Qnil), Qnil),
                                  Vcoding_system_alist);
 
   int id = coding_categories[category].id;
@@ -11535,9 +11535,9 @@ DEFUN ("define-coding-system-alias", Fdefine_coding_system_alias,
 
   Fputhash (alias, spec, Vcoding_system_hash_table);
   Vcoding_system_list = Fcons (alias, Vcoding_system_list);
-  val = Fassoc (Fsymbol_name (alias), Vcoding_system_alist, Qnil);
+  val = Fassoc (Fsymbol_name (alias, Qnil), Vcoding_system_alist, Qnil);
   if (NILP (val))
-    Vcoding_system_alist = Fcons (Fcons (Fsymbol_name (alias), Qnil),
+    Vcoding_system_alist = Fcons (Fcons (Fsymbol_name (alias, Qnil), Qnil),
                                  Vcoding_system_alist);
 
   return Qnil;

diff --git a/src/data.c b/src/data.c
index e6be07179beb1ea386df052c3c9d6f1b9e4dee62..15c8ebf7ea6feab52c04a216128c1d4a3c64681c 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -769,12 +769,12 @@ DEFUN ("symbol-plist", Fsymbol_plist, Ssymbol_plist, 1, 1, 0,
   return XSYMBOL (symbol)->u.s.plist;
 }
 
-DEFUN ("symbol-name", Fsymbol_name, Ssymbol_name, 1, 1, 0,
+DEFUN ("symbol-name", Fsymbol_name, Ssymbol_name, 1, 2, 0,
        doc: /* Return SYMBOL's name, a string.  */)
-  (register Lisp_Object symbol)
+  (const Lisp_Object symbol, const Lisp_Object cl)
 {
   CHECK_SYMBOL (symbol);
-  if (SYMBOL_KEYWORD_P (symbol))
+  if (SYMBOL_KEYWORD_P (symbol) && NILP (cl))
     return concat2 (build_string (":"), SYMBOL_NAME (symbol));
   return SYMBOL_NAME (symbol);
 }

diff --git a/src/eval.c b/src/eval.c
index cff4b92477887a4c9e1ebfede9c1bdf63b52997f..b212cdd73ad2dc3e361de46076ca7dbfac7a4361 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -546,7 +546,7 @@ usage: (function ARG)  */)
          if (SYMBOLP (docstring) && !NILP (docstring))
            /* Hack for OClosures: Allow the docstring to be a symbol
              * (the OClosure's type).  */
-           docstring = Fsymbol_name (docstring);
+           docstring = Fsymbol_name (docstring, Qnil);
          CHECK_STRING (docstring);
          cdr = Fcons (XCAR (cdr), Fcons (docstring, XCDR (XCDR (cdr))));
        }

diff --git a/src/fns.c b/src/fns.c
index 63e5fd56f01aa17a9ad9950312fd63e429f1d4c0..f3743e2f5a5bbfb37ab2607786c3af21769861db 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -3407,7 +3407,7 @@ FILENAME are suppressed.  */)
 
       /* Load the file.  */
       tem = load_with_autoload_queue
-       (NILP (filename) ? Fsymbol_name (feature) : filename,
+       (NILP (filename) ? Fsymbol_name (feature, Qnil) : filename,
         noerror, Qt, Qnil, (NILP (filename) ? Qt : Qnil));
 
       /* If load failed entirely, return nil.  */
@@ -5814,7 +5814,7 @@ secure_hash (Lisp_Object algorithm, Lisp_Object object, Lisp_Object start,
       hash_func          = sha512_buffer;
     }
   else
-    error ("Invalid algorithm arg: %s", SDATA (Fsymbol_name (algorithm)));
+    error ("Invalid algorithm arg: %s", SDATA (Fsymbol_name (algorithm, Qnil)));
 
   /* allocate 2 x digest_size so that it can be re-used to hold the
      hexified value */

diff --git a/src/font.c b/src/font.c
index 0d03eeafe89686353cafc98cb6669dd69e3a8e4e..c9e3dc737e284f1f194b079ad85a79c5023cb7d0 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -532,11 +532,11 @@ static Lisp_Object
 font_prop_validate_symbol (Lisp_Object prop, Lisp_Object val)
 {
   if (STRINGP (val))
-    val = Fintern (val, Qnil);
+    val = Fintern (val, Qnil, Qnil);
   if (! SYMBOLP (val))
     val = Qerror;
   else if (EQ (prop, QCregistry))
-    val = Fintern (Fdowncase (SYMBOL_NAME (val)), Qnil);
+    val = Fintern (Fdowncase (SYMBOL_NAME (val)), Qnil, Qnil);
   return val;
 }
 
@@ -1009,7 +1009,7 @@ font_expand_wildcards (Lisp_Object *field, int n)
   memclear (field + j, (XLFD_LAST_INDEX - j) * word_size);
   if (FIXNUMP (field[XLFD_ENCODING_INDEX]))
     field[XLFD_ENCODING_INDEX]
-      = Fintern (Fnumber_to_string (field[XLFD_ENCODING_INDEX]), Qnil);
+      = Fintern (Fnumber_to_string (field[XLFD_ENCODING_INDEX]), Qnil, Qnil);
   return 0;
 }
 
@@ -1197,7 +1197,7 @@ font_parse_xlfd_1 (char *name, ptrdiff_t len, Lisp_Object font, int segments)
                         SYMBOL_NAME (prop[XLFD_ENCODING_INDEX]));
        }
       if (! NILP (val))
-       ASET (font, FONT_REGISTRY_INDEX, Fintern (val, Qnil));
+       ASET (font, FONT_REGISTRY_INDEX, Fintern (val, Qnil, Qnil));
 
       if (FIXNUMP (prop[XLFD_PIXEL_INDEX]))
        ASET (font, FONT_SIZE_INDEX, prop[XLFD_PIXEL_INDEX]);
@@ -1811,7 +1811,7 @@ font_parse_family_registry (Lisp_Object family, Lisp_Object registry, Lisp_Objec
          Ffont_put (font_spec, QCfamily, font_intern_prop (p1, len, 1));
        }
       else
-       ASET (font_spec, FONT_FAMILY_INDEX, Fintern (family, Qnil));
+       ASET (font_spec, FONT_FAMILY_INDEX, Fintern (family, Qnil, Qnil));
     }
   if (! NILP (registry))
     {
@@ -1827,7 +1827,7 @@ font_parse_family_registry (Lisp_Object family, Lisp_Object registry, Lisp_Objec
          registry = concat2 (registry, extra);
        }
       registry = Fdowncase (registry);
-      ASET (font_spec, FONT_REGISTRY_INDEX, Fintern (registry, Qnil));
+      ASET (font_spec, FONT_REGISTRY_INDEX, Fintern (registry, Qnil, Qnil));
     }
 }
 

diff --git a/src/frame.c b/src/frame.c
index 7d902dabd4f5b96a48dc2b43bfc42ce9c087a041..3b1c6404c59133978e7e0e311921db49fd58d511 100644 (file)
--- a/src/frame.c
+++ b/src/frame.c
@@ -4776,7 +4776,7 @@ gui_set_font_backend (struct frame *f, Lisp_Object new_value, Lisp_Object old_va
        {
          while (*p1 && ! c_isspace (*p1) && *p1 != ',') p1++;
          if (p0 < p1)
-           new_value = Fcons (Fintern (make_string (p0, p1 - p0), Qnil),
+           new_value = Fcons (Fintern (make_string (p0, p1 - p0), Qnil, Qt),
                               new_value);
          if (*p1)
            {
@@ -5461,7 +5461,7 @@ gui_display_get_arg (Display_Info *dpyinfo, Lisp_Object alist, Lisp_Object param
                      || !strcmp (SSDATA (lower), "false"))
                  return Qnil;
                else
-                 return Fintern (tem, Qnil);
+                 return Fintern (tem, Qnil, Qnil);
              }
 
            default:

diff --git a/src/json.c b/src/json.c
index 621c7d7c15fadc68c3252af6c8c540db1cee9a91..41477701176ad743ef175ba35916dc51fa27c162 100644 (file)
--- a/src/json.c
+++ b/src/json.c
@@ -896,7 +896,7 @@ json_to_lisp (json_t *json, const struct json_configuration *conf)
               json_object_foreach (json, key_str, value)
                 {
                   Lisp_Object key
-                   = Fintern (build_string_from_utf8 (key_str), Qnil);
+                   = Fintern (build_string_from_utf8 (key_str), Qnil, Qnil);
                   result
                     = Fcons (Fcons (key, json_to_lisp (value, conf)),
                              result);

diff --git a/src/keyboard.c b/src/keyboard.c
index 7bf89ac7d4b7582c6156a17adac642a7f58ec9b3..42b6e7db625edfe8e07ff247f3a0578ae3fae44d 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -6832,7 +6832,7 @@ apply_modifiers_uncached (int modifiers, char *base, int base_len, int base_len_
     memcpy (SDATA (new_name), new_mods, mod_len);
     memcpy (SDATA (new_name) + mod_len, base, base_len_byte);
 
-    return Fintern (new_name, Qnil);
+    return Fintern (new_name, Qnil, Qnil);
   }
 }
 
@@ -6895,7 +6895,7 @@ parse_modifiers (Lisp_Object symbol)
 
       unmodified = Fintern (make_string (SSDATA (SYMBOL_NAME (symbol)) + end,
                                         SBYTES (SYMBOL_NAME (symbol)) - end),
-                           Qnil);
+                           Qnil, Qnil);
 
       if (modifiers & ~INTMASK)
        emacs_abort ();

diff --git a/src/keymap.c b/src/keymap.c
index 506b755e5dad3fb0bae15a4fdb9deefe67a74d8c..a52b35799c4033f6c6f82cfd988187797f0b6f49 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1354,7 +1354,7 @@ recognize the default bindings, just as `read-key-sequence' does.  */)
            ASET (new_key, i, item);
          else
            {
-             Lisp_Object key_item = Fsymbol_name (item);
+             Lisp_Object key_item = Fsymbol_name (item, Qnil);
              Lisp_Object new_item;
              if (!STRING_MULTIBYTE (key_item))
                new_item = Fdowncase (key_item);
@@ -1385,7 +1385,7 @@ recognize the default bindings, just as `read-key-sequence' does.  */)
                                                    SBYTES (key_item));
                  SAFE_FREE ();
                }
-             ASET (new_key, i, Fintern (new_item, Qnil));
+             ASET (new_key, i, Fintern (new_item, Qnil, Qnil));
            }
        }
 
@@ -1402,7 +1402,7 @@ recognize the default bindings, just as `read-key-sequence' does.  */)
          if (!SYMBOLP (AREF (new_key, i)))
            continue;
 
-         Lisp_Object lc_key = Fsymbol_name (AREF (new_key, i));
+         Lisp_Object lc_key = Fsymbol_name (AREF (new_key, i), Qnil);
 
          /* If there are no spaces in this symbol, just skip it.  */
          if (!strstr (SSDATA (lc_key), " "))
@@ -1427,7 +1427,7 @@ recognize the default bindings, just as `read-key-sequence' does.  */)
          Lisp_Object new_it =
            make_multibyte_string ((char *) dst,
                                   SCHARS (lc_key), SBYTES (lc_key));
-         ASET (new_key, i, Fintern (new_it, Qnil));
+         ASET (new_key, i, Fintern (new_it, Qnil, Qnil));
          SAFE_FREE ();
        }
 
@@ -1471,7 +1471,7 @@ silly_event_symbol_error (Lisp_Object c)
   Lisp_Object parsed = parse_modifiers (c);
   int modifiers = XFIXNAT (XCAR (XCDR (parsed)));
   Lisp_Object base = XCAR (parsed);
-  Lisp_Object name = Fsymbol_name (base);
+  Lisp_Object name = Fsymbol_name (base, Qnil);
   /* This alist includes elements such as ("RET" . "\\r").  */
   Lisp_Object assoc = Fassoc (name, exclude_keys, Qnil);
 
@@ -2349,7 +2349,7 @@ See `text-char-description' for describing character codes.  */)
          return result;
        }
       else
-       return Fsymbol_name (key);
+       return Fsymbol_name (key, Qnil);
     }
   else if (STRINGP (key))      /* Buffer names in the menubar.  */
     return Fcopy_sequence (key);

diff --git a/src/lisp.h b/src/lisp.h
index 3fadd228d2d2bfdcd8c595950ed50a4a574cba86..80009d0887287f26b2a3fd160cec9b4c92ccbe6a 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2289,8 +2289,8 @@ extern Lisp_Object pkg_unqualified_symbol (Lisp_Object name);
 extern bool pkg_keywordp (Lisp_Object obj);
 extern Lisp_Object pkg_define_symbol (Lisp_Object sym, Lisp_Object package);
 extern Lisp_Object pkg_intern_symbol (Lisp_Object sym, Lisp_Object package, Lisp_Object *status);
-extern Lisp_Object pkg_emacs_intern (Lisp_Object name, Lisp_Object package);
-extern Lisp_Object pkg_emacs_intern_soft (Lisp_Object name, Lisp_Object package);
+extern Lisp_Object pkg_emacs_intern (Lisp_Object name, Lisp_Object package, Lisp_Object cl);
+extern Lisp_Object pkg_emacs_intern_soft (Lisp_Object name, Lisp_Object package, Lisp_Object cl);
 extern Lisp_Object pkg_emacs_unintern (Lisp_Object name, Lisp_Object package);
 extern Lisp_Object pkg_emacs_mapatoms (Lisp_Object fn, Lisp_Object package);
 extern Lisp_Object pkg_lookup_non_keyword_c_string (const char *ptr, ptrdiff_t nchars, ptrdiff_t nbytes);
@@ -2443,7 +2443,7 @@ INLINE Lisp_Object
 LISP_SYMBOL_NAME (Lisp_Object sym)
 {
   if (SYMBOL_KEYWORD_P (sym))
-    return Fsymbol_name (sym);
+    return Fsymbol_name (sym, Qnil);
   return SYMBOL_NAME (sym);
 }
 

diff --git a/src/lread.c b/src/lread.c
index b28987551eecd67edf9fa7cb0518f98270090214..7cf3b22aeea3004e6788077901855c00de696ad7 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -3863,7 +3863,7 @@ read0 (Lisp_Object readcharfun, bool locate_syms)
 
          case '#':
            /* ## -- the empty symbol */
-           obj = Fintern (empty_unibyte_string, Qnil);
+           obj = Fintern (empty_unibyte_string, Qnil, Qnil);
            break;
 
          case 's':
@@ -4011,7 +4011,7 @@ read0 (Lisp_Object readcharfun, bool locate_syms)
              {
                /* No symbol character follows: this is the empty symbol.  */
                UNREAD (c);
-               obj = Fintern (empty_unibyte_string, Qnil);
+               obj = Fintern (empty_unibyte_string, Qnil, Qnil);
                break;
              }
            uninterned_symbol = false;
@@ -4788,25 +4788,25 @@ pkg_define_builtin_symbols (void)
     define_symbol (builtin_lisp_symbol (i), defsym_name[i]);
 }
 
-DEFUN ("intern", Fintern, Sintern, 1, 2, 0,
+DEFUN ("intern", Fintern, Sintern, 1, 3, 0,
        doc: /* Return the canonical symbol whose name is STRING.
 If there is none, one is created by this function and returned.
 A second optional argument specifies the obarray to use;
 it defaults to the value of `obarray'.  */)
-  (Lisp_Object string, Lisp_Object package)
+  (Lisp_Object string, Lisp_Object package, Lisp_Object cl)
 {
-  return pkg_emacs_intern (string, package);
+  return pkg_emacs_intern (string, package, cl);
 }
 
-DEFUN ("intern-soft", Fintern_soft, Sintern_soft, 1, 2, 0,
+DEFUN ("intern-soft", Fintern_soft, Sintern_soft, 1, 3, 0,
        doc: /* Return the canonical symbol named NAME, or nil if none exists.
 NAME may be a string or a symbol.  If it is a symbol, that exact
 symbol is searched for.
 A second optional argument specifies the obarray to use;
 it defaults to the value of `obarray'.  */)
-  (Lisp_Object name, Lisp_Object obarray)
+  (Lisp_Object name, Lisp_Object obarray, Lisp_Object cl)
 {
-  return pkg_emacs_intern_soft (name, obarray);
+  return pkg_emacs_intern_soft (name, obarray, cl);
 }
 
 DEFUN ("unintern", Funintern, Sunintern, 1, 2, 0,

diff --git a/src/minibuf.c b/src/minibuf.c
index 3a29c579a27b5b4b416221f418e2cd5e7def3259..48fcbf203140a5ef42040ef53e1f5923a731e870 100644 (file)
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -1434,7 +1434,7 @@ null input, return a symbol whose name is an empty string.  */)
                           Qnil, Qnil, default_string, Qnil);
   if (NILP (name))
     return name;
-  return Fintern (name, Qnil);
+  return Fintern (name, Qnil, Qnil);
 }
 
 #ifdef NOTDEF
@@ -1471,7 +1471,7 @@ A user option, or customizable variable, is one for which
                           default_string, Qnil);
   if (NILP (name))
     return name;
-  return Fintern (name, Qnil);
+  return Fintern (name, Qnil, Qnil);
 }
 
 DEFUN ("read-buffer", Fread_buffer, Sread_buffer, 1, 4, 0,
@@ -1685,7 +1685,7 @@ or from one of the possible completions.  */)
       /* Is this element a possible completion?  */
 
       if (SYMBOLP (eltstring))
-       eltstring = Fsymbol_name (eltstring);
+       eltstring = Fsymbol_name (eltstring, Qnil);
 
       if (STRINGP (eltstring)
          && SCHARS (string) <= SCHARS (eltstring)
@@ -1924,7 +1924,7 @@ with a space are ignored unless STRING itself starts with a space.  */)
       /* Is this element a possible completion?  */
 
       if (SYMBOLP (eltstring))
-       eltstring = Fsymbol_name (eltstring);
+       eltstring = Fsymbol_name (eltstring, Qnil);
 
       if (STRINGP (eltstring)
          && SCHARS (string) <= SCHARS (eltstring)
@@ -2093,7 +2093,7 @@ the values STRING, PREDICATE and `lambda'.  */)
           {
             tem = HASH_KEY (h, i);
             if (BASE_EQ (tem, Qunbound)) continue;
-            Lisp_Object strkey = (SYMBOLP (tem) ? Fsymbol_name (tem) : tem);
+            Lisp_Object strkey = (SYMBOLP (tem) ? Fsymbol_name (tem, Qnil) : tem);
             if (!STRINGP (strkey)) continue;
             if (BASE_EQ (Fcompare_strings (string, Qnil, Qnil,
                                           strkey, Qnil, Qnil,
@@ -2193,7 +2193,7 @@ single string, rather than a cons cell whose car is a string.  */)
   register Lisp_Object tail;
 
   if (SYMBOLP (key))
-    key = Fsymbol_name (key);
+    key = Fsymbol_name (key, Qnil);
 
   for (tail = list; CONSP (tail); tail = XCDR (tail))
     {
@@ -2201,7 +2201,7 @@ single string, rather than a cons cell whose car is a string.  */)
       elt = XCAR (tail);
       thiscar = CONSP (elt) ? XCAR (elt) : elt;
       if (SYMBOLP (thiscar))
-       thiscar = Fsymbol_name (thiscar);
+       thiscar = Fsymbol_name (thiscar, Qnil);
       else if (!STRINGP (thiscar))
        continue;
       tem = Fcompare_strings (thiscar, make_fixnum (0), Qnil,

diff --git a/src/pkg.c b/src/pkg.c
index 7f78c61cf322bc4380d9b6f43dce26f3482983fa..52d05a69e26f882fd9588576a9b087dcc0188fdc 100644 (file)
--- a/src/pkg.c
+++ b/src/pkg.c
@@ -521,7 +521,7 @@ pkg_fake_me_an_obarray (Lisp_Object vector)
 /* Implements Emacs' traditional Fintern function.  */
 
 Lisp_Object
-pkg_emacs_intern (Lisp_Object name, Lisp_Object package)
+pkg_emacs_intern (Lisp_Object name, Lisp_Object package, Lisp_Object cl)
 {
   CHECK_STRING (name);
 
@@ -547,7 +547,7 @@ pkg_emacs_intern (Lisp_Object name, Lisp_Object package)
 /* Implements Emacs' traditional Fintern_soft function.  */
 
 Lisp_Object
-pkg_emacs_intern_soft (Lisp_Object name, Lisp_Object package)
+pkg_emacs_intern_soft (Lisp_Object name, Lisp_Object package, Lisp_Object cl)
 {
   /* intern-soft allows symbols.  */
   Lisp_Object orig = name;

diff --git a/src/print.c b/src/print.c
index e25c88e25114a75f5d0eb8e6a7f91fe31df6ca76..cc84b8443e3dfdf11cc82a78b719f4495934a63e 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1904,7 +1904,7 @@ print_vectorlike (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag,
            /* A frame could be too young and have no name yet;
               don't crash.  */
            if (SYMBOLP (frame_name))
-             frame_name = Fsymbol_name (frame_name);
+             frame_name = Fsymbol_name (frame_name, Qnil);
            else        /* can't happen: name should be either nil or string */
              frame_name = build_string ("*INVALID*FRAME*NAME*");
          }
@@ -2029,7 +2029,7 @@ print_vectorlike (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag,
       Lisp_Object language = XTS_PARSER (obj)->language_symbol;
       /* No need to print the buffer because it's not that useful: we
         usually know which buffer a parser belongs to.  */
-      print_string (Fsymbol_name (language), printcharfun);
+      print_string (Fsymbol_name (language, Qnil), printcharfun);
       printchar ('>', printcharfun);
       break;
     case PVEC_TS_NODE:

diff --git a/src/process.c b/src/process.c
index e07a019b464f3f2c31de3242bed53a50b894d90b..fec8b9c53fd38ee2fad550d5489642ff94e1920a 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -821,7 +821,7 @@ status_message (struct Lisp_Process *p)
       return CALLN (Fformat, format, code);
     }
   else
-    return Fcopy_sequence (Fsymbol_name (symbol));
+    return Fcopy_sequence (Fsymbol_name (symbol, Qnil));
 }
 \f
 enum { PTY_NAME_SIZE = 24 };

diff --git a/src/term.c b/src/term.c
index f8104e0304e368811cfa33608f5185718641ed4b..711740d45eaf80c7b270e11d31e727085580b5c5 100644 (file)
--- a/src/term.c
+++ b/src/term.c
@@ -2160,7 +2160,7 @@ set_tty_color_mode (struct tty_display_info *tty, struct frame *f)
   Lisp_Object color_mode;
   int mode;
   Lisp_Object tty_color_mode_alist
-    = Fintern_soft (build_string ("tty-color-mode-alist"), Qnil);
+    = Fintern_soft (build_string ("tty-color-mode-alist"), Qnil, Qnil);
 
   tem = assq_no_quit (Qtty_color_mode, f->param_alist);
   val = CONSP (tem) ? XCDR (tem) : Qnil;

diff --git a/src/treesit.c b/src/treesit.c
index d168ff02b69631e37a127828e57eb680b5436eb3..67b0f4b1810fc27224b40a4979ebcfe9ca6bedd1 100644 (file)
--- a/src/treesit.c
+++ b/src/treesit.c
@@ -528,7 +528,7 @@ static TSLanguage *
 treesit_load_language (Lisp_Object language_symbol,
                       Lisp_Object *signal_symbol, Lisp_Object *signal_data)
 {
-  Lisp_Object symbol_name = Fsymbol_name (language_symbol);
+  Lisp_Object symbol_name = Fsymbol_name (language_symbol, Qnil);
 
   CHECK_LIST (Vtreesit_extra_load_path);
 
@@ -2408,7 +2408,7 @@ treesit_predicate_pred (Lisp_Object args, struct capture_range captures)
                                   "but was only given"),
              Flength (args));
 
-  Lisp_Object fn = Fintern (XCAR (args), Qnil);
+  Lisp_Object fn = Fintern (XCAR (args), Qnil, Qnil);
   Lisp_Object nodes = Qnil;
   Lisp_Object tail = XCDR (args);
   FOR_EACH_TAIL (tail)

diff --git a/src/xdisp.c b/src/xdisp.c
index db6dd3fab63a139e72f94f969b9bb4062059846d..525279de9f17060bd6bf2fe31872779d7ad6d417 100644 (file)
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -28201,7 +28201,7 @@ decode_mode_spec (struct window *w, register int c, int field_width,
       if (NILP (obj))
        return "no process";
 #ifndef MSDOS
-      obj = Fsymbol_name (Fprocess_status (obj));
+      obj = Fsymbol_name (Fprocess_status (obj), Qnil);
 #endif
       break;
 

diff --git a/src/xfaces.c b/src/xfaces.c
index 823c1d93d07cb2da77da7f8f666622964c0b660b..99ce2b869ee97d91eaeec809581e1a9d71dc1ace 100644 (file)
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -1944,7 +1944,7 @@ resolve_face_name (Lisp_Object face_name, bool signal_p)
   Lisp_Object tortoise, hare;
 
   if (STRINGP (face_name))
-    face_name = Fintern (face_name, Qnil);
+    face_name = Fintern (face_name, Qnil, Qnil);
 
   if (NILP (face_name) || !SYMBOLP (face_name))
     return face_name;
@@ -5656,7 +5656,7 @@ be found.  Value is ALIST.  */)
       entry = Fcopy_sequence (entry);
       XSETCAR (tail, entry);
       for (tail2 = entry; CONSP (tail2); tail2 = XCDR (tail2))
-       XSETCAR (tail2, Fintern (XCAR (tail2), Qnil));
+       XSETCAR (tail2, Fintern (XCAR (tail2), Qnil, Qnil));
     }
 
   Vface_alternative_font_family_alist = alist;