Mercurial > emacs

comparison lisp/progmodes/cperl-mode.el @ 110741:d90a3bc6b730

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove vc-header-alist, obsolete since 21.1. * lisp/vc/vc-hooks.el (vc-header-alist): Remove obsolete variable. * lisp/vc/vc.el (vc-static-header-alist): Doc fix. * lisp/vc/vc-cvs.el (vc-cvs-header): * lisp/vc/vc-rcs.el (vc-rcs-header): * lisp/vc/vc-sccs.el (vc-sccs-header): * lisp/vc/vc-svn.el (vc-svn-header): Do not consult vc-header-alist. * lisp/obsolete/vc-mcvs.el (vc-mcvs-header): * lisp/progmodes/cperl-mode.el (cperl-mode): Only set vc-header-alist on XEmacs. * etc/NEWS: Mention above change.
author Glenn Morris <rgm@gnu.org>
date Sun, 03 Oct 2010 14:05:47 -0700
parents b10051866f51
children 05dc9dca8729
comparison
equal deleted inserted replaced
110740:ed9ff0bf7851 110741:d90a3bc6b730
1 ;;; cperl-mode.el --- Perl code editing commands for Emacs 1 ;;; cperl-mode.el --- Perl code editing commands for Emacs
2 2
3 ;; Copyright (C) 1985, 1986, 1987, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 3 ;; Copyright (C) 1985, 1986, 1987, 1991, 1992, 1993, 1994, 1995, 1996, 1997,
4 ;; 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 4 ;; 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
5 ;; Free Software Foundation, Inc. 5 ;; 2010 Free Software Foundation, Inc.
6 6
7 ;; Author: Ilya Zakharevich 7 ;; Author: Ilya Zakharevich
8 ;; Bob Olson 8 ;; Bob Olson
9 ;; Maintainer: Ilya Zakharevich <ilyaz@cpan.org> 9 ;; Maintainer: Ilya Zakharevich <ilyaz@cpan.org>
10 ;; Keywords: languages, Perl 10 ;; Keywords: languages, Perl
1800 (setq imenu-sort-function nil) 1800 (setq imenu-sort-function nil)
1801 (make-local-variable 'vc-rcs-header) 1801 (make-local-variable 'vc-rcs-header)
1802 (set 'vc-rcs-header cperl-vc-rcs-header) 1802 (set 'vc-rcs-header cperl-vc-rcs-header)
1803 (make-local-variable 'vc-sccs-header) 1803 (make-local-variable 'vc-sccs-header)
1804 (set 'vc-sccs-header cperl-vc-sccs-header) 1804 (set 'vc-sccs-header cperl-vc-sccs-header)
1805 ;; This one is obsolete... 1805 (when (featurep 'xemacs)
1806 (make-local-variable 'vc-header-alist) 1806 ;; This one is obsolete...
1807 (with-no-warnings 1807 (make-local-variable 'vc-header-alist)
1808 (set 'vc-header-alist (or cperl-vc-header-alist ; Avoid warning 1808 (set 'vc-header-alist (or cperl-vc-header-alist ; Avoid warning
1809 `((SCCS ,(car cperl-vc-sccs-header)) 1809 `((SCCS ,(car cperl-vc-sccs-header))
1810 (RCS ,(car cperl-vc-rcs-header))))) 1810 (RCS ,(car cperl-vc-rcs-header))))))
1811 )
1812 (cond ((boundp 'compilation-error-regexp-alist-alist);; xemacs 20.x 1811 (cond ((boundp 'compilation-error-regexp-alist-alist);; xemacs 20.x
1813 (make-local-variable 'compilation-error-regexp-alist-alist) 1812 (make-local-variable 'compilation-error-regexp-alist-alist)
1814 (set 'compilation-error-regexp-alist-alist 1813 (set 'compilation-error-regexp-alist-alist
1815 (cons (cons 'cperl (car cperl-compilation-error-regexp-alist)) 1814 (cons (cons 'cperl (car cperl-compilation-error-regexp-alist))
1816 (symbol-value 'compilation-error-regexp-alist-alist))) 1815 (symbol-value 'compilation-error-regexp-alist-alist)))