scratch/pkg 448b79db572: Use read-from-string istead of intern

[Gerd Moellmann]

branch: scratch/pkg
commit 448b79db5720e60f54d3259095d84c013127d792
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    Use read-from-string istead of intern
    
    ...for the case, the completion results in pkg:symbol
    
    * lisp/help-fns.el (help-fns--describe-function-or-command-prompt):
    (describe-variable): Use read-from-string instead of intern.
---
 lisp/help-fns.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index a8c60946121..b1489c0086a 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -247,7 +247,8 @@ interactive command."
                t nil nil
                (and fn (symbol-name fn)))))
     (unless (equal val "")
-      (setq fn (intern val)))
+      (setq fn (let ((symbol-packages t))
+                 (car (read-from-string val)))))
     ;; These error messages are intended to be less technical for the
     ;; `describe-command' case, as they are directed at users that are
     ;; not necessarily ELisp programmers.
@@ -1283,7 +1284,7 @@ it is displayed along with the global value."
                 t nil nil
                 (if (symbolp v) (symbol-name v))))
      (list (if (equal val "")
-              v (intern val)))))
+              v (car (read-from-string val))))))
   (let (file-name
         (help-buffer-under-preparation t))
     (unless (buffer-live-p buffer) (setq buffer (current-buffer)))