branch: externals/caml
commit a7770e11b476eff119a0be36fce61eca90007dce
Author: Damien Doligez <damien.doligez-inria.fr>
Commit: Damien Doligez <damien.doligez-inria.fr>
clean up TABs and whitespace
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@12799
f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
caml-types.el | 12 ++++++------
camldebug.el | 6 +++---
2 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/caml-types.el b/caml-types.el
index d63eaf1..ac3fb1b 100644
--- a/caml-types.el
+++ b/caml-types.el
@@ -687,21 +687,21 @@ The function uses two overlays.
(vector target-file target-line target-bol cnum))
(save-excursion
(setq node (caml-types-find-location target-pos "type"
()
- target-tree))
+ target-tree))
(set-buffer caml-types-buffer)
(erase-buffer)
(cond
- ((null node)
+ ((null node)
(delete-overlay caml-types-expr-ovl)
(setq type "*no type information*")
(setq limits
(caml-types-find-interval
target-buf target-pos target-tree)))
(t
- (let ((left
- (caml-types-get-pos target-buf (elt node 0)))
+ (let ((left
+ (caml-types-get-pos target-buf (elt node 0)))
(right
- (caml-types-get-pos target-buf (elt node 1))))
+ (caml-types-get-pos target-buf (elt node 1))))
(move-overlay
caml-types-expr-ovl left right target-buf)
(setq limits
@@ -709,7 +709,7 @@ The function uses two overlays.
target-pos node)
type (cdr (assoc "type" (elt node 2))))
))
- )
+ )
(setq mes (format "type: %s" type))
(insert type)
))
diff --git a/camldebug.el b/camldebug.el
index 0fd353a..790eb6e 100644
--- a/camldebug.el
+++ b/camldebug.el
@@ -575,7 +575,7 @@ the camldebug commands `cd DIR' and `directory'."
(let ((process-window))
;; it does not seem necessary to save excursion here,
;; since set-buffer as a temporary effect.
- ;; comint-output-filter explicitly avoids it.
+ ;; comint-output-filter explicitly avoids it.
;; in version 23, it prevents the marker to stay at end of buffer
;; (save-excursion
(set-buffer (process-buffer proc))
@@ -595,8 +595,8 @@ the camldebug commands `cd DIR' and `directory'."
(get-buffer-window (current-buffer))))
;; Insert the text, moving the process-marker.
(comint-output-filter proc output)
- ;; )
- ;; this was the end of save-excursion.
+ ;; )
+ ;; this was the end of save-excursion.
;; if save-excursion is used (comint-next-prompt 1) would be needed
;; to move the mark past then next prompt, but this is not as good
;; as solution.
