Function: cperl-indent-for-comment

cperl-indent-for-comment is an interactive and byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-indent-for-comment)

Documentation

Substitute for indent-for-comment in CPerl.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
;;(defun cperl-comment-indent-fallback ()
;;  "Is called if the standard comment-search procedure fails.
;;Point is at start of real comment."
;;  (let ((c (current-column)) target cnt prevc)
;;    (if (= c comment-column) nil
;;      (setq cnt (skip-chars-backward " \t"))
;;      (setq target (max (1+ (setq prevc
;;			     (current-column))) ; Else indent at comment column
;;		   comment-column))
;;      (if (= c comment-column) nil
;;	(delete-backward-char cnt)
;;	(while (< prevc target)
;;	  (insert "\t")
;;	  (setq prevc (current-column)))
;;	(if (> prevc target) (progn (delete-char -1) (setq prevc (current-column))))
;;	(while (< prevc target)
;;	  (insert " ")
;;	  (setq prevc (current-column)))))))

(defun cperl-indent-for-comment ()
  "Substitute for `indent-for-comment' in CPerl."
  (interactive)
  (let (cperl-wrong-comment)
    (indent-for-comment)
    (if cperl-wrong-comment		; set by `cperl-comment-indent'
	(progn (cperl-to-comment-or-eol)
	       (forward-char (length comment-start))))))