diff options
| -rw-r--r-- | emacs/caml-compat.el | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/emacs/caml-compat.el b/emacs/caml-compat.el new file mode 100644 index 000000000..dfe0ed78f --- /dev/null +++ b/emacs/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) + |