Skip to content

Commit 60c962e

Browse files
committed
Prefer setq-local where possible
1 parent ac011fa commit 60c962e

File tree

1 file changed

+13
-13
lines changed

1 file changed

+13
-13
lines changed

psci.el

+13-13
Original file line numberDiff line numberDiff line change
@@ -172,19 +172,19 @@ Relies on .psci file for determining the project's root folder."
172172
173173
\\<psci-mode-map>"
174174
(require 'purescript-font-lock)
175-
(set (make-local-variable 'comint-prompt-regexp) (concat "^" (regexp-quote psci/prompt)))
176-
(set (make-local-variable 'paragraph-separate) "\\'") ;; so commands like M-{ and M-} work.
177-
(set (make-local-variable 'paragraph-start) comint-prompt-regexp)
178-
(set (make-local-variable 'comint-input-sender-no-newline) nil)
179-
(set (make-local-variable 'comint-input-sender) 'comint-simple-send)
180-
(set (make-local-variable 'comint-get-old-input) 'comint-get-old-input-default)
181-
(set (make-local-variable 'comint-process-echoes) nil)
182-
(set (make-local-variable 'comint-prompt-read-only) t) ;; read-only prompt
183-
(set (make-local-variable 'comint-eol-on-send) t)
184-
(set (make-local-variable 'comint-input-filter-functions) nil)
185-
(set (make-local-variable 'font-lock-defaults) '(purescript-font-lock-keywords t))
186-
(set (make-local-variable 'comment-start) "-- ")
187-
(set (make-local-variable 'comment-use-syntax) t))
175+
(setq-local comint-prompt-regexp (concat "^" (regexp-quote psci/prompt)))
176+
(setq-local paragraph-separate "\\'") ;; so commands like M-{ and M-} work.
177+
(setq-local paragraph-start comint-prompt-regexp)
178+
(setq-local comint-input-sender-no-newline nil)
179+
(setq-local comint-input-sender 'comint-simple-send)
180+
(setq-local comint-get-old-input 'comint-get-old-input-default)
181+
(setq-local comint-process-echoes nil)
182+
(setq-local comint-prompt-read-only t) ;; read-only prompt
183+
(setq-local comint-eol-on-send t)
184+
(setq-local comint-input-filter-functions nil)
185+
(setq-local font-lock-defaults '(purescript-font-lock-keywords t))
186+
(setq-local comment-start "-- ")
187+
(setq-local comment-use-syntax t))
188188

189189
;;;###autoload
190190
(defun psci/load-current-file! ()

0 commit comments

Comments
 (0)