use cooper theme -- end of git, I am trying livemesh
[srid.dotfiles.git] / emacs / external / ml / caml-compat.el
blobd7bad84d2f3c825add0c615395e5248d3abe7ad0
1 ;(***********************************************************************)
2 ;(* *)
3 ;(* Objective Caml *)
4 ;(* *)
5 ;(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
6 ;(* *)
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. *)
10 ;(* *)
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
17 ;; indent-line-to
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)
26 (back-to-indentation)
27 (beginning-of-line 1)
28 (delete-horizontal-space)
29 (indent-to column))))
31 ;; buffer-substring-no-properties
33 (cond
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)