Re: cperl-indent-for-comment

[LanX]

Hi

this is my first approach to question 1...

Any suggestions?

-----------------------------------------------------------
(defun dwim-indent-for-comment (arg)
 "Indent comment after \; { ( [ otherwise insert #"
 (interactive "p")
 (if (and (memq (preceding-char)  '( ?\; ?{ ?\( ?\[ ) )
           (not   (get-text-property (point) 'face))
          )
                (indent-for-comment)
                (insert "#"))
  )

(local-set-key (kbd "#") 'dwim-indent-for-comment)
-----------------------------------------------------------