Function: dcl-indent-to

dcl-indent-to is an interactive and byte-compiled function defined in dcl-mode.el.gz.

Signature

(dcl-indent-to COL &optional MINIMUM)

Documentation

Like indent-to, but only indents if indentation would change.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/dcl-mode.el.gz
;;;-------------------------------------------------------------------------
(defun dcl-indent-to (col &optional minimum)
  "Like `indent-to', but only indents if indentation would change."
  (interactive)
  (let (cur-indent collapsed indent)
    (save-excursion
      (skip-chars-forward " \t")
      (setq cur-indent (current-column))
      (skip-chars-backward " \t")
      (setq collapsed (current-column)))
    (setq indent (max col (+ collapsed (or minimum 0))))
    (if (/= indent cur-indent)
	(progn
	  (dcl-delete-chars " \t")
	  (indent-to col minimum)))))