From 12c9294ea395100ca24ba90af2798e8b7ca968b5 Mon Sep 17 00:00:00 2001 From: Barry Warsaw Date: Mon, 10 Aug 1998 21:44:37 +0000 Subject: (py-compute-indentation): Changes to the `t' condition which affect indetnation of normal statements: The regular expression that searches for indenting comment lines has been changed to not require a space/tab after the first `#'. We then explicitly look for py-block-comment-prefix depending on the value of py-honor-comment-indentation. I think this more accurately reflects the documentation for py-honor-comment-indentation. --- Misc/python-mode.el | 24 +++++++++++++++--------- 1 file changed, 15 insertions(+), 9 deletions(-) diff --git a/Misc/python-mode.el b/Misc/python-mode.el index 9d42b0c..7c02026 100644 --- a/Misc/python-mode.el +++ b/Misc/python-mode.el @@ -305,9 +305,9 @@ the Emacs bell is also rung as a warning." (defcustom py-jump-on-exception t "*Jump to innermost exception frame in *Python Output* buffer. -When this variable is non-nil and ane exception occurs when running +When this variable is non-nil and an exception occurs when running Python code synchronously in a subprocess, jump immediately to the -source code of the innermost frame." +source code of the innermost traceback frame." :type 'boolean :group 'python) @@ -1506,7 +1506,7 @@ subtleties, including the use of the optional ASYNC argument." (message "Jumping to exception in file %s on line %d" file line))) (defun py-mouseto-exception (event) - "Jump to the code which cased the Python exception at EVENT. + "Jump to the code which caused the Python exception at EVENT. EVENT is usually a mouse click." (interactive "e") (cond @@ -1841,12 +1841,18 @@ dedenting." (forward-comment (- (point-max))) (let (done) (while (not done) - (re-search-backward "^[ \t]*\\([^ \t\n#]\\|#[ \t\n]\\)" - nil 'move) - (setq done (or (eq py-honor-comment-indentation t) - (bobp) - (/= (following-char) ?#) - (not (zerop (current-column))))) + (re-search-backward "^[ \t]*\\([^ \t\n#]\\|#\\)" nil 'move) + (setq done (or (bobp) + (and (eq py-honor-comment-indentation t) + (save-excursion + (back-to-indentation) + (not (looking-at py-block-comment-prefix)) + )) + (and (not (eq py-honor-comment-indentation t)) + (save-excursion + (back-to-indentation) + (not (zerop (current-column))))) + )) ))) ;; if we landed inside a string, go to the beginning of that ;; string. this handles triple quoted, multi-line spanning -- cgit v0.12