/[emacs]/emacs/lisp/progmodes/cperl-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/cperl-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.64 by lektu, Mon May 16 11:26:54 2005 UTC revision 1.65 by spiegel, Tue May 24 20:03:58 2005 UTC
# Line 342  Affects: `cperl-font-lock', `cperl-elect Line 342  Affects: `cperl-font-lock', `cperl-elect
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
# Line 1485  or as help on variables `cperl-tips', `c Line 1494  or as help on variables `cperl-tips', `c
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

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26