diff options
| author | Eduardo Julian | 2021-09-09 00:29:12 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-09-09 00:29:12 -0400 |
| commit | ef77466323f85a3d1b65b46a3deb93652ef22085 (patch) | |
| tree | c2715b8cf6e7864fef87e22ee6e206c7c1758849 /lux-mode | |
| parent | 085c9a6ef151531cb01b842ed2f4366a49b78367 (diff) | |
The old record syntax has been re-purposed as variant syntax.
Diffstat (limited to 'lux-mode')
| -rw-r--r-- | lux-mode/lux-mode.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lux-mode/lux-mode.el b/lux-mode/lux-mode.el index 98844d106..a98a7a472 100644 --- a/lux-mode/lux-mode.el +++ b/lux-mode/lux-mode.el @@ -91,10 +91,10 @@ Otherwise check `define-lux-indent' and `put-lux-indent'." (let ((table (make-syntax-table))) (modify-syntax-entry ?\( "()" table) (modify-syntax-entry ?\) ")(" table) - (modify-syntax-entry ?\[ "(]" table) - (modify-syntax-entry ?\] ")[" table) (modify-syntax-entry ?\{ "(}" table) (modify-syntax-entry ?\} "){" table) + (modify-syntax-entry ?\[ "(]" table) + (modify-syntax-entry ?\] ")[" table) (modify-syntax-entry ?\" "\"\"" table) (modify-syntax-entry ?\s "-" table) (modify-syntax-entry ?\t "-" table) @@ -142,9 +142,10 @@ ENDP and DELIM." (if (derived-mode-p 'lux-mode) (save-excursion (backward-char) - (if (and (or (char-equal delim ?\() - (char-equal delim ?\") - (char-equal delim ?{)) + (if (and (or (char-equal delim ?\") + (char-equal delim ?\() + (char-equal delim ?\{) + (char-equal delim ?\[)) (not endp)) (if (char-equal (char-after) ?#) (and (not (bobp)) @@ -543,7 +544,7 @@ This function also returns nil meaning don't specify the indentation." (last (split-string (substring-no-properties function) "\\."))))) (setq method (get (intern-soft function-tail) 'lux-indent-function)) - (cond ((member (char-after open-paren) '(?\[ ?\{)) + (cond ((member (char-after open-paren) '(?\{ ?\[)) (goto-char open-paren) (1+ (current-column))) ((or (eq method 'defun) |