mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Enhanced python-indent-guess-indent-offset logic.

Browse source
This commit is contained in:
Fabián Ezequiel Gallina 2012-05-17 00:02:53 -03:00 • committed by Fabián Ezequiel Gallina
parent 79dafa51ba
commit 954aa7bdb8
1 changed files with 19 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lisp/progmodes/python.el
View file

@ -401,14 +401,25 @@ These make `python-indent-calculate-indentation' subtract the value of
`python-indent-offset'.")
(defun python-indent-guess-indent-offset ()
"Guess and set the value for `python-indent-offset' given the current buffer."
(let ((guessed-indentation (save-excursion
(goto-char (point-min))
(re-search-forward ":\\s-*\n" nil t)
(while (and (not (eobp)) (forward-comment 1)))
(current-indentation))))
(when (not (equal guessed-indentation 0))
(setq python-indent-offset guessed-indentation))))
"Guess and set `python-indent-offset' for the current buffer."
(save-excursion
(let ((found-block))
(while (and (not found-block)
(re-search-forward
(python-rx line-start block-start) nil t))
(when (not (syntax-ppss-context (syntax-ppss)))
(setq found-block t)))
(if (not found-block)
(message "Can't guess python-indent-offset, using defaults: %s"
python-indent-offset)
(while (and (progn
(goto-char (line-end-position))
(python-info-continuation-line-p))
(not (eobp)))
(forward-line 1))
(forward-line 1)
(forward-comment 1)
(setq python-indent-offset (current-indentation))))))
(defun python-indent-context (&optional stop)
"Return information on indentation context.