From ef77466323f85a3d1b65b46a3deb93652ef22085 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Thu, 9 Sep 2021 00:29:12 -0400 Subject: The old record syntax has been re-purposed as variant syntax. --- lux-mode/lux-mode.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'lux-mode') 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) -- cgit v1.2.3