From: Daniel Koning <dk@danielkoning.com>
Date: Tue, 23 Jun 2020 00:03:20 +0000 (-0500)
Subject: Use 'emacs-lisp-mode-syntax-table' for reading Lisp expressions
X-Git-Tag: emacs-28.0.90~7074
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=32b3856f850e1721b3be23b50f4b90f9f59fee8a;p=emacs.git

Use 'emacs-lisp-mode-syntax-table' for reading Lisp expressions

* lisp/simple.el (read--expression): Set syntax table to
'emacs-lisp-mode-syntax-table' when reading a Lisp expression
from the minibuffer.  (Bug#41781)

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/simple.el b/lisp/simple.el
index a28d10fd4a5..2f92238e640 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1622,8 +1622,11 @@ display the result of expression evaluation."
   (let ((minibuffer-completing-symbol t))
     (minibuffer-with-setup-hook
         (lambda ()
-          ;; FIXME: call emacs-lisp-mode (see also
-          ;; `eldoc--eval-expression-setup')?
+          ;; FIXME: instead of just applying the syntax table, maybe
+          ;; use a special major mode tailored to reading Lisp
+          ;; expressions from the minibuffer? (`emacs-lisp-mode'
+          ;; doesn't preserve the necessary keybindings.)
+          (set-syntax-table emacs-lisp-mode-syntax-table)
           (add-hook 'completion-at-point-functions
                     #'elisp-completion-at-point nil t)
           (run-hooks 'eval-expression-minibuffer-setup-hook))