Function: cperl-calculate-indent-within-comment

cperl-calculate-indent-within-comment is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-calculate-indent-within-comment)

Documentation

Return the indentation amount for line.

Assume that the current line is to be regarded as part of a block comment.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
(defun cperl-calculate-indent-within-comment ()
  "Return the indentation amount for line.
Assume that the current line is to be regarded as part of a block
comment."
  (let (end)
    (save-excursion
      (beginning-of-line)
      (skip-chars-forward " \t")
      (setq end (point))
      (and (= (following-char) ?#)
	   (forward-line -1)
	   (cperl-to-comment-or-eol)
	   (setq end (point)))
      (goto-char end)
      (current-column))))