From 9b37969b4a56f4a242ef19388d6feed43ffd048d Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Sat, 18 Apr 2020 22:05:14 +0100 Subject: [PATCH] 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 18f35b69b34..13263f2fb50 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 aa6c7180413..fca803be18a 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))) -- 2.39.5