1 |
;;; perl-mode.el --- Perl code editing commands for GNU Emacs |
;;; perl-mode.el --- Perl code editing commands for GNU Emacs |
2 |
|
|
3 |
;; Copyright (C) 1990, 1994, 2003 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1994, 2003, 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: William F. Mann |
;; Author: William F. Mann |
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
408 |
create a new comment." |
create a new comment." |
409 |
:type 'boolean) |
:type 'boolean) |
410 |
|
|
411 |
(defcustom perl-nochange ";?#\\|\f\\|\\s(\\|\\(\\w\\|\\s_\\)+:" |
(defcustom perl-nochange ";?#\\|\f\\|\\s(\\|\\(\\w\\|\\s_\\)+:[^:]" |
412 |
"*Lines starting with this regular expression are not auto-indented." |
"*Lines starting with this regular expression are not auto-indented." |
413 |
:type 'regexp) |
:type 'regexp) |
414 |
|
|
769 |
(skip-chars-forward " \t\f\n") |
(skip-chars-forward " \t\f\n") |
770 |
(cond ((looking-at ";?#") |
(cond ((looking-at ";?#") |
771 |
(forward-line 1) t) |
(forward-line 1) t) |
772 |
((looking-at "\\(\\w\\|\\s_\\)+:") |
((looking-at "\\(\\w\\|\\s_\\)+:[^:]") |
773 |
(save-excursion |
(save-excursion |
774 |
(end-of-line) |
(end-of-line) |
775 |
(setq colon-line-end (point))) |
(setq colon-line-end (point))) |
929 |
|
|
930 |
(provide 'perl-mode) |
(provide 'perl-mode) |
931 |
|
|
932 |
;;; arch-tag: 8c7ff68d-15f3-46a2-ade2-b7c41f176826 |
;; arch-tag: 8c7ff68d-15f3-46a2-ade2-b7c41f176826 |
933 |
;;; perl-mode.el ends here |
;;; perl-mode.el ends here |