Rooba
/
cpython
mirror of https://github.com/python/cpython.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

(py-honor-comment-indentation): new variable. 

(py-compute-indentation): use new variable.
This commit is contained in:
Barry Warsaw 1996-03-05 16:28:07 +00:00
parent 6245a3ca3f
commit 33d6ec062e
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Misc/python-mode.el
View File

@ -99,6 +99,17 @@ that the indentation commands won't get confused (i.e., the string
should be of the form `#x...' where `x' is not a blank or a tab, and should be of the form `#x...' where `x' is not a blank or a tab, and
`...' is arbitrary).") `...' is arbitrary).")
(defvar py-honor-comment-indentation t
"*If non-nil, single-# comments are a hint to subsequent line indentation.
If the previous line is a comment which begins with a single `#'
character (as opposed to `py-block-comment-prefix' -- normally `##'),
then it's indentation is used as a hint for this line's indentation.
When this variable is nil, all comments are skipped for indentation
purposes, and a faster algorithm is used.
Under Emacs 18, or old Emacs 19's, this variable has no effect, and
the behavior is as if it were always non-nil.")
(defvar py-scroll-process-buffer t (defvar py-scroll-process-buffer t
"*Scroll Python process buffer as output arrives. "*Scroll Python process buffer as output arrives.
If nil, the Python process buffer acts, with respect to scrolling, like If nil, the Python process buffer acts, with respect to scrolling, like
@ -853,7 +864,8 @@ the new line indented."
;; will skip a blank or non-indenting comment line that ;; will skip a blank or non-indenting comment line that
;; happens to be a continuation line too. use fast Emacs 19 ;; happens to be a continuation line too. use fast Emacs 19
;; function if it's there. ;; function if it's there.
(if (fboundp 'forward-comment) (if (and (not py-honor-comment-indentation)
(fboundp 'forward-comment))
(forward-comment (- (point-max))) (forward-comment (- (point-max)))
(re-search-backward "^[ \t]*\\([^ \t\n#]\\|#[ \t\n]\\)" nil 'move)) (re-search-backward "^[ \t]*\\([^ \t\n#]\\|#[ \t\n]\\)" nil 'move))
;; if we landed inside a string, go to the beginning of that ;; if we landed inside a string, go to the beginning of that