aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes/python.el
diff options
context:
space:
mode:
authorkobarity2023-03-10 14:26:22 +0900
committerDmitry Gutov2023-03-11 15:18:47 +0200
commitc0cf69f7a17b657c784518434e1a049ce6970a43 (patch)
tree762ed7c3862345a08310a65940c199e1aff78f7b /lisp/progmodes/python.el
parentdb178517ce73618f7a659e355639893748db2e45 (diff)
downloademacs-c0cf69f7a17b657c784518434e1a049ce6970a43.tar.gz
emacs-c0cf69f7a17b657c784518434e1a049ce6970a43.zip
Make "case" keyword a dedenter in Python
* lisp/progmodes/python.el (python-rx): Add "case" to dedenter. (python-info-dedenter-opening-block-positions): Add "case" to pairs. * test/lisp/progmodes/python-tests.el (python-indent-dedenters-9): New test.
Diffstat (limited to 'lisp/progmodes/python.el')
-rw-r--r--lisp/progmodes/python.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 1980815bae9..8793fdc6458 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -426,7 +426,7 @@ This variant of `rx' supports common Python named REGEXPS."
426 (or "def" "for" "with"))) 426 (or "def" "for" "with")))
427 symbol-end)) 427 symbol-end))
428 (dedenter (seq symbol-start 428 (dedenter (seq symbol-start
429 (or "elif" "else" "except" "finally") 429 (or "elif" "else" "except" "finally" "case")
430 symbol-end)) 430 symbol-end))
431 (block-ender (seq symbol-start 431 (block-ender (seq symbol-start
432 (or 432 (or
@@ -5783,7 +5783,8 @@ likely an invalid python file."
5783 (pairs '(("elif" "elif" "if") 5783 (pairs '(("elif" "elif" "if")
5784 ("else" "if" "elif" "except" "for" "while") 5784 ("else" "if" "elif" "except" "for" "while")
5785 ("except" "except" "try") 5785 ("except" "except" "try")
5786 ("finally" "else" "except" "try"))) 5786 ("finally" "else" "except" "try")
5787 ("case" "case")))
5787 (dedenter (match-string-no-properties 0)) 5788 (dedenter (match-string-no-properties 0))
5788 (possible-opening-blocks (cdr (assoc-string dedenter pairs))) 5789 (possible-opening-blocks (cdr (assoc-string dedenter pairs)))
5789 (collected-indentations) 5790 (collected-indentations)