scratch/add-lisp-data-mode 9b37969 1/2: lisp-mode-variables uses lisp-mode-syntax-table

[Jo�o T�vora]

branch: scratch/add-lisp-data-mode
commit 9b37969b4a56f4a242ef19388d6feed43ffd048d
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>

    lisp-mode-variables uses lisp-mode-syntax-table
    
    All core modes that weren't interested overwrite it anyway for
    emacs-lisp.  And third party usage of this functions (in SLIME/SLY)
    wants the lisp-mode-syntax-table anyway.
    
    * lisp/emacs-lisp/lisp-mode.el (lisp-mode-variables): Use
    lisp-mode-syntax-table by default.
---
 lisp/emacs-lisp/lisp-mode.el | 2 +-
 lisp/progmodes/inf-lisp.el   | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 18f35b6..13263f2 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -614,6 +614,7 @@ Value for `adaptive-fill-function'."
 (defun lisp-mode-variables (&rest ignored)
   "Common initialization routine for lisp modes.
 Any number of parameters is accepted and ignored."
+  (set-syntax-table lisp-mode-syntax-table)
   (setq-local paragraph-ignore-fill-prefix t)
   (setq-local fill-paragraph-function 'lisp-fill-paragraph)
   (setq-local adaptive-fill-function #'lisp-adaptive-fill)
@@ -651,7 +652,6 @@ Any number of parameters is accepted and ignored."
   "Major mode for buffers holding data written in Lisp syntax."
   :group 'lisp
   (lisp-mode-variables)
-  (set-syntax-table lisp-mode-syntax-table)
   (setq-local electric-quote-string t)
   (setq imenu-case-fold-search nil))
 
diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el
index aa6c718..fca803b 100644
--- a/lisp/progmodes/inf-lisp.el
+++ b/lisp/progmodes/inf-lisp.el
@@ -274,7 +274,6 @@ If you accidentally suspend your process, use 
\\[comint-continue-subjob]
 to continue it."
   (setq comint-prompt-regexp inferior-lisp-prompt)
   (setq mode-line-process '(":%s"))
-  (set-syntax-table lisp-mode-syntax-table)
   (lisp-mode-variables)
   (setq comint-get-old-input (function lisp-get-old-input))
   (setq comint-input-filter (function lisp-input-filter)))