[nongnu] externals/caml a7770e1 141/197: clean up TABs and whitespace

[Stefan Monnier]

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.