===================================================================
RCS file: caml-search.el,v
retrieving revision 1.1
diff -C 3 -r1.1 caml-search.el
===================================================================
RCS file: caml.el,v
retrieving revision 1.1
diff -C 3 -r1.1 caml.el
*** caml.el	1996/04/29 06:29:36	1.1
--- caml.el	1996/04/29 08:00:45
***************
*** 5,10 ****
--- 5,12 ----
  ;;indentation code is Copyright (C) 1996 by Ian T Zimmerman <itz@rahul.net>
  ;;copying: covered by the current FSF General Public License.
  
+ (or (and (fboundp 'indent-line-to) (fboundp 'match-string))
+     (require 'caml-compat))
  
  ;;user customizable variables
  (defvar caml-mode-indentation 4
***************
*** 510,516 ****
  	  (while (not done)
  	    (setq inside nil)
  	    (if (not   (re-search-forward comment-start-skip (1+ here) 'move))
! 		nil
  	      (goto-char (match-beginning 0))
  	      (setq inside (point))
  	      (caml-forward-list-safe))
--- 512,518 ----
  	  (while (not done)
  	    (setq inside nil)
  	    (if (not   (re-search-forward comment-start-skip (1+ here) 'move))
! 		(setq here 0)
  	      (goto-char (match-beginning 0))
  	      (setq inside (point))
  	      (caml-forward-list-safe))
***************
*** 525,531 ****
  	  (goto-char cached-pos)
  	  (while (not done)
  	    (setq inside nil)
! 	    (if (not (re-search-backward "\\*)" (1- here) 'move)) nil
  	      (goto-char (match-end 0))
  	      (setq inside (point))
  	      (backward-list 1))
--- 527,534 ----
  	  (goto-char cached-pos)
  	  (while (not done)
  	    (setq inside nil)
! 	    (if (not (re-search-backward "\\*)" (1- here) 'move))
! 		(setq here (point-max))
  	      (goto-char (match-end 0))
  	      (setq inside (point))
  	      (backward-list 1))
===================================================================
RCS file: camldebug.el,v
retrieving revision 1.1
diff -C 3 -r1.1 camldebug.el
===================================================================
RCS file: inf-caml.el,v
retrieving revision 1.1
diff -C 3 -r1.1 inf-caml.el
*** /dev/null	Sun Jul 17 16:46:18 1994
--- caml-compat.el	Mon Apr 29 01:00:30 1996
***************
*** 0 ****
--- 1,31 ----
+ ;;Functions missing from older 19.xx Emacsen.
+ 
+ (if (not (fboundp 'indent-line-to))
+     (defun indent-line-to (column)
+       "Indent current line to COLUMN.
+ 
+ This function removes or adds spaces and tabs at beginning of line
+ only if necessary.  It leaves point at end of indentation."
+ 
+       (beginning-of-line 1)
+       (delete-horizontal-space)
+       (indent-to column)))
+ 
+ (if (not (fboundp 'match-string))
+     (defun match-string (num &optional string)
+ 
+       "Return string of text matched by last search.
+ 
+ NUM specifies which parenthesized expression in the last regexp.
+ Value is nil if NUMth pair didn't match, or there were less than NUM
+ pairs.  Zero means the entire text matched by the whole regexp or
+ whole string.  STRING should be given if the last search was by
+ `string-match' on STRING."
+ 
+       (let* ((data (match-data))
+ 	     (begin (nth (* 2 num) data))
+ 	     (end (nth (1+ (* 2 num)) data)))
+ 	(if string (substring string begin end)
+ 	  (buffer-substring begin end)))))
+ 
+ (provide 'caml-compat)