1472 |
(make-local-variable 'comment-start-skip) |
(make-local-variable 'comment-start-skip) |
1473 |
(setq comment-start-skip "#+ *") |
(setq comment-start-skip "#+ *") |
1474 |
(make-local-variable 'defun-prompt-regexp) |
(make-local-variable 'defun-prompt-regexp) |
1475 |
(setq defun-prompt-regexp "^[ \t]*sub[ \t]+\\([^ \t\n{(;]+\\)\\([ \t]*([^()]*)[ \t]*\\)?[ \t]*") |
(setq defun-prompt-regexp "^[ \t]*sub[ \t\n]+\\([^ \t\n{(;]+\\)\\([ \t\n]*([^()]*)[ \t\n]*\\)?[ \t\n]*)") |
1476 |
(make-local-variable 'comment-indent-function) |
(make-local-variable 'comment-indent-function) |
1477 |
(setq comment-indent-function 'cperl-comment-indent) |
(setq comment-indent-function 'cperl-comment-indent) |
1478 |
(make-local-variable 'parse-sexp-ignore-comments) |
(make-local-variable 'parse-sexp-ignore-comments) |