Mercurial > hg > xemacs-beta

comparison lisp/modes/cperl-mode.el @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents e45d5e7c476e
children
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
1 ;;; This code started from the following message of long time ago (IZ): 1 ;;; cperl-mode.el --- Perl code editing commands for XEmacs
2 2
3 ;;;; From: olson@mcs.anl.gov (Bob Olson)
4 ;;;; Newsgroups: comp.lang.perl
5 ;;;; Subject: cperl-mode: Another perl mode for Gnuemacs
6 ;;;; Date: 14 Aug 91 15:20:01 GMT
7
8 ;; Perl code editing commands for XEmacs
9 ;; Copyright (C) 1985-1996 Bob Olson, Ilya Zakharevich 3 ;; Copyright (C) 1985-1996 Bob Olson, Ilya Zakharevich
10 ;; Copyright (C) 1997 granted to FSF for changes made by 4 ;; Copyright (C) 1997 granted to FSF for changes made by
11 ;; Karl M. Hegbloom <karlheg@inetarena.com> 5 ;; Karl M. Hegbloom <karlheg@inetarena.com>
6
7 ;; Author: Bob Olson, Ilya Zakharevich
8 ;; Maintainer: Karl M. Hegbloom <karlheg@inetarena.com>
9 ;; Keywords: languages
12 10
13 ;; This file is part of XEmacs. It may be distributed either under the 11 ;; This file is part of XEmacs. It may be distributed either under the
14 ;; same terms as XEmacs, or under the same terms as Perl. You should 12 ;; same terms as XEmacs, or under the same terms as Perl. You should
15 ;; have received a copy of Perl Artistic license along with the Perl 13 ;; have received a copy of Perl Artistic license along with the Perl
16 ;; distribution. 14 ;; distribution.
35 ;;; XEmacs 'delete key behavior handling added for XEmacs 20.x by 33 ;;; XEmacs 'delete key behavior handling added for XEmacs 20.x by
36 ;;; Gary D. Foster <Gary.Foster@corp.sun.com> 34 ;;; Gary D. Foster <Gary.Foster@corp.sun.com>
37 ;;; Karl M. Hegbloom <karlheg@inetarena.com> 35 ;;; Karl M. Hegbloom <karlheg@inetarena.com>
38 36
39 ;; Original Vendor Version Number: (mostly based on...) 37 ;; Original Vendor Version Number: (mostly based on...)
40 ;; $Id: cperl-mode.el,v 1.15 1997/10/31 14:52:54 steve Exp $ 38 ;; $Id: cperl-mode.el,v 1.16 1997/11/08 23:36:57 steve Exp $
41 39
42 ;; Increment the final digit once per XEmacs-only revision, the other 40 ;; Increment the final digit once per XEmacs-only revision, the other
43 ;; for merges. (sound ok?) 41 ;; for merges. (sound ok?)
44 ;;; XEmacs Version Number: 1.35-1 42 ;;; XEmacs Version Number: 1.35-1
43
44 ;;; Commentary:
45
46 ;; This code started from the following message of long time ago (IZ):
47
48 ;; From: olson@mcs.anl.gov (Bob Olson)
49 ;; Newsgroups: comp.lang.perl
50 ;; Subject: cperl-mode: Another perl mode for Gnuemacs
51 ;; Date: 14 Aug 91 15:20:01 GMT
45 52
46 ;; This mode should autoload when you edit a perl file under XEmacs. 53 ;; This mode should autoload when you edit a perl file under XEmacs.
47 54
48 ;;; DO NOT FORGET to read micro-docs. (available from `Perl' menu). <<<<<< 55 ;;; DO NOT FORGET to read micro-docs. (available from `Perl' menu). <<<<<<
49 ;;; or as help on variables `cperl-tips', `cperl-problems', <<<<<< 56 ;;; or as help on variables `cperl-tips', `cperl-problems', <<<<<<
415 ;;; Class hierarchy is "mostly" sorted (need to rethink algorthm 422 ;;; Class hierarchy is "mostly" sorted (need to rethink algorthm
416 ;;; of pruning one-root-branch subtrees to get yet better sorting.) 423 ;;; of pruning one-root-branch subtrees to get yet better sorting.)
417 ;;; Regeneration of TAGS was busted. 424 ;;; Regeneration of TAGS was busted.
418 ;;; Can use `syntax-table' property when generating TAGS 425 ;;; Can use `syntax-table' property when generating TAGS
419 ;;; (governed by `cperl-use-syntax-table-text-property-for-tags'). 426 ;;; (governed by `cperl-use-syntax-table-text-property-for-tags').
427
428 ;;; Code:
420 429
421 (defconst cperl-xemacs-p (string-match "XEmacs\\|Lucid" emacs-version)) 430 (defconst cperl-xemacs-p (string-match "XEmacs\\|Lucid" emacs-version))
422 431
423 432
424 ;;--------------------------------------------------------- 433 ;;---------------------------------------------------------