diff options
author | Eduardo Julian | 2022-04-09 03:03:46 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-04-09 03:03:46 -0400 |
commit | 04c7f49a732380a2b9f72b1b937171b341c24323 (patch) | |
tree | d54c92bf10665bba0ec4643746becce569604fb2 /lux-mode | |
parent | f11afb9d2dfe2d59b41e8056eb8c4ae65268415f (diff) |
Better names for testing macros (plus better indentation).
Diffstat (limited to '')
-rw-r--r-- | lux-mode/lux-mode.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lux-mode/lux-mode.el b/lux-mode/lux-mode.el index f1ddc794a..10d4a89d2 100644 --- a/lux-mode/lux-mode.el +++ b/lux-mode/lux-mode.el @@ -570,7 +570,9 @@ This function also returns nil meaning don't specify the indentation." (defun put-lux-indent (sym indent) "Instruct `lux-indent-function' to indent the body of SYM by INDENT." - (put sym 'lux-indent-function indent)) + (if (symbolp sym) + (put sym 'lux-indent-function indent) + (put (intern sym) 'lux-indent-function indent))) (defmacro define-lux-indent (&rest kvs) "Call `put-lux-indent' on a series, KVS." @@ -582,7 +584,6 @@ This function also returns nil meaning don't specify the indentation." (define-lux-indent (function 'defun) (let 'defun) - (:let 'defun) (case 'defun) (do 'defun) (exec 'defun) @@ -601,6 +602,11 @@ This function also returns nil meaning don't specify the indentation." (remember 'defun) (to_do 'defun) (fix_me 'defun) + + (property 'defun) + ("property'" 'defun) + (coverage 'defun) + ("coverage'" 'defun) ) ;;;###autoload |