From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 24 Nov 2019 17:48:37 +0000 (+0100)
Subject: revert unnecessary modifications
X-Git-Tag: emacs-28.0.90~2727^2~943
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9650e5a1a90768953ce9f3eef014616180bfed8e;p=emacs.git

revert unnecessary modifications
---

diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index fedbd61ffd1..6a49c60099d 100644
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -597,6 +597,4 @@ Otherwise, return nil.  For internal use only."
 (make-obsolete 'macro-declaration-function
                'macro-declarations-alist "24.3")
 
-(provide 'byte-run)
-
 ;;; byte-run.el ends here
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index ebbee2a0c7c..7be43204a16 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -124,7 +124,6 @@
 (require 'backquote)
 (require 'macroexp)
 (require 'cconv)
-(require 'byte-run)
 (eval-when-compile (require 'compile))
 ;; Refrain from using cl-lib at run-time here, since it otherwise prevents
 ;; us from emitting warnings when compiling files which use cl-lib without
diff --git a/src/lread.c b/src/lread.c
index f1b17edd011..bd7182c398f 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -4195,16 +4195,13 @@ intern_c_string_1 (const char *str, ptrdiff_t len)
 {
   Lisp_Object obarray = check_obarray (Vobarray);
   Lisp_Object tem = oblookup (obarray, str, len, len);
-  Lisp_Object string;
 
   if (!SYMBOLP (tem))
     {
-      if (NILP (Vpurify_flag))
-	string = make_string (str, len);
-      else
-	string = make_pure_c_string (str, len);
-
-      tem = intern_driver (string, obarray, tem);
+      /* Creating a non-pure string from a string literal not implemented yet.
+	 We could just use make_string here and live with the extra copy.  */
+      eassert (!NILP (Vpurify_flag));
+      tem = intern_driver (make_pure_c_string (str, len), obarray, tem);
     }
   return tem;
 }