[nongnu] externals/caml 805e07c 012/197: Fichier oublie

[Stefan Monnier]

branch: externals/caml
commit 805e07c4a9077583537c3e504cc63bb1f7c8be9e
Author: Xavier Leroy <xavier.leroy@inria.fr>
Commit: Xavier Leroy <xavier.leroy@inria.fr>

    Fichier oublie
    
    
    git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1913 
f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 caml-compat.el | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/caml-compat.el b/caml-compat.el
new file mode 100644
index 0000000..dfe0ed7
--- /dev/null
+++ b/caml-compat.el
@@ -0,0 +1,28 @@
+;; function definitions for old versions of emacs
+
+;; indent-line-to
+
+(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."
+      (if (= (current-indentation) column)
+         (back-to-indentation)
+       (beginning-of-line 1)
+       (delete-horizontal-space)
+       (indent-to column))))
+
+;; buffer-substring-no-properties
+
+(cond
+ ((fboundp 'buffer-substring-no-properties))
+ ((fboundp 'buffer-substring-without-properties)
+  (defalias 'buffer-substring-no-properties
+    'buffer-substring-without-properties))
+ (t
+  (defalias 'buffer-substring-no-properties 'buffer-substring)))
+
+(provide 'caml-compat)
+