1 ;; function definitions for old versions of emacs
5 (if (not (fboundp 'indent-line-to))
6 (defun indent-line-to (column)
7 "Indent current line to COLUMN.
9 This function removes or adds spaces and tabs at beginning of line
10 only if necessary. It leaves point at end of indentation."
11 (if (= (current-indentation) column)
14 (delete-horizontal-space)
17 ;; buffer-substring-no-properties
20 ((fboundp 'buffer-substring-no-properties))
21 ((fboundp 'buffer-substring-without-properties)
22 (defalias 'buffer-substring-no-properties
23 'buffer-substring-without-properties))
25 (defalias 'buffer-substring-no-properties 'buffer-substring)))
27 (provide 'caml-compat)