(py-outdent-p): new function
(py-electric-colon, py-indent-line): watch out for intervening blank or comment lines.
This commit is contained in:
parent
1c1fbf817e
commit
3874a3d7ef
|
@ -403,6 +403,19 @@ py-beep-if-tab-change\tring the bell if tab-width is changed"
|
||||||
|
|
||||||
|
|
||||||
;; electric characters
|
;; electric characters
|
||||||
|
(defun py-outdent-p ()
|
||||||
|
;; returns non-nil if the current line should outdent one level
|
||||||
|
(save-excursion
|
||||||
|
(and (progn (back-to-indentation)
|
||||||
|
(looking-at py-outdent-re))
|
||||||
|
(progn (backward-to-indentation 1)
|
||||||
|
(while (or (looking-at py-blank-or-comment-re)
|
||||||
|
(bobp))
|
||||||
|
(backward-to-indentation 1))
|
||||||
|
(not (looking-at py-no-outdent-re)))
|
||||||
|
)))
|
||||||
|
|
||||||
|
|
||||||
(defun py-electric-colon (arg)
|
(defun py-electric-colon (arg)
|
||||||
"Insert a colon.
|
"Insert a colon.
|
||||||
In certain cases the line is outdented appropriately. If a numeric
|
In certain cases the line is outdented appropriately. If a numeric
|
||||||
|
@ -414,13 +427,7 @@ argument is provided, that many colons are inserted non-electrically."
|
||||||
(outdent 0)
|
(outdent 0)
|
||||||
(indent (py-compute-indentation)))
|
(indent (py-compute-indentation)))
|
||||||
(if (and (not arg)
|
(if (and (not arg)
|
||||||
(progn
|
(py-outdent-p)
|
||||||
(back-to-indentation)
|
|
||||||
(looking-at py-outdent-re))
|
|
||||||
(prog2
|
|
||||||
(backward-to-indentation 1)
|
|
||||||
(not (looking-at py-no-outdent-re))
|
|
||||||
(goto-char here))
|
|
||||||
(= indent (progn
|
(= indent (progn
|
||||||
(forward-line -1)
|
(forward-line -1)
|
||||||
(py-compute-indentation)))
|
(py-compute-indentation)))
|
||||||
|
@ -650,11 +657,7 @@ needed so that only a single column position is deleted."
|
||||||
(move-to-indentation-p (<= (current-column) ci))
|
(move-to-indentation-p (<= (current-column) ci))
|
||||||
(need (py-compute-indentation)))
|
(need (py-compute-indentation)))
|
||||||
;; see if we need to outdent
|
;; see if we need to outdent
|
||||||
(if (save-excursion
|
(if (py-outdent-p)
|
||||||
(and (progn (back-to-indentation)
|
|
||||||
(looking-at py-outdent-re))
|
|
||||||
(progn (backward-to-indentation 1)
|
|
||||||
(not (looking-at py-no-outdent-re)))))
|
|
||||||
(setq need (- need py-indent-offset)))
|
(setq need (- need py-indent-offset)))
|
||||||
(if (/= ci need)
|
(if (/= ci need)
|
||||||
(save-excursion
|
(save-excursion
|
||||||
|
|
Loading…
Reference in New Issue