1 ;(***********************************************************************)
5 ;(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
7 ;(* Copyright 1998 Institut National de Recherche en Informatique et *)
8 ;(* en Automatique. All rights reserved. This file is distributed *)
9 ;(* under the terms of the GNU General Public License. *)
11 ;(***********************************************************************)
13 ;(* $Id: caml-compat.el,v 1.2.18.1 2004/08/09 16:09:33 doligez Exp $ *)
15 ;; function definitions for old versions of emacs
19 (if (not (fboundp 'indent-line-to
))
20 (defun indent-line-to (column)
21 "Indent current line to COLUMN.
23 This function removes or adds spaces and tabs at beginning of line
24 only if necessary. It leaves point at end of indentation."
25 (if (= (current-indentation) column
)
28 (delete-horizontal-space)
31 ;; buffer-substring-no-properties
34 ((fboundp 'buffer-substring-no-properties
))
35 ((fboundp 'buffer-substring-without-properties
)
36 (defalias 'buffer-substring-no-properties
37 'buffer-substring-without-properties
))
39 (defalias 'buffer-substring-no-properties
'buffer-substring
)))
41 (provide 'caml-compat
)