342 |
:type 'integer |
:type 'integer |
343 |
:group 'cperl-indentation-details) |
:group 'cperl-indentation-details) |
344 |
|
|
345 |
(defcustom cperl-vc-header-alist '((SCCS "($sccs) = ('%W\%' =~ /(\\d+(\\.\\d+)+)/) ;") |
(defvar cperl-vc-header-alist nil) |
346 |
(RCS "($rcs) = (' $Id\$ ' =~ /(\\d+(\\.\\d+)+)/) ;")) |
(make-obsolete-variable |
347 |
"*What to use as `vc-header-alist' in CPerl." |
'cperl-vc-header-alist |
348 |
:type '(repeat (list symbol string)) |
"use cperl-vc-rcs-header or cperl-vc-sccs-header instead.") |
349 |
|
|
350 |
|
(defcustom cperl-vc-sccs-header '("($sccs) = ('%W\%' =~ /(\\d+(\\.\\d+)+)/) ;") |
351 |
|
"*Special version of `vc-sccs-header' that is used in CPerl mode buffers." |
352 |
|
:type '(repeat string) |
353 |
|
:group 'cperl) |
354 |
|
|
355 |
|
(defcustom cperl-vc-rcs-header '("($rcs) = (' $Id\$ ' =~ /(\\d+(\\.\\d+)+)/) ;") |
356 |
|
"*Special version of `vc-rcs-header' that is used in CPerl mode buffers." |
357 |
|
:type '(repeat string) |
358 |
:group 'cperl) |
:group 'cperl) |
359 |
|
|
360 |
(defcustom cperl-clobber-mode-lists |
(defcustom cperl-clobber-mode-lists |
1494 |
(function cperl-imenu--create-perl-index)) |
(function cperl-imenu--create-perl-index)) |
1495 |
(make-local-variable 'imenu-sort-function) |
(make-local-variable 'imenu-sort-function) |
1496 |
(setq imenu-sort-function nil) |
(setq imenu-sort-function nil) |
1497 |
(make-local-variable 'vc-header-alist) |
(make-local-variable 'vc-rcs-header) |
1498 |
(set 'vc-header-alist cperl-vc-header-alist) ; Avoid warning |
(set 'vc-rcs-header cperl-vc-rcs-header) |
1499 |
|
(make-local-variable 'vc-sccs-header) |
1500 |
|
(set 'vc-sccs-header cperl-vc-sccs-header) |
1501 |
(make-local-variable 'font-lock-defaults) |
(make-local-variable 'font-lock-defaults) |
1502 |
(setq font-lock-defaults |
(setq font-lock-defaults |
1503 |
(cond |
(cond |