diff options
author | Pierre Courtieu <courtieu@lri.fr> | 2006-07-04 17:38:57 +0000 |
---|---|---|
committer | Pierre Courtieu <courtieu@lri.fr> | 2006-07-04 17:38:57 +0000 |
commit | ceb90ae8673b7a7989c8049000e4ec95cf727667 (patch) | |
tree | 011b63c87ed81d6fad0d2bf790e0d9b3a5e3d4bb /coq/coq-indent.el | |
parent | a88b79a4e42bbb2e12e290c46496e3dde162de95 (diff) |
removed debug messages from indentation code.
Diffstat (limited to 'coq/coq-indent.el')
-rw-r--r-- | coq/coq-indent.el | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/coq/coq-indent.el b/coq/coq-indent.el index f7cac5d8..6db1688f 100644 --- a/coq/coq-indent.el +++ b/coq/coq-indent.el @@ -138,14 +138,11 @@ detect if they start something or not." (defun coq-find-command-start-backward () "Move to the start of current command." - (message "PRE WHILE") (coq-find-command-end-backward) (while (and (proof-looking-at-syntactic-context) (> (point) (point-min))) - (message "WHILE") (coq-find-command-end-backward)) - (if (proof-looking-at "\\.\\s-") (progn (forward-char 1)(message "start found")) - (message "start not found")) + (if (proof-looking-at "\\.\\s-") (forward-char 1)) (point) ) @@ -199,17 +196,13 @@ detect if they start something or not." (if (= limit (point)) nil) ;;swap limit and point if necessary (if (< limit (point)) (let ((x limit)) (setq limit (point)) (goto-char x))) - (message (concat (int-to-string limit) " , " (int-to-string (point)))) (let ((pos nil)) (while (and (not pos) (setq pos (proof-string-match reg (buffer-substring (point) limit)))) - (message (concat "out while: " "POS=" (int-to-string pos) " , POINT=" (int-to-string (point)))) (forward-char pos) (if (proof-looking-at-syntactic-context) (progn (setq pos nil) (forward-char 1))) - (message (concat "out while: " "POS=" (int-to-string pos) " , POINT=" (int-to-string (point)))) ) -; (goto-char oldpt) (and pos (point))) ) ) @@ -228,14 +221,9 @@ detect if they start something or not." (back-to-indentation) (if (not topnotreached) 0;; returns nil if top of buffer was reached ;; if we are at end of a command (dot) find this command - (message "prevline start 0") - (if (find-reg oldpt coq-end-command-regexp) - (progn (message "prevline start 1") (coq-find-real-start) - (message "prevline start 1.1") 1) - (message "prevline start 2") + (if (find-reg oldpt coq-end-command-regexp) (progn (coq-find-real-start) 1) (if (save-excursion (and (coq-find-real-start) - (or (message "prevline start 1.1") t) (proof-looking-at-safe "Record") (find-reg oldpt "{"))) 4 |