annotate lisp/progmodes/cperl-mode.el @ 100292:816fe1a75404

Add Solaris on x86_64.
author Dan Nicolaescu <dann@ics.uci.edu>
date Tue, 09 Dec 2008 20:36:23 +0000
parents 6e551caf98f6
children a9dc0e7c3f2b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1 ;;; cperl-mode.el --- Perl code editing commands for Emacs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
64699
629afbe74e61 Update copyright for release of 22.1 for progmodes directory.
Nick Roberts <nickrob@snap.net.nz>
parents: 64085
diff changeset
3 ;; Copyright (C) 1985, 1986, 1987, 1991, 1992, 1993, 1994, 1995, 1996, 1997,
79717
a1342e6e097a Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 79553
diff changeset
4 ;; 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5 ;; Free Software Foundation, Inc.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7 ;; Author: Ilya Zakharevich and Bob Olson
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8 ;; Maintainer: Ilya Zakharevich <ilyaz@cpan.org>
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9 ;; Keywords: languages, Perl
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11 ;; This file is part of GNU Emacs.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12
94673
52b7a8c22af5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
13 ;; GNU Emacs is free software: you can redistribute it and/or modify
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14 ;; it under the terms of the GNU General Public License as published by
94673
52b7a8c22af5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
15 ;; the Free Software Foundation, either version 3 of the License, or
52b7a8c22af5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
16 ;; (at your option) any later version.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
21 ;; GNU General Public License for more details.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
22
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
23 ;; You should have received a copy of the GNU General Public License
94673
52b7a8c22af5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
25
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
26 ;;; Corrections made by Ilya Zakharevich ilyaz@cpan.org
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
28 ;;; Commentary:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
29
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
30 ;; You can either fine-tune the bells and whistles of this mode or
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
31 ;; bulk enable them by putting
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
32
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
33 ;; (setq cperl-hairy t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
34
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
35 ;; in your .emacs file. (Emacs rulers do not consider it politically
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
36 ;; correct to make whistles enabled by default.)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
37
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
38 ;; DO NOT FORGET to read micro-docs (available from `Perl' menu) <<<<<<
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
39 ;; or as help on variables `cperl-tips', `cperl-problems', <<<<<<
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
40 ;; `cperl-praise', `cperl-speed'. <<<<<<
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
41
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
42 ;; The mode information (on C-h m) provides some customization help.
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
43 ;; If you use font-lock feature of this mode, it is advisable to use
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
44 ;; either lazy-lock-mode or fast-lock-mode. I prefer lazy-lock.
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
45
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
46 ;; Faces used now: three faces for first-class and second-class keywords
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
47 ;; and control flow words, one for each: comments, string, labels,
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
48 ;; functions definitions and packages, arrays, hashes, and variable
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
49 ;; definitions. If you do not see all these faces, your font-lock does
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
50 ;; not define them, so you need to define them manually.
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
51
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
52 ;; This mode supports font-lock, imenu and mode-compile. In the
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
53 ;; hairy version font-lock is on, but you should activate imenu
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
54 ;; yourself (note that mode-compile is not standard yet). Well, you
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
55 ;; can use imenu from keyboard anyway (M-x imenu), but it is better
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
56 ;; to bind it like that:
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
57
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
58 ;; (define-key global-map [M-S-down-mouse-3] 'imenu)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
59
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
60 ;;; Font lock bugs as of v4.32:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
61
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
62 ;; The following kinds of Perl code erroneously start strings:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
63 ;; \$` \$' \$"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
64 ;; $opt::s $opt_s $opt{s} (s => ...) /\s+.../
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
65 ;; likewise with m, tr, y, q, qX instead of s
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
66
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
67 ;;; Code:
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
68
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
69 (defvar vc-rcs-header)
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
70 (defvar vc-sccs-header)
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
71
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
72 (eval-when-compile
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
73 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
74 (require 'custom)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
75 (error nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
76 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
77 (require 'man)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
78 (error nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
79 (defvar cperl-can-font-lock
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
80 (or (featurep 'xemacs)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
81 (and (boundp 'emacs-major-version)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
82 (or window-system
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
83 (> emacs-major-version 20)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
84 (if cperl-can-font-lock
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
85 (require 'font-lock))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
86 (defvar msb-menu-cond)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
87 (defvar gud-perldb-history)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
88 (defvar font-lock-background-mode) ; not in Emacs
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
89 (defvar font-lock-display-type) ; ditto
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
90 (defvar paren-backwards-message) ; Not in newer XEmacs?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
91 (or (fboundp 'defgroup)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
92 (defmacro defgroup (name val doc &rest arr)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
93 nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
94 (or (fboundp 'custom-declare-variable)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
95 (defmacro defcustom (name val doc &rest arr)
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
96 `(defvar ,name ,val ,doc)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
97 (or (and (fboundp 'custom-declare-variable)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
98 (string< "19.31" emacs-version)) ; Checked with 19.30: defface does not work
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
99 (defmacro defface (&rest arr)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
100 nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
101 ;; Avoid warning (tmp definitions)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
102 (or (fboundp 'x-color-defined-p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
103 (defmacro x-color-defined-p (col)
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
104 (cond ((fboundp 'color-defined-p) `(color-defined-p ,col))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
105 ;; XEmacs >= 19.12
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
106 ((fboundp 'valid-color-name-p) `(valid-color-name-p ,col))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
107 ;; XEmacs 19.11
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
108 ((fboundp 'x-valid-color-name-p) `(x-valid-color-name-p ,col))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
109 (t '(error "Cannot implement color-defined-p")))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
110 (defmacro cperl-is-face (arg) ; Takes quoted arg
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
111 (cond ((fboundp 'find-face)
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
112 `(find-face ,arg))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
113 (;;(and (fboundp 'face-list)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
114 ;; (face-list))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
115 (fboundp 'face-list)
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
116 `(member ,arg (and (fboundp 'face-list)
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
117 (face-list))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
118 (t
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
119 `(boundp ,arg))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
120 (defmacro cperl-make-face (arg descr) ; Takes unquoted arg
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
121 (cond ((fboundp 'make-face)
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
122 `(make-face (quote ,arg)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
123 (t
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
124 `(defvar ,arg (quote ,arg) ,descr))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
125 (defmacro cperl-force-face (arg descr) ; Takes unquoted arg
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
126 `(progn
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
127 (or (cperl-is-face (quote ,arg))
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
128 (cperl-make-face ,arg ,descr))
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
129 (or (boundp (quote ,arg)) ; We use unquoted variants too
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
130 (defvar ,arg (quote ,arg) ,descr))))
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
131 (if (featurep 'xemacs)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
132 (defmacro cperl-etags-snarf-tag (file line)
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
133 `(progn
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
134 (beginning-of-line 2)
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
135 (list ,file ,line)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
136 (defmacro cperl-etags-snarf-tag (file line)
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
137 `(etags-snarf-tag)))
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
138 (if (featurep 'xemacs)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
139 (defmacro cperl-etags-goto-tag-location (elt)
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
140 ;;(progn
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
141 ;; (switch-to-buffer (get-file-buffer (elt ,elt 0)))
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
142 ;; (set-buffer (get-file-buffer (elt ,elt 0)))
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
143 ;; Probably will not work due to some save-excursion???
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
144 ;; Or save-file-position?
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
145 ;; (message "Did I get to line %s?" (elt ,elt 1))
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
146 `(goto-line (string-to-int (elt ,elt 1))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
147 ;;)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
148 (defmacro cperl-etags-goto-tag-location (elt)
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
149 `(etags-goto-tag-location ,elt))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
150
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
151 (defvar cperl-can-font-lock
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
152 (or (featurep 'xemacs)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
153 (and (boundp 'emacs-major-version)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
154 (or window-system
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
155 (> emacs-major-version 20)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
156
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
157 (defun cperl-choose-color (&rest list)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
158 (let (answer)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
159 (while list
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
160 (or answer
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
161 (if (or (x-color-defined-p (car list))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
162 (null (cdr list)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
163 (setq answer (car list))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
164 (setq list (cdr list)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
165 answer))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
166
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
167 (defgroup cperl nil
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
168 "Major mode for editing Perl code."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
169 :prefix "cperl-"
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
170 :group 'languages
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
171 :version "20.3")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
172
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
173 (defgroup cperl-indentation-details nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
174 "Indentation."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
175 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
176 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
177
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
178 (defgroup cperl-affected-by-hairy nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
179 "Variables affected by `cperl-hairy'."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
180 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
181 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
182
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
183 (defgroup cperl-autoinsert-details nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
184 "Auto-insert tuneup."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
185 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
186 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
187
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
188 (defgroup cperl-faces nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
189 "Fontification colors."
66963
a11fdee52c05 Add :link (custom-group-link font-lock-faces) to defgroup.
Juri Linkov <juri@jurta.org>
parents: 65229
diff changeset
190 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
191 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
192 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
193
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
194 (defgroup cperl-speed nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
195 "Speed vs. validity tuneup."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
196 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
197 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
198
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
199 (defgroup cperl-help-system nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
200 "Help system tuneup."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
201 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
202 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
203
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
204
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
205 (defcustom cperl-extra-newline-before-brace nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
206 "*Non-nil means that if, elsif, while, until, else, for, foreach
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
207 and do constructs look like:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
208
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
209 if ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
210 {
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
211 }
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
212
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
213 instead of:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
214
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
215 if () {
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
216 }"
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
217 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
218 :group 'cperl-autoinsert-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
219
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
220 (defcustom cperl-extra-newline-before-brace-multiline
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
221 cperl-extra-newline-before-brace
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
222 "*Non-nil means the same as `cperl-extra-newline-before-brace', but
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
223 for constructs with multiline if/unless/while/until/for/foreach condition."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
224 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
225 :group 'cperl-autoinsert-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
226
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
227 (defcustom cperl-indent-level 2
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
228 "*Indentation of CPerl statements with respect to containing block."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
229 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
230 :group 'cperl-indentation-details)
78660
ccfc1f1f4817 * progmodes/cperl-mode.el (cperl-indent-level): Autoload the
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78643
diff changeset
231
79553
f81c00b9c0ff * progmodes/perl-mode.el (perl-continued-statement-offset)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78750
diff changeset
232 ;; Is is not unusual to put both things like perl-indent-level and
78660
ccfc1f1f4817 * progmodes/cperl-mode.el (cperl-indent-level): Autoload the
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78643
diff changeset
233 ;; cperl-indent-level in the local variable section of a file. If only
ccfc1f1f4817 * progmodes/cperl-mode.el (cperl-indent-level): Autoload the
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78643
diff changeset
234 ;; one of perl-mode and cperl-mode is in use, a warning will be issued
79553
f81c00b9c0ff * progmodes/perl-mode.el (perl-continued-statement-offset)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78750
diff changeset
235 ;; about the variable. Autoload these here, so that no warning is
78660
ccfc1f1f4817 * progmodes/cperl-mode.el (cperl-indent-level): Autoload the
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78643
diff changeset
236 ;; issued when using either perl-mode or cperl-mode.
ccfc1f1f4817 * progmodes/cperl-mode.el (cperl-indent-level): Autoload the
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78643
diff changeset
237 ;;;###autoload(put 'cperl-indent-level 'safe-local-variable 'integerp)
79553
f81c00b9c0ff * progmodes/perl-mode.el (perl-continued-statement-offset)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78750
diff changeset
238 ;;;###autoload(put 'cperl-brace-offset 'safe-local-variable 'integerp)
f81c00b9c0ff * progmodes/perl-mode.el (perl-continued-statement-offset)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78750
diff changeset
239 ;;;###autoload(put 'cperl-continued-brace-offset 'safe-local-variable 'integerp)
f81c00b9c0ff * progmodes/perl-mode.el (perl-continued-statement-offset)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78750
diff changeset
240 ;;;###autoload(put 'cperl-label-offset 'safe-local-variable 'integerp)
f81c00b9c0ff * progmodes/perl-mode.el (perl-continued-statement-offset)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78750
diff changeset
241 ;;;###autoload(put 'cperl-continued-statement-offset 'safe-local-variable 'integerp)
f81c00b9c0ff * progmodes/perl-mode.el (perl-continued-statement-offset)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78750
diff changeset
242 ;;;###autoload(put 'cperl-extra-newline-before-brace 'safe-local-variable 'booleanp)
f81c00b9c0ff * progmodes/perl-mode.el (perl-continued-statement-offset)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78750
diff changeset
243 ;;;###autoload(put 'cperl-merge-trailing-else 'safe-local-variable 'booleanp)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
244
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
245 (defcustom cperl-lineup-step nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
246 "*`cperl-lineup' will always lineup at multiple of this number.
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
247 If nil, the value of `cperl-indent-level' will be used."
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
248 :type '(choice (const nil) integer)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
249 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
250
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
251 (defcustom cperl-brace-imaginary-offset 0
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
252 "*Imagined indentation of a Perl open brace that actually follows a statement.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
253 An open brace following other text is treated as if it were this far
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
254 to the right of the start of its line."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
255 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
256 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
257
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
258 (defcustom cperl-brace-offset 0
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
259 "*Extra indentation for braces, compared with other text in same context."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
260 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
261 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
262 (defcustom cperl-label-offset -2
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
263 "*Offset of CPerl label lines relative to usual indentation."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
264 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
265 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
266 (defcustom cperl-min-label-indent 1
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
267 "*Minimal offset of CPerl label lines."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
268 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
269 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
270 (defcustom cperl-continued-statement-offset 2
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
271 "*Extra indent for lines not starting new statements."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
272 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
273 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
274 (defcustom cperl-continued-brace-offset 0
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
275 "*Extra indent for substatements that start with open-braces.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
276 This is in addition to cperl-continued-statement-offset."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
277 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
278 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
279 (defcustom cperl-close-paren-offset -1
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
280 "*Extra indent for substatements that start with close-parenthesis."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
281 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
282 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
283
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
284 (defcustom cperl-indent-wrt-brace t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
285 "*Non-nil means indent statements in if/etc block relative brace, not if/etc.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
286 Versions 5.2 ... 5.20 behaved as if this were `nil'."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
287 :type 'boolean
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
288 :group 'cperl-indentation-details)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
289
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
290 (defcustom cperl-auto-newline nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
291 "*Non-nil means automatically newline before and after braces,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
292 and after colons and semicolons, inserted in CPerl code. The following
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
293 \\[cperl-electric-backspace] will remove the inserted whitespace.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
294 Insertion after colons requires both this variable and
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
295 `cperl-auto-newline-after-colon' set."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
296 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
297 :group 'cperl-autoinsert-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
298
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
299 (defcustom cperl-autoindent-on-semi nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
300 "*Non-nil means automatically indent after insertion of (semi)colon.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
301 Active if `cperl-auto-newline' is false."
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
302 :type 'boolean
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
303 :group 'cperl-autoinsert-details)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
304
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
305 (defcustom cperl-auto-newline-after-colon nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
306 "*Non-nil means automatically newline even after colons.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
307 Subject to `cperl-auto-newline' setting."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
308 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
309 :group 'cperl-autoinsert-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
310
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
311 (defcustom cperl-tab-always-indent t
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
312 "*Non-nil means TAB in CPerl mode should always reindent the current line,
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
313 regardless of where in the line point is when the TAB command is used."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
314 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
315 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
316
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
317 (defcustom cperl-font-lock nil
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
318 "*Non-nil (and non-null) means CPerl buffers will use `font-lock-mode'.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
319 Can be overwritten by `cperl-hairy' if nil."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
320 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
321 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
322
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
323 (defcustom cperl-electric-lbrace-space nil
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
324 "*Non-nil (and non-null) means { after $ should be preceded by ` '.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
325 Can be overwritten by `cperl-hairy' if nil."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
326 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
327 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
328
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
329 (defcustom cperl-electric-parens-string "({[]})<"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
330 "*String of parentheses that should be electric in CPerl.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
331 Closing ones are electric only if the region is highlighted."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
332 :type 'string
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
333 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
334
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
335 (defcustom cperl-electric-parens nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
336 "*Non-nil (and non-null) means parentheses should be electric in CPerl.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
337 Can be overwritten by `cperl-hairy' if nil."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
338 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
339 :group 'cperl-affected-by-hairy)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
340
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
341 (defvar zmacs-regions) ; Avoid warning
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
342
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
343 (defcustom cperl-electric-parens-mark
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
344 (and window-system
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
345 (or (and (boundp 'transient-mark-mode) ; For Emacs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
346 transient-mark-mode)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
347 (and (boundp 'zmacs-regions) ; For XEmacs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
348 zmacs-regions)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
349 "*Not-nil means that electric parens look for active mark.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
350 Default is yes if there is visual feedback on mark."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
351 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
352 :group 'cperl-autoinsert-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
353
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
354 (defcustom cperl-electric-linefeed nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
355 "*If true, LFD should be hairy in CPerl, otherwise C-c LFD is hairy.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
356 In any case these two mean plain and hairy linefeeds together.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
357 Can be overwritten by `cperl-hairy' if nil."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
358 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
359 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
360
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
361 (defcustom cperl-electric-keywords nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
362 "*Not-nil (and non-null) means keywords are electric in CPerl.
75304
c8f5a9de4a5e (cperl-electric-keywords): Document in the doc string how to use personal
Eli Zaretskii <eliz@gnu.org>
parents: 74429
diff changeset
363 Can be overwritten by `cperl-hairy' if nil.
c8f5a9de4a5e (cperl-electric-keywords): Document in the doc string how to use personal
Eli Zaretskii <eliz@gnu.org>
parents: 74429
diff changeset
364
c8f5a9de4a5e (cperl-electric-keywords): Document in the doc string how to use personal
Eli Zaretskii <eliz@gnu.org>
parents: 74429
diff changeset
365 Uses `abbrev-mode' to do the expansion. If you want to use your
c8f5a9de4a5e (cperl-electric-keywords): Document in the doc string how to use personal
Eli Zaretskii <eliz@gnu.org>
parents: 74429
diff changeset
366 own abbrevs in cperl-mode, but do not want keywords to be
c8f5a9de4a5e (cperl-electric-keywords): Document in the doc string how to use personal
Eli Zaretskii <eliz@gnu.org>
parents: 74429
diff changeset
367 electric, you must redefine `cperl-mode-abbrev-table': do
c8f5a9de4a5e (cperl-electric-keywords): Document in the doc string how to use personal
Eli Zaretskii <eliz@gnu.org>
parents: 74429
diff changeset
368 \\[edit-abbrevs], search for `cperl-mode-abbrev-table', and, in
c8f5a9de4a5e (cperl-electric-keywords): Document in the doc string how to use personal
Eli Zaretskii <eliz@gnu.org>
parents: 74429
diff changeset
369 that paragraph, delete the words that appear at the ends of lines and
c8f5a9de4a5e (cperl-electric-keywords): Document in the doc string how to use personal
Eli Zaretskii <eliz@gnu.org>
parents: 74429
diff changeset
370 that begin with \"cperl-electric\".
c8f5a9de4a5e (cperl-electric-keywords): Document in the doc string how to use personal
Eli Zaretskii <eliz@gnu.org>
parents: 74429
diff changeset
371 "
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
372 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
373 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
374
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
375 (defcustom cperl-electric-backspace-untabify t
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
376 "*Not-nil means electric-backspace will untabify in CPerl."
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
377 :type 'boolean
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
378 :group 'cperl-autoinsert-details)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
379
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
380 (defcustom cperl-hairy nil
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
381 "*Not-nil means most of the bells and whistles are enabled in CPerl.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
382 Affects: `cperl-font-lock', `cperl-electric-lbrace-space',
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
383 `cperl-electric-parens', `cperl-electric-linefeed', `cperl-electric-keywords',
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
384 `cperl-info-on-command-no-prompt', `cperl-clobber-lisp-bindings',
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
385 `cperl-lazy-help-time'."
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
386 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
387 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
388
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
389 (defcustom cperl-comment-column 32
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
390 "*Column to put comments in CPerl (use \\[cperl-indent] to lineup with code)."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
391 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
392 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
393
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
394 (defcustom cperl-indent-comment-at-column-0 nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
395 "*Non-nil means that comment started at column 0 should be indentable."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
396 :type 'boolean
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
397 :group 'cperl-indentation-details)
62686
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
398
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
399 (defcustom cperl-vc-sccs-header '("($sccs) = ('%W\%' =~ /(\\d+(\\.\\d+)+)/) ;")
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
400 "*Special version of `vc-sccs-header' that is used in CPerl mode buffers."
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
401 :type '(repeat string)
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
402 :group 'cperl)
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
403
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
404 (defcustom cperl-vc-rcs-header '("($rcs) = (' $Id\$ ' =~ /(\\d+(\\.\\d+)+)/);")
62686
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
405 "*Special version of `vc-rcs-header' that is used in CPerl mode buffers."
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
406 :type '(repeat string)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
407 :group 'cperl)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
408
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
409 ;; This became obsolete...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
410 (defvar cperl-vc-header-alist nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
411 (make-obsolete-variable
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
412 'cperl-vc-header-alist
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
413 "use cperl-vc-rcs-header or cperl-vc-sccs-header instead.")
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
414
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
415 (defcustom cperl-clobber-mode-lists
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
416 (not
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
417 (and
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
418 (boundp 'interpreter-mode-alist)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
419 (assoc "miniperl" interpreter-mode-alist)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
420 (assoc "\\.\\([pP][Llm]\\|al\\)$" auto-mode-alist)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
421 "*Whether to install us into `interpreter-' and `extension' mode lists."
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
422 :type 'boolean
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
423 :group 'cperl)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
424
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
425 (defcustom cperl-info-on-command-no-prompt nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
426 "*Not-nil (and non-null) means not to prompt on C-h f.
63274
b870276d9ea5 (cperl-info-on-command-no-prompt, cperl-mode): Fix spellings in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 62686
diff changeset
427 The opposite behavior is always available if prefixed with C-c.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
428 Can be overwritten by `cperl-hairy' if nil."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
429 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
430 :group 'cperl-affected-by-hairy)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
431
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
432 (defcustom cperl-clobber-lisp-bindings nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
433 "*Not-nil (and non-null) means not overwrite C-h f.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
434 The function is available on \\[cperl-info-on-command], \\[cperl-get-help].
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
435 Can be overwritten by `cperl-hairy' if nil."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
436 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
437 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
438
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
439 (defcustom cperl-lazy-help-time nil
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
440 "*Not-nil (and non-null) means to show lazy help after given idle time.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
441 Can be overwritten by `cperl-hairy' to be 5 sec if nil."
23270
fe5ca8d66639 (cperl-lazy-help-time): Fix customize
Andreas Schwab <schwab@suse.de>
parents: 22409
diff changeset
442 :type '(choice (const null) (const nil) integer)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
443 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
444
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
445 (defcustom cperl-pod-face 'font-lock-comment-face
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
446 "*Face for POD highlighting."
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
447 :type 'face
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
448 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
449
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
450 (defcustom cperl-pod-head-face 'font-lock-variable-name-face
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
451 "*Face for POD highlighting.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
452 Font for POD headers."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
453 :type 'face
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
454 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
455
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
456 (defcustom cperl-here-face 'font-lock-string-face
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
457 "*Face for here-docs highlighting."
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
458 :type 'face
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
459 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
460
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
461 ;;; Some double-evaluation happened with font-locks... Needed with 21.2...
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
462 (defvar cperl-singly-quote-face (featurep 'xemacs))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
463
73461
c09fdf139d4a * progmodes/cperl-mode.el (cperl-invalid-face): Fix defcustom.
Chong Yidong <cyd@stupidchicken.com>
parents: 73457
diff changeset
464 (defcustom cperl-invalid-face 'underline
c09fdf139d4a * progmodes/cperl-mode.el (cperl-invalid-face): Fix defcustom.
Chong Yidong <cyd@stupidchicken.com>
parents: 73457
diff changeset
465 "*Face for highlighting trailing whitespace."
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
466 :type 'face
35013
587807c5e8e6 (cperl-invalid-face): Don't double-quote
Dave Love <fx@gnu.org>
parents: 32880
diff changeset
467 :version "21.1"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
468 :group 'cperl-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
469
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
470 (defcustom cperl-pod-here-fontify '(featurep 'font-lock)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
471 "*Not-nil after evaluation means to highlight POD and here-docs sections."
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
472 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
473 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
474
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
475 (defcustom cperl-fontify-m-as-s t
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
476 "*Not-nil means highlight 1arg regular expressions operators same as 2arg."
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
477 :type 'boolean
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
478 :group 'cperl-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
479
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
480 (defcustom cperl-highlight-variables-indiscriminately nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
481 "*Non-nil means perform additional highlighting on variables.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
482 Currently only changes how scalar variables are highlighted.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
483 Note that that variable is only read at initialization time for
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
484 the variable `cperl-font-lock-keywords-2', so changing it after you've
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
485 entered CPerl mode the first time will have no effect."
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
486 :type 'boolean
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
487 :group 'cperl)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
488
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
489 (defcustom cperl-pod-here-scan t
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
490 "*Not-nil means look for POD and here-docs sections during startup.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
491 You can always make lookup from menu or using \\[cperl-find-pods-heres]."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
492 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
493 :group 'cperl-speed)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
494
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
495 (defcustom cperl-regexp-scan t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
496 "*Not-nil means make marking of regular expression more thorough.
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
497 Effective only with `cperl-pod-here-scan'."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
498 :type 'boolean
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
499 :group 'cperl-speed)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
500
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
501 (defcustom cperl-hook-after-change t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
502 "*Not-nil means install hook to know which regions of buffer are changed.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
503 May significantly speed up delayed fontification. Changes take effect
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
504 after reload."
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
505 :type 'boolean
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
506 :group 'cperl-speed)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
507
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
508 (defcustom cperl-imenu-addback nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
509 "*Not-nil means add backreferences to generated `imenu's.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
510 May require patched `imenu' and `imenu-go'. Obsolete."
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
511 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
512 :group 'cperl-help-system)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
513
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
514 (defcustom cperl-max-help-size 66
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
515 "*Non-nil means shrink-wrapping of info-buffer allowed up to these percents."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
516 :type '(choice integer (const nil))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
517 :group 'cperl-help-system)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
518
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
519 (defcustom cperl-shrink-wrap-info-frame t
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
520 "*Non-nil means shrink-wrapping of info-buffer-frame allowed."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
521 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
522 :group 'cperl-help-system)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
523
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
524 (defcustom cperl-info-page "perl"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
525 "*Name of the info page containing perl docs.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
526 Older version of this page was called `perl5', newer `perl'."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
527 :type 'string
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
528 :group 'cperl-help-system)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
529
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
530 (defcustom cperl-use-syntax-table-text-property
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
531 (boundp 'parse-sexp-lookup-properties)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
532 "*Non-nil means CPerl sets up and uses `syntax-table' text property."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
533 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
534 :group 'cperl-speed)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
535
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
536 (defcustom cperl-use-syntax-table-text-property-for-tags
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
537 cperl-use-syntax-table-text-property
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
538 "*Non-nil means: set up and use `syntax-table' text property generating TAGS."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
539 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
540 :group 'cperl-speed)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
541
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
542 (defcustom cperl-scan-files-regexp "\\.\\([pP][Llm]\\|xs\\)$"
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
543 "*Regexp to match files to scan when generating TAGS."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
544 :type 'regexp
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
545 :group 'cperl)
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
546
47334
e3cfc5df817a (cperl-noscan-files-regexp): In addition to RCS, exclude CVS directories.
Richard M. Stallman <rms@gnu.org>
parents: 46132
diff changeset
547 (defcustom cperl-noscan-files-regexp
e3cfc5df817a (cperl-noscan-files-regexp): In addition to RCS, exclude CVS directories.
Richard M. Stallman <rms@gnu.org>
parents: 46132
diff changeset
548 "/\\(\\.\\.?\\|SCCS\\|RCS\\|CVS\\|blib\\)$"
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
549 "*Regexp to match files/dirs to skip when generating TAGS."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
550 :type 'regexp
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
551 :group 'cperl)
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
552
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
553 (defcustom cperl-regexp-indent-step nil
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
554 "*Indentation used when beautifying regexps.
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
555 If nil, the value of `cperl-indent-level' will be used."
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
556 :type '(choice integer (const nil))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
557 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
558
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
559 (defcustom cperl-indent-left-aligned-comments t
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
560 "*Non-nil means that the comment starting in leftmost column should indent."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
561 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
562 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
563
26667
a11929b241ab (cperl-under-as-char): Make nil the default value.
Richard M. Stallman <rms@gnu.org>
parents: 26455
diff changeset
564 (defcustom cperl-under-as-char nil
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
565 "*Non-nil means that the _ (underline) should be treated as word char."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
566 :type 'boolean
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
567 :group 'cperl)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
568
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
569 (defcustom cperl-extra-perl-args ""
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
570 "*Extra arguments to use when starting Perl.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
571 Currently used with `cperl-check-syntax' only."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
572 :type 'string
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
573 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
574
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
575 (defcustom cperl-message-electric-keyword t
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
576 "*Non-nil means that the `cperl-electric-keyword' prints a help message."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
577 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
578 :group 'cperl-help-system)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
579
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
580 (defcustom cperl-indent-region-fix-constructs 1
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
581 "*Amount of space to insert between `}' and `else' or `elsif'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
582 in `cperl-indent-region'. Set to nil to leave as is. Values other
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
583 than 1 and nil will probably not work."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
584 :type '(choice (const nil) (const 1))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
585 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
586
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
587 (defcustom cperl-break-one-line-blocks-when-indent t
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
588 "*Non-nil means that one-line if/unless/while/until/for/foreach BLOCKs
46132
4d83b6d5d27a (cperl-break-one-line-blocks-when-indent): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 46024
diff changeset
589 need to be reformatted into multiline ones when indenting a region."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
590 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
591 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
592
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
593 (defcustom cperl-fix-hanging-brace-when-indent t
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
594 "*Non-nil means that BLOCK-end `}' may be put on a separate line
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
595 when indenting a region.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
596 Braces followed by else/elsif/while/until are excepted."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
597 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
598 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
599
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
600 (defcustom cperl-merge-trailing-else t
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
601 "*Non-nil means that BLOCK-end `}' followed by else/elsif/continue
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
602 may be merged to be on the same line when indenting a region."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
603 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
604 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
605
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
606 (defcustom cperl-indent-parens-as-block nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
607 "*Non-nil means that non-block ()-, {}- and []-groups are indented as blocks,
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
608 but for trailing \",\" inside the group, which won't increase indentation.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
609 One should tune up `cperl-close-paren-offset' as well."
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
610 :type 'boolean
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
611 :group 'cperl-indentation-details)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
612
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
613 (defcustom cperl-syntaxify-by-font-lock
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
614 (and cperl-can-font-lock
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
615 (boundp 'parse-sexp-lookup-properties))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
616 "*Non-nil means that CPerl uses `font-lock's routines for syntaxification."
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
617 :type '(choice (const message) boolean)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
618 :group 'cperl-speed)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
619
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
620 (defcustom cperl-syntaxify-unwind
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
621 t
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
622 "*Non-nil means that CPerl unwinds to a start of a long construction
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
623 when syntaxifying a chunk of buffer."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
624 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
625 :group 'cperl-speed)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
626
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
627 (defcustom cperl-syntaxify-for-menu
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
628 t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
629 "*Non-nil means that CPerl syntaxifies up to the point before showing menu.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
630 This way enabling/disabling of menu items is more correct."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
631 :type 'boolean
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
632 :group 'cperl-speed)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
633
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
634 (defcustom cperl-ps-print-face-properties
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
635 '((font-lock-keyword-face nil nil bold shadow)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
636 (font-lock-variable-name-face nil nil bold)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
637 (font-lock-function-name-face nil nil bold italic box)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
638 (font-lock-constant-face nil "LightGray" bold)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
639 (cperl-array-face nil "LightGray" bold underline)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
640 (cperl-hash-face nil "LightGray" bold italic underline)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
641 (font-lock-comment-face nil "LightGray" italic)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
642 (font-lock-string-face nil nil italic underline)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
643 (cperl-nonoverridable-face nil nil italic underline)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
644 (font-lock-type-face nil nil underline)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
645 (font-lock-warning-face nil "LightGray" bold italic box)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
646 (underline nil "LightGray" strikeout))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
647 "List given as an argument to `ps-extend-face-list' in `cperl-ps-print'."
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
648 :type '(repeat (cons symbol
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
649 (cons (choice (const nil) string)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
650 (cons (choice (const nil) string)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
651 (repeat symbol)))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
652 :group 'cperl-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
653
49304
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
654 (defvar cperl-dark-background
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
655 (cperl-choose-color "navy" "os2blue" "darkgreen"))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
656 (defvar cperl-dark-foreground
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
657 (cperl-choose-color "orchid1" "orange"))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
658
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
659 (defface cperl-nonoverridable-face
49304
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
660 `((((class grayscale) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
661 (:background "Gray90" :slant italic :underline t))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
662 (((class grayscale) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
663 (:foreground "Gray80" :slant italic :underline t :weight bold))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
664 (((class color) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
665 (:foreground "chartreuse3"))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
666 (((class color) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
667 (:foreground ,cperl-dark-foreground))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
668 (t (:weight bold :underline t)))
50788
2a3bf1afbe82 (cperl-nonoverridable-face): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 50255
diff changeset
669 "Font Lock mode face used non-overridable keywords and modifiers of regexps."
49304
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
670 :group 'cperl-faces)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
671
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
672 (defface cperl-array-face
49304
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
673 `((((class grayscale) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
674 (:background "Gray90" :weight bold))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
675 (((class grayscale) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
676 (:foreground "Gray80" :weight bold))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
677 (((class color) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
678 (:foreground "Blue" :background "lightyellow2" :weight bold))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
679 (((class color) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
680 (:foreground "yellow" :background ,cperl-dark-background :weight bold))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
681 (t (:weight bold)))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
682 "Font Lock mode face used to highlight array names."
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
683 :group 'cperl-faces)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
684
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
685 (defface cperl-hash-face
49304
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
686 `((((class grayscale) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
687 (:background "Gray90" :weight bold :slant italic))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
688 (((class grayscale) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
689 (:foreground "Gray80" :weight bold :slant italic))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
690 (((class color) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
691 (:foreground "Red" :background "lightyellow2" :weight bold :slant italic))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
692 (((class color) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
693 (:foreground "Red" :background ,cperl-dark-background :weight bold :slant italic))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
694 (t (:weight bold :slant italic)))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
695 "Font Lock mode face used to highlight hash names."
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
696 :group 'cperl-faces)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
697
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
698
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
699
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
700 ;;; Short extra-docs.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
701
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
702 (defvar cperl-tips 'please-ignore-this-line
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
703 "Get maybe newer version of this package from
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
704 http://ilyaz.org/software/emacs
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
705 Subdirectory `cperl-mode' may contain yet newer development releases and/or
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
706 patches to related files.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
707
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
708 For best results apply to an older Emacs the patches from
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
709 ftp://ftp.math.ohio-state.edu/pub/users/ilya/cperl-mode/patches
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
710 \(this upgrades syntax-parsing abilities of Emacsen v19.34 and
41351
d103d22e5b4f (cperl-problems, cperl-tips, cperl-non-problems, cperl-praise): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 41309
diff changeset
711 v20.2 up to the level of Emacs v20.3 - a must for a good Perl
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
712 mode.) As of beginning of 2003, XEmacs may provide a similar ability.
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
713
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
714 Get support packages choose-color.el (or font-lock-extra.el before
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
715 19.30), imenu-go.el from the same place. \(Look for other files there
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
716 too... ;-). Get a patch for imenu.el in 19.29. Note that for 19.30 and
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
717 later you should use choose-color.el *instead* of font-lock-extra.el
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
718 \(and you will not get smart highlighting in C :-().
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
719
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
720 Note that to enable Compile choices in the menu you need to install
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
721 mode-compile.el.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
722
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
723 If your Emacs does not default to `cperl-mode' on Perl files, and you
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
724 want it to: put the following into your .emacs file:
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
725
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
726 (defalias 'perl-mode 'cperl-mode)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
727
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
728 Get perl5-info from
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
729 $CPAN/doc/manual/info/perl5-old/perl5-info.tar.gz
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
730 Also, one can generate a newer documentation running `pod2texi' converter
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
731 $CPAN/doc/manual/info/perl5/pod2texi-0.1.tar.gz
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
732
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
733 If you use imenu-go, run imenu on perl5-info buffer (you can do it
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
734 from Perl menu). If many files are related, generate TAGS files from
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
735 Tools/Tags submenu in Perl menu.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
736
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
737 If some class structure is too complicated, use Tools/Hierarchy-view
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
738 from Perl menu, or hierarchic view of imenu. The second one uses the
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
739 current buffer only, the first one requires generation of TAGS from
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
740 Perl/Tools/Tags menu beforehand.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
741
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
742 Run Perl/Tools/Insert-spaces-if-needed to fix your lazy typing.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
743
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
744 Switch auto-help on/off with Perl/Tools/Auto-help.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
745
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
746 Though with contemporary Emaxen CPerl mode should maintain the correct
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
747 parsing of Perl even when editing, sometimes it may be lost. Fix this by
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
748
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
749 \\[normal-mode]
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
750
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
751 In cases of more severe confusion sometimes it is helpful to do
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
752
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
753 \\[load-library] cperl-mode RET
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
754 \\[normal-mode]
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
755
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
756 Before reporting (non-)problems look in the problem section of online
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
757 micro-docs on what I know about CPerl problems.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
758
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
759 (defvar cperl-problems 'please-ignore-this-line
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
760 "Description of problems in CPerl mode.
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
761 Some faces will not be shown on some versions of Emacs unless you
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
762 install choose-color.el, available from
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
763 http://ilyaz.org/software/emacs
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
764
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
765 `fill-paragraph' on a comment may leave the point behind the
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
766 paragraph. It also triggers a bug in some versions of Emacs (CPerl tries
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
767 to detect it and bulk out).
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
768
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
769 See documentation of a variable `cperl-problems-old-emaxen' for the
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
770 problems which disappear if you upgrade Emacs to a reasonably new
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
771 version (20.3 for Emacs, and those of 2004 for XEmacs).")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
772
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
773 (defvar cperl-problems-old-emaxen 'please-ignore-this-line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
774 "Description of problems in CPerl mode specific for older Emacs versions.
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
775
41351
d103d22e5b4f (cperl-problems, cperl-tips, cperl-non-problems, cperl-praise): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 41309
diff changeset
776 Emacs had a _very_ restricted syntax parsing engine until version
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
777 20.1. Most problems below are corrected starting from this version of
41351
d103d22e5b4f (cperl-problems, cperl-tips, cperl-non-problems, cperl-praise): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 41309
diff changeset
778 Emacs, and all of them should be fixed in version 20.3. (Or apply
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
779 patches to Emacs 19.33/34 - see tips.) XEmacs was very backward in
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
780 this respect (until 2003).
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
781
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
782 Note that even with newer Emacsen in some very rare cases the details
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
783 of interaction of `font-lock' and syntaxification may be not cleaned
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
784 up yet. You may get slightly different colors basing on the order of
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
785 fontification and syntaxification. Say, the initial faces is correct,
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
786 but editing the buffer breaks this.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
787
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
788 Even with older Emacsen CPerl mode tries to corrects some Emacs
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
789 misunderstandings, however, for efficiency reasons the degree of
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
790 correction is different for different operations. The partially
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
791 corrected problems are: POD sections, here-documents, regexps. The
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
792 operations are: highlighting, indentation, electric keywords, electric
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
793 braces.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
794
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
795 This may be confusing, since the regexp s#//#/#\; may be highlighted
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
796 as a comment, but it will be recognized as a regexp by the indentation
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
797 code. Or the opposite case, when a POD section is highlighted, but
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
798 may break the indentation of the following code (though indentation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
799 should work if the balance of delimiters is not broken by POD).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
800
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
801 The main trick (to make $ a \"backslash\") makes constructions like
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
802 ${aaa} look like unbalanced braces. The only trick I can think of is
60925
a9c571ede913 * progmodes/cperl-mode.el, progmodes/idlw-shell.el,
Werner LEMBERG <wl@gnu.org>
parents: 59242
diff changeset
803 to insert it as $ {aaa} (valid in perl5, not in perl4).
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
804
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
805 Similar problems arise in regexps, when /(\\s|$)/ should be rewritten
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
806 as /($|\\s)/. Note that such a transposition is not always possible.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
807
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
808 The solution is to upgrade your Emacs or patch an older one. Note
41351
d103d22e5b4f (cperl-problems, cperl-tips, cperl-non-problems, cperl-praise): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 41309
diff changeset
809 that Emacs 20.2 has some bugs related to `syntax-table' text
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
810 properties. Patches are available on the main CPerl download site,
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
811 and on CPAN.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
812
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
813 If these bugs cannot be fixed on your machine (say, you have an inferior
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
814 environment and cannot recompile), you may still disable all the fancy stuff
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
815 via `cperl-use-syntax-table-text-property'.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
816
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
817 (defvar cperl-praise 'please-ignore-this-line
41351
d103d22e5b4f (cperl-problems, cperl-tips, cperl-non-problems, cperl-praise): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 41309
diff changeset
818 "Advantages of CPerl mode.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
819
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
820 0) It uses the newest `syntax-table' property ;-);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
821
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
822 1) It does 99% of Perl syntax correct (as opposed to 80-90% in Perl
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
823 mode - but the latter number may have improved too in last years) even
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
824 with old Emaxen which do not support `syntax-table' property.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
825
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
826 When using `syntax-table' property for syntax assist hints, it should
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
827 handle 99.995% of lines correct - or somesuch. It automatically
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
828 updates syntax assist hints when you edit your script.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
829
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
830 2) It is generally believed to be \"the most user-friendly Emacs
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
831 package\" whatever it may mean (I doubt that the people who say similar
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
832 things tried _all_ the rest of Emacs ;-), but this was not a lonely
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
833 voice);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
834
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
835 3) Everything is customizable, one-by-one or in a big sweep;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
836
96459
a90a9fcdc77d Spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 95832
diff changeset
837 4) It has many easily-accessible \"tools\":
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
838 a) Can run program, check syntax, start debugger;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
839 b) Can lineup vertically \"middles\" of rows, like `=' in
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
840 a = b;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
841 cc = d;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
842 c) Can insert spaces where this impoves readability (in one
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
843 interactive sweep over the buffer);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
844 d) Has support for imenu, including:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
845 1) Separate unordered list of \"interesting places\";
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
846 2) Separate TOC of POD sections;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
847 3) Separate list of packages;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
848 4) Hierarchical view of methods in (sub)packages;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
849 5) and functions (by the full name - with package);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
850 e) Has an interface to INFO docs for Perl; The interface is
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
851 very flexible, including shrink-wrapping of
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
852 documentation buffer/frame;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
853 f) Has a builtin list of one-line explanations for perl constructs.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
854 g) Can show these explanations if you stay long enough at the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
855 corresponding place (or on demand);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
856 h) Has an enhanced fontification (using 3 or 4 additional faces
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
857 comparing to font-lock - basically, different
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
858 namespaces in Perl have different colors);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
859 i) Can construct TAGS basing on its knowledge of Perl syntax,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
860 the standard menu has 6 different way to generate
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
861 TAGS (if \"by directory\", .xs files - with C-language
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
862 bindings - are included in the scan);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
863 j) Can build a hierarchical view of classes (via imenu) basing
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
864 on generated TAGS file;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
865 k) Has electric parentheses, electric newlines, uses Abbrev
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
866 for electric logical constructs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
867 while () {}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
868 with different styles of expansion (context sensitive
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
869 to be not so bothering). Electric parentheses behave
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
870 \"as they should\" in a presence of a visible region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
871 l) Changes msb.el \"on the fly\" to insert a group \"Perl files\";
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
872 m) Can convert from
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
873 if (A) { B }
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
874 to
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
875 B if A;
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
876
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
877 n) Highlights (by user-choice) either 3-delimiters constructs
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
878 (such as tr/a/b/), or regular expressions and `y/tr';
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
879 o) Highlights trailing whitespace;
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
880 p) Is able to manipulate Perl Regular Expressions to ease
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
881 conversion to a more readable form.
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
882 q) Can ispell POD sections and HERE-DOCs.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
883 r) Understands comments and character classes inside regular
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
884 expressions; can find matching () and [] in a regular expression.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
885 s) Allows indentation of //x-style regular expressions;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
886 t) Highlights different symbols in regular expressions according
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
887 to their function; much less problems with backslashitis;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
888 u) Allows to find regular expressions which contain interpolated parts.
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
889
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
890 5) The indentation engine was very smart, but most of tricks may be
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
891 not needed anymore with the support for `syntax-table' property. Has
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
892 progress indicator for indentation (with `imenu' loaded).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
893
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
894 6) Indent-region improves inline-comments as well; also corrects
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
895 whitespace *inside* the conditional/loop constructs.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
896
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
897 7) Fill-paragraph correctly handles multi-line comments;
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
898
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
899 8) Can switch to different indentation styles by one command, and restore
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
900 the settings present before the switch.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
901
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
902 9) When doing indentation of control constructs, may correct
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
903 line-breaks/spacing between elements of the construct.
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
904
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
905 10) Uses a linear-time algorith for indentation of regions (on Emaxen with
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
906 capable syntax engines).
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
907
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
908 11) Syntax-highlight, indentation, sexp-recognition inside regular expressions.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
909 ")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
910
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
911 (defvar cperl-speed 'please-ignore-this-line
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
912 "This is an incomplete compendium of what is available in other parts
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
913 of CPerl documentation. (Please inform me if I skept anything.)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
914
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
915 There is a perception that CPerl is slower than alternatives. This part
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
916 of documentation is designed to overcome this misconception.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
917
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
918 *By default* CPerl tries to enable the most comfortable settings.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
919 From most points of view, correctly working package is infinitely more
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
920 comfortable than a non-correctly working one, thus by default CPerl
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
921 prefers correctness over speed. Below is the guide how to change
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
922 settings if your preferences are different.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
923
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
924 A) Speed of loading the file. When loading file, CPerl may perform a
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
925 scan which indicates places which cannot be parsed by primitive Emacs
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
926 syntax-parsing routines, and marks them up so that either
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
927
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
928 A1) CPerl may work around these deficiencies (for big chunks, mostly
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
929 PODs and HERE-documents), or
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
930 A2) On capable Emaxen CPerl will use improved syntax-handlings
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
931 which reads mark-up hints directly.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
932
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
933 The scan in case A2 is much more comprehensive, thus may be slower.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
934
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
935 User can disable syntax-engine-helping scan of A2 by setting
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
936 `cperl-use-syntax-table-text-property'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
937 variable to nil (if it is set to t).
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
938
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
939 One can disable the scan altogether (both A1 and A2) by setting
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
940 `cperl-pod-here-scan'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
941 to nil.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
942
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
943 B) Speed of editing operations.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
944
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
945 One can add a (minor) speedup to editing operations by setting
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
946 `cperl-use-syntax-table-text-property'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
947 variable to nil (if it is set to t). This will disable
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
948 syntax-engine-helping scan, thus will make many more Perl
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
949 constructs be wrongly recognized by CPerl, thus may lead to
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
950 wrongly matched parentheses, wrong indentation, etc.
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
951
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
952 One can unset `cperl-syntaxify-unwind'. This might speed up editing
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
953 of, say, long POD sections.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
954
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
955 (defvar cperl-tips-faces 'please-ignore-this-line
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
956 "CPerl mode uses following faces for highlighting:
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
957
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
958 `cperl-array-face' Array names
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
959 `cperl-hash-face' Hash names
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
960 `font-lock-comment-face' Comments, PODs and whatever is considered
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
961 syntaxically to be not code
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
962 `font-lock-constant-face' HERE-doc delimiters, labels, delimiters of
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
963 2-arg operators s/y/tr/ or of RExen,
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
964 `font-lock-warning-face' Special-cased m// and s//foo/,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
965 `font-lock-function-name-face' _ as a target of a file tests, file tests,
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
966 subroutine names at the moment of definition
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
967 (except those conflicting with Perl operators),
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
968 package names (when recognized), format names
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
969 `font-lock-keyword-face' Control flow switch constructs, declarators
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
970 `cperl-nonoverridable-face' Non-overridable keywords, modifiers of RExen
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
971 `font-lock-string-face' Strings, qw() constructs, RExen, POD sections,
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
972 literal parts and the terminator of formats
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
973 and whatever is syntaxically considered
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
974 as string literals
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
975 `font-lock-type-face' Overridable keywords
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
976 `font-lock-variable-name-face' Variable declarations, indirect array and
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
977 hash names, POD headers/item names
63458
3265e9c7ab3d Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-418
Miles Bader <miles@gnu.org>
parents: 63350
diff changeset
978 `cperl-invalid' Trailing whitespace
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
979
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
980 Note that in several situations the highlighting tries to inform about
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
981 possible confusion, such as different colors for function names in
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
982 declarations depending on what they (do not) override, or special cases
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
983 m// and s/// which do not do what one would expect them to do.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
984
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
985 Help with best setup of these faces for printout requested (for each of
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
986 the faces: please specify bold, italic, underline, shadow and box.)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
987
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
988 In regular expressions (except character classes):
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
989 `font-lock-string-face' \"Normal\" stuff and non-0-length constructs
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
990 `font-lock-constant-face': Delimiters
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
991 `font-lock-warning-face' Special-cased m// and s//foo/,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
992 Mismatched closing delimiters, parens
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
993 we couldn't match, misplaced quantifiers,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
994 unrecognized escape sequences
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
995 `cperl-nonoverridable-face' Modifiers, as gism in m/REx/gism
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
996 `font-lock-type-face' POSIX classes inside charclasses,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
997 escape sequences with arguments (\x \23 \p \N)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
998 and others match-a-char escape sequences
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
999 `font-lock-keyword-face' Capturing parens, and |
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1000 `font-lock-function-name-face' Special symbols: $ ^ . [ ] [^ ] (?{ }) (??{ })
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1001 `font-lock-builtin-face' \"Remaining\" 0-length constructs, executable
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1002 parts of a REx, not-capturing parens
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1003 `font-lock-variable-name-face' Interpolated constructs, embedded code
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1004 `font-lock-comment-face' Embedded comments
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1005
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1006 ")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1007
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1008
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1009
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1010 ;;; Portability stuff:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1011
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1012 (defmacro cperl-define-key (emacs-key definition &optional xemacs-key)
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
1013 `(define-key cperl-mode-map
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
1014 ,(if xemacs-key
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
1015 `(if (featurep 'xemacs) ,xemacs-key ,emacs-key)
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
1016 emacs-key)
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
1017 ,definition))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1018
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1019 (defvar cperl-del-back-ch
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1020 (car (append (where-is-internal 'delete-backward-char)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1021 (where-is-internal 'backward-delete-char-untabify)))
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
1022 "Character generated by key bound to `delete-backward-char'.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1023
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1024 (and (vectorp cperl-del-back-ch) (= (length cperl-del-back-ch) 1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1025 (setq cperl-del-back-ch (aref cperl-del-back-ch 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1026
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1027 (defun cperl-mark-active () (mark)) ; Avoid undefined warning
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
1028 (if (featurep 'xemacs)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1029 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1030 ;; "Active regions" are on: use region only if active
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1031 ;; "Active regions" are off: use region unconditionally
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1032 (defun cperl-use-region-p ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1033 (if zmacs-regions (mark) t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1034 (defun cperl-use-region-p ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1035 (if transient-mark-mode mark-active t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1036 (defun cperl-mark-active () mark-active))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1037
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1038 (defsubst cperl-enable-font-lock ()
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1039 cperl-can-font-lock)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1040
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1041 (defun cperl-putback-char (c) ; Emacs 19
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1042 (set 'unread-command-events (list c))) ; Avoid undefined warning
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1043
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
1044 (if (featurep 'xemacs)
55049
20627b978043 (cperl-putback-char): Delete Emacs 18 definition.
Richard M. Stallman <rms@gnu.org>
parents: 54556
diff changeset
1045 (defun cperl-putback-char (c) ; XEmacs >= 19.12
20627b978043 (cperl-putback-char): Delete Emacs 18 definition.
Richard M. Stallman <rms@gnu.org>
parents: 54556
diff changeset
1046 (setq unread-command-events (list (eval '(character-to-event c))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1047
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1048 (or (fboundp 'uncomment-region)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1049 (defun uncomment-region (beg end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1050 (interactive "r")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1051 (comment-region beg end -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1052
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1053 (defvar cperl-do-not-fontify
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1054 (if (string< emacs-version "19.30")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1055 'fontified
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1056 'lazy-lock)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1057 "Text property which inhibits refontification.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1058
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1059 (defsubst cperl-put-do-not-fontify (from to &optional post)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1060 ;; If POST, do not do it with postponed fontification
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1061 (if (and post cperl-syntaxify-by-font-lock)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1062 nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1063 (put-text-property (max (point-min) (1- from))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1064 to cperl-do-not-fontify t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1065
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
1066 (defcustom cperl-mode-hook nil
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
1067 "Hook run by CPerl mode."
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
1068 :type 'hook
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
1069 :group 'cperl)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1070
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1071 (defvar cperl-syntax-state nil)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1072 (defvar cperl-syntax-done-to nil)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1073 (defvar cperl-emacs-can-parse (> (length (save-excursion
44446
9b08deb1030e (cperl-make-face, cperl-force-face):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43943
diff changeset
1074 (parse-partial-sexp (point) (point)))) 9))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1075
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1076 ;; Make customization possible "in reverse"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1077 (defsubst cperl-val (symbol &optional default hairy)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1078 (cond
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1079 ((eq (symbol-value symbol) 'null) default)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1080 (cperl-hairy (or hairy t))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1081 (t (symbol-value symbol))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1082
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1083
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1084 (defun cperl-make-indent (column &optional minimum keep)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1085 "Makes indent of the current line the requested amount.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1086 Unless KEEP, removes the old indentation. Works around a bug in ancient
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1087 versions of Emacs."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1088 (let ((prop (get-text-property (point) 'syntax-type)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1089 (or keep
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1090 (delete-horizontal-space))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1091 (indent-to column minimum)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1092 ;; In old versions (e.g., 19.33) `indent-to' would not inherit properties
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1093 (and prop
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1094 (> (current-column) 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1095 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1096 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1097 (or (get-text-property (point) 'syntax-type)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1098 (and (looking-at "\\=[ \t]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1099 (put-text-property (point) (match-end 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1100 'syntax-type prop)))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1101
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1102 ;;; Probably it is too late to set these guys already, but it can help later:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1103
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1104 ;;;(and cperl-clobber-mode-lists
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1105 ;;;(setq auto-mode-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1106 ;;; (append '(("\\.\\([pP][Llm]\\|al\\)$" . perl-mode)) auto-mode-alist ))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1107 ;;;(and (boundp 'interpreter-mode-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1108 ;;; (setq interpreter-mode-alist (append interpreter-mode-alist
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1109 ;;; '(("miniperl" . perl-mode))))))
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1110 (eval-when-compile
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
1111 (mapc (lambda (p)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
1112 (condition-case nil
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
1113 (require p)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
1114 (error nil)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
1115 '(imenu easymenu etags timer man info))
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1116 (if (fboundp 'ps-extend-face-list)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1117 (defmacro cperl-ps-extend-face-list (arg)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1118 `(ps-extend-face-list ,arg))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1119 (defmacro cperl-ps-extend-face-list (arg)
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 37569
diff changeset
1120 `(error "This version of Emacs has no `ps-extend-face-list'")))
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1121 ;; Calling `cperl-enable-font-lock' below doesn't compile on XEmacs,
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1122 ;; macros instead of defsubsts don't work on Emacs, so we do the
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1123 ;; expansion manually. Any other suggestions?
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1124 (require 'cl))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1125
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1126 (defvar cperl-mode-abbrev-table nil
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
1127 "Abbrev table in use in CPerl mode buffers.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1128
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1129 (add-hook 'edit-var-mode-alist '(perl-mode (regexp . "^cperl-")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1130
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1131 (defvar cperl-mode-map () "Keymap used in CPerl mode.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1132
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1133 (if cperl-mode-map nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1134 (setq cperl-mode-map (make-sparse-keymap))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1135 (cperl-define-key "{" 'cperl-electric-lbrace)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1136 (cperl-define-key "[" 'cperl-electric-paren)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1137 (cperl-define-key "(" 'cperl-electric-paren)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1138 (cperl-define-key "<" 'cperl-electric-paren)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1139 (cperl-define-key "}" 'cperl-electric-brace)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1140 (cperl-define-key "]" 'cperl-electric-rparen)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1141 (cperl-define-key ")" 'cperl-electric-rparen)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1142 (cperl-define-key ";" 'cperl-electric-semi)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1143 (cperl-define-key ":" 'cperl-electric-terminator)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1144 (cperl-define-key "\C-j" 'newline-and-indent)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1145 (cperl-define-key "\C-c\C-j" 'cperl-linefeed)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1146 (cperl-define-key "\C-c\C-t" 'cperl-invert-if-unless)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1147 (cperl-define-key "\C-c\C-a" 'cperl-toggle-auto-newline)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1148 (cperl-define-key "\C-c\C-k" 'cperl-toggle-abbrev)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1149 (cperl-define-key "\C-c\C-w" 'cperl-toggle-construct-fix)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1150 (cperl-define-key "\C-c\C-f" 'auto-fill-mode)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1151 (cperl-define-key "\C-c\C-e" 'cperl-toggle-electric)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1152 (cperl-define-key "\C-c\C-b" 'cperl-find-bad-style)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1153 (cperl-define-key "\C-c\C-p" 'cperl-pod-spell)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1154 (cperl-define-key "\C-c\C-d" 'cperl-here-doc-spell)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1155 (cperl-define-key "\C-c\C-n" 'cperl-narrow-to-here-doc)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1156 (cperl-define-key "\C-c\C-v" 'cperl-next-interpolated-REx)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1157 (cperl-define-key "\C-c\C-x" 'cperl-next-interpolated-REx-0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1158 (cperl-define-key "\C-c\C-y" 'cperl-next-interpolated-REx-1)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1159 (cperl-define-key "\C-c\C-ha" 'cperl-toggle-autohelp)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1160 (cperl-define-key "\C-c\C-hp" 'cperl-perldoc)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1161 (cperl-define-key "\C-c\C-hP" 'cperl-perldoc-at-point)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1162 (cperl-define-key "\e\C-q" 'cperl-indent-exp) ; Usually not bound
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1163 (cperl-define-key [?\C-\M-\|] 'cperl-lineup
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1164 [(control meta |)])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1165 ;;(cperl-define-key "\M-q" 'cperl-fill-paragraph)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1166 ;;(cperl-define-key "\e;" 'cperl-indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1167 (cperl-define-key "\177" 'cperl-electric-backspace)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1168 (cperl-define-key "\t" 'cperl-indent-command)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1169 ;; don't clobber the backspace binding:
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1170 (cperl-define-key "\C-c\C-hF" 'cperl-info-on-command
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1171 [(control c) (control h) F])
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1172 (if (cperl-val 'cperl-clobber-lisp-bindings)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1173 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1174 (cperl-define-key "\C-hf"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1175 ;;(concat (char-to-string help-char) "f") ; does not work
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1176 'cperl-info-on-command
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1177 [(control h) f])
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1178 (cperl-define-key "\C-hv"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1179 ;;(concat (char-to-string help-char) "v") ; does not work
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1180 'cperl-get-help
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1181 [(control h) v])
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1182 (cperl-define-key "\C-c\C-hf"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1183 ;;(concat (char-to-string help-char) "f") ; does not work
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1184 (key-binding "\C-hf")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1185 [(control c) (control h) f])
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1186 (cperl-define-key "\C-c\C-hv"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1187 ;;(concat (char-to-string help-char) "v") ; does not work
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1188 (key-binding "\C-hv")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1189 [(control c) (control h) v]))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1190 (cperl-define-key "\C-c\C-hf" 'cperl-info-on-current-command
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1191 [(control c) (control h) f])
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1192 (cperl-define-key "\C-c\C-hv"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1193 ;;(concat (char-to-string help-char) "v") ; does not work
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1194 'cperl-get-help
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1195 [(control c) (control h) v]))
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
1196 (if (and (featurep 'xemacs)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1197 (<= emacs-minor-version 11) (<= emacs-major-version 19))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1198 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1199 ;; substitute-key-definition is usefulness-deenhanced...
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1200 ;;;;;(cperl-define-key "\M-q" 'cperl-fill-paragraph)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1201 (cperl-define-key "\e;" 'cperl-indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1202 (cperl-define-key "\e\C-\\" 'cperl-indent-region))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1203 (or (boundp 'fill-paragraph-function)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1204 (substitute-key-definition
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1205 'fill-paragraph 'cperl-fill-paragraph
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1206 cperl-mode-map global-map))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1207 (substitute-key-definition
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1208 'indent-sexp 'cperl-indent-exp
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1209 cperl-mode-map global-map)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1210 (substitute-key-definition
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1211 'indent-region 'cperl-indent-region
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1212 cperl-mode-map global-map)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1213 (substitute-key-definition
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1214 'indent-for-comment 'cperl-indent-for-comment
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1215 cperl-mode-map global-map)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1216
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1217 (defvar cperl-menu)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1218 (defvar cperl-lazy-installed)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1219 (defvar cperl-old-style nil)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1220 (condition-case nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1221 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1222 (require 'easymenu)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1223 (easy-menu-define
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1224 cperl-menu cperl-mode-map "Menu for CPerl mode"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1225 '("Perl"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1226 ["Beginning of function" beginning-of-defun t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1227 ["End of function" end-of-defun t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1228 ["Mark function" mark-defun t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1229 ["Indent expression" cperl-indent-exp t]
53779
5b728a418323 (cperl-mode-map, cperl-do-auto-fill, cperl-menu): Use fill-paragraph,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
1230 ["Fill paragraph/comment" fill-paragraph t]
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1231 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1232 ["Line up a construction" cperl-lineup (cperl-use-region-p)]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1233 ["Invert if/unless/while etc" cperl-invert-if-unless t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1234 ("Regexp"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1235 ["Beautify" cperl-beautify-regexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1236 cperl-use-syntax-table-text-property]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1237 ["Beautify one level deep" (cperl-beautify-regexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1238 cperl-use-syntax-table-text-property]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1239 ["Beautify a group" cperl-beautify-level
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1240 cperl-use-syntax-table-text-property]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1241 ["Beautify a group one level deep" (cperl-beautify-level 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1242 cperl-use-syntax-table-text-property]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1243 ["Contract a group" cperl-contract-level
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1244 cperl-use-syntax-table-text-property]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1245 ["Contract groups" cperl-contract-levels
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1246 cperl-use-syntax-table-text-property]
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1247 "----"
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
1248 ["Find next interpolated" cperl-next-interpolated-REx
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1249 (next-single-property-change (point-min) 'REx-interpolated)]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1250 ["Find next interpolated (no //o)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1251 cperl-next-interpolated-REx-0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1252 (or (text-property-any (point-min) (point-max) 'REx-interpolated t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1253 (text-property-any (point-min) (point-max) 'REx-interpolated 1))]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1254 ["Find next interpolated (neither //o nor whole-REx)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1255 cperl-next-interpolated-REx-1
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1256 (text-property-any (point-min) (point-max) 'REx-interpolated t)])
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1257 ["Insert spaces if needed to fix style" cperl-find-bad-style t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1258 ["Refresh \"hard\" constructions" cperl-find-pods-heres t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1259 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1260 ["Indent region" cperl-indent-region (cperl-use-region-p)]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1261 ["Comment region" cperl-comment-region (cperl-use-region-p)]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1262 ["Uncomment region" cperl-uncomment-region (cperl-use-region-p)]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1263 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1264 ["Run" mode-compile (fboundp 'mode-compile)]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1265 ["Kill" mode-compile-kill (and (fboundp 'mode-compile-kill)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1266 (get-buffer "*compilation*"))]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1267 ["Next error" next-error (get-buffer "*compilation*")]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1268 ["Check syntax" cperl-check-syntax (fboundp 'mode-compile)]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1269 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1270 ["Debugger" cperl-db t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1271 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1272 ("Tools"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1273 ["Imenu" imenu (fboundp 'imenu)]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1274 ["Imenu on Perl Info" cperl-imenu-on-info (featurep 'imenu)]
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1275 "----"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1276 ["Ispell PODs" cperl-pod-spell
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1277 ;; Better not to update syntaxification here:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1278 ;; debugging syntaxificatio can be broken by this???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1279 (or
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1280 (get-text-property (point-min) 'in-pod)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1281 (< (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1282 (and cperl-syntaxify-for-menu
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1283 (cperl-update-syntaxification (point-max) (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1284 (next-single-property-change (point-min) 'in-pod nil (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1285 (point-max)))]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1286 ["Ispell HERE-DOCs" cperl-here-doc-spell
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1287 (< (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1288 (and cperl-syntaxify-for-menu
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1289 (cperl-update-syntaxification (point-max) (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1290 (next-single-property-change (point-min) 'here-doc-group nil (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1291 (point-max))]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1292 ["Narrow to this HERE-DOC" cperl-narrow-to-here-doc
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1293 (eq 'here-doc (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1294 (and cperl-syntaxify-for-menu
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1295 (cperl-update-syntaxification (point) (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1296 (get-text-property (point) 'syntax-type)))]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1297 ["Select this HERE-DOC or POD section"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1298 cperl-select-this-pod-or-here-doc
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1299 (memq (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1300 (and cperl-syntaxify-for-menu
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1301 (cperl-update-syntaxification (point) (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1302 (get-text-property (point) 'syntax-type))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1303 '(here-doc pod))]
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1304 "----"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1305 ["CPerl pretty print (exprmntl)" cperl-ps-print
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1306 (fboundp 'ps-extend-face-list)]
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1307 "----"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1308 ["Syntaxify region" cperl-find-pods-heres-region
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1309 (cperl-use-region-p)]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1310 ["Profile syntaxification" cperl-time-fontification t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1311 ["Debug errors in delayed fontification" cperl-emulate-lazy-lock t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1312 ["Debug unwind for syntactic scan" cperl-toggle-set-debug-unwind t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1313 ["Debug backtrace on syntactic scan (BEWARE!!!)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1314 (cperl-toggle-set-debug-unwind nil t) t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1315 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1316 ["Class Hierarchy from TAGS" cperl-tags-hier-init t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1317 ;;["Update classes" (cperl-tags-hier-init t) tags-table-list]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1318 ("Tags"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1319 ;;; ["Create tags for current file" cperl-etags t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1320 ;;; ["Add tags for current file" (cperl-etags t) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1321 ;;; ["Create tags for Perl files in directory" (cperl-etags nil t) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1322 ;;; ["Add tags for Perl files in directory" (cperl-etags t t) t]
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1323 ;;; ["Create tags for Perl files in (sub)directories"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1324 ;;; (cperl-etags nil 'recursive) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1325 ;;; ["Add tags for Perl files in (sub)directories"
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1326 ;;; (cperl-etags t 'recursive) t])
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1327 ;;;; cperl-write-tags (&optional file erase recurse dir inbuffer)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1328 ["Create tags for current file" (cperl-write-tags nil t) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1329 ["Add tags for current file" (cperl-write-tags) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1330 ["Create tags for Perl files in directory"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1331 (cperl-write-tags nil t nil t) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1332 ["Add tags for Perl files in directory"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1333 (cperl-write-tags nil nil nil t) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1334 ["Create tags for Perl files in (sub)directories"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1335 (cperl-write-tags nil t t t) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1336 ["Add tags for Perl files in (sub)directories"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1337 (cperl-write-tags nil nil t t) t]))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1338 ("Perl docs"
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
1339 ["Define word at point" imenu-go-find-at-position
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1340 (fboundp 'imenu-go-find-at-position)]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1341 ["Help on function" cperl-info-on-command t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1342 ["Help on function at point" cperl-info-on-current-command t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1343 ["Help on symbol at point" cperl-get-help t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1344 ["Perldoc" cperl-perldoc t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1345 ["Perldoc on word at point" cperl-perldoc-at-point t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1346 ["View manpage of POD in this file" cperl-build-manpage t]
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
1347 ["Auto-help on" cperl-lazy-install
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1348 (and (fboundp 'run-with-idle-timer)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1349 (not cperl-lazy-installed))]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1350 ["Auto-help off" cperl-lazy-unstall
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1351 (and (fboundp 'run-with-idle-timer)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1352 cperl-lazy-installed)])
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1353 ("Toggle..."
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1354 ["Auto newline" cperl-toggle-auto-newline t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1355 ["Electric parens" cperl-toggle-electric t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1356 ["Electric keywords" cperl-toggle-abbrev t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1357 ["Fix whitespace on indent" cperl-toggle-construct-fix t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1358 ["Auto-help on Perl constructs" cperl-toggle-autohelp t]
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
1359 ["Auto fill" auto-fill-mode t])
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1360 ("Indent styles..."
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1361 ["CPerl" (cperl-set-style "CPerl") t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1362 ["PerlStyle" (cperl-set-style "PerlStyle") t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1363 ["GNU" (cperl-set-style "GNU") t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1364 ["C++" (cperl-set-style "C++") t]
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1365 ["K&R" (cperl-set-style "K&R") t]
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1366 ["BSD" (cperl-set-style "BSD") t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1367 ["Whitesmith" (cperl-set-style "Whitesmith") t]
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1368 ["Memorize Current" (cperl-set-style "Current") t]
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1369 ["Memorized" (cperl-set-style-back) cperl-old-style])
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1370 ("Micro-docs"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1371 ["Tips" (describe-variable 'cperl-tips) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1372 ["Problems" (describe-variable 'cperl-problems) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1373 ["Speed" (describe-variable 'cperl-speed) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1374 ["Praise" (describe-variable 'cperl-praise) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1375 ["Faces" (describe-variable 'cperl-tips-faces) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1376 ["CPerl mode" (describe-function 'cperl-mode) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1377 ["CPerl version"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1378 (message "The version of master-file for this CPerl is %s-Emacs"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1379 cperl-version) t]))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1380 (error nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1381
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1382 (autoload 'c-macro-expand "cmacexp"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1383 "Display the result of expanding all C macros occurring in the region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1384 The expansion is entirely correct because it uses the C preprocessor."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1385 t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1386
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1387 ;;; These two must be unwound, otherwise take exponential time
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1388 (defconst cperl-maybe-white-and-comment-rex "[ \t\n]*\\(#[^\n]*\n[ \t\n]*\\)*"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1389 "Regular expression to match optional whitespace with interpspersed comments.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1390 Should contain exactly one group.")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1391
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1392 ;;; This one is tricky to unwind; still very inefficient...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1393 (defconst cperl-white-and-comment-rex "\\([ \t\n]\\|#[^\n]*\n\\)+"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1394 "Regular expression to match whitespace with interpspersed comments.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1395 Should contain exactly one group.")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1396
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1397
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1398 ;;; Is incorporated in `cperl-imenu--function-name-regexp-perl'
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1399 ;;; `cperl-outline-regexp', `defun-prompt-regexp'.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1400 ;;; Details of groups in this may be used in several functions; see comments
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1401 ;;; near mentioned above variable(s)...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1402 ;;; sub($$):lvalue{} sub:lvalue{} Both allowed...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1403 (defsubst cperl-after-sub-regexp (named attr) ; 9 groups without attr...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1404 "Match the text after `sub' in a subroutine declaration.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1405 If NAMED is nil, allows anonymous subroutines. Matches up to the first \":\"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1406 of attributes (if present), or end of the name or prototype (whatever is
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1407 the last)."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1408 (concat ; Assume n groups before this...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1409 "\\(" ; n+1=name-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1410 cperl-white-and-comment-rex ; n+2=pre-name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1411 "\\(::[a-zA-Z_0-9:']+\\|[a-zA-Z_'][a-zA-Z_0-9:']*\\)" ; n+3=name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1412 "\\)" ; END n+1=name-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1413 (if named "" "?")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1414 "\\(" ; n+4=proto-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1415 cperl-maybe-white-and-comment-rex ; n+5=pre-proto
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1416 "\\(([^()]*)\\)" ; n+6=prototype
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1417 "\\)?" ; END n+4=proto-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1418 "\\(" ; n+7=attr-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1419 cperl-maybe-white-and-comment-rex ; n+8=pre-attr
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1420 "\\(" ; n+9=start-attr
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1421 ":"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1422 (if attr (concat
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1423 "\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1424 cperl-maybe-white-and-comment-rex ; whitespace-comments
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1425 "\\(\\sw\\|_\\)+" ; attr-name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1426 ;; attr-arg (1 level of internal parens allowed!)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1427 "\\((\\(\\\\.\\|[^\\\\()]\\|([^\\\\()]*)\\)*)\\)?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1428 "\\(" ; optional : (XXX allows trailing???)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1429 cperl-maybe-white-and-comment-rex ; whitespace-comments
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1430 ":\\)?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1431 "\\)+")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1432 "[^:]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1433 "\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1434 "\\)?" ; END n+6=proto-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1435 ))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1436
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1437 ;;; Details of groups in this are used in `cperl-imenu--create-perl-index'
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1438 ;;; and `cperl-outline-level'.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1439 ;;;; Was: 2=sub|package; now 2=package-group, 5=package-name 8=sub-name (+3)
43943
5ef08437e801 (cperl-imenu--function-name-regexp-perl):
Richard M. Stallman <rms@gnu.org>
parents: 43899
diff changeset
1440 (defvar cperl-imenu--function-name-regexp-perl
5ef08437e801 (cperl-imenu--function-name-regexp-perl):
Richard M. Stallman <rms@gnu.org>
parents: 43899
diff changeset
1441 (concat
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1442 "^\\(" ; 1 = all
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1443 "\\([ \t]*package" ; 2 = package-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1444 "\\(" ; 3 = package-name-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1445 cperl-white-and-comment-rex ; 4 = pre-package-name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1446 "\\([a-zA-Z_0-9:']+\\)\\)?\\)" ; 5 = package-name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1447 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1448 "[ \t]*sub"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1449 (cperl-after-sub-regexp 'named nil) ; 8=name 11=proto 14=attr-start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1450 cperl-maybe-white-and-comment-rex ; 15=pre-block
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1451 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1452 "=head\\([1-4]\\)[ \t]+" ; 16=level
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1453 "\\([^\n]+\\)$" ; 17=text
43943
5ef08437e801 (cperl-imenu--function-name-regexp-perl):
Richard M. Stallman <rms@gnu.org>
parents: 43899
diff changeset
1454 "\\)"))
5ef08437e801 (cperl-imenu--function-name-regexp-perl):
Richard M. Stallman <rms@gnu.org>
parents: 43899
diff changeset
1455
43899
2b9c79cd9ecb (cperl-outline-regexp): Move definition up.
Richard M. Stallman <rms@gnu.org>
parents: 43688
diff changeset
1456 (defvar cperl-outline-regexp
2b9c79cd9ecb (cperl-outline-regexp): Move definition up.
Richard M. Stallman <rms@gnu.org>
parents: 43688
diff changeset
1457 (concat cperl-imenu--function-name-regexp-perl "\\|" "\\`"))
2b9c79cd9ecb (cperl-outline-regexp): Move definition up.
Richard M. Stallman <rms@gnu.org>
parents: 43688
diff changeset
1458
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1459 (defvar cperl-mode-syntax-table nil
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
1460 "Syntax table in use in CPerl mode buffers.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1461
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1462 (defvar cperl-string-syntax-table nil
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
1463 "Syntax table in use in CPerl mode string-like chunks.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1464
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1465 (defsubst cperl-1- (p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1466 (max (point-min) (1- p)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1467
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1468 (defsubst cperl-1+ (p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1469 (min (point-max) (1+ p)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1470
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1471 (if cperl-mode-syntax-table
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1472 ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1473 (setq cperl-mode-syntax-table (make-syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1474 (modify-syntax-entry ?\\ "\\" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1475 (modify-syntax-entry ?/ "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1476 (modify-syntax-entry ?* "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1477 (modify-syntax-entry ?+ "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1478 (modify-syntax-entry ?- "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1479 (modify-syntax-entry ?= "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1480 (modify-syntax-entry ?% "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1481 (modify-syntax-entry ?< "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1482 (modify-syntax-entry ?> "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1483 (modify-syntax-entry ?& "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1484 (modify-syntax-entry ?$ "\\" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1485 (modify-syntax-entry ?\n ">" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1486 (modify-syntax-entry ?# "<" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1487 (modify-syntax-entry ?' "\"" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1488 (modify-syntax-entry ?` "\"" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1489 (if cperl-under-as-char
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1490 (modify-syntax-entry ?_ "w" cperl-mode-syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1491 (modify-syntax-entry ?: "_" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1492 (modify-syntax-entry ?| "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1493 (setq cperl-string-syntax-table (copy-syntax-table cperl-mode-syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1494 (modify-syntax-entry ?$ "." cperl-string-syntax-table)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1495 (modify-syntax-entry ?\{ "." cperl-string-syntax-table)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1496 (modify-syntax-entry ?\} "." cperl-string-syntax-table)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1497 (modify-syntax-entry ?# "." cperl-string-syntax-table)) ; (?# comment )
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1498
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1499
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1500
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1501 (defvar cperl-faces-init nil)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1502 ;; Fix for msb.el
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1503 (defvar cperl-msb-fixed nil)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1504 (defvar cperl-use-major-mode 'cperl-mode)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1505 (defvar cperl-font-lock-multiline-start nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1506 (defvar cperl-font-lock-multiline nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1507 (defvar cperl-font-locking nil)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1508
78407
377800d78812 (cperl-compilation-error-regexp-alist): Remove duplicate defvar
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
1509 ;; NB as it stands the code in cperl-mode assumes this only has one
377800d78812 (cperl-compilation-error-regexp-alist): Remove duplicate defvar
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
1510 ;; element. If Xemacs 19 support were dropped, this could all be simplified.
377800d78812 (cperl-compilation-error-regexp-alist): Remove duplicate defvar
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
1511 (defvar cperl-compilation-error-regexp-alist
377800d78812 (cperl-compilation-error-regexp-alist): Remove duplicate defvar
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
1512 ;; This look like a paranoiac regexp: could anybody find a better one? (which WORKS).
377800d78812 (cperl-compilation-error-regexp-alist): Remove duplicate defvar
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
1513 '(("^[^\n]* \\(file\\|at\\) \\([^ \t\n]+\\) [^\n]*line \\([0-9]+\\)[\\., \n]"
377800d78812 (cperl-compilation-error-regexp-alist): Remove duplicate defvar
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
1514 2 3))
377800d78812 (cperl-compilation-error-regexp-alist): Remove duplicate defvar
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
1515 "Alist that specifies how to match errors in perl output.")
377800d78812 (cperl-compilation-error-regexp-alist): Remove duplicate defvar
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
1516
86503
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1517 (defvar compilation-error-regexp-alist)
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1518
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1519 ;;;###autoload
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1520 (defun cperl-mode ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1521 "Major mode for editing Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1522 Expression and list commands understand all C brackets.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1523 Tab indents for Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1524 Paragraphs are separated by blank lines only.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1525 Delete converts tabs to spaces as it moves back.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1526
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1527 Various characters in Perl almost always come in pairs: {}, (), [],
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1528 sometimes <>. When the user types the first, she gets the second as
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1529 well, with optional special formatting done on {}. (Disabled by
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1530 default.) You can always quote (with \\[quoted-insert]) the left
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1531 \"paren\" to avoid the expansion. The processing of < is special,
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
1532 since most the time you mean \"less\". CPerl mode tries to guess
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1533 whether you want to type pair <>, and inserts is if it
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1534 appropriate. You can set `cperl-electric-parens-string' to the string that
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1535 contains the parenths from the above list you want to be electrical.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1536 Electricity of parenths is controlled by `cperl-electric-parens'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1537 You may also set `cperl-electric-parens-mark' to have electric parens
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1538 look for active mark and \"embrace\" a region if possible.'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1539
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1540 CPerl mode provides expansion of the Perl control constructs:
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1541
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1542 if, else, elsif, unless, while, until, continue, do,
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1543 for, foreach, formy and foreachmy.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1544
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1545 and POD directives (Disabled by default, see `cperl-electric-keywords'.)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1546
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1547 The user types the keyword immediately followed by a space, which
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1548 causes the construct to be expanded, and the point is positioned where
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1549 she is most likely to want to be. eg. when the user types a space
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1550 following \"if\" the following appears in the buffer: if () { or if ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1551 } { } and the cursor is between the parentheses. The user can then
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1552 type some boolean expression within the parens. Having done that,
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1553 typing \\[cperl-linefeed] places you - appropriately indented - on a
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1554 new line between the braces (if you typed \\[cperl-linefeed] in a POD
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1555 directive line, then appropriate number of new lines is inserted).
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1556
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1557 If CPerl decides that you want to insert \"English\" style construct like
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1558
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1559 bite if angry;
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1560
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1561 it will not do any expansion. See also help on variable
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1562 `cperl-extra-newline-before-brace'. (Note that one can switch the
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1563 help message on expansion by setting `cperl-message-electric-keyword'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1564 to nil.)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1565
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1566 \\[cperl-linefeed] is a convenience replacement for typing carriage
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1567 return. It places you in the next line with proper indentation, or if
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1568 you type it inside the inline block of control construct, like
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1569
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1570 foreach (@lines) {print; print}
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1571
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1572 and you are on a boundary of a statement inside braces, it will
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1573 transform the construct into a multiline and will place you into an
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1574 appropriately indented blank line. If you need a usual
63274
b870276d9ea5 (cperl-info-on-command-no-prompt, cperl-mode): Fix spellings in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 62686
diff changeset
1575 `newline-and-indent' behavior, it is on \\[newline-and-indent],
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1576 see documentation on `cperl-electric-linefeed'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1577
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1578 Use \\[cperl-invert-if-unless] to change a construction of the form
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1579
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1580 if (A) { B }
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1581
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1582 into
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1583
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1584 B if A;
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1585
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1586 \\{cperl-mode-map}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1587
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1588 Setting the variable `cperl-font-lock' to t switches on font-lock-mode
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1589 \(even with older Emacsen), `cperl-electric-lbrace-space' to t switches
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1590 on electric space between $ and {, `cperl-electric-parens-string' is
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1591 the string that contains parentheses that should be electric in CPerl
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1592 \(see also `cperl-electric-parens-mark' and `cperl-electric-parens'),
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1593 setting `cperl-electric-keywords' enables electric expansion of
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1594 control structures in CPerl. `cperl-electric-linefeed' governs which
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1595 one of two linefeed behavior is preferable. You can enable all these
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1596 options simultaneously (recommended mode of use) by setting
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1597 `cperl-hairy' to t. In this case you can switch separate options off
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1598 by setting them to `null'. Note that one may undo the extra
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1599 whitespace inserted by semis and braces in `auto-newline'-mode by
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1600 consequent \\[cperl-electric-backspace].
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1601
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1602 If your site has perl5 documentation in info format, you can use commands
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1603 \\[cperl-info-on-current-command] and \\[cperl-info-on-command] to access it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1604 These keys run commands `cperl-info-on-current-command' and
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1605 `cperl-info-on-command', which one is which is controlled by variable
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1606 `cperl-info-on-command-no-prompt' and `cperl-clobber-lisp-bindings'
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1607 \(in turn affected by `cperl-hairy').
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1608
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1609 Even if you have no info-format documentation, short one-liner-style
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1610 help is available on \\[cperl-get-help], and one can run perldoc or
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1611 man via menu.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1612
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1613 It is possible to show this help automatically after some idle time.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1614 This is regulated by variable `cperl-lazy-help-time'. Default with
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1615 `cperl-hairy' (if the value of `cperl-lazy-help-time' is nil) is 5
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1616 secs idle time . It is also possible to switch this on/off from the
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1617 menu, or via \\[cperl-toggle-autohelp]. Requires `run-with-idle-timer'.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1618
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1619 Use \\[cperl-lineup] to vertically lineup some construction - put the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1620 beginning of the region at the start of construction, and make region
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1621 span the needed amount of lines.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1622
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1623 Variables `cperl-pod-here-scan', `cperl-pod-here-fontify',
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1624 `cperl-pod-face', `cperl-pod-head-face' control processing of POD and
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1625 here-docs sections. With capable Emaxen results of scan are used
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1626 for indentation too, otherwise they are used for highlighting only.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1627
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1628 Variables controlling indentation style:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1629 `cperl-tab-always-indent'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1630 Non-nil means TAB in CPerl mode should always reindent the current line,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1631 regardless of where in the line point is when the TAB command is used.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1632 `cperl-indent-left-aligned-comments'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1633 Non-nil means that the comment starting in leftmost column should indent.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1634 `cperl-auto-newline'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1635 Non-nil means automatically newline before and after braces,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1636 and after colons and semicolons, inserted in Perl code. The following
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1637 \\[cperl-electric-backspace] will remove the inserted whitespace.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1638 Insertion after colons requires both this variable and
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1639 `cperl-auto-newline-after-colon' set.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1640 `cperl-auto-newline-after-colon'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1641 Non-nil means automatically newline even after colons.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1642 Subject to `cperl-auto-newline' setting.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1643 `cperl-indent-level'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1644 Indentation of Perl statements within surrounding block.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1645 The surrounding block's indentation is the indentation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1646 of the line on which the open-brace appears.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1647 `cperl-continued-statement-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1648 Extra indentation given to a substatement, such as the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1649 then-clause of an if, or body of a while, or just a statement continuation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1650 `cperl-continued-brace-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1651 Extra indentation given to a brace that starts a substatement.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1652 This is in addition to `cperl-continued-statement-offset'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1653 `cperl-brace-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1654 Extra indentation for line if it starts with an open brace.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1655 `cperl-brace-imaginary-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1656 An open brace following other text is treated as if it the line started
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1657 this far to the right of the actual line indentation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1658 `cperl-label-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1659 Extra indentation for line that is a label.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1660 `cperl-min-label-indent'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1661 Minimal indentation for line that is a label.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1662
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1663 Settings for classic indent-styles: K&R BSD=C++ GNU PerlStyle=Whitesmith
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1664 `cperl-indent-level' 5 4 2 4
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1665 `cperl-brace-offset' 0 0 0 0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1666 `cperl-continued-brace-offset' -5 -4 0 0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1667 `cperl-label-offset' -5 -4 -2 -4
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1668 `cperl-continued-statement-offset' 5 4 2 4
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1669
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1670 CPerl knows several indentation styles, and may bulk set the
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1671 corresponding variables. Use \\[cperl-set-style] to do this. Use
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1672 \\[cperl-set-style-back] to restore the memorized preexisting values
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1673 \(both available from menu). See examples in `cperl-style-examples'.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1674
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1675 Part of the indentation style is how different parts of if/elsif/else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1676 statements are broken into lines; in CPerl, this is reflected on how
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1677 templates for these constructs are created (controlled by
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1678 `cperl-extra-newline-before-brace'), and how reflow-logic should treat \"continuation\" blocks of else/elsif/continue, controlled by the same variable,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1679 and by `cperl-extra-newline-before-brace-multiline',
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1680 `cperl-merge-trailing-else', `cperl-indent-region-fix-constructs'.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1681
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1682 If `cperl-indent-level' is 0, the statement after opening brace in
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1683 column 0 is indented on
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1684 `cperl-brace-offset'+`cperl-continued-statement-offset'.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1685
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1686 Turning on CPerl mode calls the hooks in the variable `cperl-mode-hook'
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1687 with no args.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1688
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1689 DO NOT FORGET to read micro-docs (available from `Perl' menu)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1690 or as help on variables `cperl-tips', `cperl-problems',
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
1691 `cperl-praise', `cperl-speed'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1692 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1693 (kill-all-local-variables)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1694 (use-local-map cperl-mode-map)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1695 (if (cperl-val 'cperl-electric-linefeed)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1696 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1697 (local-set-key "\C-J" 'cperl-linefeed)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1698 (local-set-key "\C-C\C-J" 'newline-and-indent)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1699 (if (and
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1700 (cperl-val 'cperl-clobber-lisp-bindings)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1701 (cperl-val 'cperl-info-on-command-no-prompt))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1702 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1703 ;; don't clobber the backspace binding:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1704 (cperl-define-key "\C-hf" 'cperl-info-on-current-command [(control h) f])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1705 (cperl-define-key "\C-c\C-hf" 'cperl-info-on-command
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1706 [(control c) (control h) f])))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1707 (setq major-mode cperl-use-major-mode)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1708 (setq mode-name "CPerl")
74429
79a5ffc89507 (cperl-mode): Define abbrevs even if abbrev-table is non-nil (saved
Glenn Morris <rgm@gnu.org>
parents: 73921
diff changeset
1709 (let ((prev-a-c abbrevs-changed))
79a5ffc89507 (cperl-mode): Define abbrevs even if abbrev-table is non-nil (saved
Glenn Morris <rgm@gnu.org>
parents: 73921
diff changeset
1710 (define-abbrev-table 'cperl-mode-abbrev-table '(
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1711 ("if" "if" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1712 ("elsif" "elsif" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1713 ("while" "while" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1714 ("until" "until" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1715 ("unless" "unless" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1716 ("else" "else" cperl-electric-else 0)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1717 ("continue" "continue" cperl-electric-else 0)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1718 ("for" "for" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1719 ("foreach" "foreach" cperl-electric-keyword 0)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1720 ("formy" "formy" cperl-electric-keyword 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1721 ("foreachmy" "foreachmy" cperl-electric-keyword 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1722 ("do" "do" cperl-electric-keyword 0)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1723 ("=pod" "=pod" cperl-electric-pod 0)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1724 ("=over" "=over" cperl-electric-pod 0)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1725 ("=head1" "=head1" cperl-electric-pod 0)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1726 ("=head2" "=head2" cperl-electric-pod 0)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1727 ("pod" "pod" cperl-electric-pod 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1728 ("over" "over" cperl-electric-pod 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1729 ("head1" "head1" cperl-electric-pod 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1730 ("head2" "head2" cperl-electric-pod 0)))
74429
79a5ffc89507 (cperl-mode): Define abbrevs even if abbrev-table is non-nil (saved
Glenn Morris <rgm@gnu.org>
parents: 73921
diff changeset
1731 (setq abbrevs-changed prev-a-c))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1732 (setq local-abbrev-table cperl-mode-abbrev-table)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1733 (if (cperl-val 'cperl-electric-keywords)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1734 (abbrev-mode 1))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1735 (set-syntax-table cperl-mode-syntax-table)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1736 ;; Until Emacs is multi-threaded, we do not actually need it local:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1737 (make-local-variable 'cperl-font-lock-multiline-start)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1738 (make-local-variable 'cperl-font-locking)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1739 (make-local-variable 'outline-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1740 ;; (setq outline-regexp imenu-example--function-name-regexp-perl)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1741 (setq outline-regexp cperl-outline-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1742 (make-local-variable 'outline-level)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1743 (setq outline-level 'cperl-outline-level)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1744 (make-local-variable 'paragraph-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1745 (setq paragraph-start (concat "^$\\|" page-delimiter))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1746 (make-local-variable 'paragraph-separate)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1747 (setq paragraph-separate paragraph-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1748 (make-local-variable 'paragraph-ignore-fill-prefix)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1749 (setq paragraph-ignore-fill-prefix t)
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
1750 (if (featurep 'xemacs)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1751 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1752 (make-local-variable 'paren-backwards-message)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1753 (set 'paren-backwards-message t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1754 (make-local-variable 'indent-line-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1755 (setq indent-line-function 'cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1756 (make-local-variable 'require-final-newline)
59242
520077017d32 (cperl-mode): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents: 59103
diff changeset
1757 (setq require-final-newline mode-require-final-newline)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1758 (make-local-variable 'comment-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1759 (setq comment-start "# ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1760 (make-local-variable 'comment-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1761 (setq comment-end "")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1762 (make-local-variable 'comment-column)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1763 (setq comment-column cperl-comment-column)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1764 (make-local-variable 'comment-start-skip)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1765 (setq comment-start-skip "#+ *")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1766 (make-local-variable 'defun-prompt-regexp)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1767 ;;; "[ \t]*sub"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1768 ;;; (cperl-after-sub-regexp 'named nil) ; 8=name 11=proto 14=attr-start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1769 ;;; cperl-maybe-white-and-comment-rex ; 15=pre-block
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1770 (setq defun-prompt-regexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1771 (concat "^[ \t]*\\(sub"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1772 (cperl-after-sub-regexp 'named 'attr-groups)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1773 "\\|" ; per toke.c
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1774 "\\(BEGIN\\|CHECK\\|INIT\\|END\\|AUTOLOAD\\|DESTROY\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1775 "\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1776 cperl-maybe-white-and-comment-rex))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1777 (make-local-variable 'comment-indent-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1778 (setq comment-indent-function 'cperl-comment-indent)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1779 (and (boundp 'fill-paragraph-function)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1780 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1781 (make-local-variable 'fill-paragraph-function)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1782 (set 'fill-paragraph-function 'cperl-fill-paragraph)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1783 (make-local-variable 'parse-sexp-ignore-comments)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1784 (setq parse-sexp-ignore-comments t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1785 (make-local-variable 'indent-region-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1786 (setq indent-region-function 'cperl-indent-region)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1787 ;;(setq auto-fill-function 'cperl-do-auto-fill) ; Need to switch on and off!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1788 (make-local-variable 'imenu-create-index-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1789 (setq imenu-create-index-function
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1790 (function cperl-imenu--create-perl-index))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1791 (make-local-variable 'imenu-sort-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1792 (setq imenu-sort-function nil)
62686
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
1793 (make-local-variable 'vc-rcs-header)
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
1794 (set 'vc-rcs-header cperl-vc-rcs-header)
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
1795 (make-local-variable 'vc-sccs-header)
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
1796 (set 'vc-sccs-header cperl-vc-sccs-header)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1797 ;; This one is obsolete...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1798 (make-local-variable 'vc-header-alist)
86503
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1799 (with-no-warnings
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1800 (set 'vc-header-alist (or cperl-vc-header-alist ; Avoid warning
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1801 `((SCCS ,(car cperl-vc-sccs-header))
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1802 (RCS ,(car cperl-vc-rcs-header)))))
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1803 )
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1804 (cond ((boundp 'compilation-error-regexp-alist-alist);; xemacs 20.x
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1805 (make-local-variable 'compilation-error-regexp-alist-alist)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1806 (set 'compilation-error-regexp-alist-alist
78407
377800d78812 (cperl-compilation-error-regexp-alist): Remove duplicate defvar
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
1807 (cons (cons 'cperl (car cperl-compilation-error-regexp-alist))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1808 (symbol-value 'compilation-error-regexp-alist-alist)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1809 (if (fboundp 'compilation-build-compilation-error-regexp-alist)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1810 (let ((f 'compilation-build-compilation-error-regexp-alist))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1811 (funcall f))
73921
9bcc33b6d297 (cperl-mode): Before adding to it, make `compilation-error-regexp-alist'
Romain Francoise <romain@orebokech.com>
parents: 73461
diff changeset
1812 (make-local-variable 'compilation-error-regexp-alist)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1813 (push 'cperl compilation-error-regexp-alist)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1814 ((boundp 'compilation-error-regexp-alist);; xmeacs 19.x
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1815 (make-local-variable 'compilation-error-regexp-alist)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1816 (set 'compilation-error-regexp-alist
76299
08cc2843c940 (cperl-mode): Modify cperl-compilation-error-regexp-alist by appending.
Richard M. Stallman <rms@gnu.org>
parents: 75347
diff changeset
1817 (append cperl-compilation-error-regexp-alist
08cc2843c940 (cperl-mode): Modify cperl-compilation-error-regexp-alist by appending.
Richard M. Stallman <rms@gnu.org>
parents: 75347
diff changeset
1818 (symbol-value 'compilation-error-regexp-alist)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1819 (make-local-variable 'font-lock-defaults)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1820 (setq font-lock-defaults
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1821 (cond
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1822 ((string< emacs-version "19.30")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1823 '(cperl-font-lock-keywords-2 nil nil ((?_ . "w"))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1824 ((string< emacs-version "19.33") ; Which one to use?
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
1825 '((cperl-font-lock-keywords
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
1826 cperl-font-lock-keywords-1
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1827 cperl-font-lock-keywords-2) nil nil ((?_ . "w"))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1828 (t
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1829 '((cperl-load-font-lock-keywords
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1830 cperl-load-font-lock-keywords-1
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1831 cperl-load-font-lock-keywords-2) nil nil ((?_ . "w"))))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1832 (make-local-variable 'cperl-syntax-state)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1833 (setq cperl-syntax-state nil) ; reset syntaxification cache
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1834 (if cperl-use-syntax-table-text-property
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1835 (progn
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
1836 (make-local-variable 'parse-sexp-lookup-properties)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1837 ;; Do not introduce variable if not needed, we check it!
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1838 (set 'parse-sexp-lookup-properties t)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1839 ;; Fix broken font-lock:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1840 (or (boundp 'font-lock-unfontify-region-function)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1841 (set 'font-lock-unfontify-region-function
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1842 'font-lock-default-unfontify-region))
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
1843 (unless (featurep 'xemacs) ; Our: just a plug for wrong font-lock
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1844 (make-local-variable 'font-lock-unfontify-region-function)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1845 (set 'font-lock-unfontify-region-function ; not present with old Emacs
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1846 'cperl-font-lock-unfontify-region-function))
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
1847 (make-local-variable 'cperl-syntax-done-to)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1848 (setq cperl-syntax-done-to nil) ; reset syntaxification cache
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
1849 (make-local-variable 'font-lock-syntactic-keywords)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1850 (setq font-lock-syntactic-keywords
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1851 (if cperl-syntaxify-by-font-lock
61892
6acaa6301fd7 (cperl-mode): Don't precompile the font-lock-fontify-syntactic-keywords.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60925
diff changeset
1852 '((cperl-fontify-syntaxically))
6acaa6301fd7 (cperl-mode): Don't precompile the font-lock-fontify-syntactic-keywords.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60925
diff changeset
1853 ;; unless font-lock-syntactic-keywords, font-lock (pre-22.1)
6acaa6301fd7 (cperl-mode): Don't precompile the font-lock-fontify-syntactic-keywords.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60925
diff changeset
1854 ;; used to ignore syntax-table text-properties. (t) is a hack
6acaa6301fd7 (cperl-mode): Don't precompile the font-lock-fontify-syntactic-keywords.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60925
diff changeset
1855 ;; to make font-lock think that font-lock-syntactic-keywords
6acaa6301fd7 (cperl-mode): Don't precompile the font-lock-fontify-syntactic-keywords.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60925
diff changeset
1856 ;; are defined.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1857 '(t)))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1858 (if (boundp 'font-lock-multiline) ; Newer font-lock; use its facilities
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1859 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1860 (setq cperl-font-lock-multiline t) ; Not localized...
73457
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
1861 (set (make-local-variable 'font-lock-multiline) t))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1862 (make-local-variable 'font-lock-fontify-region-function)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1863 (set 'font-lock-fontify-region-function ; not present with old Emacs
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1864 'cperl-font-lock-fontify-region-function))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1865 (make-local-variable 'font-lock-fontify-region-function)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1866 (set 'font-lock-fontify-region-function ; not present with old Emacs
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1867 'cperl-font-lock-fontify-region-function)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1868 (make-local-variable 'cperl-old-style)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1869 (if (boundp 'normal-auto-fill-function) ; 19.33 and later
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1870 (set (make-local-variable 'normal-auto-fill-function)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1871 'cperl-do-auto-fill)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1872 (or (fboundp 'cperl-old-auto-fill-mode)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1873 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1874 (fset 'cperl-old-auto-fill-mode (symbol-function 'auto-fill-mode))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1875 (defun auto-fill-mode (&optional arg)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1876 (interactive "P")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1877 (eval '(cperl-old-auto-fill-mode arg)) ; Avoid a warning
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1878 (and auto-fill-function (memq major-mode '(perl-mode cperl-mode))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1879 (setq auto-fill-function 'cperl-do-auto-fill))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1880 (if (cperl-enable-font-lock)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1881 (if (cperl-val 'cperl-font-lock)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1882 (progn (or cperl-faces-init (cperl-init-faces))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1883 (font-lock-mode 1))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1884 (set (make-local-variable 'facemenu-add-face-function)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1885 'cperl-facemenu-add-face-function) ; XXXX What this guy is for???
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1886 (and (boundp 'msb-menu-cond)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1887 (not cperl-msb-fixed)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1888 (cperl-msb-fix))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1889 (if (featurep 'easymenu)
22392
7300e6ab99d2 (cperl-problems): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 22391
diff changeset
1890 (easy-menu-add cperl-menu)) ; A NOP in Emacs.
58190
71f3f7fc6fcd run-mode-hooks instead of run-hooks
Daniel Pfeiffer <occitan@esperanto.org>
parents: 58003
diff changeset
1891 (run-mode-hooks 'cperl-mode-hook)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1892 (if cperl-hook-after-change
77103
5e661f4001f4 (cperl-mode): Remove unnecessary call to obsolete function
Glenn Morris <rgm@gnu.org>
parents: 76299
diff changeset
1893 (add-hook 'after-change-functions 'cperl-after-change-function nil t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1894 ;; After hooks since fontification will break this
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1895 (if cperl-pod-here-scan
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1896 (or cperl-syntaxify-by-font-lock
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1897 (progn (or cperl-faces-init (cperl-init-faces-weak))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1898 (cperl-find-pods-heres)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1899
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1900 ;; Fix for perldb - make default reasonable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1901 (defun cperl-db ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1902 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1903 (require 'gud)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1904 (perldb (read-from-minibuffer "Run perldb (like this): "
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1905 (if (consp gud-perldb-history)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1906 (car gud-perldb-history)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1907 (concat "perl " ;;(file-name-nondirectory
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1908 ;; I have problems
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1909 ;; in OS/2
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1910 ;; otherwise
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1911 (buffer-file-name)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1912 nil nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1913 '(gud-perldb-history . 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1914
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1915 (defun cperl-msb-fix ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1916 ;; Adds perl files to msb menu, supposes that msb is already loaded
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1917 (setq cperl-msb-fixed t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1918 (let* ((l (length msb-menu-cond))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1919 (last (nth (1- l) msb-menu-cond))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1920 (precdr (nthcdr (- l 2) msb-menu-cond)) ; cdr of this is last
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1921 (handle (1- (nth 1 last))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1922 (setcdr precdr (list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1923 (list
36602
4bcc2745d610 (cperl-msb-fix, cperl-get-help-defer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36601
diff changeset
1924 '(memq major-mode '(cperl-mode perl-mode))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1925 handle
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1926 "Perl Files (%d)")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1927 last))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1928
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1929 ;; This is used by indent-for-comment
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1930 ;; to decide how much to indent a comment in CPerl code
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1931 ;; based on its context. Do fallback if comment is found wrong.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1932
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1933 (defvar cperl-wrong-comment)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1934 (defvar cperl-st-cfence '(14)) ; Comment-fence
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1935 (defvar cperl-st-sfence '(15)) ; String-fence
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1936 (defvar cperl-st-punct '(1))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1937 (defvar cperl-st-word '(2))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1938 (defvar cperl-st-bra '(4 . ?\>))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1939 (defvar cperl-st-ket '(5 . ?\<))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1940
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1941
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1942 (defun cperl-comment-indent () ; called at point at supposed comment
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1943 (let ((p (point)) (c (current-column)) was phony)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1944 (if (and (not cperl-indent-comment-at-column-0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1945 (looking-at "^#"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1946 0 ; Existing comment at bol stays there.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1947 ;; Wrong comment found
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1948 (save-excursion
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1949 (setq was (cperl-to-comment-or-eol)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1950 phony (eq (get-text-property (point) 'syntax-table)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1951 cperl-st-cfence))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1952 (if phony
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1953 (progn ; Too naive???
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1954 (re-search-forward "#\\|$") ; Hmm, what about embedded #?
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1955 (if (eq (preceding-char) ?\#)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1956 (forward-char -1))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1957 (setq was nil)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1958 (if (= (point) p) ; Our caller found a correct place
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1959 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1960 (skip-chars-backward " \t")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1961 (setq was (current-column))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1962 (if (eq was 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1963 comment-column
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1964 (max (1+ was) ; Else indent at comment column
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1965 comment-column)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1966 ;; No, the caller found a random place; we need to edit ourselves
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1967 (if was nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1968 (insert comment-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1969 (backward-char (length comment-start)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1970 (setq cperl-wrong-comment t)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1971 (cperl-make-indent comment-column 1) ; Indent min 1
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1972 c)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1973
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1974 ;;;(defun cperl-comment-indent-fallback ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1975 ;;; "Is called if the standard comment-search procedure fails.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1976 ;;;Point is at start of real comment."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1977 ;;; (let ((c (current-column)) target cnt prevc)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1978 ;;; (if (= c comment-column) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1979 ;;; (setq cnt (skip-chars-backward "[ \t]"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1980 ;;; (setq target (max (1+ (setq prevc
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1981 ;;; (current-column))) ; Else indent at comment column
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1982 ;;; comment-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1983 ;;; (if (= c comment-column) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1984 ;;; (delete-backward-char cnt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1985 ;;; (while (< prevc target)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1986 ;;; (insert "\t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1987 ;;; (setq prevc (current-column)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1988 ;;; (if (> prevc target) (progn (delete-char -1) (setq prevc (current-column))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1989 ;;; (while (< prevc target)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1990 ;;; (insert " ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1991 ;;; (setq prevc (current-column)))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1992
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1993 (defun cperl-indent-for-comment ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1994 "Substitute for `indent-for-comment' in CPerl."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1995 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1996 (let (cperl-wrong-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1997 (indent-for-comment)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1998 (if cperl-wrong-comment ; set by `cperl-comment-indent'
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1999 (progn (cperl-to-comment-or-eol)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2000 (forward-char (length comment-start))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2001
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2002 (defun cperl-comment-region (b e arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2003 "Comment or uncomment each line in the region in CPerl mode.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2004 See `comment-region'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2005 (interactive "r\np")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2006 (let ((comment-start "#"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2007 (comment-region b e arg)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2008
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2009 (defun cperl-uncomment-region (b e arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2010 "Uncomment or comment each line in the region in CPerl mode.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2011 See `comment-region'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2012 (interactive "r\np")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2013 (let ((comment-start "#"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2014 (comment-region b e (- arg))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2015
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2016 (defvar cperl-brace-recursing nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2017
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2018 (defun cperl-electric-brace (arg &optional only-before)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2019 "Insert character and correct line's indentation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2020 If ONLY-BEFORE and `cperl-auto-newline', will insert newline before the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2021 place (even in empty line), but not after. If after \")\" and the inserted
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2022 char is \"{\", insert extra newline before only if
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2023 `cperl-extra-newline-before-brace'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2024 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2025 (let (insertpos
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2026 (other-end (if (and cperl-electric-parens-mark
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2027 (cperl-mark-active)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2028 (< (mark) (point)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2029 (mark)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2030 nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2031 (if (and other-end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2032 (not cperl-brace-recursing)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2033 (cperl-val 'cperl-electric-parens)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2034 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2035 ;; Need to insert a matching pair
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2036 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2037 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2038 (setq insertpos (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2039 (goto-char other-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2040 (setq last-command-char ?\{)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2041 (cperl-electric-lbrace arg insertpos))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2042 (forward-char 1))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2043 ;; Check whether we close something "usual" with `}'
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2044 (if (and (eq last-command-char ?\})
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2045 (not
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2046 (condition-case nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2047 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2048 (up-list (- (prefix-numeric-value arg)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2049 ;;(cperl-after-block-p (point-min))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2050 (or (cperl-after-expr-p nil "{;)")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2051 ;; after sub, else, continue
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2052 (cperl-after-block-p nil 'pre)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2053 (error nil))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2054 ;; Just insert the guy
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2055 (self-insert-command (prefix-numeric-value arg))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2056 (if (and (not arg) ; No args, end (of empty line or auto)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2057 (eolp)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2058 (or (and (null only-before)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2059 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2060 (skip-chars-backward " \t")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2061 (bolp)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2062 (and (eq last-command-char ?\{) ; Do not insert newline
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2063 ;; if after ")" and `cperl-extra-newline-before-brace'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2064 ;; is nil, do not insert extra newline.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2065 (not cperl-extra-newline-before-brace)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2066 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2067 (skip-chars-backward " \t")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2068 (eq (preceding-char) ?\))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2069 (if cperl-auto-newline
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2070 (progn (cperl-indent-line) (newline) t) nil)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2071 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2072 (self-insert-command (prefix-numeric-value arg))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2073 (cperl-indent-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2074 (if cperl-auto-newline
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2075 (setq insertpos (1- (point))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2076 (if (and cperl-auto-newline (null only-before))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2077 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2078 (newline)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2079 (cperl-indent-line)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2080 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2081 (if insertpos (progn (goto-char insertpos)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2082 (search-forward (make-string
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2083 1 last-command-char))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2084 (setq insertpos (1- (point)))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2085 (delete-char -1))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2086 (if insertpos
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2087 (save-excursion
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2088 (goto-char insertpos)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2089 (self-insert-command (prefix-numeric-value arg)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2090 (self-insert-command (prefix-numeric-value arg)))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2091
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2092 (defun cperl-electric-lbrace (arg &optional end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2093 "Insert character, correct line's indentation, correct quoting by space."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2094 (interactive "P")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2095 (let ((cperl-brace-recursing t)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2096 (cperl-auto-newline cperl-auto-newline)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2097 (other-end (or end
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2098 (if (and cperl-electric-parens-mark
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2099 (cperl-mark-active)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2100 (> (mark) (point)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2101 (save-excursion
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2102 (goto-char (mark))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2103 (point-marker))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2104 nil)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2105 pos after)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2106 (and (cperl-val 'cperl-electric-lbrace-space)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2107 (eq (preceding-char) ?$)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2108 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2109 (skip-chars-backward "$")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2110 (looking-at "\\(\\$\\$\\)*\\$\\([^\\$]\\|$\\)"))
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
2111 (insert ?\s))
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2112 ;; Check whether we are in comment
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2113 (if (and
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2114 (save-excursion
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2115 (beginning-of-line)
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2116 (not (looking-at "[ \t]*#")))
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2117 (cperl-after-expr-p nil "{;)"))
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2118 nil
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2119 (setq cperl-auto-newline nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2120 (cperl-electric-brace arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2121 (and (cperl-val 'cperl-electric-parens)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2122 (eq last-command-char ?{)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2123 (memq last-command-char
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2124 (append cperl-electric-parens-string nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2125 (or (if other-end (goto-char (marker-position other-end)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2126 t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2127 (setq last-command-char ?} pos (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2128 (progn (cperl-electric-brace arg t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2129 (goto-char pos)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2130
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2131 (defun cperl-electric-paren (arg)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2132 "Insert an opening parenthesis or a matching pair of parentheses.
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2133 See `cperl-electric-parens'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2134 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2135 (let ((beg (save-excursion (beginning-of-line) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2136 (other-end (if (and cperl-electric-parens-mark
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2137 (cperl-mark-active)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2138 (> (mark) (point)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2139 (save-excursion
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2140 (goto-char (mark))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2141 (point-marker))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2142 nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2143 (if (and (cperl-val 'cperl-electric-parens)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2144 (memq last-command-char
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2145 (append cperl-electric-parens-string nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2146 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2147 ;;(not (save-excursion (search-backward "#" beg t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2148 (if (eq last-command-char ?<)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2149 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2150 (and abbrev-mode ; later it is too late, may be after `for'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2151 (expand-abbrev))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2152 (cperl-after-expr-p nil "{;(,:="))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2153 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2154 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2155 (self-insert-command (prefix-numeric-value arg))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2156 (if other-end (goto-char (marker-position other-end)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2157 (insert (make-string
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2158 (prefix-numeric-value arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2159 (cdr (assoc last-command-char '((?{ .?})
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2160 (?[ . ?])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2161 (?( . ?))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2162 (?< . ?>))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2163 (forward-char (- (prefix-numeric-value arg))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2164 (self-insert-command (prefix-numeric-value arg)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2165
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2166 (defun cperl-electric-rparen (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2167 "Insert a matching pair of parentheses if marking is active.
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2168 If not, or if we are not at the end of marking range, would self-insert.
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2169 Affected by `cperl-electric-parens'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2170 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2171 (let ((beg (save-excursion (beginning-of-line) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2172 (other-end (if (and cperl-electric-parens-mark
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2173 (cperl-val 'cperl-electric-parens)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2174 (memq last-command-char
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2175 (append cperl-electric-parens-string nil))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2176 (cperl-mark-active)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2177 (< (mark) (point)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2178 (mark)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2179 nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2180 p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2181 (if (and other-end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2182 (cperl-val 'cperl-electric-parens)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2183 (memq last-command-char '( ?\) ?\] ?\} ?\> ))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2184 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2185 ;;(not (save-excursion (search-backward "#" beg t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2186 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2187 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2188 (self-insert-command (prefix-numeric-value arg))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2189 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2190 (if other-end (goto-char other-end))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2191 (insert (make-string
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2192 (prefix-numeric-value arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2193 (cdr (assoc last-command-char '((?\} . ?\{)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2194 (?\] . ?\[)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2195 (?\) . ?\()
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2196 (?\> . ?\<))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2197 (goto-char (1+ p)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2198 (self-insert-command (prefix-numeric-value arg)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2199
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2200 (defun cperl-electric-keyword ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2201 "Insert a construction appropriate after a keyword.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2202 Help message may be switched off by setting `cperl-message-electric-keyword'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2203 to nil."
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2204 (let ((beg (save-excursion (beginning-of-line) (point)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2205 (dollar (and (eq last-command-char ?$)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2206 (eq this-command 'self-insert-command)))
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
2207 (delete (and (memq last-command-char '(?\s ?\n ?\t ?\f))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2208 (memq this-command '(self-insert-command newline))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2209 my do)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2210 (and (save-excursion
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2211 (condition-case nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2212 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2213 (backward-sexp 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2214 (setq do (looking-at "do\\>")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2215 (error nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2216 (cperl-after-expr-p nil "{;:"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2217 (save-excursion
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2218 (not
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2219 (re-search-backward
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2220 "[#\"'`]\\|\\<q\\(\\|[wqxr]\\)\\>"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2221 beg t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2222 (save-excursion (or (not (re-search-backward "^=" nil t))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2223 (or
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2224 (looking-at "=cut")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2225 (and cperl-use-syntax-table-text-property
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2226 (not (eq (get-text-property (point)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2227 'syntax-type)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2228 'pod))))))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2229 (save-excursion (forward-sexp -1)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2230 (not (memq (following-char) (append "$@%&*" nil))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2231 (progn
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2232 (and (eq (preceding-char) ?y)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2233 (progn ; "foreachmy"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2234 (forward-char -2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2235 (insert " ")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2236 (forward-char 2)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2237 (setq my t dollar t
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2238 delete
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2239 (memq this-command '(self-insert-command newline)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2240 (and dollar (insert " $"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2241 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2242 ;;(insert " () {\n}")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2243 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2244 (cperl-extra-newline-before-brace
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2245 (insert (if do "\n" " ()\n"))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2246 (insert "{")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2247 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2248 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2249 (cperl-indent-line)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2250 (insert "\n}")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2251 (and do (insert " while ();")))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2252 (t
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2253 (insert (if do " {\n} while ();" " () {\n}"))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2254 (or (looking-at "[ \t]\\|$") (insert " "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2255 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2256 (if dollar (progn (search-backward "$")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2257 (if my
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2258 (forward-char 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2259 (delete-char 1)))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2260 (search-backward ")")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2261 (if (eq last-command-char ?\()
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2262 (progn ; Avoid "if (())"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2263 (delete-backward-char 1)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2264 (delete-backward-char -1))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2265 (if delete
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2266 (cperl-putback-char cperl-del-back-ch))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2267 (if cperl-message-electric-keyword
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2268 (message "Precede char by C-q to avoid expansion"))))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2269
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2270 (defun cperl-ensure-newlines (n &optional pos)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2271 "Make sure there are N newlines after the point."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2272 (or pos (setq pos (point)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2273 (if (looking-at "\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2274 (forward-char 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2275 (insert "\n"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2276 (if (> n 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2277 (cperl-ensure-newlines (1- n) pos)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2278 (goto-char pos)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2279
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2280 (defun cperl-electric-pod ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2281 "Insert a POD chunk appropriate after a =POD directive."
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
2282 (let ((delete (and (memq last-command-char '(?\s ?\n ?\t ?\f))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2283 (memq this-command '(self-insert-command newline))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2284 head1 notlast name p really-delete over)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2285 (and (save-excursion
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2286 (forward-word -1)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
2287 (and
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2288 (eq (preceding-char) ?=)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2289 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2290 (setq head1 (looking-at "head1\\>[ \t]*$"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2291 (setq over (and (looking-at "over\\>[ \t]*$")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2292 (not (looking-at "over[ \t]*\n\n\n*=item\\>"))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2293 (forward-char -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2294 (bolp))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2295 (or
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2296 (get-text-property (point) 'in-pod)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2297 (cperl-after-expr-p nil "{;:")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2298 (and (re-search-backward "\\(\\`\n?\\|^\n\\)=\\sw+" (point-min) t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2299 (not (looking-at "\n*=cut"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2300 (or (not cperl-use-syntax-table-text-property)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2301 (eq (get-text-property (point) 'syntax-type) 'pod))))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2302 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2303 (save-excursion
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2304 (setq notlast (re-search-forward "^\n=" nil t)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2305 (or notlast
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2306 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2307 (insert "\n\n=cut")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2308 (cperl-ensure-newlines 2)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2309 (forward-word -2)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
2310 (if (and head1
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
2311 (not
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2312 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2313 (forward-char -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2314 (re-search-backward "\\(\\`\n?\\|\n\n\\)=head1\\>"
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2315 nil t)))) ; Only one
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
2316 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2317 (forward-word 1)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2318 (setq name (file-name-sans-extension
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2319 (file-name-nondirectory (buffer-file-name)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2320 p (point))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2321 (insert " NAME\n\n" name
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
2322 " - \n\n=head1 SYNOPSIS\n\n\n\n"
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2323 "=head1 DESCRIPTION")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2324 (cperl-ensure-newlines 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2325 (goto-char p)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2326 (forward-word 2)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2327 (end-of-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2328 (setq really-delete t))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2329 (forward-word 1))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2330 (if over
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2331 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2332 (setq p (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2333 (insert "\n\n=item \n\n\n\n"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2334 "=back")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2335 (cperl-ensure-newlines 2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2336 (goto-char p)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2337 (forward-word 1)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2338 (end-of-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2339 (setq really-delete t)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2340 (if (and delete really-delete)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2341 (cperl-putback-char cperl-del-back-ch))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2342
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2343 (defun cperl-electric-else ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2344 "Insert a construction appropriate after a keyword.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2345 Help message may be switched off by setting `cperl-message-electric-keyword'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2346 to nil."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2347 (let ((beg (save-excursion (beginning-of-line) (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2348 (and (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2349 (backward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2350 (cperl-after-expr-p nil "{;:"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2351 (save-excursion
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2352 (not
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2353 (re-search-backward
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2354 "[#\"'`]\\|\\<q\\(\\|[wqxr]\\)\\>"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2355 beg t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2356 (save-excursion (or (not (re-search-backward "^=" nil t))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2357 (looking-at "=cut")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2358 (and cperl-use-syntax-table-text-property
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2359 (not (eq (get-text-property (point)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2360 'syntax-type)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2361 'pod)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2362 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2363 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2364 ;;(insert " {\n\n}")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2365 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2366 (cperl-extra-newline-before-brace
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2367 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2368 (insert "{")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2369 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2370 (insert "\n\n}"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2371 (t
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2372 (insert " {\n\n}")))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2373 (or (looking-at "[ \t]\\|$") (insert " "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2374 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2375 (forward-line -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2376 (cperl-indent-line)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2377 (cperl-putback-char cperl-del-back-ch)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2378 (setq this-command 'cperl-electric-else)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2379 (if cperl-message-electric-keyword
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2380 (message "Precede char by C-q to avoid expansion"))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2381
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2382 (defun cperl-linefeed ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2383 "Go to end of line, open a new line and indent appropriately.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2384 If in POD, insert appropriate lines."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2385 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2386 (let ((beg (save-excursion (beginning-of-line) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2387 (end (save-excursion (end-of-line) (point)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2388 (pos (point)) start over cut res)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2389 (if (and ; Check if we need to split:
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2390 ; i.e., on a boundary and inside "{...}"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2391 (save-excursion (cperl-to-comment-or-eol)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2392 (>= (point) pos)) ; Not in a comment
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2393 (or (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2394 (skip-chars-backward " \t" beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2395 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2396 (looking-at "[;{]")) ; After { or ; + spaces
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2397 (looking-at "[ \t]*}") ; Before }
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2398 (re-search-forward "\\=[ \t]*;" end t)) ; Before spaces + ;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2399 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2400 (and
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2401 (eq (car (parse-partial-sexp pos end -1)) -1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2402 ; Leave the level of parens
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2403 (looking-at "[,; \t]*\\($\\|#\\)") ; Comma to allow anon subr
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2404 ; Are at end
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2405 (cperl-after-block-p (point-min))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2406 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2407 (backward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2408 (setq start (point-marker))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2409 (<= start pos))))) ; Redundant? Are after the
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2410 ; start of parens group.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2411 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2412 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2413 (or (memq (preceding-char) (append ";{" nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2414 (insert ";"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2415 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2416 (forward-line -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2417 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2418 (goto-char start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2419 (or (looking-at "{[ \t]*$") ; If there is a statement
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2420 ; before, move it to separate line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2421 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2422 (forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2423 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2424 (cperl-indent-line)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2425 (forward-line 1) ; We are on the target line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2426 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2427 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2428 (or (looking-at "[ \t]*}[,; \t]*$") ; If there is a statement
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2429 ; after, move it to separate line
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2430 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2431 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2432 (search-backward "}" beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2433 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2434 (or (memq (preceding-char) (append ";{" nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2435 (insert ";"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2436 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2437 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2438 (forward-line -1)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2439 (forward-line -1) ; We are on the line before target
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2440 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2441 (newline-and-indent))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2442 (end-of-line) ; else - no splitting
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2443 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2444 ((and (looking-at "\n[ \t]*{$")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2445 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2446 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2447 (eq (preceding-char) ?\)))) ; Probably if () {} group
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2448 ; with an extra newline.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2449 (forward-line 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2450 (cperl-indent-line))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2451 ((save-excursion ; In POD header
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2452 (forward-paragraph -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2453 ;; (re-search-backward "\\(\\`\n?\\|\n\n\\)=head1\\b")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2454 ;; We are after \n now, so look for the rest
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2455 (if (looking-at "\\(\\`\n?\\|\n\\)=\\sw+")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2456 (progn
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2457 (setq cut (looking-at "\\(\\`\n?\\|\n\\)=cut\\>"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2458 (setq over (looking-at "\\(\\`\n?\\|\n\\)=over\\>"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2459 t)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2460 (if (and over
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2461 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2462 (forward-paragraph -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2463 (forward-word 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2464 (setq pos (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2465 (setq cut (buffer-substring (point)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2466 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2467 (end-of-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2468 (point))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2469 (delete-char (- (save-excursion (end-of-line) (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2470 (point)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2471 (setq res (expand-abbrev))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2472 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2473 (goto-char pos)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2474 (insert cut))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2475 res))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2476 nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2477 (cperl-ensure-newlines (if cut 2 4))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2478 (forward-line 2)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2479 ((get-text-property (point) 'in-pod) ; In POD section
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2480 (cperl-ensure-newlines 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2481 (forward-line 2))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2482 ((looking-at "\n[ \t]*$") ; Next line is empty - use it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2483 (forward-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2484 (cperl-indent-line))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2485 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2486 (newline-and-indent))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2487
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2488 (defun cperl-electric-semi (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2489 "Insert character and correct line's indentation."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2490 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2491 (if cperl-auto-newline
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2492 (cperl-electric-terminator arg)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2493 (self-insert-command (prefix-numeric-value arg))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2494 (if cperl-autoindent-on-semi
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2495 (cperl-indent-line))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2496
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2497 (defun cperl-electric-terminator (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2498 "Insert character and correct line's indentation."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2499 (interactive "P")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2500 (let ((end (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2501 (auto (and cperl-auto-newline
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2502 (or (not (eq last-command-char ?:))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2503 cperl-auto-newline-after-colon)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2504 insertpos)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2505 (if (and ;;(not arg)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2506 (eolp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2507 (not (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2508 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2509 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2510 (or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2511 ;; Ignore in comment lines
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2512 (= (following-char) ?#)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2513 ;; Colon is special only after a label
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2514 ;; So quickly rule out most other uses of colon
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2515 ;; and do no indentation for them.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2516 (and (eq last-command-char ?:)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2517 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2518 (forward-word 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2519 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2520 (and (< (point) end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2521 (progn (goto-char (- end 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2522 (not (looking-at ":"))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2523 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2524 (beginning-of-defun)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2525 (let ((pps (parse-partial-sexp (point) end)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2526 (or (nth 3 pps) (nth 4 pps) (nth 5 pps))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2527 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2528 (self-insert-command (prefix-numeric-value arg))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2529 ;;(forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2530 (if auto (setq insertpos (point-marker)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2531 ;;(forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2532 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2533 (if auto
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2534 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2535 (newline)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2536 (cperl-indent-line)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2537 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2538 (if insertpos (goto-char (1- (marker-position insertpos)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2539 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2540 (delete-char 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2541 (if insertpos
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2542 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2543 (goto-char insertpos)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2544 (self-insert-command (prefix-numeric-value arg)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2545 (self-insert-command (prefix-numeric-value arg)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2546
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2547 (defun cperl-electric-backspace (arg)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2548 "Backspace, or remove the whitespace around the point inserted by an electric
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2549 key. Will untabify if `cperl-electric-backspace-untabify' is non-nil."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2550 (interactive "p")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2551 (if (and cperl-auto-newline
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2552 (memq last-command '(cperl-electric-semi
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2553 cperl-electric-terminator
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2554 cperl-electric-lbrace))
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
2555 (memq (preceding-char) '(?\s ?\t ?\n)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2556 (let (p)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2557 (if (eq last-command 'cperl-electric-lbrace)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2558 (skip-chars-forward " \t\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2559 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2560 (skip-chars-backward " \t\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2561 (delete-region (point) p))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2562 (and (eq last-command 'cperl-electric-else)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2563 ;; We are removing the whitespace *inside* cperl-electric-else
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2564 (setq this-command 'cperl-electric-else-really))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2565 (if (and cperl-auto-newline
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2566 (eq last-command 'cperl-electric-else-really)
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
2567 (memq (preceding-char) '(?\s ?\t ?\n)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2568 (let (p)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2569 (skip-chars-forward " \t\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2570 (setq p (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2571 (skip-chars-backward " \t\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2572 (delete-region (point) p))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2573 (if cperl-electric-backspace-untabify
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2574 (backward-delete-char-untabify arg)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2575 (delete-backward-char arg)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2576
50255
a716a67fdf9d (cperl-electric-backspace): Add delete-selection property.
Kim F. Storm <storm@cua.dk>
parents: 49919
diff changeset
2577 (put 'cperl-electric-backspace 'delete-selection 'supersede)
a716a67fdf9d (cperl-electric-backspace): Add delete-selection property.
Kim F. Storm <storm@cua.dk>
parents: 49919
diff changeset
2578
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2579 (defun cperl-inside-parens-p () ;; NOT USED????
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2580 (condition-case ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2581 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2582 (save-restriction
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2583 (narrow-to-region (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2584 (progn (beginning-of-defun) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2585 (goto-char (point-max))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2586 (= (char-after (or (scan-lists (point) -1 1) (point-min))) ?\()))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2587 (error nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2588
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2589 (defun cperl-indent-command (&optional whole-exp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2590 "Indent current line as Perl code, or in some cases insert a tab character.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2591 If `cperl-tab-always-indent' is non-nil (the default), always indent current
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2592 line. Otherwise, indent the current line only if point is at the left margin
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2593 or in the line's indentation; otherwise insert a tab.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2594
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2595 A numeric argument, regardless of its value,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2596 means indent rigidly all the lines of the expression starting after point
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2597 so that this line becomes properly indented.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2598 The relative indentation among the lines of the expression are preserved."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2599 (interactive "P")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2600 (cperl-update-syntaxification (point) (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2601 (if whole-exp
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2602 ;; If arg, always indent this line as Perl
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2603 ;; and shift remaining lines of expression the same amount.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2604 (let ((shift-amt (cperl-indent-line))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2605 beg end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2606 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2607 (if cperl-tab-always-indent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2608 (beginning-of-line))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2609 (setq beg (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2610 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2611 (setq end (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2612 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2613 (forward-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2614 (setq beg (point)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2615 (if (and shift-amt (> end beg))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2616 (indent-code-rigidly beg end shift-amt "#")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2617 (if (and (not cperl-tab-always-indent)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2618 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2619 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2620 (not (bolp))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2621 (insert-tab)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2622 (cperl-indent-line))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2623
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2624 (defun cperl-indent-line (&optional parse-data)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2625 "Indent current line as Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2626 Return the amount the indentation changed by."
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2627 (let ((case-fold-search nil)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2628 (pos (- (point-max) (point)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2629 indent i beg shift-amt)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2630 (setq indent (cperl-calculate-indent parse-data)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2631 i indent)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2632 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2633 (setq beg (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2634 (cond ((or (eq indent nil) (eq indent t))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2635 (setq indent (current-indentation) i nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2636 ;;((eq indent t) ; Never?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2637 ;; (setq indent (cperl-calculate-indent-within-comment)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2638 ;;((looking-at "[ \t]*#")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2639 ;; (setq indent 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2640 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2641 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2642 (if (listp indent) (setq indent (car indent)))
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2643 (cond ((and (looking-at "[A-Za-z_][A-Za-z_0-9]*:[^:]")
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2644 (not (looking-at "[smy]:\\|tr:")))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2645 (and (> indent 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2646 (setq indent (max cperl-min-label-indent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2647 (+ indent cperl-label-offset)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2648 ((= (following-char) ?})
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2649 (setq indent (- indent cperl-indent-level)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2650 ((memq (following-char) '(?\) ?\])) ; To line up with opening paren.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2651 (setq indent (+ indent cperl-close-paren-offset)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2652 ((= (following-char) ?{)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2653 (setq indent (+ indent cperl-brace-offset))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2654 (skip-chars-forward " \t")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2655 (setq shift-amt (and i (- indent (current-column))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2656 (if (or (not shift-amt)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2657 (zerop shift-amt))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2658 (if (> (- (point-max) pos) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2659 (goto-char (- (point-max) pos)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2660 ;;;(delete-region beg (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2661 ;;;(indent-to indent)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2662 (cperl-make-indent indent)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2663 ;; If initial point was within line's indentation,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2664 ;; position after the indentation. Else stay at same point in text.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2665 (if (> (- (point-max) pos) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2666 (goto-char (- (point-max) pos))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2667 shift-amt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2668
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2669 (defun cperl-after-label ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2670 ;; Returns true if the point is after label. Does not do save-excursion.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2671 (and (eq (preceding-char) ?:)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2672 (memq (char-syntax (char-after (- (point) 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2673 '(?w ?_))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2674 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2675 (backward-sexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2676 (looking-at "[a-zA-Z_][a-zA-Z0-9_]*:[^:]"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2677
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2678 (defun cperl-get-state (&optional parse-start start-state)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2679 ;; returns list (START STATE DEPTH PRESTART),
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2680 ;; START is a good place to start parsing, or equal to
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2681 ;; PARSE-START if preset,
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2682 ;; STATE is what is returned by `parse-partial-sexp'.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2683 ;; DEPTH is true is we are immediately after end of block
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2684 ;; which contains START.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2685 ;; PRESTART is the position basing on which START was found.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2686 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2687 (let ((start-point (point)) depth state start prestart)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2688 (if (and parse-start
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2689 (<= parse-start start-point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2690 (goto-char parse-start)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2691 (beginning-of-defun)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2692 (setq start-state nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2693 (setq prestart (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2694 (if start-state nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2695 ;; Try to go out, if sub is not on the outermost level
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2696 (while (< (point) start-point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2697 (setq start (point) parse-start start depth nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2698 state (parse-partial-sexp start start-point -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2699 (if (> (car state) -1) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2700 ;; The current line could start like }}}, so the indentation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2701 ;; corresponds to a different level than what we reached
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2702 (setq depth t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2703 (beginning-of-line 2))) ; Go to the next line.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2704 (if start (goto-char start))) ; Not at the start of file
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2705 (setq start (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2706 (or state (setq state (parse-partial-sexp start start-point -1 nil start-state)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2707 (list start state depth prestart))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2708
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2709 (defvar cperl-look-for-prop '((pod in-pod) (here-doc-delim here-doc-group)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2710
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2711 (defun cperl-beginning-of-property (p prop &optional lim)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2712 "Given that P has a property PROP, find where the property starts.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2713 Will not look before LIM."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2714 ;;; XXXX What to do at point-max???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2715 (or (previous-single-property-change (cperl-1+ p) prop lim)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2716 (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2717 ;;; (cond ((eq p (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2718 ;;; p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2719 ;;; ((and lim (<= p lim))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2720 ;;; p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2721 ;;; ((not (get-text-property (1- p) prop))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2722 ;;; p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2723 ;;; (t (or (previous-single-property-change p look-prop lim)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2724 ;;; (point-min))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2725 )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2726
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2727 (defun cperl-sniff-for-indent (&optional parse-data) ; was parse-start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2728 ;; Old workhorse for calculation of indentation; the major problem
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2729 ;; is that it mixes the sniffer logic to understand what the current line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2730 ;; MEANS with the logic to actually calculate where to indent it.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2731 ;; The latter part should be eventually moved to `cperl-calculate-indent';
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2732 ;; actually, this is mostly done now...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2733 (cperl-update-syntaxification (point) (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2734 (let ((res (get-text-property (point) 'syntax-type)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2735 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2736 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2737 ((and (memq res '(pod here-doc here-doc-delim format))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2738 (not (get-text-property (point) 'indentable)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2739 (vector res))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2740 ;; before start of POD - whitespace found since do not have 'pod!
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2741 ((looking-at "[ \t]*\n=")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2742 (error "Spaces before POD section!"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2743 ((and (not cperl-indent-left-aligned-comments)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2744 (looking-at "^#"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2745 [comment-special:at-beginning-of-line])
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2746 ((get-text-property (point) 'in-pod)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2747 [in-pod])
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2748 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2749 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2750 (let* ((indent-point (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2751 (char-after-pos (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2752 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2753 (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2754 (char-after (char-after char-after-pos))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2755 (pre-indent-point (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2756 p prop look-prop is-block delim)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2757 (save-excursion ; Know we are not in POD, find appropriate pos before
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2758 (cperl-backward-to-noncomment nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2759 (setq p (max (point-min) (1- (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2760 prop (get-text-property p 'syntax-type)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2761 look-prop (or (nth 1 (assoc prop cperl-look-for-prop))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2762 'syntax-type))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2763 (if (memq prop '(pod here-doc format here-doc-delim))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2764 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2765 (goto-char (cperl-beginning-of-property p look-prop))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2766 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2767 (setq pre-indent-point (point)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2768 (goto-char pre-indent-point) ; Orig line skipping preceeding pod/etc
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2769 (let* ((case-fold-search nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2770 (s-s (cperl-get-state (car parse-data) (nth 1 parse-data)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2771 (start (or (nth 2 parse-data) ; last complete sexp terminated
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2772 (nth 0 s-s))) ; Good place to start parsing
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2773 (state (nth 1 s-s))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2774 (containing-sexp (car (cdr state)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2775 old-indent)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2776 (if (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2777 ;;containing-sexp ;; We are buggy at toplevel :-(
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2778 parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2779 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2780 (setcar parse-data pre-indent-point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2781 (setcar (cdr parse-data) state)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2782 (or (nth 2 parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2783 (setcar (cddr parse-data) start))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2784 ;; Before this point: end of statement
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2785 (setq old-indent (nth 3 parse-data))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2786 (cond ((get-text-property (point) 'indentable)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2787 ;; indent to "after" the surrounding open
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2788 ;; (same offset as `cperl-beautify-regexp-piece'),
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2789 ;; skip blanks if we do not close the expression.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2790 (setq delim ; We do not close the expression
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2791 (get-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2792 (cperl-1+ char-after-pos) 'indentable)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2793 p (1+ (cperl-beginning-of-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2794 (point) 'indentable))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2795 is-block ; misused for: preceeding line in REx
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2796 (save-excursion ; Find preceeding line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2797 (cperl-backward-to-noncomment p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2798 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2799 (if (<= (point) p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2800 (progn ; get indent from the first line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2801 (goto-char p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2802 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2803 (if (memq (char-after (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2804 (append "#\n" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2805 nil ; Can't use intentation of this line...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2806 (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2807 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2808 (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2809 prop (parse-partial-sexp p char-after-pos))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2810 (cond ((not delim) ; End the REx, ignore is-block
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2811 (vector 'indentable 'terminator p is-block))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2812 (is-block ; Indent w.r.t. preceeding line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2813 (vector 'indentable 'cont-line char-after-pos
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2814 is-block char-after p))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2815 (t ; No preceeding line...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2816 (vector 'indentable 'first-line p))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2817 ((get-text-property char-after-pos 'REx-part2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2818 (vector 'REx-part2 (point)))
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2819 ((nth 4 state)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2820 [comment])
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2821 ((nth 3 state)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2822 [string])
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2823 ;; XXXX Do we need to special-case this?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2824 ((null containing-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2825 ;; Line is at top level. May be data or function definition,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2826 ;; or may be function argument declaration.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2827 ;; Indent like the previous top level line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2828 ;; unless that ends in a closeparen without semicolon,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2829 ;; in which case this line is the first argument decl.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2830 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2831 (cperl-backward-to-noncomment (or old-indent (point-min)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2832 (setq state
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2833 (or (bobp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2834 (eq (point) old-indent) ; old-indent was at comment
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2835 (eq (preceding-char) ?\;)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2836 ;; Had ?\) too
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2837 (and (eq (preceding-char) ?\})
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2838 (cperl-after-block-and-statement-beg
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2839 (point-min))) ; Was start - too close
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2840 (memq char-after (append ")]}" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2841 (and (eq (preceding-char) ?\:) ; label
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2842 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2843 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2844 (skip-chars-backward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2845 (looking-at "[ \t]*[a-zA-Z_][a-zA-Z_0-9]*[ \t]*:")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2846 (get-text-property (point) 'first-format-line)))
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
2847
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2848 ;; Look at previous line that's at column 0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2849 ;; to determine whether we are in top-level decls
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2850 ;; or function's arg decls. Set basic-indent accordingly.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2851 ;; Now add a little if this is a continuation line.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2852 (and state
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2853 parse-data
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2854 (not (eq char-after ?\C-j))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2855 (setcdr (cddr parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2856 (list pre-indent-point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2857 (vector 'toplevel start char-after state (nth 2 s-s)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2858 ((not
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2859 (or (setq is-block
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2860 (and (setq delim (= (char-after containing-sexp) ?{))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2861 (save-excursion ; Is it a hash?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2862 (goto-char containing-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2863 (cperl-block-p))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2864 cperl-indent-parens-as-block))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2865 ;; group is an expression, not a block:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2866 ;; indent to just after the surrounding open parens,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2867 ;; skip blanks if we do not close the expression.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2868 (goto-char (1+ containing-sexp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2869 (or (memq char-after
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2870 (append (if delim "}" ")]}") nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2871 (looking-at "[ \t]*\\(#\\|$\\)")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2872 (skip-chars-forward " \t"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2873 (setq old-indent (point)) ; delim=is-brace
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2874 (vector 'in-parens char-after (point) delim containing-sexp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2875 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2876 ;; Statement level. Is it a continuation or a new statement?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2877 ;; Find previous non-comment character.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2878 (goto-char pre-indent-point) ; Skip one level of POD/etc
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2879 (cperl-backward-to-noncomment containing-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2880 ;; Back up over label lines, since they don't
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2881 ;; affect whether our line is a continuation.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2882 ;; (Had \, too)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2883 (while;;(or (eq (preceding-char) ?\,)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2884 (and (eq (preceding-char) ?:)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2885 (or;;(eq (char-after (- (point) 2)) ?\') ; ????
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2886 (memq (char-syntax (char-after (- (point) 2)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2887 '(?w ?_))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2888 ;;)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2889 ;; This is always FALSE?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2890 (if (eq (preceding-char) ?\,)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2891 ;; Will go to beginning of line, essentially.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2892 ;; Will ignore embedded sexpr XXXX.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2893 (cperl-backward-to-start-of-continued-exp containing-sexp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2894 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2895 (cperl-backward-to-noncomment containing-sexp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2896 ;; Now we get non-label preceeding the indent point
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2897 (if (not (or (eq (1- (point)) containing-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2898 (memq (preceding-char)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2899 (append (if is-block " ;{" " ,;{") '(nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2900 (and (eq (preceding-char) ?\})
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2901 (cperl-after-block-and-statement-beg
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2902 containing-sexp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2903 (get-text-property (point) 'first-format-line)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2904 ;; This line is continuation of preceding line's statement;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2905 ;; indent `cperl-continued-statement-offset' more than the
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2906 ;; previous line of the statement.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2907 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2908 ;; There might be a label on this line, just
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2909 ;; consider it bad style and ignore it.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2910 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2911 (cperl-backward-to-start-of-continued-exp containing-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2912 (vector 'continuation (point) char-after is-block delim))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2913 ;; This line starts a new statement.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2914 ;; Position following last unclosed open brace
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2915 (goto-char containing-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2916 ;; Is line first statement after an open-brace?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2917 (or
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2918 ;; If no, find that first statement and indent like
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2919 ;; it. If the first statement begins with label, do
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2920 ;; not believe when the indentation of the label is too
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2921 ;; small.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2922 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2923 (forward-char 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2924 (let ((colon-line-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2925 (while
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2926 (progn (skip-chars-forward " \t\n")
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2927 ;; s: foo : bar :x is NOT label
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2928 (and (looking-at "#\\|\\([a-zA-Z0-9_$]+\\):[^:]\\|=[a-zA-Z]")
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2929 (not (looking-at "[sym]:\\|tr:"))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2930 ;; Skip over comments and labels following openbrace.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2931 (cond ((= (following-char) ?\#)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2932 (forward-line 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2933 ((= (following-char) ?\=)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2934 (goto-char
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2935 (or (next-single-property-change (point) 'in-pod)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2936 (point-max)))) ; do not loop if no syntaxification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2937 ;; label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2938 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2939 (save-excursion (end-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2940 (setq colon-line-end (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2941 (search-forward ":"))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2942 ;; We are at beginning of code (NOT label or comment)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2943 ;; First, the following code counts
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2944 ;; if it is before the line we want to indent.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2945 (and (< (point) indent-point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2946 (vector 'have-prev-sibling (point) colon-line-end
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2947 containing-sexp))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2948 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2949 ;; If no previous statement,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2950 ;; indent it relative to line brace is on.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2951
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2952 ;; For open-braces not the first thing in a line,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2953 ;; add in cperl-brace-imaginary-offset.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2954
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2955 ;; If first thing on a line: ?????
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2956 ;; Move back over whitespace before the openbrace.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2957 (setq ; brace first thing on a line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2958 old-indent (progn (skip-chars-backward " \t") (bolp)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2959 ;; Should we indent w.r.t. earlier than start?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2960 ;; Move to start of control group, possibly on a different line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2961 (or cperl-indent-wrt-brace
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2962 (cperl-backward-to-noncomment (point-min)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2963 ;; If the openbrace is preceded by a parenthesized exp,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2964 ;; move to the beginning of that;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2965 (if (eq (preceding-char) ?\))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2966 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2967 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2968 (cperl-backward-to-noncomment (point-min))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2969 ;; In the case it starts a subroutine, indent with
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2970 ;; respect to `sub', not with respect to the
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2971 ;; first thing on the line, say in the case of
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2972 ;; anonymous sub in a hash.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2973 (if (and;; Is it a sub in group starting on this line?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2974 (cond ((get-text-property (point) 'attrib-group)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2975 (goto-char (cperl-beginning-of-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2976 (point) 'attrib-group)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2977 ((eq (preceding-char) ?b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2978 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2979 (looking-at "sub\\>")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2980 (setq p (nth 1 ; start of innermost containing list
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2981 (parse-partial-sexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2982 (save-excursion (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2983 (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2984 (point)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2985 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2986 (goto-char (1+ p)) ; enclosing block on the same line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2987 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2988 (vector 'code-start-in-block containing-sexp char-after
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2989 (and delim (not is-block)) ; is a HASH
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2990 old-indent ; brace first thing on a line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2991 t (point) ; have something before...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2992 )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2993 ;;(current-column)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2994 )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2995 ;; Get initial indentation of the line we are on.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2996 ;; If line starts with label, calculate label indentation
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2997 (vector 'code-start-in-block containing-sexp char-after
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2998 (and delim (not is-block)) ; is a HASH
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2999 old-indent ; brace first thing on a line
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3000 nil (point))))))))))))))) ; nothing interesting before
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3001
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3002 (defvar cperl-indent-rules-alist
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3003 '((pod nil) ; via `syntax-type' property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3004 (here-doc nil) ; via `syntax-type' property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3005 (here-doc-delim nil) ; via `syntax-type' property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3006 (format nil) ; via `syntax-type' property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3007 (in-pod nil) ; via `in-pod' property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3008 (comment-special:at-beginning-of-line nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3009 (string t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3010 (comment nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3011 "Alist of indentation rules for CPerl mode.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3012 The values mean:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3013 nil: do not indent;
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3014 number: add this amount of indentation.")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3015
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3016 (defun cperl-calculate-indent (&optional parse-data) ; was parse-start
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3017 "Return appropriate indentation for current line as Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3018 In usual case returns an integer: the column to indent to.
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3019 Returns nil if line starts inside a string, t if in a comment.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3020
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3021 Will not correct the indentation for labels, but will correct it for braces
49516
774eed0b5c78 (cperl-beautify-level, cperl-beautify-regexp): Fix use of
Juanma Barranquero <lekktu@gmail.com>
parents: 49304
diff changeset
3022 and closing parentheses and brackets."
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3023 ;; This code is still a broken architecture: in some cases we need to
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3024 ;; compensate for some modifications which `cperl-indent-line' will add later
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3025 (save-excursion
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3026 (let ((i (cperl-sniff-for-indent parse-data)) what p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3027 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3028 ;;((or (null i) (eq i t) (numberp i))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3029 ;; i)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3030 ((vectorp i)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3031 (setq what (assoc (elt i 0) cperl-indent-rules-alist))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3032 (cond
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3033 (what (cadr what)) ; Load from table
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3034 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3035 ;; Indenters for regular expressions with //x and qw()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3036 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3037 ((eq 'REx-part2 (elt i 0)) ;; [self start] start of /REP in s//REP/x
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3038 (goto-char (elt i 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3039 (condition-case nil ; Use indentation of the 1st part
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3040 (forward-sexp -1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3041 (current-column))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3042 ((eq 'indentable (elt i 0)) ; Indenter for REGEXP qw() etc
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3043 (cond ;;; [indentable terminator start-pos is-block]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3044 ((eq 'terminator (elt i 1)) ; Lone terminator of "indentable string"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3045 (goto-char (elt i 2)) ; After opening parens
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3046 (1- (current-column)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3047 ((eq 'first-line (elt i 1)); [indentable first-line start-pos]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3048 (goto-char (elt i 2))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3049 (+ (or cperl-regexp-indent-step cperl-indent-level)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3050 -1
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3051 (current-column)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3052 ((eq 'cont-line (elt i 1)); [indentable cont-line pos prev-pos first-char start-pos]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3053 ;; Indent as the level after closing parens
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3054 (goto-char (elt i 2)) ; indent line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3055 (skip-chars-forward " \t)") ; Skip closing parens
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3056 (setq p (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3057 (goto-char (elt i 3)) ; previous line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3058 (skip-chars-forward " \t)") ; Skip closing parens
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3059 ;; Number of parens in between:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3060 (setq p (nth 0 (parse-partial-sexp (point) p))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3061 what (elt i 4)) ; First char on current line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3062 (goto-char (elt i 3)) ; previous line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3063 (+ (* p (or cperl-regexp-indent-step cperl-indent-level))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3064 (cond ((eq what ?\) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3065 (- cperl-close-paren-offset)) ; compensate
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3066 ((eq what ?\| )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3067 (- (or cperl-regexp-indent-step cperl-indent-level)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3068 (t 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3069 (if (eq (following-char) ?\| )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3070 (or cperl-regexp-indent-step cperl-indent-level)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3071 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3072 (current-column)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3073 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3074 (error "Unrecognized value of indent: %s" i))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3075 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3076 ;; Indenter for stuff at toplevel
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3077 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3078 ((eq 'toplevel (elt i 0)) ;; [toplevel start char-after state immed-after-block]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3079 (+ (save-excursion ; To beg-of-defun, or end of last sexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3080 (goto-char (elt i 1)) ; start = Good place to start parsing
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
3081 (- (current-indentation) ;
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3082 (if (elt i 4) cperl-indent-level 0))) ; immed-after-block
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3083 (if (eq (elt i 2) ?{) cperl-continued-brace-offset 0) ; char-after
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3084 ;; Look at previous line that's at column 0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3085 ;; to determine whether we are in top-level decls
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3086 ;; or function's arg decls. Set basic-indent accordingly.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3087 ;; Now add a little if this is a continuation line.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3088 (if (elt i 3) ; state (XXX What is the semantic???)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3089 0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3090 cperl-continued-statement-offset)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3091 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3092 ;; Indenter for stuff in "parentheses" (or brackets, braces-as-hash)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3093 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3094 ((eq 'in-parens (elt i 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3095 ;; in-parens char-after old-indent-point is-brace containing-sexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3096
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3097 ;; group is an expression, not a block:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3098 ;; indent to just after the surrounding open parens,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3099 ;; skip blanks if we do not close the expression.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3100 (+ (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3101 (goto-char (elt i 2)) ; old-indent-point
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3102 (current-column))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3103 (if (and (elt i 3) ; is-brace
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3104 (eq (elt i 1) ?\})) ; char-after
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3105 ;; Correct indentation of trailing ?\}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3106 (+ cperl-indent-level cperl-close-paren-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3107 0)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3108 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3109 ;; Indenter for continuation lines
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3110 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3111 ((eq 'continuation (elt i 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3112 ;; [continuation statement-start char-after is-block is-brace]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3113 (goto-char (elt i 1)) ; statement-start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3114 (+ (if (memq (elt i 2) (append "}])" nil)) ; char-after
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3115 0 ; Closing parenth
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3116 cperl-continued-statement-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3117 (if (or (elt i 3) ; is-block
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3118 (not (elt i 4)) ; is-brace
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3119 (not (eq (elt i 2) ?\}))) ; char-after
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3120 0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3121 ;; Now it is a hash reference
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3122 (+ cperl-indent-level cperl-close-paren-offset))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3123 ;; Labels do not take :: ...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3124 (if (looking-at "\\(\\w\\|_\\)+[ \t]*:")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3125 (if (> (current-indentation) cperl-min-label-indent)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3126 (- (current-indentation) cperl-label-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3127 ;; Do not move `parse-data', this should
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3128 ;; be quick anyway (this comment comes
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3129 ;; from different location):
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3130 (cperl-calculate-indent))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3131 (current-column))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3132 (if (eq (elt i 2) ?\{) ; char-after
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3133 cperl-continued-brace-offset 0)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3134 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3135 ;; Indenter for lines in a block which are not leading lines
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3136 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3137 ((eq 'have-prev-sibling (elt i 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3138 ;; [have-prev-sibling sibling-beg colon-line-end block-start]
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3139 (goto-char (elt i 1)) ; sibling-beg
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3140 (if (> (elt i 2) (point)) ; colon-line-end; have label before point
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3141 (if (> (current-indentation)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3142 cperl-min-label-indent)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3143 (- (current-indentation) cperl-label-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3144 ;; Do not believe: `max' was involved in calculation of indent
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3145 (+ cperl-indent-level
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3146 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3147 (goto-char (elt i 3)) ; block-start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3148 (current-indentation))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3149 (current-column)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3150 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3151 ;; Indenter for the first line in a block
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3152 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3153 ((eq 'code-start-in-block (elt i 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3154 ;;[code-start-in-block before-brace char-after
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3155 ;; is-a-HASH-ref brace-is-first-thing-on-a-line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3156 ;; group-starts-before-start-of-sub start-of-control-group]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3157 (goto-char (elt i 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3158 ;; For open brace in column zero, don't let statement
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3159 ;; start there too. If cperl-indent-level=0,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3160 ;; use cperl-brace-offset + cperl-continued-statement-offset instead.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3161 (+ (if (and (bolp) (zerop cperl-indent-level))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3162 (+ cperl-brace-offset cperl-continued-statement-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3163 cperl-indent-level)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3164 (if (and (elt i 3) ; is-a-HASH-ref
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3165 (eq (elt i 2) ?\})) ; char-after: End of a hash reference
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3166 (+ cperl-indent-level cperl-close-paren-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3167 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3168 ;; Unless openbrace is the first nonwhite thing on the line,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3169 ;; add the cperl-brace-imaginary-offset.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3170 (if (elt i 4) 0 ; brace-is-first-thing-on-a-line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3171 cperl-brace-imaginary-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3172 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3173 (goto-char (elt i 6)) ; start-of-control-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3174 (if (elt i 5) ; group-starts-before-start-of-sub
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3175 (current-column)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3176 ;; Get initial indentation of the line we are on.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3177 ;; If line starts with label, calculate label indentation
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3178 (if (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3179 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3180 (looking-at "[ \t]*[a-zA-Z_][a-zA-Z_0-9]*:[^:]"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3181 (if (> (current-indentation) cperl-min-label-indent)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3182 (- (current-indentation) cperl-label-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3183 ;; Do not move `parse-data', this should
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3184 ;; be quick anyway:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3185 (cperl-calculate-indent))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3186 (current-indentation))))))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3187 (t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3188 (error "Unrecognized value of indent: %s" i))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3189 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3190 (error "Got strange value of indent: %s" i))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3191
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3192 (defun cperl-calculate-indent-within-comment ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3193 "Return the indentation amount for line, assuming that
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3194 the current line is to be regarded as part of a block comment."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3195 (let (end star-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3196 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3197 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3198 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3199 (setq end (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3200 (and (= (following-char) ?#)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3201 (forward-line -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3202 (cperl-to-comment-or-eol)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3203 (setq end (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3204 (goto-char end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3205 (current-column))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3206
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3207
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3208 (defun cperl-to-comment-or-eol ()
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
3209 "Go to position before comment on the current line, or to end of line.
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3210 Returns true if comment is found. In POD will not move the point."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3211 ;; If the line is inside other syntax groups (qq-style strings, HERE-docs)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3212 ;; then looks for literal # or end-of-line.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3213 (let (state stop-in cpoint (lim (progn (end-of-line) (point))) pr e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3214 (or cperl-font-locking
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3215 (cperl-update-syntaxification lim lim))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3216 (beginning-of-line)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3217 (if (setq pr (get-text-property (point) 'syntax-type))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3218 (setq e (next-single-property-change (point) 'syntax-type nil (point-max))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3219 (if (or (eq pr 'pod)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3220 (if (or (not e) (> e lim)) ; deep inside a group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3221 (re-search-forward "\\=[ \t]*\\(#\\|$\\)" lim t)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3222 (if (eq (preceding-char) ?\#) (progn (backward-char 1) t))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3223 ;; Else - need to do it the hard way
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3224 (and (and e (<= e lim))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3225 (goto-char e))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3226 (while (not stop-in)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3227 (setq state (parse-partial-sexp (point) lim nil nil nil t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3228 ; stop at comment
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3229 ;; If fails (beginning-of-line inside sexp), then contains not-comment
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3230 (if (nth 4 state) ; After `#';
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3231 ; (nth 2 state) can be
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3232 ; beginning of m,s,qq and so
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3233 ; on
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3234 (if (nth 2 state)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3235 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3236 (setq cpoint (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3237 (goto-char (nth 2 state))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3238 (cond
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3239 ((looking-at "\\(s\\|tr\\)\\>")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3240 (or (re-search-forward
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3241 "\\=\\w+[ \t]*#\\([^\n\\\\#]\\|\\\\[\\\\#]\\)*#\\([^\n\\\\#]\\|\\\\[\\\\#]\\)*"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3242 lim 'move)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3243 (setq stop-in t)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3244 ((looking-at "\\(m\\|q\\([qxwr]\\)?\\)\\>")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3245 (or (re-search-forward
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3246 "\\=\\w+[ \t]*#\\([^\n\\\\#]\\|\\\\[\\\\#]\\)*#"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3247 lim 'move)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3248 (setq stop-in t)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3249 (t ; It was fair comment
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3250 (setq stop-in t) ; Finish
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3251 (goto-char (1- cpoint)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3252 (setq stop-in t) ; Finish
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3253 (forward-char -1))
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
3254 (setq stop-in t))) ; Finish
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3255 (nth 4 state))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3256
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3257 (defsubst cperl-modify-syntax-type (at how)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3258 (if (< at (point-max))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3259 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3260 (put-text-property at (1+ at) 'syntax-table how)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3261 (put-text-property at (1+ at) 'rear-nonsticky '(syntax-table)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3262
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3263 (defun cperl-protect-defun-start (s e)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3264 ;; C code looks for "^\\s(" to skip comment backward in "hard" situations
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3265 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3266 (goto-char s)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3267 (while (re-search-forward "^\\s(" e 'to-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3268 (put-text-property (1- (point)) (point) 'syntax-table cperl-st-punct))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3269
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3270 (defun cperl-commentify (bb e string &optional noface)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3271 (if cperl-use-syntax-table-text-property
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3272 (if (eq noface 'n) ; Only immediate
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3273 nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3274 ;; We suppose that e is _after_ the end of construction, as after eol.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3275 (setq string (if string cperl-st-sfence cperl-st-cfence))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3276 (if (> bb (- e 2))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3277 ;; one-char string/comment?!
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3278 (cperl-modify-syntax-type bb cperl-st-punct)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3279 (cperl-modify-syntax-type bb string)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3280 (cperl-modify-syntax-type (1- e) string))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3281 (if (and (eq string cperl-st-sfence) (> (- e 2) bb))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3282 (put-text-property (1+ bb) (1- e)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3283 'syntax-table cperl-string-syntax-table))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3284 (cperl-protect-defun-start bb e))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3285 ;; Fontify
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3286 (or noface
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3287 (not cperl-pod-here-fontify)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3288 (put-text-property bb e 'face (if string 'font-lock-string-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3289 'font-lock-comment-face)))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3290
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3291 (defvar cperl-starters '(( ?\( . ?\) )
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3292 ( ?\[ . ?\] )
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3293 ( ?\{ . ?\} )
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3294 ( ?\< . ?\> )))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3295
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3296 (defun cperl-cached-syntax-table (st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3297 "Get a syntax table cached in ST, or create and cache into ST a syntax table.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3298 All the entries of the syntax table are \".\", except for a backslash, which
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3299 is quoting."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3300 (if (car-safe st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3301 (car st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3302 (setcar st (make-syntax-table))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3303 (setq st (car st))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3304 (let ((i 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3305 (while (< i 256)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3306 (modify-syntax-entry i "." st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3307 (setq i (1+ i))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3308 (modify-syntax-entry ?\\ "\\" st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3309 st))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3310
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3311 (defun cperl-forward-re (lim end is-2arg st-l err-l argument
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3312 &optional ostart oend)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3313 "Find the end of a regular expression or a stringish construct (q[] etc).
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3314 The point should be before the starting delimiter.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3315
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3316 Goes to LIM if none is found. If IS-2ARG is non-nil, assumes that it
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3317 is s/// or tr/// like expression. If END is nil, generates an error
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3318 message if needed. If SET-ST is non-nil, will use (or generate) a
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3319 cached syntax table in ST-L. If ERR-L is non-nil, will store the
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3320 error message in its CAR (unless it already contains some error
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3321 message). ARGUMENT should be the name of the construct (used in error
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3322 messages). OSTART, OEND may be set in recursive calls when processing
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3323 the second argument of 2ARG construct.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3324
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3325 Works *before* syntax recognition is done. In IS-2ARG situation may
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3326 modify syntax-type text property if the situation is too hard."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3327 (let (b starter ender st i i2 go-forward reset-st set-st)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3328 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3329 ;; ender means matching-char matcher.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3330 (setq b (point)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3331 starter (if (eobp) 0 (char-after b))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3332 ender (cdr (assoc starter cperl-starters)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3333 ;; What if starter == ?\\ ????
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3334 (setq st (cperl-cached-syntax-table st-l))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3335 (setq set-st t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3336 ;; Whether we have an intermediate point
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3337 (setq i nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3338 ;; Prepare the syntax table:
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3339 (if (not ender) ; m/blah/, s/x//, s/x/y/
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3340 (modify-syntax-entry starter "$" st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3341 (modify-syntax-entry starter (concat "(" (list ender)) st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3342 (modify-syntax-entry ender (concat ")" (list starter)) st))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3343 (condition-case bb
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3344 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3345 ;; We use `$' syntax class to find matching stuff, but $$
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3346 ;; is recognized the same as $, so we need to check this manually.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3347 (if (and (eq starter (char-after (cperl-1+ b)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3348 (not ender))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3349 ;; $ has TeXish matching rules, so $$ equiv $...
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3350 (forward-char 2)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3351 (setq reset-st (syntax-table))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3352 (set-syntax-table st)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3353 (forward-sexp 1)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3354 (if (<= (point) (1+ b))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3355 (error "Unfinished regular expression"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3356 (set-syntax-table reset-st)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3357 (setq reset-st nil)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3358 ;; Now the problem is with m;blah;;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3359 (and (not ender)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3360 (eq (preceding-char)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3361 (char-after (- (point) 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3362 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3363 (forward-char -2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3364 (= 0 (% (skip-chars-backward "\\\\") 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3365 (forward-char -1)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3366 ;; Now we are after the first part.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3367 (and is-2arg ; Have trailing part
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3368 (not ender)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3369 (eq (following-char) starter) ; Empty trailing part
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3370 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3371 (or (eq (char-syntax (following-char)) ?.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3372 ;; Make trailing letter into punctuation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3373 (cperl-modify-syntax-type (point) cperl-st-punct))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3374 (setq is-2arg nil go-forward t))) ; Ignore the tail
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3375 (if is-2arg ; Not number => have second part
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3376 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3377 (setq i (point) i2 i)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3378 (if ender
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
3379 (if (memq (following-char) '(?\s ?\t ?\n ?\f))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3380 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3381 (if (looking-at "[ \t\n\f]+\\(#[^\n]*\n[ \t\n\f]*\\)+")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3382 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3383 (skip-chars-forward " \t\n\f"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3384 (setq i2 (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3385 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3386 (modify-syntax-entry starter (if (eq starter ?\\) "\\" ".") st)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3387 (if ender (modify-syntax-entry ender "." st))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3388 (setq set-st nil)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3389 (setq ender (cperl-forward-re lim end nil st-l err-l
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3390 argument starter ender)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3391 ender (nth 2 ender)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3392 (error (goto-char lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3393 (setq set-st nil)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3394 (if reset-st
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3395 (set-syntax-table reset-st))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3396 (or end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3397 (message
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3398 "End of `%s%s%c ... %c' string/RE not found: %s"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3399 argument
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3400 (if ostart (format "%c ... %c" ostart (or oend ostart)) "")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3401 starter (or ender starter) bb)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3402 (or (car err-l) (setcar err-l b)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3403 (if set-st
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3404 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3405 (modify-syntax-entry starter (if (eq starter ?\\) "\\" ".") st)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3406 (if ender (modify-syntax-entry ender "." st))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3407 ;; i: have 2 args, after end of the first arg
78487
419c5c316b51 Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents: 78407
diff changeset
3408 ;; i2: start of the second arg, if any (before delim if `ender').
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3409 ;; ender: the last arg bounded by parens-like chars, the second one of them
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3410 ;; starter: the starting delimiter of the first arg
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3411 ;; go-forward: has 2 args, and the second part is empty
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3412 (list i i2 ender starter go-forward)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3413
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3414 (defun cperl-forward-group-in-re (&optional st-l)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3415 "Find the end of a group in a REx.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3416 Return the error message (if any). Does not work if delimiter is `)'.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3417 Works before syntax recognition is done."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3418 ;; Works *before* syntax recognition is done
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3419 (or st-l (setq st-l (list nil))) ; Avoid overwriting '()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3420 (let (st b reset-st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3421 (condition-case b
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3422 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3423 (setq st (cperl-cached-syntax-table st-l))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3424 (modify-syntax-entry ?\( "()" st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3425 (modify-syntax-entry ?\) ")(" st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3426 (setq reset-st (syntax-table))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3427 (set-syntax-table st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3428 (forward-sexp 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3429 (error (message
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3430 "cperl-forward-group-in-re: error %s" b)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3431 ;; now restore the initial state
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3432 (if st
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3433 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3434 (modify-syntax-entry ?\( "." st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3435 (modify-syntax-entry ?\) "." st)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3436 (if reset-st
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3437 (set-syntax-table reset-st))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3438 b))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3439
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3440
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3441 (defvar font-lock-string-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3442 ;;(defvar font-lock-reference-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3443 (defvar font-lock-constant-face)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3444 (defsubst cperl-postpone-fontification (b e type val &optional now)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3445 ;; Do after syntactic fontification?
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3446 (if cperl-syntaxify-by-font-lock
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3447 (or now (put-text-property b e 'cperl-postpone (cons type val)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3448 (put-text-property b e type val)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3449
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3450 ;;; Here is how the global structures (those which cannot be
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3451 ;;; recognized locally) are marked:
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3452 ;; a) PODs:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3453 ;; Start-to-end is marked `in-pod' ==> t
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3454 ;; Each non-literal part is marked `syntax-type' ==> `pod'
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3455 ;; Each literal part is marked `syntax-type' ==> `in-pod'
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3456 ;; b) HEREs:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3457 ;; Start-to-end is marked `here-doc-group' ==> t
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3458 ;; The body is marked `syntax-type' ==> `here-doc'
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3459 ;; The delimiter is marked `syntax-type' ==> `here-doc-delim'
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3460 ;; c) FORMATs:
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3461 ;; First line (to =) marked `first-format-line' ==> t
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3462 ;; After-this--to-end is marked `syntax-type' ==> `format'
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3463 ;; d) 'Q'uoted string:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3464 ;; part between markers inclusive is marked `syntax-type' ==> `string'
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3465 ;; part between `q' and the first marker is marked `syntax-type' ==> `prestring'
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3466 ;; second part of s///e is marked `syntax-type' ==> `multiline'
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3467 ;; e) Attributes of subroutines: `attrib-group' ==> t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3468 ;; (or 0 if declaration); up to `{' or ';': `syntax-type' => `sub-decl'.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3469 ;; f) Multiline my/our declaration lists etc: `syntax-type' => `multiline'
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3470
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3471 ;;; In addition, some parts of RExes may be marked as `REx-interpolated'
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3472 ;;; (value: 0 in //o, 1 if "interpolated variable" is whole-REx, t otherwise).
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3473
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3474 (defun cperl-unwind-to-safe (before &optional end)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3475 ;; if BEFORE, go to the previous start-of-line on each step of unwinding
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3476 (let ((pos (point)) opos)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3477 (while (and pos (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3478 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3479 (get-text-property (setq pos (point)) 'syntax-type)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3480 (setq opos pos
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3481 pos (cperl-beginning-of-property pos 'syntax-type))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3482 (if (eq pos (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3483 (setq pos nil))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3484 (if pos
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3485 (if before
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3486 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3487 (goto-char (cperl-1- pos))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3488 (beginning-of-line)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3489 (setq pos (point)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3490 (goto-char (setq pos (cperl-1- pos))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3491 ;; Up to the start
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3492 (goto-char (point-min))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3493 ;; Skip empty lines
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3494 (and (looking-at "\n*=")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3495 (/= 0 (skip-chars-backward "\n"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3496 (forward-char))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3497 (setq pos (point))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3498 (if end
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3499 ;; Do the same for end, going small steps
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3500 (save-excursion
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3501 (while (and end (get-text-property end 'syntax-type))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3502 (setq pos end
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3503 end (next-single-property-change end 'syntax-type nil (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3504 (if end (progn (goto-char end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3505 (or (bolp) (forward-line 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3506 (setq end (point)))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3507 (or end pos)))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3508
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3509 ;;; These are needed for byte-compile (at least with v19)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3510 (defvar cperl-nonoverridable-face)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3511 (defvar font-lock-variable-name-face)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3512 (defvar font-lock-function-name-face)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3513 (defvar font-lock-keyword-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3514 (defvar font-lock-builtin-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3515 (defvar font-lock-type-face)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3516 (defvar font-lock-comment-face)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3517 (defvar font-lock-warning-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3518
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3519 (defun cperl-find-sub-attrs (&optional st-l b-fname e-fname pos)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3520 "Syntaxically mark (and fontify) attributes of a subroutine.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3521 Should be called with the point before leading colon of an attribute."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3522 ;; Works *before* syntax recognition is done
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3523 (or st-l (setq st-l (list nil))) ; Avoid overwriting '()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3524 (let (st b p reset-st after-first (start (point)) start1 end1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3525 (condition-case b
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3526 (while (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3527 (concat
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3528 "\\(" ; 1=optional? colon
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3529 ":" cperl-maybe-white-and-comment-rex ; 2=whitespace/comment?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3530 "\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3531 (if after-first "?" "")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3532 ;; No space between name and paren allowed...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3533 "\\(\\sw+\\)" ; 3=name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3534 "\\((\\)?")) ; 4=optional paren
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3535 (and (match-beginning 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3536 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3537 (match-beginning 0) (cperl-1+ (match-beginning 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3538 'face font-lock-constant-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3539 (setq start1 (match-beginning 3) end1 (match-end 3))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3540 (cperl-postpone-fontification start1 end1
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3541 'face font-lock-constant-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3542 (goto-char end1) ; end or before `('
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3543 (if (match-end 4) ; Have attribute arguments...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3544 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3545 (if st nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3546 (setq st (cperl-cached-syntax-table st-l))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3547 (modify-syntax-entry ?\( "()" st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3548 (modify-syntax-entry ?\) ")(" st))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3549 (setq reset-st (syntax-table) p (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3550 (set-syntax-table st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3551 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3552 (set-syntax-table reset-st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3553 (setq reset-st nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3554 (cperl-commentify p (point) t))) ; mark as string
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3555 (forward-comment (buffer-size))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3556 (setq after-first t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3557 (error (message
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3558 "L%d: attribute `%s': %s"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3559 (count-lines (point-min) (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3560 (and start1 end1 (buffer-substring start1 end1)) b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3561 (setq start nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3562 (and start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3563 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3564 (put-text-property start (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3565 'attrib-group (if (looking-at "{") t 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3566 (and pos
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3567 (< 1 (count-lines (+ 3 pos) (point))) ; end of `sub'
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3568 ;; Apparently, we do not need `multiline': faces added now
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3569 (put-text-property (+ 3 pos) (cperl-1+ (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3570 'syntax-type 'sub-decl))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3571 (and b-fname ; Fontify here: the following condition
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3572 (cperl-postpone-fontification ; is too hard to determine by
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3573 b-fname e-fname 'face ; a REx, so do it here
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3574 (if (looking-at "{")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3575 font-lock-function-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3576 font-lock-variable-name-face)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3577 ;; now restore the initial state
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3578 (if st
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3579 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3580 (modify-syntax-entry ?\( "." st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3581 (modify-syntax-entry ?\) "." st)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3582 (if reset-st
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3583 (set-syntax-table reset-st))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3584
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3585 (defsubst cperl-look-at-leading-count (is-x-REx e)
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3586 (if (and
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3587 (< (point) e)
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3588 (re-search-forward (concat "\\=" (if is-x-REx "[ \t\n]*" "") "[{?+*]")
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3589 (1- e) t)) ; return nil on failure, no moving
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3590 (if (eq ?\{ (preceding-char)) nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3591 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3592 (1- (point)) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3593 'face font-lock-warning-face))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3594
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3595 ;;; Debugging this may require (setq max-specpdl-size 2000)...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3596 (defun cperl-find-pods-heres (&optional min max non-inter end ignore-max end-of-here-doc)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3597 "Scans the buffer for hard-to-parse Perl constructions.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3598 If `cperl-pod-here-fontify' is not-nil after evaluation, will fontify
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3599 the sections using `cperl-pod-head-face', `cperl-pod-face',
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3600 `cperl-here-face'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3601 (interactive)
78582
d168a4166b80 Fix s{a}{b} parsing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78487
diff changeset
3602 (or min (setq min (point-min)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3603 cperl-syntax-state nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3604 cperl-syntax-done-to min))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3605 (or max (setq max (point-max)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3606 (let* ((cperl-pod-here-fontify (eval cperl-pod-here-fontify)) go tmpend
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3607 face head-face here-face b e bb tag qtag b1 e1 argument i c tail tb
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3608 is-REx is-x-REx REx-subgr-start REx-subgr-end was-subgr i2 hairy-RE
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3609 (case-fold-search nil) (inhibit-read-only t) (buffer-undo-list t)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3610 (modified (buffer-modified-p)) overshoot is-o-REx
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3611 (after-change-functions nil)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3612 (cperl-font-locking t)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3613 (use-syntax-state (and cperl-syntax-state
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3614 (>= min (car cperl-syntax-state))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3615 (state-point (if use-syntax-state
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3616 (car cperl-syntax-state)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3617 (point-min)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3618 (state (if use-syntax-state
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3619 (cdr cperl-syntax-state)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3620 ;; (st-l '(nil)) (err-l '(nil)) ; Would overwrite - propagates from a function call to a function call!
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3621 (st-l (list nil)) (err-l (list nil))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3622 ;; Somehow font-lock may be not loaded yet...
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3623 ;; (e.g., when building TAGS via command-line call)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3624 (font-lock-string-face (if (boundp 'font-lock-string-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3625 font-lock-string-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3626 'font-lock-string-face))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3627 (my-cperl-delimiters-face (if (boundp 'font-lock-constant-face)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3628 font-lock-constant-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3629 'font-lock-constant-face))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3630 (my-cperl-REx-spec-char-face ; [] ^.$ and wrapper-of ({})
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3631 (if (boundp 'font-lock-function-name-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3632 font-lock-function-name-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3633 'font-lock-function-name-face))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3634 (font-lock-variable-name-face ; interpolated vars and ({})-code
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3635 (if (boundp 'font-lock-variable-name-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3636 font-lock-variable-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3637 'font-lock-variable-name-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3638 (font-lock-function-name-face ; used in `cperl-find-sub-attrs'
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3639 (if (boundp 'font-lock-function-name-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3640 font-lock-function-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3641 'font-lock-function-name-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3642 (font-lock-constant-face ; used in `cperl-find-sub-attrs'
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3643 (if (boundp 'font-lock-constant-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3644 font-lock-constant-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3645 'font-lock-constant-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3646 (my-cperl-REx-0length-face ; 0-length, (?:)etc, non-literal \
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3647 (if (boundp 'font-lock-builtin-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3648 font-lock-builtin-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3649 'font-lock-builtin-face))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3650 (font-lock-comment-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3651 (if (boundp 'font-lock-comment-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3652 font-lock-comment-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3653 'font-lock-comment-face))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3654 (font-lock-warning-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3655 (if (boundp 'font-lock-warning-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3656 font-lock-warning-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3657 'font-lock-warning-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3658 (my-cperl-REx-ctl-face ; (|)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3659 (if (boundp 'font-lock-keyword-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3660 font-lock-keyword-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3661 'font-lock-keyword-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3662 (my-cperl-REx-modifiers-face ; //gims
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3663 (if (boundp 'cperl-nonoverridable-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3664 cperl-nonoverridable-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3665 'cperl-nonoverridable-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3666 (my-cperl-REx-length1-face ; length=1 escaped chars, POSIX classes
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3667 (if (boundp 'font-lock-type-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3668 font-lock-type-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3669 'font-lock-type-face))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3670 (stop-point (if ignore-max
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3671 (point-max)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3672 max))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3673 (search
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3674 (concat
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3675 "\\(\\`\n?\\|^\n\\)=" ; POD
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3676 "\\|"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3677 ;; One extra () before this:
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3678 "<<" ; HERE-DOC
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3679 "\\(" ; 1 + 1
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3680 ;; First variant "BLAH" or just ``.
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3681 "[ \t]*" ; Yes, whitespace is allowed!
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3682 "\\([\"'`]\\)" ; 2 + 1 = 3
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3683 "\\([^\"'`\n]*\\)" ; 3 + 1
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3684 "\\3"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3685 "\\|"
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3686 ;; Second variant: Identifier or \ID (same as 'ID') or empty
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3687 "\\\\?\\(\\([a-zA-Z_][a-zA-Z_0-9]*\\)?\\)" ; 4 + 1, 5 + 1
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3688 ;; Do not have <<= or << 30 or <<30 or << $blah.
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3689 ;; "\\([^= \t0-9$@%&]\\|[ \t]+[^ \t\n0-9$@%&]\\)" ; 6 + 1
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3690 "\\(\\)" ; To preserve count of pars :-( 6 + 1
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3691 "\\)"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3692 "\\|"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3693 ;; 1+6 extra () before this:
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3694 "^[ \t]*\\(format\\)[ \t]*\\([a-zA-Z0-9_]+\\)?[ \t]*=[ \t]*$" ;FRMAT
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3695 (if cperl-use-syntax-table-text-property
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3696 (concat
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3697 "\\|"
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3698 ;; 1+6+2=9 extra () before this:
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3699 "\\<\\(q[wxqr]?\\|[msy]\\|tr\\)\\>" ; QUOTED CONSTRUCT
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3700 "\\|"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3701 ;; 1+6+2+1=10 extra () before this:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3702 "\\([?/<]\\)" ; /blah/ or ?blah? or <file*glob>
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3703 "\\|"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3704 ;; 1+6+2+1+1=11 extra () before this
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3705 "\\<sub\\>" ; sub with proto/attr
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3706 "\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3707 cperl-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3708 "\\(::[a-zA-Z_:'0-9]*\\|[a-zA-Z_'][a-zA-Z_:'0-9]*\\)\\)?" ; name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3709 "\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3710 cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3711 "\\(([^()]*)\\|:[^:]\\)\\)" ; prototype or attribute start
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3712 "\\|"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3713 ;; 1+6+2+1+1+6=17 extra () before this:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3714 "\\$\\(['{]\\)" ; $' or ${foo}
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3715 "\\|"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3716 ;; 1+6+2+1+1+6+1=18 extra () before this (old pack'var syntax;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3717 ;; we do not support intervening comments...):
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3718 "\\(\\<sub[ \t\n\f]+\\|[&*$@%]\\)[a-zA-Z0-9_]*'"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3719 ;; 1+6+2+1+1+6+1+1=19 extra () before this:
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3720 "\\|"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3721 "__\\(END\\|DATA\\)__" ; __END__ or __DATA__
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3722 ;; 1+6+2+1+1+6+1+1+1=20 extra () before this:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3723 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3724 "\\\\\\(['`\"($]\\)") ; BACKWACKED something-hairy
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3725 ""))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3726 (unwind-protect
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3727 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3728 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3729 (or non-inter
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3730 (message "Scanning for \"hard\" Perl constructions..."))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3731 ;;(message "find: %s --> %s" min max)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3732 (and cperl-pod-here-fontify
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3733 ;; We had evals here, do not know why...
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3734 (setq face cperl-pod-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3735 head-face cperl-pod-head-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3736 here-face cperl-here-face))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3737 (remove-text-properties min max
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3738 '(syntax-type t in-pod t syntax-table t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3739 attrib-group t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3740 REx-interpolated t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3741 cperl-postpone t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3742 syntax-subtype t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3743 rear-nonsticky t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3744 front-sticky t
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3745 here-doc-group t
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3746 first-format-line t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3747 REx-part2 t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3748 indentable t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3749 ;; Need to remove face as well...
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3750 (goto-char min)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3751 (and (eq system-type 'emx)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3752 (eq (point) 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3753 (let ((case-fold-search t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3754 (looking-at "extproc[ \t]")) ; Analogue of #!
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3755 (cperl-commentify min
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3756 (save-excursion (end-of-line) (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3757 nil))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3758 (while (and
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3759 (< (point) max)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3760 (re-search-forward search max t))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3761 (setq tmpend nil) ; Valid for most cases
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3762 (setq b (match-beginning 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3763 state (save-excursion (parse-partial-sexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3764 state-point b nil nil state))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3765 state-point b)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3766 (cond
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3767 ;; 1+6+2+1+1+6=17 extra () before this:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3768 ;; "\\$\\(['{]\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3769 ((match-beginning 18) ; $' or ${foo}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3770 (if (eq (preceding-char) ?\') ; $'
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3771 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3772 (setq b (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3773 state (parse-partial-sexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3774 state-point (1- b) nil nil state)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3775 state-point (1- b))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3776 (if (nth 3 state) ; in string
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3777 (cperl-modify-syntax-type (1- b) cperl-st-punct))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3778 (goto-char (1+ b)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3779 ;; else: ${
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3780 (setq bb (match-beginning 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3781 (cperl-modify-syntax-type bb cperl-st-punct)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3782 ;; No processing in strings/comments beyond this point:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3783 ((or (nth 3 state) (nth 4 state))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3784 t) ; Do nothing in comment/string
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3785 ((match-beginning 1) ; POD section
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3786 ;; "\\(\\`\n?\\|^\n\\)="
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3787 (setq b (match-beginning 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3788 state (parse-partial-sexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3789 state-point b nil nil state)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3790 state-point b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3791 (if (or (nth 3 state) (nth 4 state)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3792 (looking-at "cut\\>"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3793 (if (or (nth 3 state) (nth 4 state) ignore-max)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3794 nil ; Doing a chunk only
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3795 (message "=cut is not preceded by a POD section")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3796 (or (car err-l) (setcar err-l (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3797 (beginning-of-line)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3798
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3799 (setq b (point)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3800 bb b
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3801 tb (match-beginning 0)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3802 b1 nil) ; error condition
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3803 ;; We do not search to max, since we may be called from
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3804 ;; some hook of fontification, and max is random
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3805 (or (re-search-forward "^\n=cut\\>" stop-point 'toend)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3806 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3807 (goto-char b)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3808 (if (re-search-forward "\n=cut\\>" stop-point 'toend)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3809 (progn
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3810 (message "=cut is not preceded by an empty line")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3811 (setq b1 t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3812 (or (car err-l) (setcar err-l b))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3813 (beginning-of-line 2) ; An empty line after =cut is not POD!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3814 (setq e (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3815 (and (> e max)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3816 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3817 (remove-text-properties
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3818 max e '(syntax-type t in-pod t syntax-table t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3819 attrib-group t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3820 REx-interpolated t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3821 cperl-postpone t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3822 syntax-subtype t
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3823 here-doc-group t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3824 rear-nonsticky t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3825 front-sticky t
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3826 first-format-line t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3827 REx-part2 t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3828 indentable t))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3829 (setq tmpend tb)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3830 (put-text-property b e 'in-pod t)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3831 (put-text-property b e 'syntax-type 'in-pod)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3832 (goto-char b)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3833 (while (re-search-forward "\n\n[ \t]" e t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3834 ;; We start 'pod 1 char earlier to include the preceding line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3835 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3836 (put-text-property (cperl-1- b) (point) 'syntax-type 'pod)
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3837 (cperl-put-do-not-fontify b (point) t)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3838 ;; mark the non-literal parts as PODs
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3839 (if cperl-pod-here-fontify
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3840 (cperl-postpone-fontification b (point) 'face face t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3841 (re-search-forward "\n\n[^ \t\f\n]" e 'toend)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3842 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3843 (setq b (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3844 (put-text-property (cperl-1- (point)) e 'syntax-type 'pod)
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3845 (cperl-put-do-not-fontify (point) e t)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3846 (if cperl-pod-here-fontify
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3847 (progn
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3848 ;; mark the non-literal parts as PODs
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3849 (cperl-postpone-fontification (point) e 'face face t)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3850 (goto-char bb)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3851 (if (looking-at
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3852 "=[a-zA-Z0-9_]+\\>[ \t]*\\(\\(\n?[^\n]\\)+\\)$")
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3853 ;; mark the headers
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3854 (cperl-postpone-fontification
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3855 (match-beginning 1) (match-end 1)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3856 'face head-face))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3857 (while (re-search-forward
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3858 ;; One paragraph
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3859 "^\n=[a-zA-Z0-9_]+\\>[ \t]*\\(\\(\n?[^\n]\\)+\\)$"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3860 e 'toend)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3861 ;; mark the headers
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3862 (cperl-postpone-fontification
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3863 (match-beginning 1) (match-end 1)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3864 'face head-face))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3865 (cperl-commentify bb e nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3866 (goto-char e)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3867 (or (eq e (point-max))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3868 (forward-char -1)))) ; Prepare for immediate POD start.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3869 ;; Here document
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3870 ;; We can do many here-per-line;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3871 ;; but multiline quote on the same line as <<HERE confuses us...
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3872 ;; ;; One extra () before this:
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3873 ;;"<<"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3874 ;; "\\(" ; 1 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3875 ;; ;; First variant "BLAH" or just ``.
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3876 ;; "[ \t]*" ; Yes, whitespace is allowed!
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3877 ;; "\\([\"'`]\\)" ; 2 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3878 ;; "\\([^\"'`\n]*\\)" ; 3 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3879 ;; "\\3"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3880 ;; "\\|"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3881 ;; ;; Second variant: Identifier or \ID or empty
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3882 ;; "\\\\?\\(\\([a-zA-Z_][a-zA-Z_0-9]*\\)?\\)" ; 4 + 1, 5 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3883 ;; ;; Do not have <<= or << 30 or <<30 or << $blah.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3884 ;; ;; "\\([^= \t0-9$@%&]\\|[ \t]+[^ \t\n0-9$@%&]\\)" ; 6 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3885 ;; "\\(\\)" ; To preserve count of pars :-( 6 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3886 ;; "\\)"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3887 ((match-beginning 2) ; 1 + 1
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3888 (setq b (point)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3889 tb (match-beginning 0)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3890 c (and ; not HERE-DOC
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3891 (match-beginning 5)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3892 (save-match-data
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3893 (or (looking-at "[ \t]*(") ; << function_call()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3894 (save-excursion ; 1 << func_name, or $foo << 10
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3895 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3896 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3897 (goto-char tb)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3898 ;;; XXX What to do: foo <<bar ???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3899 ;;; XXX Need to support print {a} <<B ???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3900 (forward-sexp -1)
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
3901 (save-match-data
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3902 ; $foo << b; $f .= <<B;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3903 ; ($f+1) << b; a($f) . <<B;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3904 ; foo 1, <<B; $x{a} <<b;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3905 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3906 ((looking-at "[0-9$({]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3907 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3908 (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3909 (looking-at "[ \t]*<<")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3910 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3911 ;; print $foo <<EOF
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3912 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3913 (forward-sexp -2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3914 (not
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3915 (looking-at "\\(printf?\\|system\\|exec\\|sort\\)\\>")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3916 (error t)))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3917 (error nil))) ; func(<<EOF)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3918 (and (not (match-beginning 6)) ; Empty
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3919 (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3920 "[ \t]*[=0-9$@%&(]"))))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3921 (if c ; Not here-doc
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3922 nil ; Skip it.
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3923 (setq c (match-end 2)) ; 1 + 1
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3924 (if (match-beginning 5) ;4 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3925 (setq b1 (match-beginning 5) ; 4 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3926 e1 (match-end 5)) ; 4 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3927 (setq b1 (match-beginning 4) ; 3 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3928 e1 (match-end 4))) ; 3 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3929 (setq tag (buffer-substring b1 e1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3930 qtag (regexp-quote tag))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3931 (cond (cperl-pod-here-fontify
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3932 ;; Highlight the starting delimiter
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
3933 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3934 b1 e1 'face my-cperl-delimiters-face)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3935 (cperl-put-do-not-fontify b1 e1 t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3936 (forward-line)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3937 (setq i (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3938 (if end-of-here-doc
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3939 (goto-char end-of-here-doc))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3940 (setq b (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3941 ;; We do not search to max, since we may be called from
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3942 ;; some hook of fontification, and max is random
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3943 (or (and (re-search-forward (concat "^" qtag "$")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3944 stop-point 'toend)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3945 ;;;(eq (following-char) ?\n) ; XXXX WHY???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3946 )
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3947 (progn ; Pretend we matched at the end
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3948 (goto-char (point-max))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3949 (re-search-forward "\\'")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3950 (message "End of here-document `%s' not found." tag)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3951 (or (car err-l) (setcar err-l b))))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3952 (if cperl-pod-here-fontify
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3953 (progn
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3954 ;; Highlight the ending delimiter
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3955 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3956 (match-beginning 0) (match-end 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3957 'face my-cperl-delimiters-face)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3958 (cperl-put-do-not-fontify b (match-end 0) t)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3959 ;; Highlight the HERE-DOC
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3960 (cperl-postpone-fontification b (match-beginning 0)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3961 'face here-face)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3962 (setq e1 (cperl-1+ (match-end 0)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3963 (put-text-property b (match-beginning 0)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3964 'syntax-type 'here-doc)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3965 (put-text-property (match-beginning 0) e1
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3966 'syntax-type 'here-doc-delim)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3967 (put-text-property b e1 'here-doc-group t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3968 ;; This makes insertion at the start of HERE-DOC update
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3969 ;; the whole construct:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3970 (put-text-property b (cperl-1+ b) 'front-sticky '(syntax-type))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3971 (cperl-commentify b e1 nil)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3972 (cperl-put-do-not-fontify b (match-end 0) t)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3973 ;; Cache the syntax info...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3974 (setq cperl-syntax-state (cons state-point state))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3975 ;; ... and process the rest of the line...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3976 (setq overshoot
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3977 (elt ; non-inter ignore-max
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3978 (cperl-find-pods-heres c i t end t e1) 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3979 (if (and overshoot (> overshoot (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3980 (goto-char overshoot)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3981 (setq overshoot e1))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3982 (if (> e1 max)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3983 (setq tmpend tb))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3984 ;; format
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3985 ((match-beginning 8)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3986 ;; 1+6=7 extra () before this:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3987 ;;"^[ \t]*\\(format\\)[ \t]*\\([a-zA-Z0-9_]+\\)?[ \t]*=[ \t]*$"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3988 (setq b (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3989 name (if (match-beginning 8) ; 7 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3990 (buffer-substring (match-beginning 8) ; 7 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3991 (match-end 8)) ; 7 + 1
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3992 "")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3993 tb (match-beginning 0))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3994 (setq argument nil)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3995 (put-text-property (save-excursion
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3996 (beginning-of-line)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3997 (point))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3998 b 'first-format-line 't)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3999 (if cperl-pod-here-fontify
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4000 (while (and (eq (forward-line) 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4001 (not (looking-at "^[.;]$")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4002 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4003 ((looking-at "^#")) ; Skip comments
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4004 ((and argument ; Skip argument multi-lines
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4005 (looking-at "^[ \t]*{"))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4006 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4007 (setq argument nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4008 (argument ; Skip argument lines
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4009 (setq argument nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4010 (t ; Format line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4011 (setq b1 (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4012 (setq argument (looking-at "^[^\n]*[@^]"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4013 (end-of-line)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4014 ;; Highlight the format line
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4015 (cperl-postpone-fontification b1 (point)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4016 'face font-lock-string-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4017 (cperl-commentify b1 (point) nil)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4018 (cperl-put-do-not-fontify b1 (point) t))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4019 ;; We do not search to max, since we may be called from
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4020 ;; some hook of fontification, and max is random
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4021 (re-search-forward "^[.;]$" stop-point 'toend))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4022 (beginning-of-line)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4023 (if (looking-at "^\\.$") ; ";" is not supported yet
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4024 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4025 ;; Highlight the ending delimiter
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4026 (cperl-postpone-fontification (point) (+ (point) 2)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4027 'face font-lock-string-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4028 (cperl-commentify (point) (+ (point) 2) nil)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4029 (cperl-put-do-not-fontify (point) (+ (point) 2) t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4030 (message "End of format `%s' not found." name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4031 (or (car err-l) (setcar err-l b)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4032 (forward-line)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4033 (if (> (point) max)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4034 (setq tmpend tb))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4035 (put-text-property b (point) 'syntax-type 'format))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4036 ;; qq-like String or Regexp:
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4037 ((or (match-beginning 10) (match-beginning 11))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4038 ;; 1+6+2=9 extra () before this:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4039 ;; "\\<\\(q[wxqr]?\\|[msy]\\|tr\\)\\>"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4040 ;; "\\|"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4041 ;; "\\([?/<]\\)" ; /blah/ or ?blah? or <file*glob>
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4042 (setq b1 (if (match-beginning 10) 10 11)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4043 argument (buffer-substring
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4044 (match-beginning b1) (match-end b1))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4045 b (point) ; end of qq etc
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4046 i b
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4047 c (char-after (match-beginning b1))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4048 bb (char-after (1- (match-beginning b1))) ; tmp holder
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4049 ;; bb == "Not a stringy"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4050 bb (if (eq b1 10) ; user variables/whatever
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4051 (and (memq bb (append "$@%*#_:-&>" nil)) ; $#y)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4052 (cond ((eq bb ?-) (eq c ?s)) ; -s file test
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4053 ((eq bb ?\:) ; $opt::s
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4054 (eq (char-after
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4055 (- (match-beginning b1) 2))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4056 ?\:))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4057 ((eq bb ?\>) ; $foo->s
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4058 (eq (char-after
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4059 (- (match-beginning b1) 2))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4060 ?\-))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4061 ((eq bb ?\&)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4062 (not (eq (char-after ; &&m/blah/
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4063 (- (match-beginning b1) 2))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4064 ?\&)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4065 (t t)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4066 ;; <file> or <$file>
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4067 (and (eq c ?\<)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4068 ;; Do not stringify <FH>, <$fh> :
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4069 (save-match-data
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4070 (looking-at
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4071 "\\$?\\([_a-zA-Z:][_a-zA-Z0-9:]*\\)?>"))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4072 tb (match-beginning 0))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4073 (goto-char (match-beginning b1))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4074 (cperl-backward-to-noncomment (point-min))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4075 (or bb
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4076 (if (eq b1 11) ; bare /blah/ or ?blah? or <foo>
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4077 (setq argument ""
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4078 b1 nil
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4079 bb ; Not a regexp?
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4080 (not
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4081 ;; What is below: regexp-p?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4082 (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4083 (or (memq (preceding-char)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4084 (append (if (memq c '(?\? ?\<))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4085 ;; $a++ ? 1 : 2
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4086 "~{(=|&*!,;:["
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4087 "~{(=|&+-*!,;:[") nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4088 (and (eq (preceding-char) ?\})
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4089 (cperl-after-block-p (point-min)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4090 (and (eq (char-syntax (preceding-char)) ?w)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4091 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4092 (forward-sexp -1)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4093 ;; After these keywords `/' starts a RE. One should add all the
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4094 ;; functions/builtins which expect an argument, but ...
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4095 (if (eq (preceding-char) ?-)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4096 ;; -d ?foo? is a RE
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4097 (looking-at "[a-zA-Z]\\>")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4098 (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4099 (not (memq (preceding-char)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4100 '(?$ ?@ ?& ?%)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4101 (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4102 "\\(while\\|if\\|unless\\|until\\|and\\|or\\|not\\|xor\\|split\\|grep\\|map\\|print\\)\\>")))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4103 (and (eq (preceding-char) ?.)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4104 (eq (char-after (- (point) 2)) ?.))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4105 (bobp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4106 ;; m|blah| ? foo : bar;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4107 (not
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4108 (and (eq c ?\?)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4109 cperl-use-syntax-table-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4110 (not (bobp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4111 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4112 (forward-char -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4113 (looking-at "\\s|"))))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4114 b (1- b))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4115 ;; s y tr m
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4116 ;; Check for $a -> y
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4117 (setq b1 (preceding-char)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4118 go (point))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4119 (if (and (eq b1 ?>)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4120 (eq (char-after (- go 2)) ?-))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4121 ;; Not a regexp
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4122 (setq bb t))))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4123 (or bb
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4124 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4125 (goto-char b)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4126 (if (looking-at "[ \t\n\f]+\\(#[^\n]*\n[ \t\n\f]*\\)+")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4127 (goto-char (match-end 0))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4128 (skip-chars-forward " \t\n\f"))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4129 (cond ((and (eq (following-char) ?\})
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4130 (eq b1 ?\{))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4131 ;; Check for $a[23]->{ s }, @{s} and *{s::foo}
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4132 (goto-char (1- go))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4133 (skip-chars-backward " \t\n\f")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4134 (if (memq (preceding-char) (append "$@%&*" nil))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4135 (setq bb t) ; @{y}
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4136 (condition-case nil
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4137 (forward-sexp -1)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4138 (error nil)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4139 (if (or bb
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4140 (looking-at ; $foo -> {s}
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4141 "[$@]\\$*\\([a-zA-Z0-9_:]+\\|[^{]\\)\\([ \t\n]*->\\)?[ \t\n]*{")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4142 (and ; $foo[12] -> {s}
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4143 (memq (following-char) '(?\{ ?\[))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4144 (progn
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4145 (forward-sexp 1)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4146 (looking-at "\\([ \t\n]*->\\)?[ \t\n]*{"))))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4147 (setq bb t)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4148 (goto-char b)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4149 ((and (eq (following-char) ?=)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4150 (eq (char-after (1+ (point))) ?\>))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4151 ;; Check for { foo => 1, s => 2 }
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4152 ;; Apparently s=> is never a substitution...
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4153 (setq bb t))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4154 ((and (eq (following-char) ?:)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4155 (eq b1 ?\{) ; Check for $ { s::bar }
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4156 (looking-at "::[a-zA-Z0-9_:]*[ \t\n\f]*}")
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
4157 (progn
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4158 (goto-char (1- go))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4159 (skip-chars-backward " \t\n\f")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4160 (memq (preceding-char)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4161 (append "$@%&*" nil))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4162 (setq bb t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4163 ((eobp)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4164 (setq bb t)))))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4165 (if bb
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4166 (goto-char i)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4167 ;; Skip whitespace and comments...
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4168 (if (looking-at "[ \t\n\f]+\\(#[^\n]*\n[ \t\n\f]*\\)+")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4169 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4170 (skip-chars-forward " \t\n\f"))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4171 (if (> (point) b)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4172 (put-text-property b (point) 'syntax-type 'prestring))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4173 ;; qtag means two-arg matcher, may be reset to
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4174 ;; 2 or 3 later if some special quoting is needed.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4175 ;; e1 means matching-char matcher.
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4176 (setq b (point) ; before the first delimiter
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4177 ;; has 2 args
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4178 i2 (string-match "^\\([sy]\\|tr\\)$" argument)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4179 ;; We do not search to max, since we may be called from
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4180 ;; some hook of fontification, and max is random
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4181 i (cperl-forward-re stop-point end
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4182 i2
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4183 st-l err-l argument)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4184 ;; If `go', then it is considered as 1-arg, `b1' is nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4185 ;; as in s/foo//x; the point is before final "slash"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4186 b1 (nth 1 i) ; start of the second part
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4187 tag (nth 2 i) ; ender-char, true if second part
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4188 ; is with matching chars []
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4189 go (nth 4 i) ; There is a 1-char part after the end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4190 i (car i) ; intermediate point
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4191 e1 (point) ; end
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4192 ;; Before end of the second part if non-matching: ///
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4193 tail (if (and i (not tag))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4194 (1- e1))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4195 e (if i i e1) ; end of the first part
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4196 qtag nil ; need to preserve backslashitis
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4197 is-x-REx nil is-o-REx nil); REx has //x //o modifiers
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4198 ;; If s{} (), then b/b1 are at "{", "(", e1/i after ")", "}"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4199 ;; Commenting \\ is dangerous, what about ( ?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4200 (and i tail
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4201 (eq (char-after i) ?\\)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4202 (setq qtag t))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4203 (and (if go (looking-at ".\\sw*x")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4204 (looking-at "\\sw*x")) ; qr//x
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4205 (setq is-x-REx t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4206 (and (if go (looking-at ".\\sw*o")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4207 (looking-at "\\sw*o")) ; //o
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4208 (setq is-o-REx t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4209 (if (null i)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4210 ;; Considered as 1arg form
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4211 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4212 (cperl-commentify b (point) t)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4213 (put-text-property b (point) 'syntax-type 'string)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4214 (if (or is-x-REx
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4215 ;; ignore other text properties:
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4216 (string-match "^qw$" argument))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4217 (put-text-property b (point) 'indentable t))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4218 (and go
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4219 (setq e1 (cperl-1+ e1))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4220 (or (eobp)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4221 (forward-char 1))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4222 (cperl-commentify b i t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4223 (if (looking-at "\\sw*e") ; s///e
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4224 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4225 ;; Cache the syntax info...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4226 (setq cperl-syntax-state (cons state-point state))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4227 (and
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4228 ;; silent:
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4229 (car (cperl-find-pods-heres b1 (1- (point)) t end))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4230 ;; Error
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4231 (goto-char (1+ max)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4232 (if (and tag (eq (preceding-char) ?\>))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4233 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4234 (cperl-modify-syntax-type (1- (point)) cperl-st-ket)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4235 (cperl-modify-syntax-type i cperl-st-bra)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4236 (put-text-property b i 'syntax-type 'string)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4237 (put-text-property i (point) 'syntax-type 'multiline)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4238 (if is-x-REx
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4239 (put-text-property b i 'indentable t)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4240 (cperl-commentify b1 (point) t)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4241 (put-text-property b (point) 'syntax-type 'string)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4242 (if is-x-REx
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4243 (put-text-property b i 'indentable t))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4244 (if qtag
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4245 (cperl-modify-syntax-type (1+ i) cperl-st-punct))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4246 (setq tail nil)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4247 ;; Now: tail: if the second part is non-matching without ///e
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4248 (if (eq (char-syntax (following-char)) ?w)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4249 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4250 (forward-word 1) ; skip modifiers s///s
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4251 (if tail (cperl-commentify tail (point) t))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
4252 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4253 e1 (point) 'face my-cperl-REx-modifiers-face)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4254 ;; Check whether it is m// which means "previous match"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4255 ;; and highlight differently
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
4256 (setq is-REx
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4257 (and (string-match "^\\([sm]?\\|qr\\)$" argument)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4258 (or (not (= (length argument) 0))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4259 (not (eq c ?\<)))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
4260 (if (and is-REx
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4261 (eq e (+ 2 b))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4262 ;; split // *is* using zero-pattern
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4263 (save-excursion
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4264 (condition-case nil
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4265 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4266 (goto-char tb)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4267 (forward-sexp -1)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4268 (not (looking-at "split\\>")))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4269 (error t))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4270 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4271 b e 'face font-lock-warning-face)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4272 (if (or i2 ; Has 2 args
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4273 (and cperl-fontify-m-as-s
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4274 (or
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4275 (string-match "^\\(m\\|qr\\)$" argument)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4276 (and (eq 0 (length argument))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4277 (not (eq ?\< (char-after b)))))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4278 (progn
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4279 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4280 b (cperl-1+ b) 'face my-cperl-delimiters-face)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4281 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4282 (1- e) e 'face my-cperl-delimiters-face)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4283 (if (and is-REx cperl-regexp-scan)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4284 ;; Process RExen: embedded comments, charclasses and ]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4285 ;;;/\3333\xFg\x{FFF}a\ppp\PPP\qqq\C\99f(?{ foo })(??{ foo })/;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4286 ;;;/a\.b[^a[:ff:]b]x$ab->$[|$,$ab->[cd]->[ef]|$ab[xy].|^${a,b}{c,d}/;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4287 ;;;/(?<=foo)(?<!bar)(x)(?:$ab|\$\/)$|\\\b\x888\776\[\:$/xxx;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4288 ;;;m?(\?\?{b,a})? + m/(??{aa})(?(?=xx)aa|bb)(?#aac)/;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4289 ;;;m$(^ab[c]\$)$ + m+(^ab[c]\$\+)+ + m](^ab[c\]$|.+)] + m)(^ab[c]$|.+\));
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4290 ;;;m^a[\^b]c^ + m.a[^b]\.c.;
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4291 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4292 (goto-char (1+ b))
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
4293 ;; First
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4294 (cperl-look-at-leading-count is-x-REx e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4295 (setq hairy-RE
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4296 (concat
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4297 (if is-x-REx
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4298 (if (eq (char-after b) ?\#)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4299 "\\((\\?\\\\#\\)\\|\\(\\\\#\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4300 "\\((\\?#\\)\\|\\(#\\)")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4301 ;; keep the same count: add a fake group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4302 (if (eq (char-after b) ?\#)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4303 "\\((\\?\\\\#\\)\\(\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4304 "\\((\\?#\\)\\(\\)"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4305 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4306 "\\(\\[\\)" ; 3=[
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4307 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4308 "\\(]\\)" ; 4=]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4309 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4310 ;; XXXX Will not be able to use it in s)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4311 (if (eq (char-after b) ?\) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4312 "\\())))\\)" ; Will never match
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4313 (if (eq (char-after b) ?? )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4314 ;;"\\((\\\\\\?\\(\\\\\\?\\)?{\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4315 "\\((\\\\\\?\\\\\\?{\\|()\\\\\\?{\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4316 "\\((\\?\\??{\\)")) ; 5= (??{ (?{
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4317 "\\|" ; 6= 0-length, 7: name, 8,9:code, 10:group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4318 "\\(" ;; XXXX 1-char variables, exc. |()\s
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4319 "[$@]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4320 "\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4321 "[_a-zA-Z:][_a-zA-Z0-9:]*"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4322 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4323 "{[^{}]*}" ; only one-level allowed
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4324 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4325 "[^{(|) \t\r\n\f]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4326 "\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4327 "\\(" ;;8,9:code part of array/hash elt
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4328 "\\(" "->" "\\)?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4329 "\\[[^][]*\\]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4330 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4331 "{[^{}]*}"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4332 "\\)*"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4333 ;; XXXX: what if u is delim?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4334 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4335 "[)^|$.*?+]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4336 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4337 "{[0-9]+}"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4338 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4339 "{[0-9]+,[0-9]*}"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4340 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4341 "\\\\[luLUEQbBAzZG]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4342 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4343 "(" ; Group opener
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4344 "\\(" ; 10 group opener follower
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4345 "\\?\\((\\?\\)" ; 11: in (?(?=C)A|B)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4346 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4347 "\\?[:=!>?{]" ; "?" something
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4348 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4349 "\\?[-imsx]+[:)]" ; (?i) (?-s:.)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4350 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4351 "\\?([0-9]+)" ; (?(1)foo|bar)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4352 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4353 "\\?<[=!]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4354 ;;;"\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4355 ;;; "\\?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4356 "\\)?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4357 "\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4358 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4359 "\\\\\\(.\\)" ; 12=\SYMBOL
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4360 ))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4361 (while
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4362 (and (< (point) (1- e))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4363 (re-search-forward hairy-RE (1- e) 'to-end))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4364 (goto-char (match-beginning 0))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4365 (setq REx-subgr-start (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4366 was-subgr (following-char))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4367 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4368 ((match-beginning 6) ; 0-length builtins, groups
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4369 (goto-char (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4370 (if (match-beginning 11)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4371 (goto-char (match-beginning 11)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4372 (if (>= (point) e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4373 (goto-char (1- e)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4374 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4375 (match-beginning 0) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4376 'face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4377 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4378 ((eq was-subgr ?\) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4379 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4380 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4381 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4382 (if (> (point) b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4383 (if (if (eq (char-after b) ?? )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4384 (looking-at "(\\\\\\?")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4385 (eq (char-after (1+ (point))) ?\?))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4386 my-cperl-REx-0length-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4387 my-cperl-REx-ctl-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4388 font-lock-warning-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4389 (error font-lock-warning-face)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4390 ((eq was-subgr ?\| )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4391 my-cperl-REx-ctl-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4392 ((eq was-subgr ?\$ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4393 (if (> (point) (1+ REx-subgr-start))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4394 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4395 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4396 (match-beginning 0) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4397 'REx-interpolated
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4398 (if is-o-REx 0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4399 (if (and (eq (match-beginning 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4400 (1+ b))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4401 (eq (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4402 (1- e))) 1 t)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4403 font-lock-variable-name-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4404 my-cperl-REx-spec-char-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4405 ((memq was-subgr (append "^." nil) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4406 my-cperl-REx-spec-char-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4407 ((eq was-subgr ?\( )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4408 (if (not (match-beginning 10))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4409 my-cperl-REx-ctl-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4410 my-cperl-REx-0length-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4411 (t my-cperl-REx-0length-face)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4412 (if (and (memq was-subgr (append "(|" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4413 (not (string-match "(\\?[-imsx]+)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4414 (match-string 0))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4415 (cperl-look-at-leading-count is-x-REx e))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4416 (setq was-subgr nil)) ; We do stuff here
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4417 ((match-beginning 12) ; \SYMBOL
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4418 (forward-char 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4419 (if (>= (point) e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4420 (goto-char (1- e))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4421 ;; How many chars to not highlight:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4422 ;; 0-len special-alnums in other branch =>
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4423 ;; Generic: \non-alnum (1), \alnum (1+face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4424 ;; Is-delim: \non-alnum (1/spec-2) alnum-1 (=what hai)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4425 (setq REx-subgr-start (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4426 qtag (preceding-char))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4427 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4428 (- (point) 2) (- (point) 1) 'face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4429 (if (memq qtag
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4430 (append "ghijkmoqvFHIJKMORTVY" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4431 font-lock-warning-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4432 my-cperl-REx-0length-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4433 (if (and (eq (char-after b) qtag)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4434 (memq qtag (append ".])^$|*?+" nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4435 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4436 (if (and cperl-use-syntax-table-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4437 (eq qtag ?\) ))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4438 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4439 REx-subgr-start (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4440 'syntax-table cperl-st-punct))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4441 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4442 (1- (point)) (point) 'face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4443 ; \] can't appear below
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4444 (if (memq qtag (append ".]^$" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4445 'my-cperl-REx-spec-char-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4446 (if (memq qtag (append "*?+" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4447 'my-cperl-REx-0length-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4448 'my-cperl-REx-ctl-face))))) ; )|
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4449 ;; Test for arguments:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4450 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4451 ;; This is not pretty: the 5.8.7 logic:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4452 ;; \0numx -> octal (up to total 3 dig)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4453 ;; \DIGIT -> backref unless \0
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
4454 ;; \DIGITs -> backref if valid
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4455 ;; otherwise up to 3 -> octal
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4456 ;; Do not try to distinguish, we guess
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4457 ((or (and (memq qtag (append "01234567" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4458 (re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4459 "\\=[01234567]?[01234567]?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4460 (1- e) 'to-end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4461 (and (memq qtag (append "89" nil))
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
4462 (re-search-forward
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4463 "\\=[0123456789]*" (1- e) 'to-end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4464 (and (eq qtag ?x)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4465 (re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4466 "\\=[0-9a-fA-F][0-9a-fA-F]?\\|\\={[0-9a-fA-F]+}"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4467 (1- e) 'to-end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4468 (and (memq qtag (append "pPN" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4469 (re-search-forward "\\={[^{}]+}\\|."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4470 (1- e) 'to-end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4471 (eq (char-syntax qtag) ?w))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4472 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4473 (1- REx-subgr-start) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4474 'face my-cperl-REx-length1-face))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4475 (setq was-subgr nil)) ; We do stuff here
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4476 ((match-beginning 3) ; [charclass]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4477 (forward-char 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4478 (if (eq (char-after b) ?^ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4479 (and (eq (following-char) ?\\ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4480 (eq (char-after (cperl-1+ (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4481 ?^ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4482 (forward-char 2))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4483 (and (eq (following-char) ?^ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4484 (forward-char 1)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4485 (setq argument b ; continue?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4486 tag nil ; list of POSIX classes
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4487 qtag (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4488 (if (eq (char-after b) ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4489 (and (eq (following-char) ?\\ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4490 (eq (char-after (cperl-1+ (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4491 ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4492 (setq qtag (1+ qtag))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4493 (forward-char 2))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4494 (and (eq (following-char) ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4495 (forward-char 1)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4496 ;; Apparently, I can't put \] into a charclass
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4497 ;; in m]]: m][\\\]\]] produces [\\]]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4498 ;;; POSIX? [:word:] [:^word:] only inside []
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4499 ;;; "\\=\\(\\\\.\\|[^][\\\\]\\|\\[:\\^?\sw+:]\\|\\[[^:]\\)*]")
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
4500 (while
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4501 (and argument
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4502 (re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4503 (if (eq (char-after b) ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4504 "\\=\\(\\\\[^]]\\|[^]\\\\]\\)*\\\\]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4505 "\\=\\(\\\\.\\|[^]\\\\]\\)*]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4506 (1- e) 'toend))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4507 ;; Is this ] an end of POSIX class?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4508 (if (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4509 (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4510 (search-backward "[" argument t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4511 (< REx-subgr-start (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4512 (not
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4513 (and ; Should work with delim = \
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4514 (eq (preceding-char) ?\\ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4515 (= (% (skip-chars-backward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4516 "\\\\") 2) 0)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4517 (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4518 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4519 ((eq (char-after b) ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4520 "\\\\*\\[:\\^?\\sw+:\\\\\\]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4521 ((eq (char-after b) ?\: )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4522 "\\\\*\\[\\\\:\\^?\\sw+\\\\:]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4523 ((eq (char-after b) ?^ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4524 "\\\\*\\[:\\(\\\\\\^\\)?\\sw+:\]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4525 ((eq (char-syntax (char-after b))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4526 ?w)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4527 (concat
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4528 "\\\\*\\[:\\(\\\\\\^\\)?\\(\\\\"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4529 (char-to-string (char-after b))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4530 "\\|\\sw\\)+:\]"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4531 (t "\\\\*\\[:\\^?\\sw*:]")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4532 (setq argument (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4533 (setq tag (cons (cons argument (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4534 tag)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4535 argument (point)) ; continue
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4536 (setq argument nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4537 (and argument
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4538 (message "Couldn't find end of charclass in a REx, pos=%s"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4539 REx-subgr-start))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4540 (if (and cperl-use-syntax-table-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4541 (> (- (point) 2) REx-subgr-start))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4542 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4543 (1+ REx-subgr-start) (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4544 'syntax-table cperl-st-punct))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4545 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4546 REx-subgr-start qtag
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4547 'face my-cperl-REx-spec-char-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4548 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4549 (1- (point)) (point) 'face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4550 my-cperl-REx-spec-char-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4551 (if (eq (char-after b) ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4552 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4553 (- (point) 2) (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4554 'face my-cperl-REx-0length-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4555 (while tag
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4556 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4557 (car (car tag)) (cdr (car tag))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4558 'face my-cperl-REx-length1-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4559 (setq tag (cdr tag)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4560 (setq was-subgr nil)) ; did facing already
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4561 ;; Now rare stuff:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4562 ((and (match-beginning 2) ; #-comment
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4563 (/= (match-beginning 2) (match-end 2)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4564 (beginning-of-line 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4565 (if (> (point) e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4566 (goto-char (1- e))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4567 ((match-beginning 4) ; character "]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4568 (setq was-subgr nil) ; We do stuff here
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4569 (goto-char (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4570 (if cperl-use-syntax-table-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4571 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4572 (1- (point)) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4573 'syntax-table cperl-st-punct))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4574 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4575 (1- (point)) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4576 'face font-lock-warning-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4577 ((match-beginning 5) ; before (?{}) (??{})
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4578 (setq tag (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4579 (if (or (setq qtag
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4580 (cperl-forward-group-in-re st-l))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4581 (and (>= (point) e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4582 (setq qtag "no matching `)' found"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4583 (and (not (eq (char-after (- (point) 2))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4584 ?\} ))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4585 (setq qtag "Can't find })")))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
4586 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4587 (goto-char (1- e))
87170
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 86503
diff changeset
4588 (message "%s" qtag))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4589 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4590 (1- tag) (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4591 'face font-lock-variable-name-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4592 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4593 REx-subgr-start (1- tag)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4594 'face my-cperl-REx-spec-char-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4595 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4596 (1- (point)) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4597 'face my-cperl-REx-spec-char-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4598 (if cperl-use-syntax-table-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4599 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4600 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4601 (- (point) 2) (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4602 'syntax-table cperl-st-cfence)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4603 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4604 (+ REx-subgr-start 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4605 (+ REx-subgr-start 3)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4606 'syntax-table cperl-st-cfence))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4607 (setq was-subgr nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4608 (t ; (?#)-comment
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4609 ;; Inside "(" and "\" arn't special in any way
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4610 ;; Works also if the outside delimiters are ().
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4611 (or;;(if (eq (char-after b) ?\) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4612 ;;(re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4613 ;; "[^\\\\]\\(\\\\\\\\\\)*\\\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4614 ;; (1- e) 'toend)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4615 (search-forward ")" (1- e) 'toend)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4616 ;;)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4617 (message
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4618 "Couldn't find end of (?#...)-comment in a REx, pos=%s"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4619 REx-subgr-start))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4620 (if (>= (point) e)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4621 (goto-char (1- e)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4622 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4623 (was-subgr
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4624 (setq REx-subgr-end (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4625 (cperl-commentify
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4626 REx-subgr-start REx-subgr-end nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4627 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4628 REx-subgr-start REx-subgr-end
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4629 'face font-lock-comment-face))))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4630 (if (and is-REx is-x-REx)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
4631 (put-text-property (1+ b) (1- e)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4632 'syntax-subtype 'x-REx)))
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4633 (if (and i2 e1 b1 (> e1 b1))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4634 (progn ; No errors finding the second part...
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4635 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4636 (1- e1) e1 'face my-cperl-delimiters-face)
78582
d168a4166b80 Fix s{a}{b} parsing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78487
diff changeset
4637 (if (and (not (eobp))
d168a4166b80 Fix s{a}{b} parsing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78487
diff changeset
4638 (assoc (char-after b) cperl-starters))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4639 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4640 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4641 b1 (1+ b1) 'face my-cperl-delimiters-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4642 (put-text-property b1 (1+ b1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4643 'REx-part2 t)))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4644 (if (> (point) max)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4645 (setq tmpend tb))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4646 ((match-beginning 17) ; sub with prototype or attribute
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4647 ;; 1+6+2+1+1=11 extra () before this (sub with proto/attr):
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4648 ;;"\\<sub\\>\\(" ;12
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4649 ;; cperl-white-and-comment-rex ;13
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4650 ;; "\\([a-zA-Z_:'0-9]+\\)\\)?" ; name ;14
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4651 ;;"\\(" cperl-maybe-white-and-comment-rex ;15,16
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4652 ;; "\\(([^()]*)\\|:[^:]\\)\\)" ; 17:proto or attribute start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4653 (setq b1 (match-beginning 14) e1 (match-end 14))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4654 (if (memq (char-after (1- b))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4655 '(?\$ ?\@ ?\% ?\& ?\*))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4656 nil
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4657 (goto-char b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4658 (if (eq (char-after (match-beginning 17)) ?\( )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4659 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4660 (cperl-commentify ; Prototypes; mark as string
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4661 (match-beginning 17) (match-end 17) t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4662 (goto-char (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4663 ;; Now look for attributes after prototype:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4664 (forward-comment (buffer-size))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4665 (and (looking-at ":[^:]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4666 (cperl-find-sub-attrs st-l b1 e1 b)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4667 ;; treat attributes without prototype
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4668 (goto-char (match-beginning 17))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4669 (cperl-find-sub-attrs st-l b1 e1 b))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4670 ;; 1+6+2+1+1+6+1=18 extra () before this:
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4671 ;; "\\(\\<sub[ \t\n\f]+\\|[&*$@%]\\)[a-zA-Z0-9_]*'")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4672 ((match-beginning 19) ; old $abc'efg syntax
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4673 (setq bb (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4674 ;;;(if (nth 3 state) nil ; in string
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4675 (put-text-property (1- bb) bb 'syntax-table cperl-st-word)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4676 (goto-char bb))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4677 ;; 1+6+2+1+1+6+1+1=19 extra () before this:
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4678 ;; "__\\(END\\|DATA\\)__"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4679 ((match-beginning 20) ; __END__, __DATA__
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4680 (setq bb (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4681 ;; (put-text-property b (1+ bb) 'syntax-type 'pod) ; Cheat
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4682 (cperl-commentify b bb nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4683 (setq end t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4684 ;; "\\\\\\(['`\"($]\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4685 ((match-beginning 21)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4686 ;; Trailing backslash; make non-quoting outside string/comment
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4687 (setq bb (match-end 0))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4688 (goto-char b)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4689 (skip-chars-backward "\\\\")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4690 ;;;(setq i2 (= (% (skip-chars-backward "\\\\") 2) -1))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4691 (cperl-modify-syntax-type b cperl-st-punct)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4692 (goto-char bb))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4693 (t (error "Error in regexp of the sniffer")))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4694 (if (> (point) stop-point)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4695 (progn
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4696 (if end
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4697 (message "Garbage after __END__/__DATA__ ignored")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4698 (message "Unbalanced syntax found while scanning")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4699 (or (car err-l) (setcar err-l b)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4700 (goto-char stop-point))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4701 (setq cperl-syntax-state (cons state-point state)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4702 ;; Do not mark syntax as done past tmpend???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4703 cperl-syntax-done-to (or tmpend (max (point) max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4704 ;;(message "state-at=%s, done-to=%s" state-point cperl-syntax-done-to)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4705 )
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4706 (if (car err-l) (goto-char (car err-l))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4707 (or non-inter
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4708 (message "Scanning for \"hard\" Perl constructions... done"))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4709 (and (buffer-modified-p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4710 (not modified)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4711 (set-buffer-modified-p nil))
63836
e6973993a720 (cperl-find-pods-heres): Don't gratuitously
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63518
diff changeset
4712 ;; I do not understand what this is doing here. It breaks font-locking
e6973993a720 (cperl-find-pods-heres): Don't gratuitously
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63518
diff changeset
4713 ;; because it resets the syntax-table from font-lock-syntax-table to
e6973993a720 (cperl-find-pods-heres): Don't gratuitously
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63518
diff changeset
4714 ;; cperl-mode-syntax-table.
e6973993a720 (cperl-find-pods-heres): Don't gratuitously
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63518
diff changeset
4715 ;; (set-syntax-table cperl-mode-syntax-table)
e6973993a720 (cperl-find-pods-heres): Don't gratuitously
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63518
diff changeset
4716 )
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4717 (list (car err-l) overshoot)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4718
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4719 (defun cperl-find-pods-heres-region (min max)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4720 (interactive "r")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4721 (cperl-find-pods-heres min max))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4722
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4723 (defun cperl-backward-to-noncomment (lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4724 ;; Stops at lim or after non-whitespace that is not in comment
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4725 ;; XXXX Wrongly understands end-of-multiline strings with # as comment
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4726 (let (stop p pr)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4727 (while (and (not stop) (> (point) (or lim (point-min))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4728 (skip-chars-backward " \t\n\f" lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4729 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4730 (beginning-of-line)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4731 (if (memq (setq pr (get-text-property (point) 'syntax-type))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4732 '(pod here-doc here-doc-delim))
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4733 (progn
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4734 (cperl-unwind-to-safe nil)
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4735 (setq pr (get-text-property (point) 'syntax-type))))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4736 (or (and (looking-at "^[ \t]*\\(#\\|$\\)")
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4737 (not (memq pr '(string prestring))))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4738 (progn (cperl-to-comment-or-eol) (bolp))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4739 (progn
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4740 (skip-chars-backward " \t")
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4741 (if (< p (point)) (goto-char p))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4742 (setq stop t))))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4743
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4744 ;; Used only in `cperl-calculate-indent'...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4745 (defun cperl-block-p () ; Do not C-M-q ! One string contains ";" !
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4746 ;; Positions is before ?\{. Checks whether it starts a block.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4747 ;; No save-excursion! This is more a distinguisher of a block/hash ref...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4748 (cperl-backward-to-noncomment (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4749 (or (memq (preceding-char) (append ";){}$@&%\C-@" nil)) ; Or label! \C-@ at bobp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4750 ; Label may be mixed up with `$blah :'
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4751 (save-excursion (cperl-after-label))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4752 (get-text-property (cperl-1- (point)) 'attrib-group)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4753 (and (memq (char-syntax (preceding-char)) '(?w ?_))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4754 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4755 (backward-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4756 ;; sub {BLK}, print {BLK} $data, but NOT `bless', `return', `tr'
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4757 (or (and (looking-at "[a-zA-Z0-9_:]+[ \t\n\f]*[{#]") ; Method call syntax
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4758 (not (looking-at "\\(bless\\|return\\|q[wqrx]?\\|tr\\|[smy]\\)\\>")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4759 ;; sub bless::foo {}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4760 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4761 (cperl-backward-to-noncomment (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4762 (and (eq (preceding-char) ?b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4763 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4764 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4765 (looking-at "sub[ \t\n\f#]")))))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4766
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4767 ;;; What is the difference of (cperl-after-block-p lim t) and (cperl-block-p)?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4768 ;;; No save-excursion; condition-case ... In (cperl-block-p) the block
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4769 ;;; may be a part of an in-statement construct, such as
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4770 ;;; ${something()}, print {FH} $data.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4771 ;;; Moreover, one takes positive approach (looks for else,grep etc)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4772 ;;; another negative (looks for bless,tr etc)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4773 (defun cperl-after-block-p (lim &optional pre-block)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4774 "Return true if the preceeding } (if PRE-BLOCK, following {) delimits a block.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4775 Would not look before LIM. Assumes that LIM is a good place to begin a
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4776 statement. The kind of block we treat here is one after which a new
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4777 statement would start; thus the block in ${func()} does not count."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4778 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4779 (condition-case nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4780 (progn
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4781 (or pre-block (forward-sexp -1))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4782 (cperl-backward-to-noncomment lim)
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
4783 (or (eq (point) lim)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4784 ;; if () {} // sub f () {} // sub f :a(') {}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4785 (eq (preceding-char) ?\) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4786 ;; label: {}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4787 (save-excursion (cperl-after-label))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4788 ;; sub :attr {}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4789 (get-text-property (cperl-1- (point)) 'attrib-group)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4790 (if (memq (char-syntax (preceding-char)) '(?w ?_)) ; else {}
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4791 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4792 (forward-sexp -1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4793 ;; else {} but not else::func {}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4794 (or (and (looking-at "\\(else\\|continue\\|grep\\|map\\|BEGIN\\|END\\|CHECK\\|INIT\\)\\>")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4795 (not (looking-at "\\(\\sw\\|_\\)+::")))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4796 ;; sub f {}
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4797 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4798 (cperl-backward-to-noncomment lim)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4799 (and (eq (preceding-char) ?b)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4800 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4801 (forward-sexp -1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4802 (looking-at "sub[ \t\n\f#]"))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4803 ;; What preceeds is not word... XXXX Last statement in sub???
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4804 (cperl-after-expr-p lim))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4805 (error nil))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4806
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4807 (defun cperl-after-expr-p (&optional lim chars test)
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
4808 "Return true if the position is good for start of expression.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4809 TEST is the expression to evaluate at the found position. If absent,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4810 CHARS is a string that contains good characters to have before us (however,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4811 `}' is treated \"smartly\" if it is not in the list)."
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4812 (let ((lim (or lim (point-min)))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4813 stop p pr)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4814 (cperl-update-syntaxification (point) (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4815 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4816 (while (and (not stop) (> (point) lim))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4817 (skip-chars-backward " \t\n\f" lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4818 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4819 (beginning-of-line)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4820 ;;(memq (setq pr (get-text-property (point) 'syntax-type))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4821 ;; '(pod here-doc here-doc-delim))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4822 (if (get-text-property (point) 'here-doc-group)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4823 (progn
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4824 (goto-char
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4825 (cperl-beginning-of-property (point) 'here-doc-group))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4826 (beginning-of-line 0)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4827 (if (get-text-property (point) 'in-pod)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4828 (progn
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4829 (goto-char
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4830 (cperl-beginning-of-property (point) 'in-pod))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4831 (beginning-of-line 0)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4832 (if (looking-at "^[ \t]*\\(#\\|$\\)") nil ; Only comment, skip
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4833 ;; Else: last iteration, or a label
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4834 (cperl-to-comment-or-eol) ; Will not move past "." after a format
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4835 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4836 (if (< p (point)) (goto-char p))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4837 (setq p (point))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4838 (if (and (eq (preceding-char) ?:)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4839 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4840 (forward-char -1)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4841 (skip-chars-backward " \t\n\f" lim)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4842 (memq (char-syntax (preceding-char)) '(?w ?_))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4843 (forward-sexp -1) ; Possibly label. Skip it
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4844 (goto-char p)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4845 (setq stop t))))
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
4846 (or (bobp) ; ???? Needed
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
4847 (eq (point) lim)
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
4848 (looking-at "[ \t]*__\\(END\\|DATA\\)__") ; After this anything goes
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4849 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4850 (if test (eval test)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4851 (or (memq (preceding-char) (append (or chars "{;") nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4852 (and (eq (preceding-char) ?\})
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4853 (cperl-after-block-p lim))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4854 (and (eq (following-char) ?.) ; in format: see comment above
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4855 (eq (get-text-property (point) 'syntax-type)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4856 'format)))))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4857
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4858 (defun cperl-backward-to-start-of-expr (&optional lim)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4859 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4860 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4861 (while (and (or (not lim)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4862 (> (point) lim))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4863 (not (cperl-after-expr-p lim)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4864 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4865 ;; May be after $, @, $# etc of a variable
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4866 (skip-chars-backward "$@%#")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4867 (error nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4868
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4869 (defun cperl-at-end-of-expr (&optional lim)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4870 ;; Since the SEXP approach below is very fragile, do some overengineering
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4871 (or (looking-at (concat cperl-maybe-white-and-comment-rex "[;}]"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4872 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4873 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4874 ;; If nothing interesting after, does as (forward-sexp -1);
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4875 ;; otherwise fails, or ends at a start of following sexp.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4876 ;; XXXX PROBLEMS: if what follows (after ";") @FOO, or ${bar}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4877 ;; may be stuck after @ or $; just put some stupid workaround now:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4878 (let ((p (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4879 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4880 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4881 (while (memq (preceding-char) (append "%&@$*" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4882 (forward-char -1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4883 (or (< (point) p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4884 (cperl-after-expr-p lim))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4885 (error t))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4886
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4887 (defun cperl-forward-to-end-of-expr (&optional lim)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4888 (let ((p (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4889 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4890 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4891 (while (and (< (point) (or lim (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4892 (not (cperl-at-end-of-expr)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4893 (forward-sexp 1)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4894 (error nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4895
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4896 (defun cperl-backward-to-start-of-continued-exp (lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4897 (if (memq (preceding-char) (append ")]}\"'`" nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4898 (forward-sexp -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4899 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4900 (if (<= (point) lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4901 (goto-char (1+ lim)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4902 (skip-chars-forward " \t"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4903
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4904 (defun cperl-after-block-and-statement-beg (lim)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4905 ;; We assume that we are after ?\}
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4906 (and
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4907 (cperl-after-block-p lim)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4908 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4909 (forward-sexp -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4910 (cperl-backward-to-noncomment (point-min))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4911 (or (bobp)
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
4912 (eq (point) lim)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4913 (not (= (char-syntax (preceding-char)) ?w))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4914 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4915 (forward-sexp -1)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4916 (not
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4917 (looking-at
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4918 "\\(map\\|grep\\|printf?\\|system\\|exec\\|tr\\|s\\)\\>")))))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4919
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4920
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4921 (defun cperl-indent-exp ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4922 "Simple variant of indentation of continued-sexp.
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4923
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4924 Will not indent comment if it starts at `comment-indent' or looks like
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4925 continuation of the comment on the previous line.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4926
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4927 If `cperl-indent-region-fix-constructs', will improve spacing on
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4928 conditional/loop constructs."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4929 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4930 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4931 (let ((tmp-end (progn (end-of-line) (point))) top done)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4932 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4933 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4934 (while (null done)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4935 (setq top (point))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4936 ;; Plan A: if line has an unfinished paren-group, go to end-of-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4937 (while (= -1 (nth 0 (parse-partial-sexp (point) tmp-end -1)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4938 (setq top (point))) ; Get the outermost parenths in line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4939 (goto-char top)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4940 (while (< (point) tmp-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4941 (parse-partial-sexp (point) tmp-end nil t) ; To start-sexp or eol
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4942 (or (eolp) (forward-sexp 1)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4943 (if (> (point) tmp-end) ; Yes, there an unfinished block
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4944 nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4945 (if (eq ?\) (preceding-char))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4946 (progn ;; Plan B: find by REGEXP block followup this line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4947 (setq top (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4948 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4949 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4950 (forward-sexp -2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4951 (if (eq (following-char) ?$ ) ; for my $var (list)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4952 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4953 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4954 (if (looking-at "\\(my\\|local\\|our\\)\\>")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4955 (forward-sexp -1))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4956 (if (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4957 (concat "\\(\\elsif\\|if\\|unless\\|while\\|until"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4958 "\\|for\\(each\\)?\\>\\(\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4959 cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4960 "\\(my\\|local\\|our\\)\\)?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4961 cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4962 "\\$[_a-zA-Z0-9]+\\)?\\)\\>"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4963 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4964 (goto-char top)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4965 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4966 (setq top (point)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4967 (error (setq done t)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4968 (goto-char top))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4969 (if (looking-at ; Try Plan C: continuation block
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4970 (concat cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4971 "\\<\\(else\\|elsif\|continue\\)\\>"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4972 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4973 (goto-char (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4974 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4975 (end-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4976 (setq tmp-end (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4977 (setq done t))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4978 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4979 (end-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4980 (setq tmp-end (point))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4981 (goto-char tmp-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4982 (setq tmp-end (point-marker)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4983 (if cperl-indent-region-fix-constructs
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4984 (cperl-fix-line-spacing tmp-end))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4985 (cperl-indent-region (point) tmp-end))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4986
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4987 (defun cperl-fix-line-spacing (&optional end parse-data)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4988 "Improve whitespace in a conditional/loop construct.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4989 Returns some position at the last line."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4990 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4991 (or end
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4992 (setq end (point-max)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4993 (let ((ee (save-excursion (end-of-line) (point)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4994 (cperl-indent-region-fix-constructs
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4995 (or cperl-indent-region-fix-constructs 1))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4996 p pp ml have-brace ret)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4997 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4998 (beginning-of-line)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4999 (setq ret (point))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5000 ;; }? continue
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5001 ;; blah; }
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5002 (if (not
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5003 (or (looking-at "[ \t]*\\(els\\(e\\|if\\)\\|continue\\|if\\|while\\|for\\(each\\)?\\|until\\)")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5004 (setq have-brace (save-excursion (search-forward "}" ee t)))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5005 nil ; Do not need to do anything
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5006 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5007 ;; }
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5008 ;; else
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5009 (if cperl-merge-trailing-else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5010 (if (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5011 "[ \t]*}[ \t]*\n[ \t\n]*\\(els\\(e\\|if\\)\\|continue\\)\\>")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5012 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5013 (search-forward "}")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5014 (setq p (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5015 (skip-chars-forward " \t\n")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5016 (delete-region p (point))
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5017 (insert (make-string cperl-indent-region-fix-constructs ?\s))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5018 (beginning-of-line)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5019 (if (looking-at "[ \t]*}[ \t]*\\(els\\(e\\|if\\)\\|continue\\)\\>")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5020 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5021 (search-forward "}")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5022 (delete-horizontal-space)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5023 (insert "\n")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5024 (setq ret (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5025 (if (cperl-indent-line parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5026 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5027 (cperl-fix-line-spacing end parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5028 (setq ret (point)))))))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5029 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5030 ;; } else
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5031 (if (looking-at "[ \t]*}\\(\t*\\|[ \t][ \t]+\\)\\<\\(els\\(e\\|if\\)\\|continue\\)\\>")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5032 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5033 (search-forward "}")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5034 (delete-horizontal-space)
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5035 (insert (make-string cperl-indent-region-fix-constructs ?\s))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5036 (beginning-of-line)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5037 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5038 ;; else {
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5039 (if (looking-at
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5040 "[ \t]*}?[ \t]*\\<\\(\\els\\(e\\|if\\)\\|continue\\|unless\\|if\\|while\\|for\\(each\\)?\\|until\\)\\>\\(\t*\\|[ \t][ \t]+\\)[^ \t\n#]")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5041 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5042 (forward-word 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5043 (delete-horizontal-space)
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5044 (insert (make-string cperl-indent-region-fix-constructs ?\s))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5045 (beginning-of-line)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5046 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5047 ;; foreach my $var
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5048 (if (looking-at
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5049 "[ \t]*\\<for\\(each\\)?[ \t]+\\(my\\|local\\|our\\)\\(\t*\\|[ \t][ \t]+\\)[^ \t\n]")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5050 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5051 (forward-word 2)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5052 (delete-horizontal-space)
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5053 (insert (make-string cperl-indent-region-fix-constructs ?\s))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5054 (beginning-of-line)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5055 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5056 ;; foreach my $var (
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5057 (if (looking-at
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5058 "[ \t]*\\<for\\(each\\)?[ \t]+\\(my\\|local\\|our\\)[ \t]*\\$[_a-zA-Z0-9]+\\(\t*\\|[ \t][ \t]+\\)[^ \t\n#]")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5059 (progn
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
5060 (forward-sexp 3)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5061 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5062 (insert
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5063 (make-string cperl-indent-region-fix-constructs ?\s))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5064 (beginning-of-line)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5065 ;; Looking at (with or without "}" at start, ending after "({"):
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5066 ;; } foreach my $var () OR {
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5067 (if (looking-at
44446
9b08deb1030e (cperl-make-face, cperl-force-face):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43943
diff changeset
5068 "[ \t]*\\(}[ \t]*\\)?\\<\\(\\els\\(e\\|if\\)\\|continue\\|if\\|unless\\|while\\|for\\(each\\)?\\(\\([ \t]+\\(my\\|local\\|our\\)\\)?[ \t]*\\$[_a-zA-Z0-9]+\\)?\\|until\\)\\>\\([ \t]*(\\|[ \t\n]*{\\)\\|[ \t]*{")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5069 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5070 (setq ml (match-beginning 8)) ; "(" or "{" after control word
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5071 (re-search-forward "[({]")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5072 (forward-char -1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5073 (setq p (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5074 (if (eq (following-char) ?\( )
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5075 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5076 (forward-sexp 1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5077 (setq pp (point))) ; past parenth-group
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5078 ;; after `else' or nothing
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5079 (if ml ; after `else'
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5080 (skip-chars-backward " \t\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5081 (beginning-of-line))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5082 (setq pp nil))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5083 ;; Now after the sexp before the brace
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5084 ;; Multiline expr should be special
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5085 (setq ml (and pp (save-excursion (goto-char p)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5086 (search-forward "\n" pp t))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5087 (if (and (or (not pp) (< pp end)) ; Do not go too far...
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5088 (looking-at "[ \t\n]*{"))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5089 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5090 (cond
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5091 ((bolp) ; Were before `{', no if/else/etc
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5092 nil)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5093 ((looking-at "\\(\t*\\| [ \t]+\\){") ; Not exactly 1 SPACE
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5094 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5095 (if (if ml
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5096 cperl-extra-newline-before-brace-multiline
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5097 cperl-extra-newline-before-brace)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5098 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5099 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5100 (insert "\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5101 (setq ret (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5102 (if (cperl-indent-line parse-data)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5103 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5104 (cperl-fix-line-spacing end parse-data)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5105 (setq ret (point)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5106 (insert
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5107 (make-string cperl-indent-region-fix-constructs ?\s))))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5108 ((and (looking-at "[ \t]*\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5109 (not (if ml
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5110 cperl-extra-newline-before-brace-multiline
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5111 cperl-extra-newline-before-brace)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5112 (setq pp (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5113 (skip-chars-forward " \t\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5114 (delete-region pp (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5115 (insert
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5116 (make-string cperl-indent-region-fix-constructs ?\ )))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5117 ((and (looking-at "[\t ]*{")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5118 (if ml cperl-extra-newline-before-brace-multiline
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5119 cperl-extra-newline-before-brace))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5120 (delete-horizontal-space)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5121 (insert "\n")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5122 (setq ret (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5123 (if (cperl-indent-line parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5124 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5125 (cperl-fix-line-spacing end parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5126 (setq ret (point))))))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5127 ;; Now we are before `{'
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5128 (if (looking-at "[ \t\n]*{[ \t]*[^ \t\n#]")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5129 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5130 (skip-chars-forward " \t\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5131 (setq pp (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5132 (forward-sexp 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5133 (setq p (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5134 (goto-char pp)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5135 (setq ml (search-forward "\n" p t))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5136 (if (or cperl-break-one-line-blocks-when-indent ml)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5137 ;; not good: multi-line BLOCK
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5138 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5139 (goto-char (1+ pp))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5140 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5141 (insert "\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5142 (setq ret (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5143 (if (cperl-indent-line parse-data)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5144 (setq ret (cperl-fix-line-spacing end parse-data)))))))))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5145 (beginning-of-line)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5146 (setq p (point) pp (save-excursion (end-of-line) (point))) ; May be different from ee.
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5147 ;; Now check whether there is a hanging `}'
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5148 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5149 ;; } blah
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5150 (if (and
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5151 cperl-fix-hanging-brace-when-indent
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5152 have-brace
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5153 (not (looking-at "[ \t]*}[ \t]*\\(\\<\\(els\\(if\\|e\\)\\|continue\\|while\\|until\\)\\>\\|$\\|#\\)"))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5154 (condition-case nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5155 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5156 (up-list 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5157 (if (and (<= (point) pp)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5158 (eq (preceding-char) ?\} )
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5159 (cperl-after-block-and-statement-beg (point-min)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5160 t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5161 (goto-char p)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5162 nil))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5163 (error nil)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5164 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5165 (forward-char -1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5166 (skip-chars-backward " \t")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5167 (if (bolp)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5168 ;; `}' was the first thing on the line, insert NL *after* it.
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5169 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5170 (cperl-indent-line parse-data)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5171 (search-forward "}")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5172 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5173 (insert "\n"))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5174 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5175 (or (eq (preceding-char) ?\;)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5176 (bolp)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5177 (and (eq (preceding-char) ?\} )
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5178 (cperl-after-block-p (point-min)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5179 (insert ";"))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5180 (insert "\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5181 (setq ret (point)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5182 (if (cperl-indent-line parse-data)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5183 (setq ret (cperl-fix-line-spacing end parse-data)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5184 (beginning-of-line)))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5185 ret))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5186
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5187 (defvar cperl-update-start) ; Do not need to make them local
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5188 (defvar cperl-update-end)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5189 (defun cperl-delay-update-hook (beg end old-len)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5190 (setq cperl-update-start (min beg (or cperl-update-start (point-max))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5191 (setq cperl-update-end (max end (or cperl-update-end (point-min)))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5192
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5193 (defun cperl-indent-region (start end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5194 "Simple variant of indentation of region in CPerl mode.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5195 Should be slow. Will not indent comment if it starts at `comment-indent'
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5196 or looks like continuation of the comment on the previous line.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5197 Indents all the lines whose first character is between START and END
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5198 inclusive.
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5199
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5200 If `cperl-indent-region-fix-constructs', will improve spacing on
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5201 conditional/loop constructs."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5202 (interactive "r")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5203 (cperl-update-syntaxification end end)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5204 (save-excursion
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5205 (let (cperl-update-start cperl-update-end (h-a-c after-change-functions))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5206 (let ((indent-info (if cperl-emacs-can-parse
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5207 (list nil nil nil) ; Cannot use '(), since will modify
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5208 nil))
58356
4ca1b78a471f (cperl-indent-region): Don't mind imenu-scanning-message.
Richard M. Stallman <rms@gnu.org>
parents: 58190
diff changeset
5209 (pm 0)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5210 after-change-functions ; Speed it up!
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5211 st comm old-comm-indent new-comm-indent p pp i empty)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5212 (if h-a-c (add-hook 'after-change-functions 'cperl-delay-update-hook))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5213 (goto-char start)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5214 (setq old-comm-indent (and (cperl-to-comment-or-eol)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5215 (current-column))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5216 new-comm-indent old-comm-indent)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5217 (goto-char start)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5218 (setq end (set-marker (make-marker) end)) ; indentation changes pos
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5219 (or (bolp) (beginning-of-line 2))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5220 (while (and (<= (point) end) (not (eobp))) ; bol to check start
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5221 (setq st (point))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5222 (if (or
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5223 (setq empty (looking-at "[ \t]*\n"))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5224 (and (setq comm (looking-at "[ \t]*#"))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5225 (or (eq (current-indentation) (or old-comm-indent
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5226 comment-column))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5227 (setq old-comm-indent nil))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5228 (if (and old-comm-indent
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5229 (not empty)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5230 (= (current-indentation) old-comm-indent)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5231 (not (eq (get-text-property (point) 'syntax-type) 'pod))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5232 (not (eq (get-text-property (point) 'syntax-table)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5233 cperl-st-cfence)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5234 (let ((comment-column new-comm-indent))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5235 (indent-for-comment)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5236 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5237 (setq i (cperl-indent-line indent-info))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5238 (or comm
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5239 (not i)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5240 (progn
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5241 (if cperl-indent-region-fix-constructs
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5242 (goto-char (cperl-fix-line-spacing end indent-info)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5243 (if (setq old-comm-indent
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5244 (and (cperl-to-comment-or-eol)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5245 (not (memq (get-text-property (point)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5246 'syntax-type)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5247 '(pod here-doc)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5248 (not (eq (get-text-property (point)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5249 'syntax-table)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5250 cperl-st-cfence))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5251 (current-column)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5252 (progn (indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5253 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5254 (skip-chars-backward "#")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5255 (setq new-comm-indent (current-column))))))))
58492
4edc8e8a8ed6 (cperl-indent-region, cperl-imenu--create-perl-index, cperl-xsub-scan):
Richard M. Stallman <rms@gnu.org>
parents: 58356
diff changeset
5256 (beginning-of-line 2)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5257 ;; Now run the update hooks
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5258 (and after-change-functions
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5259 cperl-update-end
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5260 (save-excursion
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5261 (goto-char cperl-update-end)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5262 (insert " ")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5263 (delete-char -1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5264 (goto-char cperl-update-start)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5265 (insert " ")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5266 (delete-char -1))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5267
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5268 ;; Stolen from lisp-mode with a lot of improvements
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5269
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5270 (defun cperl-fill-paragraph (&optional justify iteration)
53779
5b728a418323 (cperl-mode-map, cperl-do-auto-fill, cperl-menu): Use fill-paragraph,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
5271 "Like `fill-paragraph', but handle CPerl comments.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5272 If any of the current line is a comment, fill the comment or the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5273 block of it that point is in, preserving the comment's initial
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5274 indentation and initial hashes. Behaves usually outside of comment."
53779
5b728a418323 (cperl-mode-map, cperl-do-auto-fill, cperl-menu): Use fill-paragraph,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
5275 ;; (interactive "P") ; Only works when called from fill-paragraph. -stef
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5276 (let (;; Non-nil if the current line contains a comment.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5277 has-comment
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5278 fill-paragraph-function ; do not recurse
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5279 ;; If has-comment, the appropriate fill-prefix for the comment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5280 comment-fill-prefix
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5281 ;; Line that contains code and comment (or nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5282 start
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5283 c spaces len dc (comment-column comment-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5284 ;; Figure out what kind of comment we are looking at.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5285 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5286 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5287 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5288
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5289 ;; A line with nothing but a comment on it?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5290 ((looking-at "[ \t]*#[# \t]*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5291 (setq has-comment t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5292 comment-fill-prefix (buffer-substring (match-beginning 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5293 (match-end 0))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5294
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5295 ;; A line with some code, followed by a comment? Remember that the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5296 ;; semi which starts the comment shouldn't be part of a string or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5297 ;; character.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5298 ((cperl-to-comment-or-eol)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5299 (setq has-comment t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5300 (looking-at "#+[ \t]*")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5301 (setq start (point) c (current-column)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5302 comment-fill-prefix
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5303 (concat (make-string (current-column) ?\s)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5304 (buffer-substring (match-beginning 0) (match-end 0)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5305 spaces (progn (skip-chars-backward " \t")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5306 (buffer-substring (point) start))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5307 dc (- c (current-column)) len (- start (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5308 start (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5309 (delete-char len)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5310 (insert (make-string dc ?-))))) ; Placeholder (to avoid splitting???)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5311 (if (not has-comment)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5312 (fill-paragraph justify) ; Do the usual thing outside of comment
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5313 ;; Narrow to include only the comment, and then fill the region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5314 (save-restriction
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5315 (narrow-to-region
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5316 ;; Find the first line we should include in the region to fill.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5317 (if start (progn (beginning-of-line) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5318 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5319 (while (and (zerop (forward-line -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5320 (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5321 ;; We may have gone to far. Go forward again.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5322 (or (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5323 (forward-line 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5324 (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5325 ;; Find the beginning of the first line past the region to fill.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5326 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5327 (while (progn (forward-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5328 (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5329 (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5330 ;; Remove existing hashes
53812
80c9f33653f7 (cperl-fill-paragraph): Call fill-paragraph
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53779
diff changeset
5331 (save-excursion
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5332 (goto-char (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5333 (while (progn (forward-line 1) (< (point) (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5334 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5335 (if (looking-at "#+")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5336 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5337 (if (and (eq (point) (match-beginning 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5338 (not (eq (point) (match-end 0)))) nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5339 (error
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5340 "Bug in Emacs: `looking-at' in `narrow-to-region': match-data is garbage"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5341 (delete-char (- (match-end 0) (match-beginning 0)))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5342
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5343 ;; Lines with only hashes on them can be paragraph boundaries.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5344 (let ((paragraph-start (concat paragraph-start "\\|^[ \t#]*$"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5345 (paragraph-separate (concat paragraph-start "\\|^[ \t#]*$"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5346 (fill-prefix comment-fill-prefix))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5347 (fill-paragraph justify)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5348 (if (and start)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5349 (progn
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5350 (goto-char start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5351 (if (> dc 0)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5352 (progn (delete-char dc) (insert spaces)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5353 (if (or (= (current-column) c) iteration) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5354 (setq comment-column c)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5355 (indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5356 ;; Repeat once more, flagging as iteration
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5357 (cperl-fill-paragraph justify t))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5358 t)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5359
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5360 (defun cperl-do-auto-fill ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5361 ;; Break out if the line is short enough
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5362 (if (> (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5363 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5364 (current-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5365 fill-column)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5366 (let ((c (save-excursion (beginning-of-line)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5367 (cperl-to-comment-or-eol) (point)))
63853
123dae8639ec (cperl-do-auto-fill): Change space constants followed by a sexp to "?\s ".
Juanma Barranquero <lekktu@gmail.com>
parents: 63836
diff changeset
5368 (s (memq (following-char) '(?\s ?\t))) marker)
53779
5b728a418323 (cperl-mode-map, cperl-do-auto-fill, cperl-menu): Use fill-paragraph,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
5369 (if (>= c (point))
5b728a418323 (cperl-mode-map, cperl-do-auto-fill, cperl-menu): Use fill-paragraph,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
5370 ;; Don't break line inside code: only inside comment.
5b728a418323 (cperl-mode-map, cperl-do-auto-fill, cperl-menu): Use fill-paragraph,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
5371 nil
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5372 (setq marker (point-marker))
53779
5b728a418323 (cperl-mode-map, cperl-do-auto-fill, cperl-menu): Use fill-paragraph,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
5373 (fill-paragraph nil)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5374 (goto-char marker)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5375 ;; Is not enough, sometimes marker is a start of line
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5376 (if (bolp) (progn (re-search-forward "#+[ \t]*")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5377 (goto-char (match-end 0))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5378 ;; Following space could have gone:
63853
123dae8639ec (cperl-do-auto-fill): Change space constants followed by a sexp to "?\s ".
Juanma Barranquero <lekktu@gmail.com>
parents: 63836
diff changeset
5379 (if (or (not s) (memq (following-char) '(?\s ?\t))) nil
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5380 (insert " ")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5381 (backward-char 1))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5382 ;; Previous space could have gone:
63853
123dae8639ec (cperl-do-auto-fill): Change space constants followed by a sexp to "?\s ".
Juanma Barranquero <lekktu@gmail.com>
parents: 63836
diff changeset
5383 (or (memq (preceding-char) '(?\s ?\t)) (insert " "))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5384
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5385 (defun cperl-imenu-addback (lst &optional isback name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5386 ;; We suppose that the lst is a DAG, unless the first element only
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5387 ;; loops back, and ISBACK is set. Thus this function cannot be
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5388 ;; applied twice without ISBACK set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5389 (cond ((not cperl-imenu-addback) lst)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5390 (t
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5391 (or name
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5392 (setq name "+++BACK+++"))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5393 (mapc (lambda (elt)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5394 (if (and (listp elt) (listp (cdr elt)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5395 (progn
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5396 ;; In the other order it goes up
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5397 ;; one level only ;-(
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5398 (setcdr elt (cons (cons name lst)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5399 (cdr elt)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5400 (cperl-imenu-addback (cdr elt) t name))))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5401 (if isback (cdr lst) lst))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5402 lst)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5403
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5404 (defun cperl-imenu--create-perl-index (&optional regexp)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5405 (require 'imenu) ; May be called from TAGS creator
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5406 (let ((index-alist '()) (index-pack-alist '()) (index-pod-alist '())
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5407 (index-unsorted-alist '()) (i-s-f (default-value 'imenu-sort-function))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5408 (index-meth-alist '()) meth
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5409 packages ends-ranges p marker is-proto
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5410 (prev-pos 0) is-pack index index1 name (end-range 0) package)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5411 (goto-char (point-min))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5412 (cperl-update-syntaxification (point-max) (point-max))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5413 ;; Search for the function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5414 (progn ;;save-match-data
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5415 (while (re-search-forward
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5416 (or regexp cperl-imenu--function-name-regexp-perl)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5417 nil t)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5418 ;; 2=package-group, 5=package-name 8=sub-name
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5419 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5420 ((and ; Skip some noise if building tags
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5421 (match-beginning 5) ; package name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5422 ;;(eq (char-after (match-beginning 2)) ?p) ; package
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5423 (not (save-match-data
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5424 (looking-at "[ \t\n]*;")))) ; Plain text word 'package'
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5425 nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5426 ((and
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5427 (or (match-beginning 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5428 (match-beginning 8)) ; package or sub
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5429 ;; Skip if quoted (will not skip multi-line ''-strings :-():
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5430 (null (get-text-property (match-beginning 1) 'syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5431 (null (get-text-property (match-beginning 1) 'syntax-type))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5432 (null (get-text-property (match-beginning 1) 'in-pod)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5433 (setq is-pack (match-beginning 2))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5434 ;; (if (looking-at "([^()]*)[ \t\n\f]*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5435 ;; (goto-char (match-end 0))) ; Messes what follows
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5436 (setq meth nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5437 p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5438 (while (and ends-ranges (>= p (car ends-ranges)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5439 ;; delete obsolete entries
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5440 (setq ends-ranges (cdr ends-ranges) packages (cdr packages)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5441 (setq package (or (car packages) "")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5442 end-range (or (car ends-ranges) 0))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5443 (if is-pack ; doing "package"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5444 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5445 (if (match-beginning 5) ; named package
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5446 (setq name (buffer-substring (match-beginning 5)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5447 (match-end 5))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5448 name (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5449 (set-text-properties 0 (length name) nil name)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5450 name)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5451 package (concat name "::")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5452 name (concat "package " name))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5453 ;; Support nameless packages
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5454 (setq name "package;" package ""))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5455 (setq end-range
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5456 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5457 (parse-partial-sexp (point) (point-max) -1) (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5458 ends-ranges (cons end-range ends-ranges)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5459 packages (cons package packages)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5460 (setq is-proto
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5461 (or (eq (following-char) ?\;)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5462 (eq 0 (get-text-property (point) 'attrib-group)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5463 ;; Skip this function name if it is a prototype declaration.
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5464 (if (and is-proto (not is-pack)) nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5465 (or is-pack
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5466 (setq name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5467 (buffer-substring (match-beginning 8) (match-end 8)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5468 (set-text-properties 0 (length name) nil name))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5469 (setq marker (make-marker))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5470 (set-marker marker (match-end (if is-pack 2 8)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5471 (cond (is-pack nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5472 ((string-match "[:']" name)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5473 (setq meth t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5474 ((> p end-range) nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5475 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5476 (setq name (concat package name) meth t)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5477 (setq index (cons name marker))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5478 (if is-pack
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5479 (push index index-pack-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5480 (push index index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5481 (if meth (push index index-meth-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5482 (push index index-unsorted-alist)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5483 ((match-beginning 16) ; POD section
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5484 (setq name (buffer-substring (match-beginning 17) (match-end 17))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5485 marker (make-marker))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5486 (set-marker marker (match-beginning 17))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5487 (set-text-properties 0 (length name) nil name)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5488 (setq name (concat (make-string
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5489 (* 3 (- (char-after (match-beginning 16)) ?1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5490 ?\ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5491 name)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5492 index (cons name marker))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5493 (setq index1 (cons (concat "=" name) (cdr index)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5494 (push index index-pod-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5495 (push index1 index-unsorted-alist)))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5496 (setq index-alist
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5497 (if (default-value 'imenu-sort-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5498 (sort index-alist (default-value 'imenu-sort-function))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5499 (nreverse index-alist)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5500 (and index-pod-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5501 (push (cons "+POD headers+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5502 (nreverse index-pod-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5503 index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5504 (and (or index-pack-alist index-meth-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5505 (let ((lst index-pack-alist) hier-list pack elt group name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5506 ;; Remove "package ", reverse and uniquify.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5507 (while lst
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5508 (setq elt (car lst) lst (cdr lst) name (substring (car elt) 8))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5509 (if (assoc name hier-list) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5510 (setq hier-list (cons (cons name (cdr elt)) hier-list))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5511 (setq lst index-meth-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5512 (while lst
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5513 (setq elt (car lst) lst (cdr lst))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5514 (cond ((string-match "\\(::\\|'\\)[_a-zA-Z0-9]+$" (car elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5515 (setq pack (substring (car elt) 0 (match-beginning 0)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5516 (if (setq group (assoc pack hier-list))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5517 (if (listp (cdr group))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5518 ;; Have some functions already
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5519 (setcdr group
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5520 (cons (cons (substring
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5521 (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5522 (+ 2 (match-beginning 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5523 (cdr elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5524 (cdr group)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5525 (setcdr group (list (cons (substring
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5526 (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5527 (+ 2 (match-beginning 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5528 (cdr elt)))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5529 (setq hier-list
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5530 (cons (cons pack
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5531 (list (cons (substring
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5532 (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5533 (+ 2 (match-beginning 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5534 (cdr elt))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5535 hier-list))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5536 (push (cons "+Hierarchy+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5537 hier-list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5538 index-alist)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5539 (and index-pack-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5540 (push (cons "+Packages+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5541 (nreverse index-pack-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5542 index-alist))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5543 (and (or index-pack-alist index-pod-alist
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5544 (default-value 'imenu-sort-function))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5545 index-unsorted-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5546 (push (cons "+Unsorted List+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5547 (nreverse index-unsorted-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5548 index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5549 (cperl-imenu-addback index-alist)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5550
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5551
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5552 ;; Suggested by Mark A. Hershberger
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5553 (defun cperl-outline-level ()
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5554 (looking-at outline-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5555 (cond ((not (match-beginning 1)) 0) ; beginning-of-file
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5556 ;;;; 2=package-group, 5=package-name 8=sub-name 16=head-level
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5557 ((match-beginning 2) 0) ; package
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5558 ((match-beginning 8) 1) ; sub
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5559 ((match-beginning 16)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5560 (- (char-after (match-beginning 16)) ?0)) ; headN ==> N
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5561 (t 5))) ; should not happen
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5562
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5563
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5564 (defun cperl-windowed-init ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5565 "Initialization under windowed version."
73457
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5566 (cond ((featurep 'ps-print)
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
5567 (or cperl-faces-init
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
5568 (progn
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
5569 (and (boundp 'font-lock-multiline)
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
5570 (setq cperl-font-lock-multiline t))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
5571 (cperl-init-faces))))
73457
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5572 ((not cperl-faces-init)
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5573 (add-hook 'font-lock-mode-hook
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5574 (function
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5575 (lambda ()
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5576 (if (memq major-mode '(perl-mode cperl-mode))
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5577 (progn
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5578 (or cperl-faces-init (cperl-init-faces)))))))
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5579 (if (fboundp 'eval-after-load)
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5580 (eval-after-load
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5581 "ps-print"
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5582 '(or cperl-faces-init (cperl-init-faces)))))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5583
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5584 (defvar cperl-font-lock-keywords-1 nil
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5585 "Additional expressions to highlight in Perl mode. Minimal set.")
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5586 (defvar cperl-font-lock-keywords nil
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5587 "Additional expressions to highlight in Perl mode. Default set.")
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5588 (defvar cperl-font-lock-keywords-2 nil
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5589 "Additional expressions to highlight in Perl mode. Maximal set")
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5590
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5591 (defun cperl-load-font-lock-keywords ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5592 (or cperl-faces-init (cperl-init-faces))
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5593 cperl-font-lock-keywords)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5594
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5595 (defun cperl-load-font-lock-keywords-1 ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5596 (or cperl-faces-init (cperl-init-faces))
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5597 cperl-font-lock-keywords-1)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5598
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5599 (defun cperl-load-font-lock-keywords-2 ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5600 (or cperl-faces-init (cperl-init-faces))
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5601 cperl-font-lock-keywords-2)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5602
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5603 (defun cperl-init-faces-weak ()
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5604 ;; Allow `cperl-find-pods-heres' to run.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5605 (or (boundp 'font-lock-constant-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5606 (cperl-force-face font-lock-constant-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5607 "Face for constant and label names"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5608 (or (boundp 'font-lock-warning-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5609 (cperl-force-face font-lock-warning-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5610 "Face for things which should stand out"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5611 ;;(setq font-lock-constant-face 'font-lock-constant-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5612 )
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5613
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5614 (defun cperl-init-faces ()
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5615 (condition-case errs
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5616 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5617 (require 'font-lock)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5618 (and (fboundp 'font-lock-fontify-anchored-keywords)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5619 (featurep 'font-lock-extra)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5620 (message "You have an obsolete package `font-lock-extra'. Install `choose-color'."))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5621 (let (t-font-lock-keywords t-font-lock-keywords-1 font-lock-anchored)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5622 (if (fboundp 'font-lock-fontify-anchored-keywords)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5623 (setq font-lock-anchored t))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5624 (setq
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5625 t-font-lock-keywords
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5626 (list
35013
587807c5e8e6 (cperl-invalid-face): Don't double-quote
Dave Love <fx@gnu.org>
parents: 32880
diff changeset
5627 `("[ \t]+$" 0 ',cperl-invalid-face t)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5628 (cons
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5629 (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5630 "\\(^\\|[^$@%&\\]\\)\\<\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5631 (mapconcat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5632 'identity
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5633 '("if" "until" "while" "elsif" "else" "unless" "for"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5634 "foreach" "continue" "exit" "die" "last" "goto" "next"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5635 "redo" "return" "local" "exec" "sub" "do" "dump" "use" "our"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5636 "require" "package" "eval" "my" "BEGIN" "END" "CHECK" "INIT")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5637 "\\|") ; Flow control
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5638 "\\)\\>") 2) ; was "\\)[ \n\t;():,\|&]"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5639 ; In what follows we use `type' style
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5640 ; for overwritable builtins
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5641 (list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5642 (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5643 "\\(^\\|[^$@%&\\]\\)\\<\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5644 ;; "CORE" "__FILE__" "__LINE__" "abs" "accept" "alarm"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5645 ;; "and" "atan2" "bind" "binmode" "bless" "caller"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5646 ;; "chdir" "chmod" "chown" "chr" "chroot" "close"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5647 ;; "closedir" "cmp" "connect" "continue" "cos" "crypt"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5648 ;; "dbmclose" "dbmopen" "die" "dump" "endgrent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5649 ;; "endhostent" "endnetent" "endprotoent" "endpwent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5650 ;; "endservent" "eof" "eq" "exec" "exit" "exp" "fcntl"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5651 ;; "fileno" "flock" "fork" "formline" "ge" "getc"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5652 ;; "getgrent" "getgrgid" "getgrnam" "gethostbyaddr"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5653 ;; "gethostbyname" "gethostent" "getlogin"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5654 ;; "getnetbyaddr" "getnetbyname" "getnetent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5655 ;; "getpeername" "getpgrp" "getppid" "getpriority"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5656 ;; "getprotobyname" "getprotobynumber" "getprotoent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5657 ;; "getpwent" "getpwnam" "getpwuid" "getservbyname"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5658 ;; "getservbyport" "getservent" "getsockname"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5659 ;; "getsockopt" "glob" "gmtime" "gt" "hex" "index" "int"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5660 ;; "ioctl" "join" "kill" "lc" "lcfirst" "le" "length"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5661 ;; "link" "listen" "localtime" "lock" "log" "lstat" "lt"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5662 ;; "mkdir" "msgctl" "msgget" "msgrcv" "msgsnd" "ne"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5663 ;; "not" "oct" "open" "opendir" "or" "ord" "pack" "pipe"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5664 ;; "quotemeta" "rand" "read" "readdir" "readline"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5665 ;; "readlink" "readpipe" "recv" "ref" "rename" "require"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5666 ;; "reset" "reverse" "rewinddir" "rindex" "rmdir" "seek"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5667 ;; "seekdir" "select" "semctl" "semget" "semop" "send"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5668 ;; "setgrent" "sethostent" "setnetent" "setpgrp"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5669 ;; "setpriority" "setprotoent" "setpwent" "setservent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5670 ;; "setsockopt" "shmctl" "shmget" "shmread" "shmwrite"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5671 ;; "shutdown" "sin" "sleep" "socket" "socketpair"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5672 ;; "sprintf" "sqrt" "srand" "stat" "substr" "symlink"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5673 ;; "syscall" "sysopen" "sysread" "system" "syswrite" "tell"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5674 ;; "telldir" "time" "times" "truncate" "uc" "ucfirst"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5675 ;; "umask" "unlink" "unpack" "utime" "values" "vec"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5676 ;; "wait" "waitpid" "wantarray" "warn" "write" "x" "xor"
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5677 "a\\(bs\\|ccept\\|tan2\\|larm\\|nd\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5678 "b\\(in\\(d\\|mode\\)\\|less\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5679 "c\\(h\\(r\\(\\|oot\\)\\|dir\\|mod\\|own\\)\\|aller\\|rypt\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5680 "lose\\(\\|dir\\)\\|mp\\|o\\(s\\|n\\(tinue\\|nect\\)\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5681 "CORE\\|d\\(ie\\|bm\\(close\\|open\\)\\|ump\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5682 "e\\(x\\(p\\|it\\|ec\\)\\|q\\|nd\\(p\\(rotoent\\|went\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5683 "hostent\\|servent\\|netent\\|grent\\)\\|of\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5684 "f\\(ileno\\|cntl\\|lock\\|or\\(k\\|mline\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5685 "g\\(t\\|lob\\|mtime\\|e\\(\\|t\\(p\\(pid\\|r\\(iority\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5686 "oto\\(byn\\(ame\\|umber\\)\\|ent\\)\\)\\|eername\\|w"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5687 "\\(uid\\|ent\\|nam\\)\\|grp\\)\\|host\\(by\\(addr\\|name\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5688 "ent\\)\\|s\\(erv\\(by\\(port\\|name\\)\\|ent\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5689 "ock\\(name\\|opt\\)\\)\\|c\\|login\\|net\\(by\\(addr\\|name\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5690 "ent\\)\\|gr\\(ent\\|nam\\|gid\\)\\)\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5691 "hex\\|i\\(n\\(t\\|dex\\)\\|octl\\)\\|join\\|kill\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5692 "l\\(i\\(sten\\|nk\\)\\|stat\\|c\\(\\|first\\)\\|t\\|e"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5693 "\\(\\|ngth\\)\\|o\\(c\\(altime\\|k\\)\\|g\\)\\)\\|m\\(sg\\(rcv\\|snd\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5694 "ctl\\|get\\)\\|kdir\\)\\|n\\(e\\|ot\\)\\|o\\(pen\\(\\|dir\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5695 "r\\(\\|d\\)\\|ct\\)\\|p\\(ipe\\|ack\\)\\|quotemeta\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5696 "r\\(index\\|and\\|mdir\\|e\\(quire\\|ad\\(pipe\\|\\|lin"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5697 "\\(k\\|e\\)\\|dir\\)\\|set\\|cv\\|verse\\|f\\|winddir\\|name"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5698 "\\)\\)\\|s\\(printf\\|qrt\\|rand\\|tat\\|ubstr\\|e\\(t\\(p\\(r"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5699 "\\(iority\\|otoent\\)\\|went\\|grp\\)\\|hostent\\|s\\(ervent\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5700 "ockopt\\)\\|netent\\|grent\\)\\|ek\\(\\|dir\\)\\|lect\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5701 "m\\(ctl\\|op\\|get\\)\\|nd\\)\\|h\\(utdown\\|m\\(read\\|ctl\\|"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5702 "write\\|get\\)\\)\\|y\\(s\\(read\\|call\\|open\\|tem\\|write\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5703 "mlink\\)\\|in\\|leep\\|ocket\\(pair\\|\\)\\)\\|t\\(runcate\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5704 "ell\\(\\|dir\\)\\|ime\\(\\|s\\)\\)\\|u\\(c\\(\\|first\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5705 "time\\|mask\\|n\\(pack\\|link\\)\\)\\|v\\(alues\\|ec\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5706 "w\\(a\\(rn\\|it\\(pid\\|\\)\\|ntarray\\)\\|rite\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5707 "x\\(\\|or\\)\\|__\\(FILE__\\|LINE__\\|PACKAGE__\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5708 "\\)\\>") 2 'font-lock-type-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5709 ;; In what follows we use `other' style
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5710 ;; for nonoverwritable builtins
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5711 ;; Somehow 's', 'm' are not auto-generated???
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5712 (list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5713 (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5714 "\\(^\\|[^$@%&\\]\\)\\<\\("
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5715 ;; "AUTOLOAD" "BEGIN" "CHECK" "DESTROY" "END" "INIT" "__END__" "chomp"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5716 ;; "chop" "defined" "delete" "do" "each" "else" "elsif"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5717 ;; "eval" "exists" "for" "foreach" "format" "goto"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5718 ;; "grep" "if" "keys" "last" "local" "map" "my" "next"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5719 ;; "no" "our" "package" "pop" "pos" "print" "printf" "push"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5720 ;; "q" "qq" "qw" "qx" "redo" "return" "scalar" "shift"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5721 ;; "sort" "splice" "split" "study" "sub" "tie" "tr"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5722 ;; "undef" "unless" "unshift" "untie" "until" "use"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5723 ;; "while" "y"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5724 "AUTOLOAD\\|BEGIN\\|CHECK\\|cho\\(p\\|mp\\)\\|d\\(e\\(fined\\|lete\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5725 "o\\)\\|DESTROY\\|e\\(ach\\|val\\|xists\\|ls\\(e\\|if\\)\\)\\|"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5726 "END\\|for\\(\\|each\\|mat\\)\\|g\\(rep\\|oto\\)\\|INIT\\|if\\|keys\\|"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5727 "l\\(ast\\|ocal\\)\\|m\\(ap\\|y\\)\\|n\\(ext\\|o\\)\\|our\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5728 "p\\(ackage\\|rint\\(\\|f\\)\\|ush\\|o\\(p\\|s\\)\\)\\|"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5729 "q\\(\\|q\\|w\\|x\\|r\\)\\|re\\(turn\\|do\\)\\|s\\(pli\\(ce\\|t\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5730 "calar\\|tudy\\|ub\\|hift\\|ort\\)\\|t\\(r\\|ie\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5731 "u\\(se\\|n\\(shift\\|ti\\(l\\|e\\)\\|def\\|less\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5732 "while\\|y\\|__\\(END\\|DATA\\)__" ;__DATA__ added manually
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5733 "\\|[sm]" ; Added manually
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5734 "\\)\\>") 2 'cperl-nonoverridable-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5735 ;; (mapconcat 'identity
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5736 ;; '("#endif" "#else" "#ifdef" "#ifndef" "#if"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5737 ;; "#include" "#define" "#undef")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5738 ;; "\\|")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5739 '("-[rwxoRWXOezsfdlpSbctugkTBMAC]\\>\\([ \t]+_\\>\\)?" 0
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5740 font-lock-function-name-face keep) ; Not very good, triggers at "[a-z]"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5741 ;; This highlights declarations and definitions differenty.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5742 ;; We do not try to highlight in the case of attributes:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5743 ;; it is already done by `cperl-find-pods-heres'
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5744 (list (concat "\\<sub"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5745 cperl-white-and-comment-rex ; whitespace/comments
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5746 "\\([^ \n\t{;()]+\\)" ; 2=name (assume non-anonymous)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5747 "\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5748 cperl-maybe-white-and-comment-rex ;whitespace/comments?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5749 "([^()]*)\\)?" ; prototype
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5750 cperl-maybe-white-and-comment-rex ; whitespace/comments?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5751 "[{;]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5752 2 (if cperl-font-lock-multiline
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5753 '(if (eq (char-after (cperl-1- (match-end 0))) ?\{ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5754 'font-lock-function-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5755 'font-lock-variable-name-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5756 ;; need to manually set 'multiline' for older font-locks
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5757 '(progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5758 (if (< 1 (count-lines (match-beginning 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5759 (match-end 0)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5760 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5761 (+ 3 (match-beginning 0)) (match-end 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5762 'syntax-type 'multiline))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5763 (if (eq (char-after (cperl-1- (match-end 0))) ?\{ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5764 'font-lock-function-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5765 'font-lock-variable-name-face))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5766 '("\\<\\(package\\|require\\|use\\|import\\|no\\|bootstrap\\)[ \t]+\\([a-zA-z_][a-zA-z_0-9:]*\\)[ \t;]" ; require A if B;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5767 2 font-lock-function-name-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5768 '("^[ \t]*format[ \t]+\\([a-zA-z_][a-zA-z_0-9:]*\\)[ \t]*=[ \t]*$"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5769 1 font-lock-function-name-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5770 (cond ((featurep 'font-lock-extra)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5771 '("\\([]}\\\\%@>*&]\\|\\$[a-zA-Z0-9_:]*\\)[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5772 (2 font-lock-string-face t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5773 (0 '(restart 2 t)))) ; To highlight $a{bc}{ef}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5774 (font-lock-anchored
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5775 '("\\([]}\\\\%@>*&]\\|\\$[a-zA-Z0-9_:]*\\)[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5776 (2 font-lock-string-face t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5777 ("\\=[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5778 nil nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5779 (1 font-lock-string-face t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5780 (t '("\\([]}\\\\%@>*&]\\|\\$[a-zA-Z0-9_:]*\\)[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5781 2 font-lock-string-face t)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5782 '("[\[ \t{,(]\\(-?[a-zA-Z0-9_:]+\\)[ \t]*=>" 1
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5783 font-lock-string-face t)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5784 '("^[ \t]*\\([a-zA-Z0-9_]+[ \t]*:\\)[ \t]*\\($\\|{\\|\\<\\(until\\|while\\|for\\(each\\)?\\|do\\)\\>\\)" 1
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5785 font-lock-constant-face) ; labels
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5786 '("\\<\\(continue\\|next\\|last\\|redo\\|goto\\)\\>[ \t]+\\([a-zA-Z0-9_:]+\\)" ; labels as targets
20953
f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20323
diff changeset
5787 2 font-lock-constant-face)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5788 ;; Uncomment to get perl-mode-like vars
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5789 ;;; '("[$*]{?\\(\\sw+\\)" 1 font-lock-variable-name-face)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5790 ;;; '("\\([@%]\\|\\$#\\)\\(\\sw+\\)"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5791 ;;; (2 (cons font-lock-variable-name-face '(underline))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5792 (cond ((featurep 'font-lock-extra)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5793 '("^[ \t]*\\(my\\|local\\|our\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)\\([ \t]*,\\)?"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5794 (3 font-lock-variable-name-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5795 (4 '(another 4 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5796 ("\\=[ \t]*,[ \t]*\\([$@%*][a-zA-Z0-9_:]+\\)\\([ \t]*,\\)?"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5797 (1 font-lock-variable-name-face)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5798 (2 '(restart 2 nil) nil t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5799 nil t))) ; local variables, multiple
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5800 (font-lock-anchored
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5801 ;; 1=my_etc, 2=white? 3=(+white? 4=white? 5=var
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5802 `(,(concat "\\<\\(my\\|local\\|our\\)"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5803 cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5804 "\\(("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5805 cperl-maybe-white-and-comment-rex
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5806 "\\)?\\([$@%*]\\([a-zA-Z0-9_:]+\\|[^a-zA-Z0-9_]\\)\\)")
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5807 (5 ,(if cperl-font-lock-multiline
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5808 'font-lock-variable-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5809 '(progn (setq cperl-font-lock-multiline-start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5810 (match-beginning 0))
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5811 'font-lock-variable-name-face)))
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5812 (,(concat "\\="
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5813 cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5814 ","
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5815 cperl-maybe-white-and-comment-rex
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5816 "\\([$@%*]\\([a-zA-Z0-9_:]+\\|[^a-zA-Z0-9_]\\)\\)")
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
5817 ;; Bug in font-lock: limit is used not only to limit
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5818 ;; searches, but to set the "extend window for
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5819 ;; facification" property. Thus we need to minimize.
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5820 ,(if cperl-font-lock-multiline
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5821 '(if (match-beginning 3)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5822 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5823 (goto-char (match-beginning 3))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5824 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5825 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5826 (error
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5827 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5828 (forward-char 200)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5829 (error nil)))) ; typeahead
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5830 (1- (point))) ; report limit
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5831 (forward-char -2)) ; disable continued expr
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5832 '(if (match-beginning 3)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5833 (point-max) ; No limit for continuation
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5834 (forward-char -2))) ; disable continued expr
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5835 ,(if cperl-font-lock-multiline
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5836 nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5837 '(progn ; Do at end
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5838 ;; "my" may be already fontified (POD),
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5839 ;; so cperl-font-lock-multiline-start is nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5840 (if (or (not cperl-font-lock-multiline-start)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5841 (> 2 (count-lines
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5842 cperl-font-lock-multiline-start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5843 (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5844 nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5845 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5846 (1+ cperl-font-lock-multiline-start) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5847 'syntax-type 'multiline))
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5848 (setq cperl-font-lock-multiline-start nil)))
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5849 (3 font-lock-variable-name-face))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5850 (t '("^[ \t{}]*\\(my\\|local\\|our\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5851 3 font-lock-variable-name-face)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5852 '("\\<for\\(each\\)?\\([ \t]+\\(my\\|local\\|our\\)\\)?[ \t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*("
62081
c186a2b77f86 (cperl-init-faces): Use font-lock-negation-char-face.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 61892
diff changeset
5853 4 font-lock-variable-name-face)
62085
7dbe52d92117 Avoid $! for font-lock-negation-char-face.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62081
diff changeset
5854 ;; Avoid $!, and s!!, qq!! etc. when not fontifying syntaxically
7dbe52d92117 Avoid $! for font-lock-negation-char-face.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62081
diff changeset
5855 '("\\(?:^\\|[^smywqrx$]\\)\\(!\\)" 1 font-lock-negation-char-face)
62081
c186a2b77f86 (cperl-init-faces): Use font-lock-negation-char-face.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 61892
diff changeset
5856 '("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
5857 (setq
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5858 t-font-lock-keywords-1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5859 (and (fboundp 'turn-on-font-lock) ; Check for newer font-lock
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5860 ;; not yet as of XEmacs 19.12, works with 21.1.11
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5861 (or
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
5862 (not (featurep 'xemacs))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5863 (string< "21.1.9" emacs-version)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5864 (and (string< "21.1.10" emacs-version)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5865 (string< emacs-version "21.1.2")))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5866 '(
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5867 ("\\(\\([@%]\\|\$#\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)" 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5868 (if (eq (char-after (match-beginning 2)) ?%)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5869 'cperl-hash-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5870 'cperl-array-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5871 t) ; arrays and hashes
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5872 ("\\(\\([$@]+\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)[ \t]*\\([[{]\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5873 1
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5874 (if (= (- (match-end 2) (match-beginning 2)) 1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5875 (if (eq (char-after (match-beginning 3)) ?{)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5876 'cperl-hash-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5877 'cperl-array-face) ; arrays and hashes
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5878 font-lock-variable-name-face) ; Just to put something
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5879 t)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5880 ("\\(@\\|\\$#\\)\\(\\$+\\([a-zA-Z_:][a-zA-Z0-9_:]*\\|[^ \t\n]\\)\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5881 (1 cperl-array-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5882 (2 font-lock-variable-name-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5883 ("\\(%\\)\\(\\$+\\([a-zA-Z_:][a-zA-Z0-9_:]*\\|[^ \t\n]\\)\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5884 (1 cperl-hash-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5885 (2 font-lock-variable-name-face))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5886 ;;("\\([smy]\\|tr\\)\\([^a-z_A-Z0-9]\\)\\(\\([^\n\\]*||\\)\\)\\2")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5887 ;;; Too much noise from \s* @s[ and friends
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5888 ;;("\\(\\<\\([msy]\\|tr\\)[ \t]*\\([^ \t\na-zA-Z0-9_]\\)\\|\\(/\\)\\)"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5889 ;;(3 font-lock-function-name-face t t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5890 ;;(4
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5891 ;; (if (cperl-slash-is-regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5892 ;; font-lock-function-name-face 'default) nil t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5893 )))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5894 (if cperl-highlight-variables-indiscriminately
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5895 (setq t-font-lock-keywords-1
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5896 (append t-font-lock-keywords-1
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5897 (list '("\\([$*]{?\\sw+\\)" 1
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5898 font-lock-variable-name-face)))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
5899 (setq cperl-font-lock-keywords-1
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5900 (if cperl-syntaxify-by-font-lock
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5901 (cons 'cperl-fontify-update
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5902 t-font-lock-keywords)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5903 t-font-lock-keywords)
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5904 cperl-font-lock-keywords cperl-font-lock-keywords-1
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5905 cperl-font-lock-keywords-2 (append
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5906 cperl-font-lock-keywords-1
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5907 t-font-lock-keywords-1)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5908 (if (fboundp 'ps-print-buffer) (cperl-ps-print-init))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5909 (if (or (featurep 'choose-color) (featurep 'font-lock-extra))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5910 (eval ; Avoid a warning
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5911 '(font-lock-require-faces
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5912 (list
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5913 ;; Color-light Color-dark Gray-light Gray-dark Mono
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5914 (list 'font-lock-comment-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5915 ["Firebrick" "OrangeRed" "DimGray" "Gray80"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5916 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5917 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5918 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5919 nil)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5920 (list 'font-lock-string-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5921 ["RosyBrown" "LightSalmon" "Gray50" "LightGray"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5922 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5923 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5924 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5925 nil)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5926 (list 'font-lock-function-name-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5927 (vector
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5928 "Blue" "LightSkyBlue" "Gray50" "LightGray"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5929 (cdr (assq 'background-color ; if mono
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5930 (frame-parameters))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5931 (vector
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5932 nil nil nil nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5933 (cdr (assq 'foreground-color ; if mono
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5934 (frame-parameters))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5935 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5936 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5937 nil)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5938 (list 'font-lock-variable-name-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5939 ["DarkGoldenrod" "LightGoldenrod" "DimGray" "Gray90"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5940 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5941 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5942 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5943 nil)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5944 (list 'font-lock-type-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5945 ["DarkOliveGreen" "PaleGreen" "DimGray" "Gray80"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5946 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5947 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5948 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5949 [nil nil t t t])
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5950 (list 'font-lock-warning-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5951 ["Pink" "Red" "Gray50" "LightGray"]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5952 ["gray20" "gray90"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5953 "gray80" "gray20"]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5954 [nil nil t t t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5955 nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5956 [nil nil t t t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5957 )
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5958 (list 'font-lock-constant-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5959 ["CadetBlue" "Aquamarine" "Gray50" "LightGray"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5960 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5961 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5962 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5963 [nil nil t t t])
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5964 (list 'cperl-nonoverridable-face
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5965 ["chartreuse3" ("orchid1" "orange")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5966 nil "Gray80"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5967 [nil nil "gray90"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5968 [nil nil nil t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5969 [nil nil t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5970 [nil nil t t t])
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5971 (list 'cperl-array-face
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5972 ["blue" "yellow" nil "Gray80"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5973 ["lightyellow2" ("navy" "os2blue" "darkgreen")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5974 "gray90"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5975 t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5976 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5977 nil)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5978 (list 'cperl-hash-face
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5979 ["red" "red" nil "Gray80"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5980 ["lightyellow2" ("navy" "os2blue" "darkgreen")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5981 "gray90"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5982 t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5983 t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5984 nil))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5985 ;; Do it the dull way, without choose-color
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5986 (defvar cperl-guessed-background nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5987 "Display characteristics as guessed by cperl.")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5988 ;; (or (fboundp 'x-color-defined-p)
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
5989 ;; (defalias 'x-color-defined-p
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5990 ;; (cond ((fboundp 'color-defined-p) 'color-defined-p)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5991 ;; ;; XEmacs >= 19.12
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5992 ;; ((fboundp 'valid-color-name-p) 'valid-color-name-p)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5993 ;; ;; XEmacs 19.11
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5994 ;; (t 'x-valid-color-name-p))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5995 (cperl-force-face font-lock-constant-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5996 "Face for constant and label names")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5997 (cperl-force-face font-lock-variable-name-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5998 "Face for variable names")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5999 (cperl-force-face font-lock-type-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6000 "Face for data types")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6001 (cperl-force-face cperl-nonoverridable-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6002 "Face for data types from another group")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6003 (cperl-force-face font-lock-warning-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6004 "Face for things which should stand out")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6005 (cperl-force-face font-lock-comment-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6006 "Face for comments")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6007 (cperl-force-face font-lock-function-name-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6008 "Face for function names")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6009 (cperl-force-face cperl-hash-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6010 "Face for hashes")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6011 (cperl-force-face cperl-array-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6012 "Face for arrays")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6013 ;;(defvar font-lock-constant-face 'font-lock-constant-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6014 ;;(defvar font-lock-variable-name-face 'font-lock-variable-name-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6015 ;;(or (boundp 'font-lock-type-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6016 ;; (defconst font-lock-type-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6017 ;; 'font-lock-type-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6018 ;; "Face to use for data types."))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6019 ;;(or (boundp 'cperl-nonoverridable-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6020 ;; (defconst cperl-nonoverridable-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6021 ;; 'cperl-nonoverridable-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6022 ;; "Face to use for data types from another group."))
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
6023 ;;(if (not (featurep 'xemacs)) nil
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6024 ;; (or (boundp 'font-lock-comment-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6025 ;; (defconst font-lock-comment-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6026 ;; 'font-lock-comment-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6027 ;; "Face to use for comments."))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6028 ;; (or (boundp 'font-lock-keyword-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6029 ;; (defconst font-lock-keyword-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6030 ;; 'font-lock-keyword-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6031 ;; "Face to use for keywords."))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6032 ;; (or (boundp 'font-lock-function-name-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6033 ;; (defconst font-lock-function-name-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6034 ;; 'font-lock-function-name-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6035 ;; "Face to use for function names.")))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6036 (if (and
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6037 (not (cperl-is-face 'cperl-array-face))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6038 (cperl-is-face 'font-lock-emphasized-face))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6039 (copy-face 'font-lock-emphasized-face 'cperl-array-face))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6040 (if (and
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6041 (not (cperl-is-face 'cperl-hash-face))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6042 (cperl-is-face 'font-lock-other-emphasized-face))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6043 (copy-face 'font-lock-other-emphasized-face 'cperl-hash-face))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6044 (if (and
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6045 (not (cperl-is-face 'cperl-nonoverridable-face))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6046 (cperl-is-face 'font-lock-other-type-face))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6047 (copy-face 'font-lock-other-type-face 'cperl-nonoverridable-face))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6048 ;;(or (boundp 'cperl-hash-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6049 ;; (defconst cperl-hash-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6050 ;; 'cperl-hash-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6051 ;; "Face to use for hashes."))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6052 ;;(or (boundp 'cperl-array-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6053 ;; (defconst cperl-array-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6054 ;; 'cperl-array-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6055 ;; "Face to use for arrays."))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6056 ;; Here we try to guess background
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6057 (let ((background
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6058 (if (boundp 'font-lock-background-mode)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6059 font-lock-background-mode
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6060 'light))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6061 (face-list (and (fboundp 'face-list) (face-list))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6062 ;;;; (fset 'cperl-is-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6063 ;;;; (cond ((fboundp 'find-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6064 ;;;; (symbol-function 'find-face))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6065 ;;;; (face-list
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6066 ;;;; (function (lambda (face) (member face face-list))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6067 ;;;; (t
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6068 ;;;; (function (lambda (face) (boundp face))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6069 (defvar cperl-guessed-background
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6070 (if (and (boundp 'font-lock-display-type)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6071 (eq font-lock-display-type 'grayscale))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6072 'gray
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6073 background)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6074 "Background as guessed by CPerl mode")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6075 (and (not (cperl-is-face 'font-lock-constant-face))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6076 (cperl-is-face 'font-lock-reference-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6077 (copy-face 'font-lock-reference-face 'font-lock-constant-face))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6078 (if (cperl-is-face 'font-lock-type-face) nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6079 (copy-face 'default 'font-lock-type-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6080 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6081 ((eq background 'light)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6082 (set-face-foreground 'font-lock-type-face
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6083 (if (x-color-defined-p "seagreen")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6084 "seagreen"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6085 "sea green")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6086 ((eq background 'dark)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6087 (set-face-foreground 'font-lock-type-face
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6088 (if (x-color-defined-p "os2pink")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6089 "os2pink"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6090 "pink")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6091 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6092 (set-face-background 'font-lock-type-face "gray90"))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6093 (if (cperl-is-face 'cperl-nonoverridable-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6094 nil
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6095 (copy-face 'font-lock-type-face 'cperl-nonoverridable-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6096 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6097 ((eq background 'light)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6098 (set-face-foreground 'cperl-nonoverridable-face
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6099 (if (x-color-defined-p "chartreuse3")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6100 "chartreuse3"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6101 "chartreuse")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6102 ((eq background 'dark)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6103 (set-face-foreground 'cperl-nonoverridable-face
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6104 (if (x-color-defined-p "orchid1")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6105 "orchid1"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6106 "orange")))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6107 ;;; (if (cperl-is-face 'font-lock-other-emphasized-face) nil
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6108 ;;; (copy-face 'bold-italic 'font-lock-other-emphasized-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6109 ;;; (cond
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6110 ;;; ((eq background 'light)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6111 ;;; (set-face-background 'font-lock-other-emphasized-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6112 ;;; (if (x-color-defined-p "lightyellow2")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6113 ;;; "lightyellow2"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6114 ;;; (if (x-color-defined-p "lightyellow")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6115 ;;; "lightyellow"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6116 ;;; "light yellow"))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6117 ;;; ((eq background 'dark)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6118 ;;; (set-face-background 'font-lock-other-emphasized-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6119 ;;; (if (x-color-defined-p "navy")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6120 ;;; "navy"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6121 ;;; (if (x-color-defined-p "darkgreen")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6122 ;;; "darkgreen"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6123 ;;; "dark green"))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6124 ;;; (t (set-face-background 'font-lock-other-emphasized-face "gray90"))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6125 ;;; (if (cperl-is-face 'font-lock-emphasized-face) nil
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6126 ;;; (copy-face 'bold 'font-lock-emphasized-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6127 ;;; (cond
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6128 ;;; ((eq background 'light)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6129 ;;; (set-face-background 'font-lock-emphasized-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6130 ;;; (if (x-color-defined-p "lightyellow2")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6131 ;;; "lightyellow2"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6132 ;;; "lightyellow")))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6133 ;;; ((eq background 'dark)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6134 ;;; (set-face-background 'font-lock-emphasized-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6135 ;;; (if (x-color-defined-p "navy")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6136 ;;; "navy"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6137 ;;; (if (x-color-defined-p "darkgreen")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6138 ;;; "darkgreen"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6139 ;;; "dark green"))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6140 ;;; (t (set-face-background 'font-lock-emphasized-face "gray90"))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6141 (if (cperl-is-face 'font-lock-variable-name-face) nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6142 (copy-face 'italic 'font-lock-variable-name-face))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6143 (if (cperl-is-face 'font-lock-constant-face) nil
20953
f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20323
diff changeset
6144 (copy-face 'italic 'font-lock-constant-face))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6145 (setq cperl-faces-init t))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6146 (error (message "cperl-init-faces (ignored): %s" errs))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6147
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6148
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6149 (defun cperl-ps-print-init ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6150 "Initialization of `ps-print' components for faces used in CPerl."
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6151 (eval-after-load "ps-print"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6152 '(setq ps-bold-faces
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6153 ;; font-lock-variable-name-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6154 ;; font-lock-constant-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6155 (append '(cperl-array-face cperl-hash-face)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6156 ps-bold-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6157 ps-italic-faces
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6158 ;; font-lock-constant-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6159 (append '(cperl-nonoverridable-face cperl-hash-face)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6160 ps-italic-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6161 ps-underlined-faces
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6162 ;; font-lock-type-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6163 (append '(cperl-array-face cperl-hash-face underline cperl-nonoverridable-face)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6164 ps-underlined-faces))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6165
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6166 (defvar ps-print-face-extension-alist)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6167
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6168 (defun cperl-ps-print (&optional file)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6169 "Pretty-print in CPerl style.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6170 If optional argument FILE is an empty string, prints to printer, otherwise
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6171 to the file FILE. If FILE is nil, prompts for a file name.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6172
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6173 Style of printout regulated by the variable `cperl-ps-print-face-properties'."
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6174 (interactive)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6175 (or file
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6176 (setq file (read-from-minibuffer
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6177 "Print to file (if empty - to printer): "
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6178 (concat (buffer-file-name) ".ps")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6179 nil nil 'file-name-history)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6180 (or (> (length file) 0)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6181 (setq file nil))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6182 (require 'ps-print) ; To get ps-print-face-extension-alist
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6183 (let ((ps-print-color-p t)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6184 (ps-print-face-extension-alist ps-print-face-extension-alist))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6185 (cperl-ps-extend-face-list cperl-ps-print-face-properties)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6186 (ps-print-buffer-with-faces file)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6187
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6188 ;;; (defun cperl-ps-print-init ()
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6189 ;;; "Initialization of `ps-print' components for faces used in CPerl."
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6190 ;;; ;; Guard against old versions
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6191 ;;; (defvar ps-underlined-faces nil)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6192 ;;; (defvar ps-bold-faces nil)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6193 ;;; (defvar ps-italic-faces nil)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6194 ;;; (setq ps-bold-faces
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6195 ;;; (append '(font-lock-emphasized-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6196 ;;; cperl-array-face
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6197 ;;; font-lock-keyword-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6198 ;;; font-lock-variable-name-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6199 ;;; font-lock-constant-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6200 ;;; font-lock-reference-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6201 ;;; font-lock-other-emphasized-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6202 ;;; cperl-hash-face)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6203 ;;; ps-bold-faces))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6204 ;;; (setq ps-italic-faces
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6205 ;;; (append '(cperl-nonoverridable-face
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6206 ;;; font-lock-constant-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6207 ;;; font-lock-reference-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6208 ;;; font-lock-other-emphasized-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6209 ;;; cperl-hash-face)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6210 ;;; ps-italic-faces))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6211 ;;; (setq ps-underlined-faces
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6212 ;;; (append '(font-lock-emphasized-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6213 ;;; cperl-array-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6214 ;;; font-lock-other-emphasized-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6215 ;;; cperl-hash-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6216 ;;; cperl-nonoverridable-face font-lock-type-face)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6217 ;;; ps-underlined-faces))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6218 ;;; (cons 'font-lock-type-face ps-underlined-faces))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6219
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6220
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6221 (if (cperl-enable-font-lock) (cperl-windowed-init))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6222
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6223 (defconst cperl-styles-entries
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6224 '(cperl-indent-level cperl-brace-offset cperl-continued-brace-offset
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6225 cperl-label-offset cperl-extra-newline-before-brace
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6226 cperl-extra-newline-before-brace-multiline
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
6227 cperl-merge-trailing-else
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6228 cperl-continued-statement-offset))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6229
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6230 (defconst cperl-style-examples
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6231 "##### Numbers etc are: cperl-indent-level cperl-brace-offset
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6232 ##### cperl-continued-brace-offset cperl-label-offset
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6233 ##### cperl-continued-statement-offset
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6234 ##### cperl-merge-trailing-else cperl-extra-newline-before-brace
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6235
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6236 ########### (Do not forget cperl-extra-newline-before-brace-multiline)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6237
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6238 ### CPerl (=GNU - extra-newline-before-brace + merge-trailing-else) 2/0/0/-2/2/t/nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6239 if (foo) {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6240 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6241 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6242 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6243 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6244 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6245 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6246 } else {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6247 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6248 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6249
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6250 ### PerlStyle (=CPerl with 4 as indent) 4/0/0/-4/4/t/nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6251 if (foo) {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6252 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6253 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6254 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6255 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6256 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6257 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6258 } else {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6259 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6260 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6261
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6262 ### GNU 2/0/0/-2/2/nil/t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6263 if (foo)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6264 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6265 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6266 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6267 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6268 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6269 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6270 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6271 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6272 else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6273 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6274 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6275 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6276
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6277 ### C++ (=PerlStyle with braces aligned with control words) 4/0/-4/-4/4/nil/t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6278 if (foo)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6279 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6280 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6281 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6282 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6283 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6284 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6285 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6286 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6287 else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6288 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6289 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6290 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6291
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6292 ### BSD (=C++, but will not change preexisting merge-trailing-else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6293 ### and extra-newline-before-brace ) 4/0/-4/-4/4
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6294 if (foo)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6295 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6296 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6297 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6298 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6299 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6300 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6301 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6302 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6303 else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6304 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6305 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6306 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6307
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6308 ### K&R (=C++ with indent 5 - merge-trailing-else, but will not
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6309 ### change preexisting extra-newline-before-brace) 5/0/-5/-5/5/nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6310 if (foo)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6311 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6312 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6313 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6314 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6315 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6316 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6317 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6318 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6319 else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6320 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6321 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6322 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6323
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6324 ### Whitesmith (=PerlStyle, but will not change preexisting
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6325 ### extra-newline-before-brace and merge-trailing-else) 4/0/0/-4/4
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6326 if (foo)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6327 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6328 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6329 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6330 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6331 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6332 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6333 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6334 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6335 else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6336 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6337 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6338 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6339 "
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6340 "Examples of if/else with different indent styles (with v4.23).")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6341
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6342 (defconst cperl-style-alist
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6343 '(("CPerl" ;; =GNU - extra-newline-before-brace + cperl-merge-trailing-else
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6344 (cperl-indent-level . 2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6345 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6346 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6347 (cperl-label-offset . -2)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6348 (cperl-continued-statement-offset . 2)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6349 (cperl-extra-newline-before-brace . nil)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6350 (cperl-extra-newline-before-brace-multiline . nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6351 (cperl-merge-trailing-else . t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6352
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6353 ("PerlStyle" ; CPerl with 4 as indent
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6354 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6355 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6356 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6357 (cperl-label-offset . -4)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6358 (cperl-continued-statement-offset . 4)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6359 (cperl-extra-newline-before-brace . nil)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6360 (cperl-extra-newline-before-brace-multiline . nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6361 (cperl-merge-trailing-else . t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6362
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6363 ("GNU"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6364 (cperl-indent-level . 2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6365 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6366 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6367 (cperl-label-offset . -2)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6368 (cperl-continued-statement-offset . 2)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6369 (cperl-extra-newline-before-brace . t)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6370 (cperl-extra-newline-before-brace-multiline . t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6371 (cperl-merge-trailing-else . nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6372
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6373 ("K&R"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6374 (cperl-indent-level . 5)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6375 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6376 (cperl-continued-brace-offset . -5)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6377 (cperl-label-offset . -5)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6378 (cperl-continued-statement-offset . 5)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6379 ;;(cperl-extra-newline-before-brace . nil) ; ???
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6380 ;;(cperl-extra-newline-before-brace-multiline . nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6381 (cperl-merge-trailing-else . nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6382
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6383 ("BSD"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6384 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6385 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6386 (cperl-continued-brace-offset . -4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6387 (cperl-label-offset . -4)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6388 (cperl-continued-statement-offset . 4)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6389 ;;(cperl-extra-newline-before-brace . nil) ; ???
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6390 ;;(cperl-extra-newline-before-brace-multiline . nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6391 ;;(cperl-merge-trailing-else . nil) ; ???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6392 )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6393
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6394 ("C++"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6395 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6396 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6397 (cperl-continued-brace-offset . -4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6398 (cperl-label-offset . -4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6399 (cperl-continued-statement-offset . 4)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6400 (cperl-extra-newline-before-brace . t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6401 (cperl-extra-newline-before-brace-multiline . t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6402 (cperl-merge-trailing-else . nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6403
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6404 ("Whitesmith"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6405 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6406 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6407 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6408 (cperl-label-offset . -4)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6409 (cperl-continued-statement-offset . 4)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6410 ;;(cperl-extra-newline-before-brace . nil) ; ???
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6411 ;;(cperl-extra-newline-before-brace-multiline . nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6412 ;;(cperl-merge-trailing-else . nil) ; ???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6413 )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6414 ("Current"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6415 "List of variables to set to get a particular indentation style.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6416 Should be used via `cperl-set-style' or via Perl menu.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6417
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6418 See examples in `cperl-style-examples'.")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6419
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6420 (defun cperl-set-style (style)
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
6421 "Set CPerl mode variables to use one of several different indentation styles.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6422 The arguments are a string representing the desired style.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6423 The list of styles is in `cperl-style-alist', available styles
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6424 are CPerl, PerlStyle, GNU, K&R, BSD, C++ and Whitesmith.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6425
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6426 The current value of style is memorized (unless there is a memorized
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6427 data already), may be restored by `cperl-set-style-back'.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6428
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6429 Chosing \"Current\" style will not change style, so this may be used for
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6430 side-effect of memorizing only. Examples in `cperl-style-examples'."
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6431 (interactive
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
6432 (let ((list (mapcar (function (lambda (elt) (list (car elt))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6433 cperl-style-alist)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6434 (list (completing-read "Enter style: " list nil 'insist))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6435 (or cperl-old-style
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6436 (setq cperl-old-style
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6437 (mapcar (function
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6438 (lambda (name)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6439 (cons name (eval name))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6440 cperl-styles-entries)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6441 (let ((style (cdr (assoc style cperl-style-alist))) setting str sym)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6442 (while style
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6443 (setq setting (car style) style (cdr style))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6444 (set (car setting) (cdr setting)))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6445
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6446 (defun cperl-set-style-back ()
63518
475955d58ad4 (cperl-set-style-back): Fix spelling in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 63460
diff changeset
6447 "Restore a style memorized by `cperl-set-style'."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6448 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6449 (or cperl-old-style (error "The style was not changed"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6450 (let (setting)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6451 (while cperl-old-style
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6452 (setq setting (car cperl-old-style)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6453 cperl-old-style (cdr cperl-old-style))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6454 (set (car setting) (cdr setting)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6455
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6456 (defun cperl-check-syntax ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6457 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6458 (require 'mode-compile)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6459 (let ((perl-dbg-flags (concat cperl-extra-perl-args " -wc")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6460 (eval '(mode-compile)))) ; Avoid a warning
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6461
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6462 (defun cperl-info-buffer (type)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6463 ;; Returns buffer with documentation. Creates if missing.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6464 ;; If TYPE, this vars buffer.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6465 ;; Special care is taken to not stomp over an existing info buffer
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6466 (let* ((bname (if type "*info-perl-var*" "*info-perl*"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6467 (info (get-buffer bname))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6468 (oldbuf (get-buffer "*info*")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6469 (if info info
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6470 (save-window-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6471 ;; Get Info running
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6472 (require 'info)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6473 (cond (oldbuf
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6474 (set-buffer oldbuf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6475 (rename-buffer "*info-perl-tmp*")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6476 (save-window-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6477 (info))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6478 (Info-find-node cperl-info-page (if type "perlvar" "perlfunc"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6479 (set-buffer "*info*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6480 (rename-buffer bname)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6481 (cond (oldbuf
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6482 (set-buffer "*info-perl-tmp*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6483 (rename-buffer "*info*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6484 (set-buffer bname)))
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
6485 (make-local-variable 'window-min-height)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6486 (setq window-min-height 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6487 (current-buffer)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6488
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6489 (defun cperl-word-at-point (&optional p)
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
6490 "Return the word at point or at P."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6491 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6492 (if p (goto-char p))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6493 (or (cperl-word-at-point-hard)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6494 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6495 (require 'etags)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6496 (funcall (or (and (boundp 'find-tag-default-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6497 find-tag-default-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6498 (get major-mode 'find-tag-default-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6499 ;; XEmacs 19.12 has `find-tag-default-hook'; it is
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6500 ;; automatically used within `find-tag-default':
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6501 'find-tag-default))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6502
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6503 (defun cperl-info-on-command (command)
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
6504 "Show documentation for Perl command COMMAND in other window.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6505 If perl-info buffer is shown in some frame, uses this frame.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6506 Customized by setting variables `cperl-shrink-wrap-info-frame',
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6507 `cperl-max-help-size'."
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6508 (interactive
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6509 (let* ((default (cperl-word-at-point))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6510 (read (read-string
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6511 (format "Find doc for Perl function (default %s): "
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6512 default))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6513 (list (if (equal read "")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6514 default
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6515 read))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6516
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6517 (let ((buffer (current-buffer))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6518 (cmd-desc (concat "^" (regexp-quote command) "[^a-zA-Z_0-9]")) ; "tr///"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6519 pos isvar height iniheight frheight buf win fr1 fr2 iniwin not-loner
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6520 max-height char-height buf-list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6521 (if (string-match "^-[a-zA-Z]$" command)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6522 (setq cmd-desc "^-X[ \t\n]"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6523 (setq isvar (string-match "^[$@%]" command)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6524 buf (cperl-info-buffer isvar)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6525 iniwin (selected-window)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6526 fr1 (window-frame iniwin))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6527 (set-buffer buf)
58003
e47d2626afd7 (cperl-info-on-command): Use goto-char instead of beginning-of-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 57823
diff changeset
6528 (goto-char (point-min))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6529 (or isvar
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6530 (progn (re-search-forward "^-X[ \t\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6531 (forward-line -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6532 (if (re-search-forward cmd-desc nil t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6533 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6534 ;; Go back to beginning of the group (ex, for qq)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6535 (if (re-search-backward "^[ \t\n\f]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6536 (forward-line 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6537 (beginning-of-line)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6538 ;; Get some of
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6539 (setq pos (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6540 buf-list (list buf "*info-perl-var*" "*info-perl*"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6541 (while (and (not win) buf-list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6542 (setq win (get-buffer-window (car buf-list) t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6543 (setq buf-list (cdr buf-list)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6544 (or (not win)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6545 (eq (window-buffer win) buf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6546 (set-window-buffer win buf))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6547 (and win (setq fr2 (window-frame win)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6548 (if (or (not fr2) (eq fr1 fr2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6549 (pop-to-buffer buf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6550 (special-display-popup-frame buf) ; Make it visible
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6551 (select-window win))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6552 (goto-char pos) ; Needed (?!).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6553 ;; Resize
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6554 (setq iniheight (window-height)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6555 frheight (frame-height)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6556 not-loner (< iniheight (1- frheight))) ; Are not alone
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6557 (cond ((if not-loner cperl-max-help-size
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6558 cperl-shrink-wrap-info-frame)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6559 (setq height
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6560 (+ 2
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6561 (count-lines
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6562 pos
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6563 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6564 (if (re-search-forward
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6565 "^[ \t][^\n]*\n+\\([^ \t\n\f]\\|\\'\\)" nil t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6566 (match-beginning 0) (point-max)))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6567 max-height
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6568 (if not-loner
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6569 (/ (* (- frheight 3) cperl-max-help-size) 100)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6570 (setq char-height (frame-char-height))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6571 ;; Non-functioning under OS/2:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6572 (if (eq char-height 1) (setq char-height 18))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6573 ;; Title, menubar, + 2 for slack
95832
fc8e5aad9764 (cperl-info-on-command): Use display-pixel-height rather than
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
6574 (- (/ (display-pixel-height) char-height) 4)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6575 (if (> height max-height) (setq height max-height))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6576 ;;(message "was %s doing %s" iniheight height)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6577 (if not-loner
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6578 (enlarge-window (- height iniheight))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6579 (set-frame-height (window-frame win) (1+ height)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6580 (set-window-start (selected-window) pos))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6581 (message "No entry for %s found." command))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6582 ;;(pop-to-buffer buffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6583 (select-window iniwin)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6584
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6585 (defun cperl-info-on-current-command ()
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
6586 "Show documentation for Perl command at point in other window."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6587 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6588 (cperl-info-on-command (cperl-word-at-point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6589
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6590 (defun cperl-imenu-info-imenu-search ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6591 (if (looking-at "^-X[ \t\n]") nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6592 (re-search-backward
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6593 "^\n\\([-a-zA-Z_]+\\)[ \t\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6594 (forward-line 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6595
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6596 (defun cperl-imenu-info-imenu-name ()
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6597 (buffer-substring
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6598 (match-beginning 1) (match-end 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6599
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6600 (defun cperl-imenu-on-info ()
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6601 "Shows imenu for Perl Info Buffer.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6602 Opens Perl Info buffer if needed."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6603 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6604 (let* ((buffer (current-buffer))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6605 imenu-create-index-function
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6606 imenu-prev-index-position-function
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6607 imenu-extract-index-name-function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6608 (index-item (save-restriction
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6609 (save-window-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6610 (set-buffer (cperl-info-buffer nil))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6611 (setq imenu-create-index-function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6612 'imenu-default-create-index-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6613 imenu-prev-index-position-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6614 'cperl-imenu-info-imenu-search
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6615 imenu-extract-index-name-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6616 'cperl-imenu-info-imenu-name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6617 (imenu-choose-buffer-index)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6618 (and index-item
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6619 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6620 (push-mark)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6621 (pop-to-buffer "*info-perl*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6622 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6623 ((markerp (cdr index-item))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6624 (goto-char (marker-position (cdr index-item))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6625 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6626 (goto-char (cdr index-item))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6627 (set-window-start (selected-window) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6628 (pop-to-buffer buffer)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6629
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6630 (defun cperl-lineup (beg end &optional step minshift)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6631 "Lineup construction in a region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6632 Beginning of region should be at the start of a construction.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6633 All first occurrences of this construction in the lines that are
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6634 partially contained in the region are lined up at the same column.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6635
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6636 MINSHIFT is the minimal amount of space to insert before the construction.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6637 STEP is the tabwidth to position constructions.
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
6638 If STEP is nil, `cperl-lineup-step' will be used
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
6639 \(or `cperl-indent-level', if `cperl-lineup-step' is nil).
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6640 Will not move the position at the start to the left."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6641 (interactive "r")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6642 (let (search col tcol seen b)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6643 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6644 (goto-char end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6645 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6646 (setq end (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6647 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6648 (skip-chars-forward " \t\f")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6649 (setq beg (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6650 (indent-region beg end nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6651 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6652 (setq col (current-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6653 (if (looking-at "[a-zA-Z0-9_]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6654 (if (looking-at "\\<[a-zA-Z0-9_]+\\>")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6655 (setq search
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6656 (concat "\\<"
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6657 (regexp-quote
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6658 (buffer-substring (match-beginning 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6659 (match-end 0))) "\\>"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6660 (error "Cannot line up in a middle of the word"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6661 (if (looking-at "$")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6662 (error "Cannot line up end of line"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6663 (setq search (regexp-quote (char-to-string (following-char)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6664 (setq step (or step cperl-lineup-step cperl-indent-level))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6665 (or minshift (setq minshift 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6666 (while (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6667 (beginning-of-line 2)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6668 (and (< (point) end)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6669 (re-search-forward search end t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6670 (goto-char (match-beginning 0))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6671 (setq tcol (current-column) seen t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6672 (if (> tcol col) (setq col tcol)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6673 (or seen
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6674 (error "The construction to line up occurred only once"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6675 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6676 (setq col (+ col minshift))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6677 (if (/= (% col step) 0) (setq step (* step (1+ (/ col step)))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6678 (while
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6679 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6680 (cperl-make-indent col)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6681 (beginning-of-line 2)
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6682 (and (< (point) end)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6683 (re-search-forward search end t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6684 (goto-char (match-beginning 0)))))))) ; No body
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6685
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6686 (defun cperl-etags (&optional add all files) ;; NOT USED???
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6687 "Run etags with appropriate options for Perl files.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6688 If optional argument ALL is `recursive', will process Perl files
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6689 in subdirectories too."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6690 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6691 (let ((cmd "etags")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6692 (args '("-l" "none" "-r"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6693 ;; 1=fullname 2=package? 3=name 4=proto? 5=attrs? (VERY APPROX!)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6694 "/\\<sub[ \\t]+\\(\\([a-zA-Z0-9:_]*::\\)?\\([a-zA-Z0-9_]+\\)\\)[ \\t]*\\(([^()]*)[ \t]*\\)?\\([ \t]*:[^#{;]*\\)?\\([{#]\\|$\\)/\\3/"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6695 "-r"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6696 "/\\<package[ \\t]+\\(\\([a-zA-Z0-9:_]*::\\)?\\([a-zA-Z0-9_]+\\)\\)[ \\t]*\\([#;]\\|$\\)/\\1/"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6697 "-r"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6698 "/\\<\\(package\\)[ \\t]*;/\\1;/"))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6699 res)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6700 (if add (setq args (cons "-a" args)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6701 (or files (setq files (list buffer-file-name)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6702 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6703 ((eq all 'recursive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6704 ;;(error "Not implemented: recursive")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6705 (setq args (append (list "-e"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6706 "sub wanted {push @ARGV, $File::Find::name if /\\.[pP][Llm]$/}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6707 use File::Find;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6708 find(\\&wanted, '.');
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6709 exec @ARGV;"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6710 cmd) args)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6711 cmd "perl"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6712 (all
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6713 ;;(error "Not implemented: all")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6714 (setq args (append (list "-e"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6715 "push @ARGV, <*.PL *.pl *.pm>;
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6716 exec @ARGV;"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6717 cmd) args)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6718 cmd "perl"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6719 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6720 (setq args (append args files))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6721 (setq res (apply 'call-process cmd nil nil nil args))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6722 (or (eq res 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6723 (message "etags returned \"%s\"" res))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6724
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6725 (defun cperl-toggle-auto-newline ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6726 "Toggle the state of `cperl-auto-newline'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6727 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6728 (setq cperl-auto-newline (not cperl-auto-newline))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6729 (message "Newlines will %sbe auto-inserted now."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6730 (if cperl-auto-newline "" "not ")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6731
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6732 (defun cperl-toggle-abbrev ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6733 "Toggle the state of automatic keyword expansion in CPerl mode."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6734 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6735 (abbrev-mode (if abbrev-mode 0 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6736 (message "Perl control structure will %sbe auto-inserted now."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6737 (if abbrev-mode "" "not ")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6738
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6739
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6740 (defun cperl-toggle-electric ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6741 "Toggle the state of parentheses doubling in CPerl mode."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6742 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6743 (setq cperl-electric-parens (if (cperl-val 'cperl-electric-parens) 'null t))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6744 (message "Parentheses will %sbe auto-doubled now."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6745 (if (cperl-val 'cperl-electric-parens) "" "not ")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6746
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6747 (defun cperl-toggle-autohelp ()
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
6748 "Toggle the state of Auto-Help on Perl constructs (put in the message area).
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
6749 Delay of auto-help controlled by `cperl-lazy-help-time'."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6750 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6751 (if (fboundp 'run-with-idle-timer)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6752 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6753 (if cperl-lazy-installed
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
6754 (cperl-lazy-unstall)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6755 (cperl-lazy-install))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6756 (message "Perl help messages will %sbe automatically shown now."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6757 (if cperl-lazy-installed "" "not ")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6758 (message "Cannot automatically show Perl help messages - run-with-idle-timer missing.")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6759
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6760 (defun cperl-toggle-construct-fix ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6761 "Toggle whether `indent-region'/`indent-sexp' fix whitespace too."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6762 (interactive)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6763 (setq cperl-indent-region-fix-constructs
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6764 (if cperl-indent-region-fix-constructs
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6765 nil
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6766 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6767 (message "indent-region/indent-sexp will %sbe automatically fix whitespace."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6768 (if cperl-indent-region-fix-constructs "" "not ")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6769
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6770 (defun cperl-toggle-set-debug-unwind (arg &optional backtrace)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6771 "Toggle (or, with numeric argument, set) debugging state of syntaxification.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6772 Nonpositive numeric argument disables debugging messages. The message
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6773 summarizes which regions it was decided to rescan for syntactic constructs.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6774
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6775 The message looks like this:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6776
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6777 Syxify req=123..138 actual=101..146 done-to: 112=>146 statepos: 73=>117
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6778
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6779 Numbers are character positions in the buffer. REQ provides the range to
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6780 rescan requested by `font-lock'. ACTUAL is the range actually resyntaxified;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6781 for correct operation it should start and end outside any special syntactic
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6782 construct. DONE-TO and STATEPOS indicate changes to internal caches maintained
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6783 by CPerl."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6784 (interactive "P")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6785 (or arg
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
6786 (setq arg (if (eq cperl-syntaxify-by-font-lock
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6787 (if backtrace 'backtrace 'message)) 0 1)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6788 (setq arg (if (> arg 0) (if backtrace 'backtrace 'message) t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6789 (setq cperl-syntaxify-by-font-lock arg)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6790 (message "Debugging messages of syntax unwind %sabled."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6791 (if (eq arg t) "dis" "en")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6792
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6793 ;;;; Tags file creation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6794
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6795 (defvar cperl-tmp-buffer " *cperl-tmp*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6796
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6797 (defun cperl-setup-tmp-buf ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6798 (set-buffer (get-buffer-create cperl-tmp-buffer))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6799 (set-syntax-table cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6800 (buffer-disable-undo)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6801 (auto-fill-mode 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6802 (if cperl-use-syntax-table-text-property-for-tags
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6803 (progn
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
6804 (make-local-variable 'parse-sexp-lookup-properties)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6805 ;; Do not introduce variable if not needed, we check it!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6806 (set 'parse-sexp-lookup-properties t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6807
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6808 (defun cperl-xsub-scan ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6809 (require 'imenu)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6810 (let ((index-alist '())
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6811 (prev-pos 0) index index1 name package prefix)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6812 (goto-char (point-min))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6813 ;; Search for the function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6814 (progn ;;save-match-data
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6815 (while (re-search-forward
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6816 "^\\([ \t]*MODULE\\>[^\n]*\\<PACKAGE[ \t]*=[ \t]*\\([a-zA-Z_][a-zA-Z_0-9:]*\\)\\>\\|\\([a-zA-Z_][a-zA-Z_0-9]*\\)(\\|[ \t]*BOOT:\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6817 nil t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6818 (cond
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6819 ((match-beginning 2) ; SECTION
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6820 (setq package (buffer-substring (match-beginning 2) (match-end 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6821 (goto-char (match-beginning 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6822 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6823 (forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6824 (if (looking-at "[^\n]*\\<PREFIX[ \t]*=[ \t]*\\([a-zA-Z_][a-zA-Z_0-9]*\\)\\>")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6825 (setq prefix (buffer-substring (match-beginning 1) (match-end 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6826 (setq prefix nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6827 ((not package) nil) ; C language section
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6828 ((match-beginning 3) ; XSUB
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6829 (goto-char (1+ (match-beginning 3)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6830 (setq index (imenu-example--name-and-position))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6831 (setq name (buffer-substring (match-beginning 3) (match-end 3)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6832 (if (and prefix (string-match (concat "^" prefix) name))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6833 (setq name (substring name (length prefix))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6834 (cond ((string-match "::" name) nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6835 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6836 (setq index1 (cons (concat package "::" name) (cdr index)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6837 (push index1 index-alist)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6838 (setcar index name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6839 (push index index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6840 (t ; BOOT: section
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6841 ;; (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6842 (setq index (imenu-example--name-and-position))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6843 (setcar index (concat package "::BOOT:"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6844 (push index index-alist)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6845 index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6846
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6847 (defvar cperl-unreadable-ok nil)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6848
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6849 (defun cperl-find-tags (ifile xs topdir)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6850 (let ((b (get-buffer cperl-tmp-buffer)) ind lst elt pos ret rel
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6851 (cperl-pod-here-fontify nil) f file)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6852 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6853 (if b (set-buffer b)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6854 (cperl-setup-tmp-buf))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6855 (erase-buffer)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6856 (condition-case err
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6857 (setq file (car (insert-file-contents ifile)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6858 (error (if cperl-unreadable-ok nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6859 (if (y-or-n-p
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6860 (format "File %s unreadable. Continue? " ifile))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6861 (setq cperl-unreadable-ok t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6862 (error "Aborting: unreadable file %s" ifile)))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
6863 (if (not file)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6864 (message "Unreadable file %s" ifile)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6865 (message "Scanning file %s ..." file)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6866 (if (and cperl-use-syntax-table-text-property-for-tags
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6867 (not xs))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6868 (condition-case err ; after __END__ may have garbage
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6869 (cperl-find-pods-heres nil nil noninteractive)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6870 (error (message "While scanning for syntax: %s" err))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6871 (if xs
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6872 (setq lst (cperl-xsub-scan))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6873 (setq ind (cperl-imenu--create-perl-index))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6874 (setq lst (cdr (assoc "+Unsorted List+..." ind))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6875 (setq lst
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6876 (mapcar
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6877 (function
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6878 (lambda (elt)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6879 (cond ((string-match "^[_a-zA-Z]" (car elt))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6880 (goto-char (cdr elt))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6881 (beginning-of-line) ; pos should be of the start of the line
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6882 (list (car elt)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6883 (point)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6884 (1+ (count-lines 1 (point))) ; 1+ since at beg-o-l
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6885 (buffer-substring (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6886 (goto-char (cdr elt))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6887 ;; After name now...
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6888 (or (eolp) (forward-char 1))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6889 (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6890 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6891 (beginning-of-line)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6892 (point))))))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6893 lst))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6894 (erase-buffer)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6895 (while lst
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6896 (setq elt (car lst) lst (cdr lst))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6897 (if elt
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6898 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6899 (insert (elt elt 3)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6900 127
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6901 (if (string-match "^package " (car elt))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6902 (substring (car elt) 8)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6903 (car elt) )
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6904 1
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6905 (number-to-string (elt elt 2)) ; Line
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6906 ","
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6907 (number-to-string (1- (elt elt 1))) ; Char pos 0-based
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6908 "\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6909 (if (and (string-match "^[_a-zA-Z]+::" (car elt))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6910 (string-match "^sub[ \t]+\\([_a-zA-Z]+\\)[^:_a-zA-Z]"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6911 (elt elt 3)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6912 ;; Need to insert the name without package as well
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
6913 (setq lst (cons (cons (substring (elt elt 3)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6914 (match-beginning 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6915 (match-end 1))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6916 (cdr elt))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6917 lst))))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6918 (setq pos (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6919 (goto-char 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6920 (setq rel file)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6921 ;; On case-preserving filesystems (EMX on OS/2) case might be encoded in properties
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6922 (set-text-properties 0 (length rel) nil rel)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6923 (and (equal topdir (substring rel 0 (length topdir)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6924 (setq rel (substring file (length topdir))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6925 (insert "\f\n" rel "," (number-to-string (1- pos)) "\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6926 (setq ret (buffer-substring 1 (point-max)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6927 (erase-buffer)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6928 (or noninteractive
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6929 (message "Scanning file %s finished" file))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6930 ret))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6931
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6932 (defun cperl-add-tags-recurse-noxs ()
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6933 "Add to TAGS data for \"pure\" Perl files in the current directory and kids.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6934 Use as
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6935 emacs -batch -q -no-site-file -l emacs/cperl-mode.el \
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6936 -f cperl-add-tags-recurse-noxs
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6937 "
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6938 (cperl-write-tags nil nil t t nil t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6939
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6940 (defun cperl-add-tags-recurse-noxs-fullpath ()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6941 "Add to TAGS data for \"pure\" Perl in the current directory and kids.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6942 Writes down fullpath, so TAGS is relocatable (but if the build directory
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6943 is relocated, the file TAGS inside it breaks). Use as
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6944 emacs -batch -q -no-site-file -l emacs/cperl-mode.el \
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6945 -f cperl-add-tags-recurse-noxs-fullpath
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6946 "
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6947 (cperl-write-tags nil nil t t nil t ""))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6948
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6949 (defun cperl-add-tags-recurse ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6950 "Add to TAGS file data for Perl files in the current directory and kids.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6951 Use as
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6952 emacs -batch -q -no-site-file -l emacs/cperl-mode.el \
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6953 -f cperl-add-tags-recurse
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6954 "
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6955 (cperl-write-tags nil nil t t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6956
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6957 (defun cperl-write-tags (&optional file erase recurse dir inbuffer noxs topdir)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6958 ;; If INBUFFER, do not select buffer, and do not save
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6959 ;; If ERASE is `ignore', do not erase, and do not try to delete old info.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6960 (require 'etags)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6961 (if file nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6962 (setq file (if dir default-directory (buffer-file-name)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6963 (if (and (not dir) (buffer-modified-p)) (error "Save buffer first!")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6964 (or topdir
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6965 (setq topdir default-directory))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6966 (let ((tags-file-name "TAGS")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6967 (case-fold-search (eq system-type 'emx))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6968 xs rel tm)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6969 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6970 (cond (inbuffer nil) ; Already there
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6971 ((file-exists-p tags-file-name)
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
6972 (if (featurep 'xemacs)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6973 (visit-tags-table-buffer)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6974 (visit-tags-table-buffer tags-file-name)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6975 (t (set-buffer (find-file-noselect tags-file-name))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6976 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6977 (dir
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6978 (cond ((eq erase 'ignore))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6979 (erase
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6980 (erase-buffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6981 (setq erase 'ignore)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
6982 (let ((files
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6983 (condition-case err
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
6984 (directory-files file t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6985 (if recurse nil cperl-scan-files-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6986 t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6987 (error
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6988 (if cperl-unreadable-ok nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6989 (if (y-or-n-p
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6990 (format "Directory %s unreadable. Continue? " file))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
6991 (setq cperl-unreadable-ok t
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6992 tm nil) ; Return empty list
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6993 (error "Aborting: unreadable directory %s" file)))))))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
6994 (mapc (function
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
6995 (lambda (file)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
6996 (cond
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
6997 ((string-match cperl-noscan-files-regexp file)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
6998 nil)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
6999 ((not (file-directory-p file))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7000 (if (string-match cperl-scan-files-regexp file)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7001 (cperl-write-tags file erase recurse nil t noxs topdir)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7002 ((not recurse) nil)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7003 (t (cperl-write-tags file erase recurse t t noxs topdir)))))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7004 files)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7005 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7006 (setq xs (string-match "\\.xs$" file))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7007 (if (not (and xs noxs))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7008 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7009 (cond ((eq erase 'ignore) (goto-char (point-max)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7010 (erase (erase-buffer))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7011 (t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7012 (goto-char 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7013 (setq rel file)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7014 ;; On case-preserving filesystems (EMX on OS/2) case might be encoded in properties
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7015 (set-text-properties 0 (length rel) nil rel)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7016 (and (equal topdir (substring rel 0 (length topdir)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7017 (setq rel (substring file (length topdir))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7018 (if (search-forward (concat "\f\n" rel ",") nil t)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7019 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7020 (search-backward "\f\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7021 (delete-region (point)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7022 (save-excursion
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7023 (forward-char 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7024 (if (search-forward "\f\n"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7025 nil 'toend)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7026 (- (point) 2)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7027 (point-max)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7028 (goto-char (point-max)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7029 (insert (cperl-find-tags file xs topdir))))))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7030 (if inbuffer nil ; Delegate to the caller
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7031 (save-buffer 0) ; No backup
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7032 (if (fboundp 'initialize-new-tags-table) ; Do we need something special in XEmacs?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7033 (initialize-new-tags-table))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7034
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7035 (defvar cperl-tags-hier-regexp-list
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7036 (concat
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7037 "^\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7038 "\\(package\\)\\>"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7039 "\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7040 "sub\\>[^\n]+::"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7041 "\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7042 "[a-zA-Z_][a-zA-Z_0-9:]*(\C-?[^\n]+::" ; XSUB?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7043 "\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7044 "[ \t]*BOOT:\C-?[^\n]+::" ; BOOT section
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7045 "\\)"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7046
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7047 (defvar cperl-hierarchy '(() ())
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
7048 "Global hierarchy of classes.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7049
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7050 (defun cperl-tags-hier-fill ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7051 ;; Suppose we are in a tag table cooked by cperl.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7052 (goto-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7053 (let (type pack name pos line chunk ord cons1 file str info fileind)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7054 (while (re-search-forward cperl-tags-hier-regexp-list nil t)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7055 (setq pos (match-beginning 0)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7056 pack (match-beginning 2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7057 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7058 (if (looking-at (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7059 "\\([^\n]+\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7060 "\C-?"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7061 "\\([^\n]+\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7062 "\C-a"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7063 "\\([0-9]+\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7064 ","
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7065 "\\([0-9]+\\)"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7066 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7067 (setq ;;str (buffer-substring (match-beginning 1) (match-end 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7068 name (buffer-substring (match-beginning 2) (match-end 2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7069 ;;pos (buffer-substring (match-beginning 3) (match-end 3))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7070 line (buffer-substring (match-beginning 3) (match-end 3))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7071 ord (if pack 1 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7072 file (file-of-tag)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7073 fileind (format "%s:%s" file line)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7074 ;; Moves to beginning of the next line:
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7075 info (cperl-etags-snarf-tag file line))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7076 ;; Move back
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7077 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7078 ;; Make new member of hierarchy name ==> file ==> pos if needed
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7079 (if (setq cons1 (assoc name (nth ord cperl-hierarchy)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7080 ;; Name known
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7081 (setcdr cons1 (cons (cons fileind (vector file info))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7082 (cdr cons1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7083 ;; First occurrence of the name, start alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7084 (setq cons1 (cons name (list (cons fileind (vector file info)))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7085 (if pack
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7086 (setcar (cdr cperl-hierarchy)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7087 (cons cons1 (nth 1 cperl-hierarchy)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7088 (setcar cperl-hierarchy
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7089 (cons cons1 (car cperl-hierarchy)))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7090 (end-of-line))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7091
97422
6e551caf98f6 Add declarations for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 96459
diff changeset
7092 (declare-function x-popup-menu "xmenu.c" (position menu))
6e551caf98f6 Add declarations for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 96459
diff changeset
7093
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7094 (defun cperl-tags-hier-init (&optional update)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7095 "Show hierarchical menu of classes and methods.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7096 Finds info about classes by a scan of loaded TAGS files.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7097 Supposes that the TAGS files contain fully qualified function names.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7098 One may build such TAGS files from CPerl mode menu."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7099 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7100 (require 'etags)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7101 (require 'imenu)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7102 (if (or update (null (nth 2 cperl-hierarchy)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7103 (let ((remover (function (lambda (elt) ; (name (file1...) (file2..))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7104 (or (nthcdr 2 elt)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7105 ;; Only in one file
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7106 (setcdr elt (cdr (nth 1 elt)))))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7107 pack name cons1 to l1 l2 l3 l4 b)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7108 ;; (setq cperl-hierarchy '(() () ())) ; Would write into '() later!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7109 (setq cperl-hierarchy (list l1 l2 l3))
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
7110 (if (featurep 'xemacs) ; Not checked
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7111 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7112 (or tags-file-name
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7113 ;; Does this work in XEmacs?
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7114 (call-interactively 'visit-tags-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7115 (message "Updating list of classes...")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7116 (set-buffer (get-file-buffer tags-file-name))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7117 (cperl-tags-hier-fill))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7118 (or tags-table-list
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7119 (call-interactively 'visit-tags-table))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7120 (mapc
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7121 (function
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7122 (lambda (tagsfile)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7123 (message "Updating list of classes... %s" tagsfile)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7124 (set-buffer (get-file-buffer tagsfile))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7125 (cperl-tags-hier-fill)))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7126 tags-table-list)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7127 (message "Updating list of classes... postprocessing..."))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7128 (mapc remover (car cperl-hierarchy))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7129 (mapc remover (nth 1 cperl-hierarchy))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7130 (setq to (list nil (cons "Packages: " (nth 1 cperl-hierarchy))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7131 (cons "Methods: " (car cperl-hierarchy))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7132 (cperl-tags-treeify to 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7133 (setcar (nthcdr 2 cperl-hierarchy)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7134 (cperl-menu-to-keymap (cons '("+++UPDATE+++" . -999) (cdr to))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7135 (message "Updating list of classes: done, requesting display...")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7136 ;;(cperl-imenu-addback (nth 2 cperl-hierarchy))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7137 ))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7138 (or (nth 2 cperl-hierarchy)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7139 (error "No items found"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7140 (setq update
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7141 ;;; (imenu-choose-buffer-index "Packages: " (nth 2 cperl-hierarchy))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7142 (if (if (fboundp 'display-popup-menus-p)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7143 (let ((f 'display-popup-menus-p))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7144 (funcall f))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7145 window-system)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7146 (x-popup-menu t (nth 2 cperl-hierarchy))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7147 (require 'tmm)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7148 (tmm-prompt (nth 2 cperl-hierarchy))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7149 (if (and update (listp update))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7150 (progn (while (cdr update) (setq update (cdr update)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7151 (setq update (car update)))) ; Get the last from the list
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7152 (if (vectorp update)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7153 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7154 (find-file (elt update 0))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7155 (cperl-etags-goto-tag-location (elt update 1))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7156 (if (eq update -999) (cperl-tags-hier-init t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7157
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7158 (defun cperl-tags-treeify (to level)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7159 ;; cadr of `to' is read-write. On start it is a cons
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7160 (let* ((regexp (concat "^\\(" (mapconcat
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7161 'identity
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7162 (make-list level "[_a-zA-Z0-9]+")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7163 "::")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7164 "\\)\\(::\\)?"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7165 (packages (cdr (nth 1 to)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7166 (methods (cdr (nth 2 to)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7167 l1 head tail cons1 cons2 ord writeto packs recurse
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7168 root-packages root-functions ms many_ms same_name ps
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7169 (move-deeper
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7170 (function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7171 (lambda (elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7172 (cond ((and (string-match regexp (car elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7173 (or (eq ord 1) (match-end 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7174 (setq head (substring (car elt) 0 (match-end 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7175 tail (if (match-end 2) (substring (car elt)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7176 (match-end 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7177 recurse t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7178 (if (setq cons1 (assoc head writeto)) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7179 ;; Need to init new head
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7180 (setcdr writeto (cons (list head (list "Packages: ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7181 (list "Methods: "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7182 (cdr writeto)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7183 (setq cons1 (nth 1 writeto)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7184 (setq cons2 (nth ord cons1)) ; Either packs or meths
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7185 (setcdr cons2 (cons elt (cdr cons2))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7186 ((eq ord 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7187 (setq root-functions (cons elt root-functions)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7188 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7189 (setq root-packages (cons elt root-packages))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7190 (setcdr to l1) ; Init to dynamic space
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7191 (setq writeto to)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7192 (setq ord 1)
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7193 (mapc move-deeper packages)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7194 (setq ord 2)
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7195 (mapc move-deeper methods)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7196 (if recurse
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7197 (mapc (function (lambda (elt)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7198 (cperl-tags-treeify elt (1+ level))))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7199 (cdr to)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7200 ;;Now clean up leaders with one child only
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7201 (mapc (function (lambda (elt)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7202 (if (not (and (listp (cdr elt))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7203 (eq (length elt) 2))) nil
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7204 (setcar elt (car (nth 1 elt)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7205 (setcdr elt (cdr (nth 1 elt))))))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7206 (cdr to))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7207 ;; Sort the roots of subtrees
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7208 (if (default-value 'imenu-sort-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7209 (setcdr to
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7210 (sort (cdr to) (default-value 'imenu-sort-function))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7211 ;; Now add back functions removed from display
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7212 (mapc (function (lambda (elt)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7213 (setcdr to (cons elt (cdr to)))))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7214 (if (default-value 'imenu-sort-function)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7215 (nreverse
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7216 (sort root-functions (default-value 'imenu-sort-function)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7217 root-functions))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7218 ;; Now add back packages removed from display
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7219 (mapc (function (lambda (elt)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7220 (setcdr to (cons (cons (concat "package " (car elt))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7221 (cdr elt))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7222 (cdr to)))))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7223 (if (default-value 'imenu-sort-function)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7224 (nreverse
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7225 (sort root-packages (default-value 'imenu-sort-function)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7226 root-packages))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7227
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7228 ;;;(x-popup-menu t
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7229 ;;; '(keymap "Name1"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7230 ;;; ("Ret1" "aa")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7231 ;;; ("Head1" "ab"
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7232 ;;; keymap "Name2"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7233 ;;; ("Tail1" "x") ("Tail2" "y"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7234
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7235 (defun cperl-list-fold (list name limit)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7236 (let (list1 list2 elt1 (num 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7237 (if (<= (length list) limit) list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7238 (setq list1 nil list2 nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7239 (while list
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7240 (setq num (1+ num)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7241 elt1 (car list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7242 list (cdr list))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7243 (if (<= num imenu-max-items)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7244 (setq list2 (cons elt1 list2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7245 (setq list1 (cons (cons name
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7246 (nreverse list2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7247 list1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7248 list2 (list elt1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7249 num 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7250 (nreverse (cons (cons name
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7251 (nreverse list2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7252 list1)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7253
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7254 (defun cperl-menu-to-keymap (menu &optional name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7255 (let (list)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7256 (cons 'keymap
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7257 (mapcar
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7258 (function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7259 (lambda (elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7260 (cond ((listp (cdr elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7261 (setq list (cperl-list-fold
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7262 (cdr elt) (car elt) imenu-max-items))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7263 (cons nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7264 (cons (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7265 (cperl-menu-to-keymap list))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7266 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7267 (list (cdr elt) (car elt) t))))) ; t is needed in 19.34
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7268 (cperl-list-fold menu "Root" imenu-max-items)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7269
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7270
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7271 (defvar cperl-bad-style-regexp
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7272 (mapconcat 'identity
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7273 '("[^-\n\t <>=+!.&|(*/'`\"#^][-=+<>!|&^]" ; char sign
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
7274 "[-<>=+^&|]+[^- \t\n=+<>~]") ; sign+ char
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7275 "\\|")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7276 "Finds places such that insertion of a whitespace may help a lot.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7277
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7278 (defvar cperl-not-bad-style-regexp
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
7279 (mapconcat
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7280 'identity
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7281 '("[^-\t <>=+]\\(--\\|\\+\\+\\)" ; var-- var++
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7282 "[a-zA-Z0-9_][|&][a-zA-Z0-9_$]" ; abc|def abc&def are often used.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7283 "&[(a-zA-Z0-9_$]" ; &subroutine &(var->field)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7284 "<\\$?\\sw+\\(\\.\\(\\sw\\|_\\)+\\)?>" ; <IN> <stdin.h>
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7285 "-[a-zA-Z][ \t]+[_$\"'`a-zA-Z]" ; -f file, -t STDIN
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7286 "-[0-9]" ; -5
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7287 "\\+\\+" ; ++var
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7288 "--" ; --var
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7289 ".->" ; a->b
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7290 "->" ; a SPACE ->b
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7291 "\\[-" ; a[-1]
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7292 "\\\\[&$@*\\\\]" ; \&func
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7293 "^=" ; =head
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7294 "\\$." ; $|
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7295 "<<[a-zA-Z_'\"`]" ; <<FOO, <<'FOO'
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7296 "||"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7297 "&&"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7298 "[CBIXSLFZ]<\\(\\sw\\|\\s \\|\\s_\\|[\n]\\)*>" ; C<code like text>
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7299 "-[a-zA-Z_0-9]+[ \t]*=>" ; -option => value
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7300 ;; Unaddressed trouble spots: = -abc, f(56, -abc) --- specialcased below
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7301 ;;"[*/+-|&<.]+="
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7302 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7303 "\\|")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7304 "If matches at the start of match found by `my-bad-c-style-regexp',
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7305 insertion of a whitespace will not help.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7306
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7307 (defvar found-bad)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7308
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7309 (defun cperl-find-bad-style ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7310 "Find places in the buffer where insertion of a whitespace may help.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7311 Prompts user for insertion of spaces.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7312 Currently it is tuned to C and Perl syntax."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7313 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7314 (let (found-bad (p (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7315 (setq last-nonmenu-event 13) ; To disable popup
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7316 (goto-char (point-min))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7317 (map-y-or-n-p "Insert space here? "
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7318 (lambda (arg) (insert " "))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7319 'cperl-next-bad-style
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7320 '("location" "locations" "insert a space into")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7321 '((?\C-r (lambda (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7322 (let ((buffer-quit-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7323 'exit-recursive-edit))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7324 (message "Exit with Esc Esc")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7325 (recursive-edit)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7326 t)) ; Consider acted upon
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7327 "edit, exit with Esc Esc")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7328 (?e (lambda (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7329 (let ((buffer-quit-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7330 'exit-recursive-edit))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7331 (message "Exit with Esc Esc")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7332 (recursive-edit)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7333 t)) ; Consider acted upon
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7334 "edit, exit with Esc Esc"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7335 t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7336 (if found-bad (goto-char found-bad)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7337 (goto-char p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7338 (message "No appropriate place found"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7339
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7340 (defun cperl-next-bad-style ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7341 (let (p (not-found t) (point (point)) found)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7342 (while (and not-found
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7343 (re-search-forward cperl-bad-style-regexp nil 'to-end))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7344 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7345 (goto-char (match-beginning 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7346 (if (or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7347 (looking-at cperl-not-bad-style-regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7348 ;; Check for a < -b and friends
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7349 (and (eq (following-char) ?\-)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7350 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7351 (skip-chars-backward " \t\n")
49789
aca582e2f94c (cperl-next-bad-style): Fix use of character constant.
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
7352 (memq (preceding-char) '(?\= ?\> ?\< ?\, ?\( ?\[ ?\{))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7353 ;; Now check for syntax type
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7354 (save-match-data
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7355 (setq found (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7356 (beginning-of-defun)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7357 (let ((pps (parse-partial-sexp (point) found)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7358 (or (nth 3 pps) (nth 4 pps) (nth 5 pps)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7359 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7360 (goto-char (1- p))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7361 (setq not-found nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7362 found-bad found)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7363 (not not-found)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7364
27248
ae566f9903df Replace ^F with ^L.
Gerd Moellmann <gerd@gnu.org>
parents: 26667
diff changeset
7365
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7366 ;;; Getting help
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7367 (defvar cperl-have-help-regexp
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7368 ;;(concat "\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7369 (mapconcat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7370 'identity
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7371 '("[$@%*&][0-9a-zA-Z_:]+\\([ \t]*[[{]\\)?" ; Usual variable
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7372 "[$@]\\^[a-zA-Z]" ; Special variable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7373 "[$@][^ \n\t]" ; Special variable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7374 "-[a-zA-Z]" ; File test
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7375 "\\\\[a-zA-Z0]" ; Special chars
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7376 "^=[a-z][a-zA-Z0-9_]*" ; POD sections
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7377 "[-!&*+,-./<=>?\\\\^|~]+" ; Operator
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7378 "[a-zA-Z_0-9:]+" ; symbol or number
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7379 "x="
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7380 "#!")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7381 ;;"\\)\\|\\("
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7382 "\\|")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7383 ;;"\\)"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7384 ;;)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7385 "Matches places in the buffer we can find help for.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7386
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7387 (defvar cperl-message-on-help-error t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7388 (defvar cperl-help-from-timer nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7389
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7390 (defun cperl-word-at-point-hard ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7391 ;; Does not save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7392 ;; Get to the something meaningful
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7393 (or (eobp) (eolp) (forward-char 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7394 (re-search-backward "[-a-zA-Z0-9_:!&*+,-./<=>?\\\\^|~$%@]"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7395 (save-excursion (beginning-of-line) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7396 'to-beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7397 ;; (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7398 ;; ((or (eobp) (looking-at "[][ \t\n{}();,]")) ; Not at a symbol
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7399 ;; (skip-chars-backward " \n\t\r({[]});,")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7400 ;; (or (bobp) (backward-char 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7401 ;; Try to backtrace
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7402 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7403 ((looking-at "[a-zA-Z0-9_:]") ; symbol
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7404 (skip-chars-backward "a-zA-Z0-9_:")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7405 (cond
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7406 ((and (eq (preceding-char) ?^) ; $^I
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7407 (eq (char-after (- (point) 2)) ?\$))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7408 (forward-char -2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7409 ((memq (preceding-char) (append "*$@%&\\" nil)) ; *glob
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7410 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7411 ((and (eq (preceding-char) ?\=)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7412 (eq (current-column) 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7413 (forward-char -1))) ; =head1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7414 (if (and (eq (preceding-char) ?\<)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7415 (looking-at "\\$?[a-zA-Z0-9_:]+>")) ; <FH>
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7416 (forward-char -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7417 ((and (looking-at "=") (eq (preceding-char) ?x)) ; x=
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7418 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7419 ((and (looking-at "\\^") (eq (preceding-char) ?\$)) ; $^I
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7420 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7421 ((looking-at "[-!&*+,-./<=>?\\\\^|~]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7422 (skip-chars-backward "-!&*+,-./<=>?\\\\^|~")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7423 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7424 ((and (eq (preceding-char) ?\$)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7425 (not (eq (char-after (- (point) 2)) ?\$))) ; $-
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7426 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7427 ((and (eq (following-char) ?\>)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7428 (string-match "[a-zA-Z0-9_]" (char-to-string (preceding-char)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7429 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7430 (forward-sexp -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7431 (and (eq (preceding-char) ?\<)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7432 (looking-at "\\$?[a-zA-Z0-9_:]+>")))) ; <FH>
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7433 (search-backward "<"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7434 ((and (eq (following-char) ?\$)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7435 (eq (preceding-char) ?\<)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7436 (looking-at "\\$?[a-zA-Z0-9_:]+>")) ; <$fh>
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7437 (forward-char -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7438 (if (looking-at cperl-have-help-regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7439 (buffer-substring (match-beginning 0) (match-end 0))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7440
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7441 (defun cperl-get-help ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7442 "Get one-line docs on the symbol at the point.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7443 The data for these docs is a little bit obsolete and may be in fact longer
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7444 than a line. Your contribution to update/shorten it is appreciated."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7445 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7446 (save-match-data ; May be called "inside" query-replace
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7447 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7448 (let ((word (cperl-word-at-point-hard)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7449 (if word
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7450 (if (and cperl-help-from-timer ; Bail out if not in mainland
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7451 (not (string-match "^#!\\|\\\\\\|^=" word)) ; Show help even in comments/strings.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7452 (or (memq (get-text-property (point) 'face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7453 '(font-lock-comment-face font-lock-string-face))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7454 (memq (get-text-property (point) 'syntax-type)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7455 '(pod here-doc format))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7456 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7457 (cperl-describe-perl-symbol word))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7458 (if cperl-message-on-help-error
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7459 (message "Nothing found for %s..."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7460 (buffer-substring (point) (min (+ 5 (point)) (point-max))))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7461
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7462 ;;; Stolen from perl-descr.el by Johan Vromans:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7463
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7464 (defvar cperl-doc-buffer " *perl-doc*"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7465 "Where the documentation can be found.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7466
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7467 (defun cperl-describe-perl-symbol (val)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7468 "Display the documentation of symbol at point, a Perl operator."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7469 (let ((enable-recursive-minibuffers t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7470 args-file regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7471 (cond
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7472 ((string-match "^[&*][a-zA-Z_]" val)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7473 (setq val (concat (substring val 0 1) "NAME")))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7474 ((string-match "^[$@]\\([a-zA-Z_:0-9]+\\)[ \t]*\\[" val)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7475 (setq val (concat "@" (substring val 1 (match-end 1)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7476 ((string-match "^[$@]\\([a-zA-Z_:0-9]+\\)[ \t]*{" val)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7477 (setq val (concat "%" (substring val 1 (match-end 1)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7478 ((and (string= val "x") (string-match "^x=" val))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7479 (setq val "x="))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7480 ((string-match "^\\$[\C-a-\C-z]" val)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7481 (setq val (concat "$^" (char-to-string (+ ?A -1 (aref val 1))))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7482 ((string-match "^CORE::" val)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7483 (setq val "CORE::"))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7484 ((string-match "^SUPER::" val)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7485 (setq val "SUPER::"))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7486 ((and (string= "<" val) (string-match "^<\\$?[a-zA-Z0-9_:]+>" val))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7487 (setq val "<NAME>")))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7488 (setq regexp (concat "^"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7489 "\\([^a-zA-Z0-9_:]+[ \t]+\\)?"
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7490 (regexp-quote val)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7491 "\\([ \t([/]\\|$\\)"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7492
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7493 ;; get the buffer with the documentation text
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7494 (cperl-switch-to-doc-buffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7495
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7496 ;; lookup in the doc
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7497 (goto-char (point-min))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7498 (let ((case-fold-search nil))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7499 (list
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7500 (if (re-search-forward regexp (point-max) t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7501 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7502 (beginning-of-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7503 (let ((lnstart (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7504 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7505 (message "%s" (buffer-substring lnstart (point)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7506 (if cperl-message-on-help-error
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7507 (message "No definition for %s" val)))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7508
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7509 (defvar cperl-short-docs 'please-ignore-this-line
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7510 ;; Perl4 version was written by Johan Vromans (jvromans@squirrel.nl)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7511 "# based on '@(#)@ perl-descr.el 1.9 - describe-perl-symbol' [Perl 5]
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
7512 ... Range (list context); flip/flop [no flop when flip] (scalar context).
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7513 ! ... Logical negation.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7514 ... != ... Numeric inequality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7515 ... !~ ... Search pattern, substitution, or translation (negated).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7516 $! In numeric context: errno. In a string context: error string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7517 $\" The separator which joins elements of arrays interpolated in strings.
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
7518 $# The output format for printed numbers. Default is %.15g or close.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7519 $$ Process number of this script. Changes in the fork()ed child process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7520 $% The current page number of the currently selected output channel.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7521
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7522 The following variables are always local to the current block:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7523
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7524 $1 Match of the 1st set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7525 $2 Match of the 2nd set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7526 $3 Match of the 3rd set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7527 $4 Match of the 4th set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7528 $5 Match of the 5th set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7529 $6 Match of the 6th set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7530 $7 Match of the 7th set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7531 $8 Match of the 8th set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7532 $9 Match of the 9th set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7533 $& The string matched by the last pattern match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7534 $' The string after what was matched by the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7535 $` The string before what was matched by the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7536
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7537 $( The real gid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7538 $) The effective gid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7539 $* Deprecated: Set to 1 to do multiline matching within a string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7540 $+ The last bracket matched by the last search pattern.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7541 $, The output field separator for the print operator.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7542 $- The number of lines left on the page.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7543 $. The current input line number of the last filehandle that was read.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7544 $/ The input record separator, newline by default.
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
7545 $0 Name of the file containing the current perl script (read/write).
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7546 $: String may be broken after these characters to fill ^-lines in a format.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7547 $; Subscript separator for multi-dim array emulation. Default \"\\034\".
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7548 $< The real uid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7549 $= The page length of the current output channel. Default is 60 lines.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7550 $> The effective uid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7551 $? The status returned by the last ``, pipe close or `system'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7552 $@ The perl error message from the last eval or do @var{EXPR} command.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7553 $ARGV The name of the current file used with <> .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7554 $[ Deprecated: The index of the first element/char in an array/string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7555 $\\ The output record separator for the print operator.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7556 $] The perl version string as displayed with perl -v.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7557 $^ The name of the current top-of-page format.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7558 $^A The current value of the write() accumulator for format() lines.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7559 $^D The value of the perl debug (-D) flags.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7560 $^E Information about the last system error other than that provided by $!.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7561 $^F The highest system file descriptor, ordinarily 2.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7562 $^H The current set of syntax checks enabled by `use strict'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7563 $^I The value of the in-place edit extension (perl -i option).
71304
7293b63aa3ba (cperl-short-docs): Fix quoting
Andreas Schwab <schwab@suse.de>
parents: 68773
diff changeset
7564 $^L What formats output to perform a formfeed. Default is \\f.
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7565 $^M A buffer for emergency memory allocation when running out of memory.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7566 $^O The operating system name under which this copy of Perl was built.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7567 $^P Internal debugging flag.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7568 $^T The time the script was started. Used by -A/-M/-C file tests.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7569 $^W True if warnings are requested (perl -w flag).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7570 $^X The name under which perl was invoked (argv[0] in C-speech).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7571 $_ The default input and pattern-searching space.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7572 $| Auto-flush after write/print on current output channel? Default 0.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7573 $~ The name of the current report format.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7574 ... % ... Modulo division.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7575 ... %= ... Modulo division assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7576 %ENV Contains the current environment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7577 %INC List of files that have been require-d or do-ne.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7578 %SIG Used to set signal handlers for various signals.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7579 ... & ... Bitwise and.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7580 ... && ... Logical and.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7581 ... &&= ... Logical and assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7582 ... &= ... Bitwise and assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7583 ... * ... Multiplication.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7584 ... ** ... Exponentiation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7585 *NAME Glob: all objects refered by NAME. *NAM1 = *NAM2 aliases NAM1 to NAM2.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7586 &NAME(arg0, ...) Subroutine call. Arguments go to @_.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7587 ... + ... Addition. +EXPR Makes EXPR into scalar context.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7588 ++ Auto-increment (magical on strings). ++EXPR EXPR++
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7589 ... += ... Addition assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7590 , Comma operator.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7591 ... - ... Subtraction.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7592 -- Auto-decrement (NOT magical on strings). --EXPR EXPR--
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7593 ... -= ... Subtraction assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7594 -A Access time in days since script started.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7595 -B File is a non-text (binary) file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7596 -C Inode change time in days since script started.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7597 -M Age in days since script started.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7598 -O File is owned by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7599 -R File is readable by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7600 -S File is a socket .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7601 -T File is a text file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7602 -W File is writable by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7603 -X File is executable by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7604 -b File is a block special file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7605 -c File is a character special file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7606 -d File is a directory.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7607 -e File exists .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7608 -f File is a plain file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7609 -g File has setgid bit set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7610 -k File has sticky bit set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7611 -l File is a symbolic link.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7612 -o File is owned by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7613 -p File is a named pipe (FIFO).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7614 -r File is readable by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7615 -s File has non-zero size.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7616 -t Tests if filehandle (STDIN by default) is opened to a tty.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7617 -u File has setuid bit set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7618 -w File is writable by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7619 -x File is executable by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7620 -z File has zero size.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7621 . Concatenate strings.
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
7622 .. Range (list context); flip/flop (scalar context) operator.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7623 .= Concatenate assignment strings
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7624 ... / ... Division. /PATTERN/ioxsmg Pattern match
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7625 ... /= ... Division assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7626 /PATTERN/ioxsmg Pattern match.
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
7627 ... < ... Numeric less than. <pattern> Glob. See <NAME>, <> as well.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7628 <NAME> Reads line from filehandle NAME (a bareword or dollar-bareword).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7629 <pattern> Glob (Unless pattern is bareword/dollar-bareword - see <NAME>).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7630 <> Reads line from union of files in @ARGV (= command line) and STDIN.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7631 ... << ... Bitwise shift left. << start of HERE-DOCUMENT.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7632 ... <= ... Numeric less than or equal to.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7633 ... <=> ... Numeric compare.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7634 ... = ... Assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7635 ... == ... Numeric equality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7636 ... =~ ... Search pattern, substitution, or translation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7637 ... > ... Numeric greater than.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7638 ... >= ... Numeric greater than or equal to.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7639 ... >> ... Bitwise shift right.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7640 ... >>= ... Bitwise shift right assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7641 ... ? ... : ... Condition=if-then-else operator. ?PAT? One-time pattern match.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7642 ?PATTERN? One-time pattern match.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7643 @ARGV Command line arguments (not including the command name - see $0).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7644 @INC List of places to look for perl scripts during do/include/use.
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
7645 @_ Parameter array for subroutines; result of split() unless in list context.
71304
7293b63aa3ba (cperl-short-docs): Fix quoting
Andreas Schwab <schwab@suse.de>
parents: 68773
diff changeset
7646 \\ Creates reference to what follows, like \\$var, or quotes non-\\w in strings.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7647 \\0 Octal char, e.g. \\033.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7648 \\E Case modification terminator. See \\Q, \\L, and \\U.
71304
7293b63aa3ba (cperl-short-docs): Fix quoting
Andreas Schwab <schwab@suse.de>
parents: 68773
diff changeset
7649 \\L Lowercase until \\E . See also \\l, lc.
7293b63aa3ba (cperl-short-docs): Fix quoting
Andreas Schwab <schwab@suse.de>
parents: 68773
diff changeset
7650 \\U Upcase until \\E . See also \\u, uc.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7651 \\Q Quote metacharacters until \\E . See also quotemeta.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7652 \\a Alarm character (octal 007).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7653 \\b Backspace character (octal 010).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7654 \\c Control character, e.g. \\c[ .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7655 \\e Escape character (octal 033).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7656 \\f Formfeed character (octal 014).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7657 \\l Lowercase the next character. See also \\L and \\u, lcfirst.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7658 \\n Newline character (octal 012 on most systems).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7659 \\r Return character (octal 015 on most systems).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7660 \\t Tab character (octal 011).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7661 \\u Upcase the next character. See also \\U and \\l, ucfirst.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7662 \\x Hex character, e.g. \\x1b.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7663 ... ^ ... Bitwise exclusive or.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7664 __END__ Ends program source.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7665 __DATA__ Ends program source.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7666 __FILE__ Current (source) filename.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7667 __LINE__ Current line in current source.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7668 __PACKAGE__ Current package.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7669 ARGV Default multi-file input filehandle. <ARGV> is a synonym for <>.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7670 ARGVOUT Output filehandle with -i flag.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7671 BEGIN { ... } Immediately executed (during compilation) piece of code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7672 END { ... } Pseudo-subroutine executed after the script finishes.
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7673 CHECK { ... } Pseudo-subroutine executed after the script is compiled.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7674 INIT { ... } Pseudo-subroutine executed before the script starts running.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7675 DATA Input filehandle for what follows after __END__ or __DATA__.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7676 accept(NEWSOCKET,GENERICSOCKET)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7677 alarm(SECONDS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7678 atan2(X,Y)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7679 bind(SOCKET,NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7680 binmode(FILEHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7681 caller[(LEVEL)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7682 chdir(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7683 chmod(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7684 chop[(LIST|VAR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7685 chown(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7686 chroot(FILENAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7687 close(FILEHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7688 closedir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7689 ... cmp ... String compare.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7690 connect(SOCKET,NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7691 continue of { block } continue { block }. Is executed after `next' or at end.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7692 cos(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7693 crypt(PLAINTEXT,SALT)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7694 dbmclose(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7695 dbmopen(%HASH,DBNAME,MODE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7696 defined(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7697 delete($HASH{KEY})
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7698 die(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7699 do { ... }|SUBR while|until EXPR executes at least once
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7700 do(EXPR|SUBR([LIST])) (with while|until executes at least once)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7701 dump LABEL
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7702 each(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7703 endgrent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7704 endhostent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7705 endnetent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7706 endprotoent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7707 endpwent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7708 endservent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7709 eof[([FILEHANDLE])]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7710 ... eq ... String equality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7711 eval(EXPR) or eval { BLOCK }
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7712 exec([TRUENAME] ARGV0, ARGVs) or exec(SHELL_COMMAND_LINE)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7713 exit(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7714 exp(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7715 fcntl(FILEHANDLE,FUNCTION,SCALAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7716 fileno(FILEHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7717 flock(FILEHANDLE,OPERATION)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7718 for (EXPR;EXPR;EXPR) { ... }
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7719 foreach [VAR] (@ARRAY) { ... }
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7720 fork
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7721 ... ge ... String greater than or equal.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7722 getc[(FILEHANDLE)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7723 getgrent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7724 getgrgid(GID)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7725 getgrnam(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7726 gethostbyaddr(ADDR,ADDRTYPE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7727 gethostbyname(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7728 gethostent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7729 getlogin
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7730 getnetbyaddr(ADDR,ADDRTYPE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7731 getnetbyname(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7732 getnetent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7733 getpeername(SOCKET)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7734 getpgrp(PID)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7735 getppid
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7736 getpriority(WHICH,WHO)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7737 getprotobyname(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7738 getprotobynumber(NUMBER)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7739 getprotoent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7740 getpwent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7741 getpwnam(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7742 getpwuid(UID)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7743 getservbyname(NAME,PROTO)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7744 getservbyport(PORT,PROTO)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7745 getservent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7746 getsockname(SOCKET)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7747 getsockopt(SOCKET,LEVEL,OPTNAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7748 gmtime(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7749 goto LABEL
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7750 ... gt ... String greater than.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7751 hex(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7752 if (EXPR) { ... } [ elsif (EXPR) { ... } ... ] [ else { ... } ] or EXPR if EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7753 index(STR,SUBSTR[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7754 int(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7755 ioctl(FILEHANDLE,FUNCTION,SCALAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7756 join(EXPR,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7757 keys(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7758 kill(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7759 last [LABEL]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7760 ... le ... String less than or equal.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7761 length(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7762 link(OLDFILE,NEWFILE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7763 listen(SOCKET,QUEUESIZE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7764 local(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7765 localtime(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7766 log(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7767 lstat(EXPR|FILEHANDLE|VAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7768 ... lt ... String less than.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7769 m/PATTERN/iogsmx
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7770 mkdir(FILENAME,MODE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7771 msgctl(ID,CMD,ARG)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7772 msgget(KEY,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7773 msgrcv(ID,VAR,SIZE,TYPE.FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7774 msgsnd(ID,MSG,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7775 my VAR or my (VAR1,...) Introduces a lexical variable ($VAR, @ARR, or %HASH).
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7776 our VAR or our (VAR1,...) Lexically enable a global variable ($V, @A, or %H).
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7777 ... ne ... String inequality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7778 next [LABEL]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7779 oct(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7780 open(FILEHANDLE[,EXPR])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7781 opendir(DIRHANDLE,EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7782 ord(EXPR) ASCII value of the first char of the string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7783 pack(TEMPLATE,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7784 package NAME Introduces package context.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7785 pipe(READHANDLE,WRITEHANDLE) Create a pair of filehandles on ends of a pipe.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7786 pop(ARRAY)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7787 print [FILEHANDLE] [(LIST)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7788 printf [FILEHANDLE] (FORMAT,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7789 push(ARRAY,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7790 q/STRING/ Synonym for 'STRING'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7791 qq/STRING/ Synonym for \"STRING\"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7792 qx/STRING/ Synonym for `STRING`
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7793 rand[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7794 read(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7795 readdir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7796 readlink(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7797 recv(SOCKET,SCALAR,LEN,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7798 redo [LABEL]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7799 rename(OLDNAME,NEWNAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7800 require [FILENAME | PERL_VERSION]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7801 reset[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7802 return(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7803 reverse(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7804 rewinddir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7805 rindex(STR,SUBSTR[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7806 rmdir(FILENAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7807 s/PATTERN/REPLACEMENT/gieoxsm
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7808 scalar(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7809 seek(FILEHANDLE,POSITION,WHENCE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7810 seekdir(DIRHANDLE,POS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7811 select(FILEHANDLE | RBITS,WBITS,EBITS,TIMEOUT)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7812 semctl(ID,SEMNUM,CMD,ARG)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7813 semget(KEY,NSEMS,SIZE,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7814 semop(KEY,...)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7815 send(SOCKET,MSG,FLAGS[,TO])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7816 setgrent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7817 sethostent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7818 setnetent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7819 setpgrp(PID,PGRP)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7820 setpriority(WHICH,WHO,PRIORITY)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7821 setprotoent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7822 setpwent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7823 setservent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7824 setsockopt(SOCKET,LEVEL,OPTNAME,OPTVAL)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7825 shift[(ARRAY)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7826 shmctl(ID,CMD,ARG)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7827 shmget(KEY,SIZE,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7828 shmread(ID,VAR,POS,SIZE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7829 shmwrite(ID,STRING,POS,SIZE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7830 shutdown(SOCKET,HOW)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7831 sin(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7832 sleep[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7833 socket(SOCKET,DOMAIN,TYPE,PROTOCOL)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7834 socketpair(SOCKET1,SOCKET2,DOMAIN,TYPE,PROTOCOL)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7835 sort [SUBROUTINE] (LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7836 splice(ARRAY,OFFSET[,LENGTH[,LIST]])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7837 split[(/PATTERN/[,EXPR[,LIMIT]])]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7838 sprintf(FORMAT,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7839 sqrt(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7840 srand(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7841 stat(EXPR|FILEHANDLE|VAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7842 study[(SCALAR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7843 sub [NAME [(format)]] { BODY } sub NAME [(format)]; sub [(format)] {...}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7844 substr(EXPR,OFFSET[,LEN])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7845 symlink(OLDFILE,NEWFILE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7846 syscall(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7847 sysread(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7848 system([TRUENAME] ARGV0 [,ARGV]) or system(SHELL_COMMAND_LINE)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7849 syswrite(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7850 tell[(FILEHANDLE)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7851 telldir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7852 time
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7853 times
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7854 tr/SEARCHLIST/REPLACEMENTLIST/cds
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7855 truncate(FILE|EXPR,LENGTH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7856 umask[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7857 undef[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7858 unless (EXPR) { ... } [ else { ... } ] or EXPR unless EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7859 unlink(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7860 unpack(TEMPLATE,EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7861 unshift(ARRAY,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7862 until (EXPR) { ... } EXPR until EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7863 utime(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7864 values(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7865 vec(EXPR,OFFSET,BITS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7866 wait
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7867 waitpid(PID,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7868 wantarray Returns true if the sub/eval is called in list context.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7869 warn(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7870 while (EXPR) { ... } EXPR while EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7871 write[(EXPR|FILEHANDLE)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7872 ... x ... Repeat string or array.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7873 x= ... Repetition assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7874 y/SEARCHLIST/REPLACEMENTLIST/
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7875 ... | ... Bitwise or.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7876 ... || ... Logical or.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7877 ~ ... Unary bitwise complement.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7878 #! OS interpreter indicator. If contains `perl', used for options, and -x.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7879 AUTOLOAD {...} Shorthand for `sub AUTOLOAD {...}'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7880 CORE:: Prefix to access builtin function if imported sub obscures it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7881 SUPER:: Prefix to lookup for a method in @ISA classes.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7882 DESTROY Shorthand for `sub DESTROY {...}'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7883 ... EQ ... Obsolete synonym of `eq'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7884 ... GE ... Obsolete synonym of `ge'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7885 ... GT ... Obsolete synonym of `gt'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7886 ... LE ... Obsolete synonym of `le'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7887 ... LT ... Obsolete synonym of `lt'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7888 ... NE ... Obsolete synonym of `ne'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7889 abs [ EXPR ] absolute value
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7890 ... and ... Low-precedence synonym for &&.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7891 bless REFERENCE [, PACKAGE] Makes reference into an object of a package.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7892 chomp [LIST] Strips $/ off LIST/$_. Returns count. Special if $/ eq ''!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7893 chr Converts a number to char with the same ordinal.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7894 else Part of if/unless {BLOCK} elsif {BLOCK} else {BLOCK}.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7895 elsif Part of if/unless {BLOCK} elsif {BLOCK} else {BLOCK}.
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7896 exists $HASH{KEY} True if the key exists.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7897 format [NAME] = Start of output format. Ended by a single dot (.) on a line.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7898 formline PICTURE, LIST Backdoor into \"format\" processing.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7899 glob EXPR Synonym of <EXPR>.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7900 lc [ EXPR ] Returns lowercased EXPR.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7901 lcfirst [ EXPR ] Returns EXPR with lower-cased first letter.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7902 grep EXPR,LIST or grep {BLOCK} LIST Filters LIST via EXPR/BLOCK.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7903 map EXPR, LIST or map {BLOCK} LIST Applies EXPR/BLOCK to elts of LIST.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7904 no PACKAGE [SYMBOL1, ...] Partial reverse for `use'. Runs `unimport' method.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7905 not ... Low-precedence synonym for ! - negation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7906 ... or ... Low-precedence synonym for ||.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7907 pos STRING Set/Get end-position of the last match over this string, see \\G.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7908 quotemeta [ EXPR ] Quote regexp metacharacters.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7909 qw/WORD1 .../ Synonym of split('', 'WORD1 ...')
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7910 readline FH Synonym of <FH>.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7911 readpipe CMD Synonym of `CMD`.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7912 ref [ EXPR ] Type of EXPR when dereferenced.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7913 sysopen FH, FILENAME, MODE [, PERM] (MODE is numeric, see Fcntl.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7914 tie VAR, PACKAGE, LIST Hide an object behind a simple Perl variable.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7915 tied Returns internal object for a tied data.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7916 uc [ EXPR ] Returns upcased EXPR.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7917 ucfirst [ EXPR ] Returns EXPR with upcased first letter.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7918 untie VAR Unlink an object from a simple Perl variable.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7919 use PACKAGE [SYMBOL1, ...] Compile-time `require' with consequent `import'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7920 ... xor ... Low-precedence synonym for exclusive or.
71304
7293b63aa3ba (cperl-short-docs): Fix quoting
Andreas Schwab <schwab@suse.de>
parents: 68773
diff changeset
7921 prototype \\&SUB Returns prototype of the function given a reference.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7922 =head1 Top-level heading.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7923 =head2 Second-level heading.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7924 =head3 Third-level heading (is there such?).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7925 =over [ NUMBER ] Start list.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7926 =item [ TITLE ] Start new item in the list.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7927 =back End list.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7928 =cut Switch from POD to Perl.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7929 =pod Switch from Perl to POD.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7930 ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7931
57823
d77a1264b555 (cperl-switch-to-doc-buffer): Don't use interactive-p.
Richard M. Stallman <rms@gnu.org>
parents: 56377
diff changeset
7932 (defun cperl-switch-to-doc-buffer (&optional interactive)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7933 "Go to the perl documentation buffer and insert the documentation."
57823
d77a1264b555 (cperl-switch-to-doc-buffer): Don't use interactive-p.
Richard M. Stallman <rms@gnu.org>
parents: 56377
diff changeset
7934 (interactive "p")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7935 (let ((buf (get-buffer-create cperl-doc-buffer)))
57823
d77a1264b555 (cperl-switch-to-doc-buffer): Don't use interactive-p.
Richard M. Stallman <rms@gnu.org>
parents: 56377
diff changeset
7936 (if interactive
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7937 (switch-to-buffer-other-window buf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7938 (set-buffer buf))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7939 (if (= (buffer-size) 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7940 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7941 (insert (documentation-property 'cperl-short-docs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7942 'variable-documentation))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7943 (setq buffer-read-only t)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7944
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7945 (defun cperl-beautify-regexp-piece (b e embed level)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7946 ;; b is before the starting delimiter, e before the ending
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7947 ;; e should be a marker, may be changed, but remains "correct".
78487
419c5c316b51 Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents: 78407
diff changeset
7948 ;; EMBED is nil if we process the whole REx.
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7949 ;; The REx is guaranteed to have //x
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7950 ;; LEVEL shows how many levels deep to go
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7951 ;; position at enter and at leave is not defined
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7952 (let (s c tmp (m (make-marker)) (m1 (make-marker)) c1 spaces inline code pos)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7953 (if (not embed)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7954 (goto-char (1+ b))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7955 (goto-char b)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7956 (cond ((looking-at "(\\?\\\\#") ; (?#) wrongly commented when //x-ing
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7957 (forward-char 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7958 (delete-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7959 (forward-char 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7960 ((looking-at "(\\?[^a-zA-Z]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7961 (forward-char 3))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7962 ((looking-at "(\\?") ; (?i)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7963 (forward-char 2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7964 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7965 (forward-char 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7966 (setq c (if embed (current-indentation) (1- (current-column)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7967 c1 (+ c (or cperl-regexp-indent-step cperl-indent-level)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7968 (or (looking-at "[ \t]*[\n#]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7969 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7970 (insert "\n")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7971 (goto-char e)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7972 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7973 (if (re-search-forward "[^ \t]" e t)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7974 (progn ; Something before the ending delimiter
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7975 (goto-char e)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7976 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7977 (insert "\n")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7978 (cperl-make-indent c)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7979 (set-marker e (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7980 (goto-char b)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7981 (end-of-line 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7982 (while (< (point) (marker-position e))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7983 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7984 (setq s (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7985 inline t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7986 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7987 (delete-region s (point))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7988 (cperl-make-indent c1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7989 (while (and
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7990 inline
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7991 (looking-at
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7992 (concat "\\([a-zA-Z0-9]+[^*+{?]\\)" ; 1 word
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7993 "\\|" ; Embedded variable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7994 "\\$\\([a-zA-Z0-9_]+\\([[{]\\)?\\|[^\n \t)|]\\)" ; 2 3
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7995 "\\|" ; $ ^
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7996 "[$^]"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7997 "\\|" ; simple-code simple-code*?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7998 "\\(\\\\.\\|[^][()#|*+?\n]\\)\\([*+{?]\\??\\)?" ; 4 5
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7999 "\\|" ; Class
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8000 "\\(\\[\\)" ; 6
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8001 "\\|" ; Grouping
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8002 "\\((\\(\\?\\)?\\)" ; 7 8
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8003 "\\|" ; |
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8004 "\\(|\\)"))) ; 9
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8005 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8006 (setq spaces t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8007 (cond ((match-beginning 1) ; Alphanum word + junk
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8008 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8009 ((or (match-beginning 3) ; $ab[12]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8010 (and (match-beginning 5) ; X* X+ X{2,3}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8011 (eq (preceding-char) ?\{)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8012 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8013 (forward-sexp 1))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8014 ((and ; [], already syntaxified
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8015 (match-beginning 6)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8016 cperl-regexp-scan
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8017 cperl-use-syntax-table-text-property)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8018 (forward-char -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8019 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8020 (or (eq (preceding-char) ?\])
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8021 (error "[]-group not terminated"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8022 (re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8023 "\\=\\([*+?]\\|{[0-9]+\\(,[0-9]*\\)?}\\)\\??" e t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8024 ((match-beginning 6) ; []
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8025 (setq tmp (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8026 (if (looking-at "\\^?\\]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8027 (goto-char (match-end 0)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8028 ;; XXXX POSIX classes?!
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8029 (while (and (not pos)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8030 (re-search-forward "\\[:\\|\\]" e t))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8031 (if (eq (preceding-char) ?:)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8032 (or (re-search-forward ":\\]" e t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8033 (error "[:POSIX:]-group in []-group not terminated"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8034 (setq pos t)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8035 (or (eq (preceding-char) ?\])
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8036 (error "[]-group not terminated"))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8037 (re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8038 "\\=\\([*+?]\\|{[0-9]+\\(,[0-9]*\\)?}\\)\\??" e t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8039 ((match-beginning 7) ; ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8040 (goto-char (match-beginning 0))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8041 (setq pos (current-column))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8042 (or (eq pos c1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8043 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8044 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8045 (insert "\n")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8046 (cperl-make-indent c1)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8047 (setq tmp (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8048 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8049 ;; (or (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8050 ;; (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8051 ;; (goto-char tmp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8052 ;; (error "()-group not terminated")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8053 (set-marker m (1- (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8054 (set-marker m1 (point))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8055 (if (= level 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8056 (if (progn ; indent rigidly if multiline
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
8057 ;; In fact does not make a lot of sense, since
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8058 ;; the starting position can be already lost due
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8059 ;; to insertion of "\n" and " "
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8060 (goto-char tmp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8061 (search-forward "\n" m1 t))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8062 (indent-rigidly (point) m1 (- c1 pos)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8063 (setq level (1- level))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8064 (cond
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8065 ((not (match-beginning 8))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8066 (cperl-beautify-regexp-piece tmp m t level))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8067 ((eq (char-after (+ 2 tmp)) ?\{) ; Code
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8068 t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8069 ((eq (char-after (+ 2 tmp)) ?\() ; Conditional
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8070 (goto-char (+ 2 tmp))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8071 (forward-sexp 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8072 (cperl-beautify-regexp-piece (point) m t level))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8073 ((eq (char-after (+ 2 tmp)) ?<) ; Lookbehind
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8074 (goto-char (+ 3 tmp))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8075 (cperl-beautify-regexp-piece (point) m t level))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8076 (t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8077 (cperl-beautify-regexp-piece tmp m t level))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8078 (goto-char m1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8079 (cond ((looking-at "[*+?]\\??")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8080 (goto-char (match-end 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8081 ((eq (following-char) ?\{)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8082 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8083 (if (eq (following-char) ?\?)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8084 (forward-char))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8085 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8086 (setq spaces nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8087 (if (looking-at "[#\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8088 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8089 (or (eolp) (indent-for-comment))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8090 (beginning-of-line 2))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8091 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8092 (insert "\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8093 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8094 (setq inline nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8095 ((match-beginning 9) ; |
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8096 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8097 (setq tmp (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8098 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8099 (if (re-search-forward "[^ \t]" tmp t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8100 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8101 (goto-char tmp)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8102 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8103 (insert "\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8104 ;; first at line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8105 (delete-region (point) tmp))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8106 (cperl-make-indent c)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8107 (forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8108 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8109 (setq spaces nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8110 (if (looking-at "[#\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8111 (beginning-of-line 2)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8112 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8113 (insert "\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8114 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8115 (setq inline nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8116 (or (looking-at "[ \t\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8117 (not spaces)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8118 (insert " "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8119 (skip-chars-forward " \t"))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8120 (or (looking-at "[#\n]")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8121 (error "Unknown code `%s' in a regexp"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8122 (buffer-substring (point) (1+ (point)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8123 (and inline (end-of-line 2)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8124 ;; Special-case the last line of group
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8125 (if (and (>= (point) (marker-position e))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8126 (/= (current-indentation) c))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8127 (progn
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8128 (beginning-of-line)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8129 (cperl-make-indent c)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8130
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8131 (defun cperl-make-regexp-x ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8132 ;; Returns position of the start
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8133 ;; XXX this is called too often! Need to cache the result!
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8134 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8135 (or cperl-use-syntax-table-text-property
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8136 (error "I need to have a regexp marked!"))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8137 ;; Find the start
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8138 (if (looking-at "\\s|")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8139 nil ; good already
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8140 (if (looking-at "\\([smy]\\|qr\\)\\s|")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8141 (forward-char 1)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8142 (re-search-backward "\\s|"))) ; Assume it is scanned already.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8143 ;;(forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8144 (let ((b (point)) (e (make-marker)) have-x delim (c (current-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8145 (sub-p (eq (preceding-char) ?s)) s)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8146 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8147 (set-marker e (1- (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8148 (setq delim (preceding-char))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8149 (if (and sub-p (eq delim (char-after (- (point) 2))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8150 (error "Possible s/blah// - do not know how to deal with"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8151 (if sub-p (forward-sexp 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8152 (if (looking-at "\\sw*x")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8153 (setq have-x t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8154 (insert "x"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8155 ;; Protect fragile " ", "#"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8156 (if have-x nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8157 (goto-char (1+ b))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8158 (while (re-search-forward "\\(\\=\\|[^\\\\]\\)\\(\\\\\\\\\\)*[ \t\n#]" e t) ; Need to include (?#) too?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8159 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8160 (insert "\\")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8161 (forward-char 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8162 b)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8163
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8164 (defun cperl-beautify-regexp (&optional deep)
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
8165 "Do it. (Experimental, may change semantics, recheck the result.)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8166 We suppose that the regexp is scanned already."
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8167 (interactive "P")
49516
774eed0b5c78 (cperl-beautify-level, cperl-beautify-regexp): Fix use of
Juanma Barranquero <lekktu@gmail.com>
parents: 49304
diff changeset
8168 (setq deep (if deep (prefix-numeric-value deep) -1))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8169 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8170 (goto-char (cperl-make-regexp-x))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8171 (let ((b (point)) (e (make-marker)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8172 (forward-sexp 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8173 (set-marker e (1- (point)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8174 (cperl-beautify-regexp-piece b e nil deep))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8175
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8176 (defun cperl-regext-to-level-start ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8177 "Goto start of an enclosing group in regexp.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8178 We suppose that the regexp is scanned already."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8179 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8180 (let ((limit (cperl-make-regexp-x)) done)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8181 (while (not done)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8182 (or (eq (following-char) ?\()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8183 (search-backward "(" (1+ limit) t)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8184 (error "Cannot find `(' which starts a group"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8185 (setq done
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8186 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8187 (skip-chars-backward "\\")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8188 (looking-at "\\(\\\\\\\\\\)*(")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8189 (or done (forward-char -1)))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8190
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8191 (defun cperl-contract-level ()
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8192 "Find an enclosing group in regexp and contract it.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8193 \(Experimental, may change semantics, recheck the result.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8194 We suppose that the regexp is scanned already."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8195 (interactive)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8196 ;; (save-excursion ; Can't, breaks `cperl-contract-levels'
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8197 (cperl-regext-to-level-start)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8198 (let ((b (point)) (e (make-marker)) c)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8199 (forward-sexp 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8200 (set-marker e (1- (point)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8201 (goto-char b)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8202 (while (re-search-forward "\\(#\\)\\|\n" e 'to-end)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8203 (cond
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8204 ((match-beginning 1) ; #-comment
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8205 (or c (setq c (current-indentation)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8206 (beginning-of-line 2) ; Skip
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8207 (cperl-make-indent c))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8208 (t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8209 (delete-char -1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8210 (just-one-space))))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8211
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8212 (defun cperl-contract-levels ()
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8213 "Find an enclosing group in regexp and contract all the kids.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8214 \(Experimental, may change semantics, recheck the result.)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8215 We suppose that the regexp is scanned already."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8216 (interactive)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8217 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8218 (condition-case nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8219 (cperl-regext-to-level-start)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8220 (error ; We are outside outermost group
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8221 (goto-char (cperl-make-regexp-x))))
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8222 (let ((b (point)) (e (make-marker)) s c)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8223 (forward-sexp 1)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8224 (set-marker e (1- (point)))
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8225 (goto-char (1+ b))
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8226 (while (re-search-forward "\\(\\\\\\\\\\)\\|(" e t)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
8227 (cond
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8228 ((match-beginning 1) ; Skip
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8229 nil)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8230 (t ; Group
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8231 (cperl-contract-level)))))))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8232
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8233 (defun cperl-beautify-level (&optional deep)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8234 "Find an enclosing group in regexp and beautify it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8235 \(Experimental, may change semantics, recheck the result.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8236 We suppose that the regexp is scanned already."
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8237 (interactive "P")
49516
774eed0b5c78 (cperl-beautify-level, cperl-beautify-regexp): Fix use of
Juanma Barranquero <lekktu@gmail.com>
parents: 49304
diff changeset
8238 (setq deep (if deep (prefix-numeric-value deep) -1))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8239 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8240 (cperl-regext-to-level-start)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8241 (let ((b (point)) (e (make-marker)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8242 (forward-sexp 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8243 (set-marker e (1- (point)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8244 (cperl-beautify-regexp-piece b e nil deep))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8245
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8246 (defun cperl-invert-if-unless-modifiers ()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8247 "Change `B if A;' into `if (A) {B}' etc if possible.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8248 \(Unfinished.)"
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
8249 (interactive) ;
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8250 (let (A B pre-B post-B pre-if post-if pre-A post-A if-string
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8251 (w-rex "\\<\\(if\\|unless\\|while\\|until\\|for\\|foreach\\)\\>"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8252 (and (= (char-syntax (preceding-char)) ?w)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8253 (forward-sexp -1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8254 (setq pre-if (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8255 (cperl-backward-to-start-of-expr)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8256 (setq pre-B (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8257 (forward-sexp 1) ; otherwise forward-to-end-of-expr is NOP
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8258 (cperl-forward-to-end-of-expr)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8259 (setq post-A (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8260 (goto-char pre-if)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8261 (or (looking-at w-rex)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8262 ;; Find the position
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8263 (progn (goto-char post-A)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8264 (while (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8265 (not (looking-at w-rex))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8266 (> (point) pre-B))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8267 (forward-sexp -1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8268 (setq pre-if (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8269 (or (looking-at w-rex)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8270 (error "Can't find `if', `unless', `while', `until', `for' or `foreach'"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8271 ;; 1 B 2 ... 3 B-com ... 4 if 5 ... if-com 6 ... 7 A 8
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8272 (setq if-string (buffer-substring (match-beginning 0) (match-end 0)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8273 ;; First, simple part: find code boundaries
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8274 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8275 (setq post-if (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8276 (forward-sexp -2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8277 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8278 (setq post-B (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8279 (cperl-backward-to-start-of-expr)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8280 (setq pre-B (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8281 (setq B (buffer-substring pre-B post-B))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8282 (goto-char pre-if)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8283 (forward-sexp 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8284 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8285 ;; May be after $, @, $# etc of a variable
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8286 (skip-chars-backward "$@%#")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8287 (setq pre-A (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8288 (cperl-forward-to-end-of-expr)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8289 (setq post-A (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8290 (setq A (buffer-substring pre-A post-A))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8291 ;; Now modify (from end, to not break the stuff)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8292 (skip-chars-forward " \t;")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8293 (delete-region pre-A (point)) ; we move to pre-A
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8294 (insert "\n" B ";\n}")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8295 (and (looking-at "[ \t]*#") (cperl-indent-for-comment))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8296 (delete-region pre-if post-if)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8297 (delete-region pre-B post-B)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8298 (goto-char pre-B)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8299 (insert if-string " (" A ") {")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8300 (setq post-B (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8301 (if (looking-at "[ \t]+$")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8302 (delete-horizontal-space)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8303 (if (looking-at "[ \t]*#")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8304 (cperl-indent-for-comment)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8305 (just-one-space)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8306 (forward-line 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8307 (if (looking-at "[ \t]*$")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8308 (progn ; delete line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8309 (delete-horizontal-space)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8310 (delete-region (point) (1+ (point)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8311 (cperl-indent-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8312 (goto-char (1- post-B))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8313 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8314 (cperl-indent-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8315 (goto-char pre-B)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8316
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8317 (defun cperl-invert-if-unless ()
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8318 "Change `if (A) {B}' into `B if A;' etc (or visa versa) if possible.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8319 If the cursor is not on the leading keyword of the BLOCK flavor of
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8320 construct, will assume it is the STATEMENT flavor, so will try to find
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8321 the appropriate statement modifier."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8322 (interactive)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8323 (and (= (char-syntax (preceding-char)) ?w)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8324 (forward-sexp -1))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8325 (if (looking-at "\\<\\(if\\|unless\\|while\\|until\\|for\\|foreach\\)\\>")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8326 (let ((pre-if (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8327 pre-A post-A pre-B post-B A B state p end-B-code is-block B-comment
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8328 (if-string (buffer-substring (match-beginning 0) (match-end 0))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8329 (forward-sexp 2)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8330 (setq post-A (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8331 (forward-sexp -1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8332 (setq pre-A (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8333 (setq is-block (and (eq (following-char) ?\( )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8334 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8335 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8336 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8337 (forward-sexp 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8338 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8339 (eq (following-char) ?\{ ))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8340 (error nil)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8341 (if is-block
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8342 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8343 (goto-char post-A)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8344 (forward-sexp 1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8345 (setq post-B (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8346 (forward-sexp -1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8347 (setq pre-B (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8348 (if (and (eq (following-char) ?\{ )
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8349 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8350 (cperl-backward-to-noncomment post-A)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8351 (eq (preceding-char) ?\) )))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8352 (if (condition-case nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8353 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8354 (goto-char post-B)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8355 (forward-sexp 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8356 (forward-sexp -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8357 (looking-at "\\<els\\(e\\|if\\)\\>"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8358 (error nil))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8359 (error
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8360 "`%s' (EXPR) {BLOCK} with `else'/`elsif'" if-string)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8361 (goto-char (1- post-B))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8362 (cperl-backward-to-noncomment pre-B)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8363 (if (eq (preceding-char) ?\;)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8364 (forward-char -1))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8365 (setq end-B-code (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8366 (goto-char pre-B)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8367 (while (re-search-forward "\\<\\(for\\|foreach\\|if\\|unless\\|while\\|until\\)\\>\\|;" end-B-code t)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8368 (setq p (match-beginning 0)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8369 A (buffer-substring p (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8370 state (parse-partial-sexp pre-B p))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8371 (or (nth 3 state)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8372 (nth 4 state)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8373 (nth 5 state)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8374 (error "`%s' inside `%s' BLOCK" A if-string))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8375 (goto-char (match-end 0)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8376 ;; Finally got it
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8377 (goto-char (1+ pre-B))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8378 (skip-chars-forward " \t\n")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8379 (setq B (buffer-substring (point) end-B-code))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8380 (goto-char end-B-code)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8381 (or (looking-at ";?[ \t\n]*}")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8382 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8383 (skip-chars-forward "; \t\n")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8384 (setq B-comment
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8385 (buffer-substring (point) (1- post-B)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8386 (and (equal B "")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8387 (setq B "1"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8388 (goto-char (1- post-A))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8389 (cperl-backward-to-noncomment pre-A)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8390 (or (looking-at "[ \t\n]*)")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8391 (goto-char (1- post-A)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8392 (setq p (point))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8393 (goto-char (1+ pre-A))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8394 (skip-chars-forward " \t\n")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8395 (setq A (buffer-substring (point) p))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8396 (delete-region pre-B post-B)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8397 (delete-region pre-A post-A)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8398 (goto-char pre-if)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8399 (insert B " ")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8400 (and B-comment (insert B-comment " "))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8401 (just-one-space)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8402 (forward-word 1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8403 (setq pre-A (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8404 (insert " " A ";")
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8405 (delete-horizontal-space)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8406 (setq post-B (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8407 (if (looking-at "#")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8408 (indent-for-comment))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8409 (goto-char post-B)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8410 (forward-char -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8411 (delete-horizontal-space)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8412 (goto-char pre-A)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8413 (just-one-space)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8414 (goto-char pre-if)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8415 (setq pre-A (set-marker (make-marker) pre-A))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8416 (while (<= (point) (marker-position pre-A))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8417 (cperl-indent-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8418 (forward-line 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8419 (goto-char (marker-position pre-A))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8420 (if B-comment
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8421 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8422 (forward-line -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8423 (indent-for-comment)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8424 (goto-char (marker-position pre-A)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8425 (error "`%s' (EXPR) not with an {BLOCK}" if-string)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8426 ;; (error "`%s' not with an (EXPR)" if-string)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8427 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8428 (cperl-invert-if-unless-modifiers)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8429 ;;(error "Not at `if', `unless', `while', `until', `for' or `foreach'")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8430 (cperl-invert-if-unless-modifiers)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8431
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8432 ;;; By Anthony Foiani <afoiani@uswest.com>
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8433 ;;; Getting help on modules in C-h f ?
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8434 ;;; This is a modified version of `man'.
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8435 ;;; Need to teach it how to lookup functions
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8436 ;;;###autoload
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8437 (defun cperl-perldoc (word)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8438 "Run `perldoc' on WORD."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8439 (interactive
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8440 (list (let* ((default-entry (cperl-word-at-point))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8441 (input (read-string
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8442 (format "perldoc entry%s: "
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8443 (if (string= default-entry "")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8444 ""
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8445 (format " (default %s)" default-entry))))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8446 (if (string= input "")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8447 (if (string= default-entry "")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8448 (error "No perldoc args given")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8449 default-entry)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8450 input))))
41309
8c4c4027c7bd (cperl-perldoc): Require man before binding `manual-program'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39836
diff changeset
8451 (require 'man)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8452 (let* ((case-fold-search nil)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8453 (is-func (and
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8454 (string-match "^[a-z]+$" word)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8455 (string-match (concat "^" word "\\>")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8456 (documentation-property
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8457 'cperl-short-docs
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8458 'variable-documentation))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8459 (manual-program (if is-func "perldoc -f" "perldoc")))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8460 (cond
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
8461 ((featurep 'xemacs)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8462 (let ((Manual-program "perldoc")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8463 (Manual-switches (if is-func (list "-f"))))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8464 (manual-entry word)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8465 (t
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8466 (Man-getpage-in-background word)))))
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8467
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8468 ;;;###autoload
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8469 (defun cperl-perldoc-at-point ()
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8470 "Run a `perldoc' on the word around point."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8471 (interactive)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8472 (cperl-perldoc (cperl-word-at-point)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8473
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8474 (defcustom pod2man-program "pod2man"
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8475 "*File name for `pod2man'."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8476 :type 'file
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8477 :group 'cperl)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8478
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8479 ;;; By Nick Roberts <Nick.Roberts@src.bae.co.uk> (with changes)
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8480 (defun cperl-pod-to-manpage ()
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8481 "Create a virtual manpage in Emacs from the Perl Online Documentation."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8482 (interactive)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8483 (require 'man)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8484 (let* ((pod2man-args (concat buffer-file-name " | nroff -man "))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8485 (bufname (concat "Man " buffer-file-name))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8486 (buffer (generate-new-buffer bufname)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8487 (save-excursion
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8488 (set-buffer buffer)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8489 (let ((process-environment (copy-sequence process-environment)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8490 ;; Prevent any attempt to use display terminal fanciness.
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8491 (setenv "TERM" "dumb")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8492 (set-process-sentinel
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8493 (start-process pod2man-program buffer "sh" "-c"
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8494 (format (cperl-pod2man-build-command) pod2man-args))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8495 'Man-bgproc-sentinel)))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8496
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8497 ;;; Updated version by him too
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8498 (defun cperl-build-manpage ()
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8499 "Create a virtual manpage in Emacs from the POD in the file."
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8500 (interactive)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8501 (require 'man)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8502 (cond
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
8503 ((featurep 'xemacs)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8504 (let ((Manual-program "perldoc"))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8505 (manual-entry buffer-file-name)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8506 (t
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8507 (let* ((manual-program "perldoc"))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8508 (Man-getpage-in-background buffer-file-name)))))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8509
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8510 (defun cperl-pod2man-build-command ()
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8511 "Builds the entire background manpage and cleaning command."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8512 (let ((command (concat pod2man-program " %s 2>/dev/null"))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8513 (flist (and (boundp 'Man-filter-list) Man-filter-list)))
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8514 (while (and flist (car flist))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8515 (let ((pcom (car (car flist)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8516 (pargs (cdr (car flist))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8517 (setq command
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8518 (concat command " | " pcom " "
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8519 (mapconcat '(lambda (phrase)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8520 (if (not (stringp phrase))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8521 (error "Malformed Man-filter-list"))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8522 phrase)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8523 pargs " ")))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8524 (setq flist (cdr flist))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8525 command))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8526
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8527
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8528 (defun cperl-next-interpolated-REx-1 ()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8529 "Move point to next REx which has interpolated parts without //o.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8530 Skips RExes consisting of one interpolated variable.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8531
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8532 Note that skipped RExen are not performance hits."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8533 (interactive "")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8534 (cperl-next-interpolated-REx 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8535
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8536 (defun cperl-next-interpolated-REx-0 ()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8537 "Move point to next REx which has interpolated parts without //o."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8538 (interactive "")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8539 (cperl-next-interpolated-REx 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8540
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8541 (defun cperl-next-interpolated-REx (&optional skip beg limit)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8542 "Move point to next REx which has interpolated parts.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8543 SKIP is a list of possible types to skip, BEG and LIMIT are the starting
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8544 point and the limit of search (default to point and end of buffer).
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8545
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8546 SKIP may be a number, then it behaves as list of numbers up to SKIP; this
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8547 semantic may be used as a numeric argument.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8548
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8549 Types are 0 for / $rex /o (interpolated once), 1 for /$rex/ (if $rex is
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8550 a result of qr//, this is not a performance hit), t for the rest."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8551 (interactive "P")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8552 (if (numberp skip) (setq skip (list 0 skip)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8553 (or beg (setq beg (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8554 (or limit (setq limit (point-max))) ; needed for n-s-p-c
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8555 (let (pp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8556 (and (eq (get-text-property beg 'syntax-type) 'string)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8557 (setq beg (next-single-property-change beg 'syntax-type nil limit)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8558 (cperl-map-pods-heres
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8559 (function (lambda (s e p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8560 (if (memq (get-text-property s 'REx-interpolated) skip)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8561 t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8562 (setq pp s)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8563 nil))) ; nil stops
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8564 'REx-interpolated beg limit)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8565 (if pp (goto-char pp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8566 (message "No more interpolated REx"))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8567
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8568 ;;; Initial version contributed by Trey Belew
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8569 (defun cperl-here-doc-spell (&optional beg end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8570 "Spell-check HERE-documents in the Perl buffer.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8571 If a region is highlighted, restricts to the region."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8572 (interactive "")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8573 (cperl-pod-spell t beg end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8574
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8575 (defun cperl-pod-spell (&optional do-heres beg end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8576 "Spell-check POD documentation.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8577 If invoked with prefix argument, will do HERE-DOCs instead.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8578 If a region is highlighted, restricts to the region."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8579 (interactive "P")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8580 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8581 (let (beg end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8582 (if (cperl-mark-active)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8583 (setq beg (min (mark) (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8584 end (max (mark) (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8585 (setq beg (point-min)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8586 end (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8587 (cperl-map-pods-heres (function
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8588 (lambda (s e p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8589 (if do-heres
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8590 (setq e (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8591 (goto-char e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8592 (forward-line -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8593 (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8594 (ispell-region s e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8595 t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8596 (if do-heres 'here-doc-group 'in-pod)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8597 beg end))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8598
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8599 (defun cperl-map-pods-heres (func &optional prop s end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8600 "Executes a function over regions of pods or here-documents.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8601 PROP is the text-property to search for; default to `in-pod'. Stop when
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8602 function returns nil."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8603 (let (pos posend has-prop (cont t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8604 (or prop (setq prop 'in-pod))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8605 (or s (setq s (point-min)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8606 (or end (setq end (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8607 (cperl-update-syntaxification end end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8608 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8609 (goto-char (setq pos s))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8610 (while (and cont (< pos end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8611 (setq has-prop (get-text-property pos prop))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8612 (setq posend (next-single-property-change pos prop nil end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8613 (and has-prop
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8614 (setq cont (funcall func pos posend prop)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8615 (setq pos posend)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8616
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8617 ;;; Based on code by Masatake YAMATO:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8618 (defun cperl-get-here-doc-region (&optional pos pod)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8619 "Return HERE document region around the point.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8620 Return nil if the point is not in a HERE document region. If POD is non-nil,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8621 will return a POD section if point is in a POD section."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8622 (or pos (setq pos (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8623 (cperl-update-syntaxification pos pos)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8624 (if (or (eq 'here-doc (get-text-property pos 'syntax-type))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8625 (and pod
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8626 (eq 'pod (get-text-property pos 'syntax-type))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8627 (let ((b (cperl-beginning-of-property pos 'syntax-type))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8628 (e (next-single-property-change pos 'syntax-type)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8629 (cons b (or e (point-max))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8630
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8631 (defun cperl-narrow-to-here-doc (&optional pos)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8632 "Narrows editing region to the HERE-DOC at POS.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8633 POS defaults to the point."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8634 (interactive "d")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8635 (or pos (setq pos (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8636 (let ((p (cperl-get-here-doc-region pos)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8637 (or p (error "Not inside a HERE document"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8638 (narrow-to-region (car p) (cdr p))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8639 (message
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8640 "When you are finished with narrow editing, type C-x n w")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8641
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8642 (defun cperl-select-this-pod-or-here-doc (&optional pos)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8643 "Select the HERE-DOC (or POD section) at POS.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8644 POS defaults to the point."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8645 (interactive "d")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8646 (let ((p (cperl-get-here-doc-region pos t)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8647 (if p
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8648 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8649 (goto-char (car p))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8650 (push-mark (cdr p) nil t)) ; Message, activate in transient-mode
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8651 (message "I do not think POS is in POD or a HERE-doc..."))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8652
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8653 (defun cperl-facemenu-add-face-function (face end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8654 "A callback to process user-initiated font-change requests.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8655 Translates `bold', `italic', and `bold-italic' requests to insertion of
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8656 corresponding POD directives, and `underline' to C<> POD directive.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8657
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8658 Such requests are usually bound to M-o LETTER."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8659 (or (get-text-property (point) 'in-pod)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8660 (error "Faces can only be set within POD"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8661 (setq facemenu-end-add-face (if (eq face 'bold-italic) ">>" ">"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8662 (cdr (or (assq face '((bold . "B<")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8663 (italic . "I<")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8664 (bold-italic . "B<I<")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8665 (underline . "C<")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8666 (error "Face %s not configured for cperl-mode"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8667 face))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8668
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8669 (defun cperl-time-fontification (&optional l step lim)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8670 "Times how long it takes to do incremental fontification in a region.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8671 L is the line to start at, STEP is the number of lines to skip when
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8672 doing next incremental fontification, LIM is the maximal number of
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8673 incremental fontification to perform. Messages are accumulated in
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8674 *Messages* buffer.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8675
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8676 May be used for pinpointing which construct slows down buffer fontification:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8677 start with default arguments, then refine the slowdown regions."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8678 (interactive "nLine to start at: \nnStep to do incremental fontification: ")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8679 (or l (setq l 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8680 (or step (setq step 500))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8681 (or lim (setq lim 40))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8682 (let* ((timems (function (lambda ()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8683 (let ((tt (current-time)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8684 (+ (* 1000 (nth 1 tt)) (/ (nth 2 tt) 1000))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8685 (tt (funcall timems)) (c 0) delta tot)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8686 (goto-line l)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8687 (cperl-mode)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8688 (setq tot (- (- tt (setq tt (funcall timems)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8689 (message "cperl-mode at %s: %s" l tot)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8690 (while (and (< c lim) (not (eobp)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8691 (forward-line step)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8692 (setq l (+ l step))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8693 (setq c (1+ c))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8694 (cperl-update-syntaxification (point) (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8695 (setq delta (- (- tt (setq tt (funcall timems)))) tot (+ tot delta))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8696 (message "to %s:%6s,%7s" l delta tot))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8697 tot))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8698
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
8699 (defvar font-lock-cache-position)
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
8700
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8701 (defun cperl-emulate-lazy-lock (&optional window-size)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8702 "Emulate `lazy-lock' without `condition-case', so `debug-on-error' works.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8703 Start fontifying the buffer from the start (or end) using the given
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8704 WINDOW-SIZE (units is lines). Negative WINDOW-SIZE starts at end, and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8705 goes backwards; default is -50. This function is not CPerl-specific; it
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8706 may be used to debug problems with delayed incremental fontification."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8707 (interactive
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8708 "nSize of window for incremental fontification, negative goes backwards: ")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8709 (or window-size (setq window-size -50))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8710 (let ((pos (if (> window-size 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8711 (point-min)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8712 (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8713 p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8714 (goto-char pos)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8715 (normal-mode)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8716 ;; Why needed??? With older font-locks???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8717 (set (make-local-variable 'font-lock-cache-position) (make-marker))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8718 (while (if (> window-size 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8719 (< pos (point-max))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8720 (> pos (point-min)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8721 (setq p (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8722 (forward-line window-size)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8723 (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8724 (font-lock-fontify-region (min p pos) (max p pos))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8725 (setq pos p))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8726
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8727
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8728 (defun cperl-lazy-install ()) ; Avoid a warning
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8729 (defun cperl-lazy-unstall ()) ; Avoid a warning
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8730
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8731 (if (fboundp 'run-with-idle-timer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8732 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8733 (defvar cperl-help-shown nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8734 "Non-nil means that the help was already shown now.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8735
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8736 (defvar cperl-lazy-installed nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8737 "Non-nil means that the lazy-help handlers are installed now.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8738
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8739 (defun cperl-lazy-install ()
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8740 "Switches on Auto-Help on Perl constructs (put in the message area).
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8741 Delay of auto-help controlled by `cperl-lazy-help-time'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8742 (interactive)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8743 (make-local-variable 'cperl-help-shown)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8744 (if (and (cperl-val 'cperl-lazy-help-time)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8745 (not cperl-lazy-installed))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8746 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8747 (add-hook 'post-command-hook 'cperl-lazy-hook)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8748 (run-with-idle-timer
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8749 (cperl-val 'cperl-lazy-help-time 1000000 5)
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8750 t
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8751 'cperl-get-help-defer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8752 (setq cperl-lazy-installed t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8753
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8754 (defun cperl-lazy-unstall ()
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8755 "Switches off Auto-Help on Perl constructs (put in the message area).
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8756 Delay of auto-help controlled by `cperl-lazy-help-time'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8757 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8758 (remove-hook 'post-command-hook 'cperl-lazy-hook)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8759 (cancel-function-timers 'cperl-get-help-defer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8760 (setq cperl-lazy-installed nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8761
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8762 (defun cperl-lazy-hook ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8763 (setq cperl-help-shown nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8764
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8765 (defun cperl-get-help-defer ()
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8766 (if (not (memq major-mode '(perl-mode cperl-mode))) nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8767 (let ((cperl-message-on-help-error nil) (cperl-help-from-timer t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8768 (cperl-get-help)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8769 (setq cperl-help-shown t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8770 (cperl-lazy-install)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8771
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8772
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8773 ;;; Plug for wrong font-lock:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8774
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8775 (defun cperl-font-lock-unfontify-region-function (beg end)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8776 (let* ((modified (buffer-modified-p)) (buffer-undo-list t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8777 (inhibit-read-only t) (inhibit-point-motion-hooks t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8778 before-change-functions after-change-functions
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8779 deactivate-mark buffer-file-name buffer-file-truename)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8780 (remove-text-properties beg end '(face nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8781 (if (and (not modified) (buffer-modified-p))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8782 (set-buffer-modified-p nil))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8783
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8784 (defun cperl-font-lock-fontify-region-function (beg end loudly)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8785 "Extends the region to safe positions, then calls the default function.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8786 Newer `font-lock's can do it themselves.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8787 We unwind only as far as needed for fontification. Syntaxification may
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8788 do extra unwind via `cperl-unwind-to-safe'."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8789 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8790 (goto-char beg)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8791 (while (and beg
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8792 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8793 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8794 (eq (get-text-property (setq beg (point)) 'syntax-type)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8795 'multiline)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8796 (if (setq beg (cperl-beginning-of-property beg 'syntax-type))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8797 (goto-char beg)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8798 (setq beg (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8799 (goto-char end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8800 (while (and end
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8801 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8802 (or (bolp) (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8803 (forward-line 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8804 (error nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8805 (eq (get-text-property (setq end (point)) 'syntax-type)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8806 'multiline)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8807 (setq end (next-single-property-change end 'syntax-type nil (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8808 (goto-char end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8809 (setq end (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8810 (font-lock-default-fontify-region beg end loudly))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8811
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8812 (defvar cperl-d-l nil)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8813 (defun cperl-fontify-syntaxically (end)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8814 ;; Some vars for debugging only
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8815 ;; (message "Syntaxifying...")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8816 (let ((dbg (point)) (iend end) (idone cperl-syntax-done-to)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8817 (istate (car cperl-syntax-state))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8818 start from-start edebug-backtrace-buffer)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8819 (if (eq cperl-syntaxify-by-font-lock 'backtrace)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8820 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8821 (require 'edebug)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8822 (let ((f 'edebug-backtrace))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8823 (funcall f)))) ; Avoid compile-time warning
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8824 (or cperl-syntax-done-to
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8825 (setq cperl-syntax-done-to (point-min)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8826 from-start t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8827 (setq start (if (and cperl-hook-after-change
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8828 (not from-start))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8829 cperl-syntax-done-to ; Fontify without change; ignore start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8830 ;; Need to forget what is after `start'
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8831 (min cperl-syntax-done-to (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8832 (goto-char start)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8833 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8834 (setq start (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8835 (and cperl-syntaxify-unwind
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8836 (setq end (cperl-unwind-to-safe t end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8837 start (point)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8838 (and (> end start)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8839 (setq cperl-syntax-done-to start) ; In case what follows fails
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8840 (cperl-find-pods-heres start end t nil t))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8841 (if (memq cperl-syntaxify-by-font-lock '(backtrace message))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8842 (message "Syxify req=%s..%s actual=%s..%s done-to: %s=>%s statepos: %s=>%s"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8843 dbg iend start end idone cperl-syntax-done-to
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8844 istate (car cperl-syntax-state))) ; For debugging
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8845 nil)) ; Do not iterate
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8846
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8847 (defun cperl-fontify-update (end)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8848 (let ((pos (point-min)) prop posend)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8849 (setq end (point-max))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8850 (while (< pos end)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8851 (setq prop (get-text-property pos 'cperl-postpone)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8852 posend (next-single-property-change pos 'cperl-postpone nil end))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8853 (and prop (put-text-property pos posend (car prop) (cdr prop)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8854 (setq pos posend)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8855 nil) ; Do not iterate
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8856
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8857 (defun cperl-fontify-update-bad (end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8858 ;; Since fontification happens with different region than syntaxification,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8859 ;; do to the end of buffer, not to END;;; likewise, start earlier if needed
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8860 (let* ((pos (point)) (prop (get-text-property pos 'cperl-postpone)) posend)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8861 (if prop
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8862 (setq pos (or (cperl-beginning-of-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8863 (cperl-1+ pos) 'cperl-postpone)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8864 (point-min))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8865 (while (< pos end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8866 (setq posend (next-single-property-change pos 'cperl-postpone))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8867 (and prop (put-text-property pos posend (car prop) (cdr prop)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8868 (setq pos posend)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8869 (setq prop (get-text-property pos 'cperl-postpone))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8870 nil) ; Do not iterate
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8871
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8872 ;; Called when any modification is made to buffer text.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8873 (defun cperl-after-change-function (beg end old-len)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8874 ;; We should have been informed about changes by `font-lock'. Since it
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8875 ;; does not inform as which calls are defered, do it ourselves
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8876 (if cperl-syntax-done-to
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8877 (setq cperl-syntax-done-to (min cperl-syntax-done-to beg))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8878
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8879 (defun cperl-update-syntaxification (from to)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8880 (if (and cperl-use-syntax-table-text-property
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8881 cperl-syntaxify-by-font-lock
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8882 (or (null cperl-syntax-done-to)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8883 (< cperl-syntax-done-to to)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8884 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8885 (save-excursion
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8886 (goto-char from)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8887 (cperl-fontify-syntaxically to)))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8888
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8889 (defvar cperl-version
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
8890 (let ((v "Revision: 5.23"))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8891 (string-match ":\\s *\\([0-9.]+\\)" v)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8892 (substring v (match-beginning 1) (match-end 1)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8893 "Version of IZ-supported CPerl package this file is based on.")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8894
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8895 (provide 'cperl-mode)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8896
93975
1e3a407766b9 Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92148
diff changeset
8897 ;; arch-tag: 42e5b19b-e187-4537-929f-1a7408980ce6
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8898 ;;; cperl-mode.el ends here