|
102 | 102 | "Major mode for `run-psci'. |
103 | 103 |
|
104 | 104 | \\<psci-mode-map>" |
105 | | - (setq-local comint-prompt-regexp (concat "^" (regexp-quote psci/prompt))) |
106 | | - (setq-local paragraph-separate "\\'") ;; so commands like M-{ and M-} work. |
107 | | - (setq-local paragraph-start comint-prompt-regexp) |
108 | | - (setq-local comint-input-sender-no-newline nil) |
109 | | - ;; (setq-local comint-input-sender 'comint-simple-send) |
110 | | - ;; (setq-local comint-get-old-input 'comint-get-old-input-default) |
111 | | - (setq-local comint-process-echoes nil) |
112 | | - (setq-local comint-prompt-read-only t) ;; read-only prompt |
113 | | - (setq-local comint-eol-on-send t) |
114 | | - (setq-local comint-input-filter-functions nil) |
115 | | - (setq-local font-lock-defaults '(purescript-font-lock-keywords t)) |
116 | | - (setq-local comment-start "-- ") |
117 | | - (setq-local comment-use-syntax t)) |
| 105 | + (set (make-local-variable 'comint-prompt-regexp) (concat "^" (regexp-quote psci/prompt))) |
| 106 | + (set (make-local-variable 'paragraph-separate) "\\'") ;; so commands like M-{ and M-} work. |
| 107 | + (set (make-local-variable 'paragraph-start) comint-prompt-regexp) |
| 108 | + (set (make-local-variable 'comint-input-sender-no-newline) nil) |
| 109 | + (set (make-local-variable 'comint-input-sender) 'comint-simple-send) |
| 110 | + (set (make-local-variable 'comint-get-old-input) 'comint-get-old-input-default) |
| 111 | + (set (make-local-variable 'comint-process-echoes) nil) |
| 112 | + (set (make-local-variable 'comint-prompt-read-only) t) ;; read-only prompt |
| 113 | + (set (make-local-variable 'comint-eol-on-send) t) |
| 114 | + (set (make-local-variable 'comint-input-filter-functions) nil) |
| 115 | + (set (make-local-variable 'font-lock-defaults) '(purescript-font-lock-keywords t)) |
| 116 | + (set (make-local-variable 'comment-start) "-- ") |
| 117 | + (set (make-local-variable 'comment-use-syntax) t)) |
118 | 118 |
|
119 | 119 | (defun psci/--run-psci-command! (command) |
120 | 120 | "Run psci COMMAND as string." |
|
0 commit comments