Mercurial > emacs
changeset 62686:25f639ed2b2d
(cperl-vc-header-alist): Obsoleted.
(cperl-vc-rcs-header, cperl-vc-sccs-header): New user options.
(cperl-mode): Use them.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Tue, 24 May 2005 20:03:58 +0000 |
| parents | b0aaacc31e6b |
| children | d9bd0de2725c |
| files | lisp/progmodes/cperl-mode.el |
| diffstat | 1 files changed, 17 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/cperl-mode.el Tue May 24 18:15:09 2005 +0000 +++ b/lisp/progmodes/cperl-mode.el Tue May 24 20:03:58 2005 +0000 @@ -342,10 +342,19 @@ :type 'integer :group 'cperl-indentation-details) -(defcustom cperl-vc-header-alist '((SCCS "($sccs) = ('%W\%' =~ /(\\d+(\\.\\d+)+)/) ;") - (RCS "($rcs) = (' $Id\$ ' =~ /(\\d+(\\.\\d+)+)/) ;")) - "*What to use as `vc-header-alist' in CPerl." - :type '(repeat (list symbol string)) +(defvar cperl-vc-header-alist nil) +(make-obsolete-variable + 'cperl-vc-header-alist + "use cperl-vc-rcs-header or cperl-vc-sccs-header instead.") + +(defcustom cperl-vc-sccs-header '("($sccs) = ('%W\%' =~ /(\\d+(\\.\\d+)+)/) ;") + "*Special version of `vc-sccs-header' that is used in CPerl mode buffers." + :type '(repeat string) + :group 'cperl) + +(defcustom cperl-vc-rcs-header '("($rcs) = (' $Id\$ ' =~ /(\\d+(\\.\\d+)+)/) ;") + "*Special version of `vc-rcs-header' that is used in CPerl mode buffers." + :type '(repeat string) :group 'cperl) (defcustom cperl-clobber-mode-lists @@ -1485,8 +1494,10 @@ (function cperl-imenu--create-perl-index)) (make-local-variable 'imenu-sort-function) (setq imenu-sort-function nil) - (make-local-variable 'vc-header-alist) - (set 'vc-header-alist cperl-vc-header-alist) ; Avoid warning + (make-local-variable 'vc-rcs-header) + (set 'vc-rcs-header cperl-vc-rcs-header) + (make-local-variable 'vc-sccs-header) + (set 'vc-sccs-header cperl-vc-sccs-header) (make-local-variable 'font-lock-defaults) (setq font-lock-defaults (cond