annotate lisp/progmodes/cperl-mode.el @ 110752:a347bc5bfc03

Provide GnuTLS API with `gnutls-negotiate' and `open-gnutls-stream'. * net/gnutls.el: Improve docs. Remove starttls and ssl emulation. Provide only `open-gnutls-stream' (formerly `open-ssl-stream') and `gnutls-negotiate' (formerly `starttls-negotiate'). Remove trivial wrapper `starttls-open-stream'.
author Ted Zlatanov <tzz@lifelogs.com>
date Sun, 03 Oct 2010 20:16:00 -0500
parents d90a3bc6b730
children 05dc9dca8729
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,
110741
d90a3bc6b730 Remove vc-header-alist, obsolete since 21.1.
Glenn Morris <rgm@gnu.org>
parents: 110305
diff changeset
4 ;; 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
d90a3bc6b730 Remove vc-header-alist, obsolete since 21.1.
Glenn Morris <rgm@gnu.org>
parents: 110305
diff changeset
5 ;; 2010 Free Software Foundation, Inc.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6
101112
0685234e527d Comment (minor header format fixes).
Glenn Morris <rgm@gnu.org>
parents: 101002
diff changeset
7 ;; Author: Ilya Zakharevich
0685234e527d Comment (minor header format fixes).
Glenn Morris <rgm@gnu.org>
parents: 101002
diff changeset
8 ;; Bob Olson
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
9 ;; Maintainer: Ilya Zakharevich <ilyaz@cpan.org>
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10 ;; Keywords: languages, Perl
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12 ;; This file is part of GNU Emacs.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13
94673
52b7a8c22af5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
14 ;; GNU Emacs is free software: you can redistribute it and/or modify
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15 ;; 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
16 ;; 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
17 ;; (at your option) any later version.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19 ;; GNU Emacs is distributed in the hope that it will be useful,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
22 ;; GNU General Public License for more details.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
23
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
24 ;; 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
25 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
27 ;;; Corrections made by Ilya Zakharevich ilyaz@cpan.org
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
28
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
29 ;;; Commentary:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
31 ;; 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
32 ;; bulk enable them by putting
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
33
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
34 ;; (setq cperl-hairy t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
35
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
36 ;; 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
37 ;; correct to make whistles enabled by default.)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
38
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
39 ;; 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
40 ;; 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
41 ;; `cperl-praise', `cperl-speed'. <<<<<<
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
42
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
43 ;; 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
44 ;; 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
45 ;; 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
46
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
47 ;; 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
48 ;; 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
49 ;; 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
50 ;; 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
51 ;; 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
52
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
53 ;; 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
54 ;; 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
55 ;; 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
56 ;; 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
57 ;; to bind it like that:
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
58
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
59 ;; (define-key global-map [M-S-down-mouse-3] 'imenu)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
60
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
61 ;;; Font lock bugs as of v4.32:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
62
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
63 ;; 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
64 ;; \$` \$' \$"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
65 ;; $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
66 ;; 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
67
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
68 ;;; Code:
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
69
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
70 (defvar vc-rcs-header)
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
71 (defvar vc-sccs-header)
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
72
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
73 (eval-when-compile
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
74 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
75 (require 'custom)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
76 (error nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
77 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
78 (require 'man)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
79 (error nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
80 (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
81 (or (featurep 'xemacs)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
82 (and (boundp 'emacs-major-version)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
83 (or window-system
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
84 (> emacs-major-version 20)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
85 (if cperl-can-font-lock
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
86 (require 'font-lock))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
87 (defvar msb-menu-cond)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
88 (defvar gud-perldb-history)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
89 (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
90 (defvar font-lock-display-type) ; ditto
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
91 (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
92 (or (fboundp 'defgroup)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
93 (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
94 nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
95 (or (fboundp 'custom-declare-variable)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
96 (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
97 `(defvar ,name ,val ,doc)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
98 (or (and (fboundp 'custom-declare-variable)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
99 (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
100 (defmacro defface (&rest arr)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
101 nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
102 ;; Avoid warning (tmp definitions)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
103 (or (fboundp 'x-color-defined-p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
104 (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
105 (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
106 ;; XEmacs >= 19.12
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
107 ((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
108 ;; XEmacs 19.11
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
109 ((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
110 (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
111 (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
112 (cond ((fboundp 'find-face)
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
113 `(find-face ,arg))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
114 (;;(and (fboundp 'face-list)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
115 ;; (face-list))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
116 (fboundp 'face-list)
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
117 `(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
118 (face-list))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
119 (t
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
120 `(boundp ,arg))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
121 (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
122 (cond ((fboundp 'make-face)
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
123 `(make-face (quote ,arg)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
124 (t
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
125 `(defvar ,arg (quote ,arg) ,descr))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
126 (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
127 `(progn
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
128 (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
129 (cperl-make-face ,arg ,descr))
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
130 (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
131 (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
132 (if (featurep 'xemacs)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
133 (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
134 `(progn
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
135 (beginning-of-line 2)
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
136 (list ,file ,line)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
137 (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
138 `(etags-snarf-tag)))
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
139 (if (featurep 'xemacs)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
140 (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
141 ;;(progn
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
142 ;; (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
143 ;; (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
144 ;; 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
145 ;; Or save-file-position?
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
146 ;; (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
147 `(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
148 ;;)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
149 (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
150 `(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
151
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
152 (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
153 (or (featurep 'xemacs)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
154 (and (boundp 'emacs-major-version)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
155 (or window-system
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
156 (> emacs-major-version 20)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
157
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
158 (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
159 (let (answer)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
160 (while list
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
161 (or answer
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
162 (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
163 (null (cdr list)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
164 (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
165 (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
166 answer))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
167
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
168 (defgroup cperl nil
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
169 "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
170 :prefix "cperl-"
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
171 :group 'languages
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
172 :version "20.3")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
173
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
174 (defgroup cperl-indentation-details nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
175 "Indentation."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
176 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
177 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
178
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
179 (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
180 "Variables affected by `cperl-hairy'."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
181 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
182 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
183
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
184 (defgroup cperl-autoinsert-details nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
185 "Auto-insert tuneup."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
186 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
187 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
188
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
189 (defgroup cperl-faces nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
190 "Fontification colors."
66963
a11fdee52c05 Add :link (custom-group-link font-lock-faces) to defgroup.
Juri Linkov <juri@jurta.org>
parents: 65229
diff changeset
191 :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
192 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
193 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
194
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
195 (defgroup cperl-speed nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
196 "Speed vs. validity tuneup."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
197 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
198 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
199
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
200 (defgroup cperl-help-system nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
201 "Help system tuneup."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
202 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
203 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
204
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
205
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
206 (defcustom cperl-extra-newline-before-brace nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
207 "*Non-nil means that if, elsif, while, until, else, for, foreach
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
208 and do constructs look like:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
209
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
210 if ()
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
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
214 instead of:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
215
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
216 if () {
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
217 }"
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
218 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
219 :group 'cperl-autoinsert-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
220
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
221 (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
222 cperl-extra-newline-before-brace
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
223 "*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
224 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
225 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
226 :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
227
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
228 (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
229 "*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
230 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
231 :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
232
79553
f81c00b9c0ff * progmodes/perl-mode.el (perl-continued-statement-offset)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78750
diff changeset
233 ;; 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
234 ;; 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
235 ;; 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
236 ;; 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
237 ;; 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
238 ;;;###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
239 ;;;###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
240 ;;;###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
241 ;;;###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
242 ;;;###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
243 ;;;###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
244 ;;;###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
245
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
246 (defcustom cperl-lineup-step nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
247 "*`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
248 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
249 :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
250 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
251
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
252 (defcustom cperl-brace-imaginary-offset 0
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
253 "*Imagined indentation of a Perl open brace that actually follows a statement.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
254 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
255 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
256 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
257 :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
258
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
259 (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
260 "*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
261 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
262 :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
263 (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
264 "*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
265 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
266 :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
267 (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
268 "*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
269 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
270 :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
271 (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
272 "*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
273 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
274 :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
275 (defcustom cperl-continued-brace-offset 0
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
276 "*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
277 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
278 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
279 :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
280 (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
281 "*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
282 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
283 :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
284
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
285 (defcustom cperl-indent-wrt-brace t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
286 "*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
287 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
288 :type 'boolean
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
289 :group 'cperl-indentation-details)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
290
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
291 (defcustom cperl-auto-newline nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
292 "*Non-nil means automatically newline before and after braces,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
293 and after colons and semicolons, inserted in CPerl code. The following
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
294 \\[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
295 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
296 `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
297 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
298 :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
299
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
300 (defcustom cperl-autoindent-on-semi nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
301 "*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
302 Active if `cperl-auto-newline' is false."
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
303 :type 'boolean
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
304 :group 'cperl-autoinsert-details)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
305
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
306 (defcustom cperl-auto-newline-after-colon nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
307 "*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
308 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
309 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
310 :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
311
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
312 (defcustom cperl-tab-always-indent t
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
313 "*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
314 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
315 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
316 :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
317
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
318 (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
319 "*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
320 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
321 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
322 :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
323
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
324 (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
325 "*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
326 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
327 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
328 :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
329
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
330 (defcustom cperl-electric-parens-string "({[]})<"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
331 "*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
332 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
333 :type 'string
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
334 :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
335
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
336 (defcustom cperl-electric-parens nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
337 "*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
338 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
339 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
340 :group 'cperl-affected-by-hairy)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
341
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
342 (defvar zmacs-regions) ; Avoid warning
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
343
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
344 (defcustom cperl-electric-parens-mark
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
345 (and window-system
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
346 (or (and (boundp 'transient-mark-mode) ; For Emacs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
347 transient-mark-mode)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
348 (and (boundp 'zmacs-regions) ; For XEmacs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
349 zmacs-regions)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
350 "*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
351 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
352 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
353 :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
354
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
355 (defcustom cperl-electric-linefeed nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
356 "*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
357 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
358 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
359 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
360 :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
361
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
362 (defcustom cperl-electric-keywords nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
363 "*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
364 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
365
c8f5a9de4a5e (cperl-electric-keywords): Document in the doc string how to use personal
Eli Zaretskii <eliz@gnu.org>
parents: 74429
diff changeset
366 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
367 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
368 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
369 \\[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
370 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
371 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
372 "
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
373 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
374 :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
375
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
376 (defcustom cperl-electric-backspace-untabify t
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
377 "*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
378 :type 'boolean
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
379 :group 'cperl-autoinsert-details)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
380
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
381 (defcustom cperl-hairy nil
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
382 "*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
383 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
384 `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
385 `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
386 `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
387 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
388 :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
389
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
390 (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
391 "*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
392 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
393 :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
394
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
395 (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
396 "*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
397 :type 'boolean
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
398 :group 'cperl-indentation-details)
62686
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
399
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
400 (defcustom cperl-vc-sccs-header '("($sccs) = ('%W\%' =~ /(\\d+(\\.\\d+)+)/) ;")
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
401 "*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
402 :type '(repeat string)
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
403 :group 'cperl)
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
404
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
405 (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
406 "*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
407 :type '(repeat string)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
408 :group 'cperl)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
409
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
410 ;; This became obsolete...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
411 (defvar cperl-vc-header-alist nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
412 (make-obsolete-variable
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
413 'cperl-vc-header-alist
104396
e667f4aad5f2 * textmodes/remember.el (remember-buffer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104311
diff changeset
414 "use cperl-vc-rcs-header or cperl-vc-sccs-header instead."
e667f4aad5f2 * textmodes/remember.el (remember-buffer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104311
diff changeset
415 "22.1")
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
416
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
417 (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
418 (not
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
419 (and
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
420 (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
421 (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
422 (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
423 "*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
424 :type 'boolean
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
425 :group 'cperl)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
426
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
427 (defcustom cperl-info-on-command-no-prompt nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
428 "*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
429 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
430 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
431 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
432 :group 'cperl-affected-by-hairy)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
433
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
434 (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
435 "*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
436 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
437 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
438 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
439 :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
440
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
441 (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
442 "*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
443 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
444 :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
445 :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
446
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
447 (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
448 "*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
449 :type 'face
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
450 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
451
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
452 (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
453 "*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
454 Font for POD headers."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
455 :type 'face
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
456 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
457
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
458 (defcustom cperl-here-face 'font-lock-string-face
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
459 "*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
460 :type 'face
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
461 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
462
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
463 ;;; 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
464 (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
465
73461
c09fdf139d4a * progmodes/cperl-mode.el (cperl-invalid-face): Fix defcustom.
Chong Yidong <cyd@stupidchicken.com>
parents: 73457
diff changeset
466 (defcustom cperl-invalid-face 'underline
c09fdf139d4a * progmodes/cperl-mode.el (cperl-invalid-face): Fix defcustom.
Chong Yidong <cyd@stupidchicken.com>
parents: 73457
diff changeset
467 "*Face for highlighting trailing whitespace."
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
468 :type 'face
35013
587807c5e8e6 (cperl-invalid-face): Don't double-quote
Dave Love <fx@gnu.org>
parents: 32880
diff changeset
469 :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
470 :group 'cperl-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
471
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
472 (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
473 "*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
474 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
475 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
476
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
477 (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
478 "*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
479 :type 'boolean
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
480 :group 'cperl-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
481
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
482 (defcustom cperl-highlight-variables-indiscriminately nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
483 "*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
484 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
485 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
486 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
487 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
488 :type 'boolean
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
489 :group 'cperl)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
490
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
491 (defcustom cperl-pod-here-scan t
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
492 "*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
493 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
494 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
495 :group 'cperl-speed)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
496
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
497 (defcustom cperl-regexp-scan t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
498 "*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
499 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
500 :type 'boolean
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
501 :group 'cperl-speed)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
502
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
503 (defcustom cperl-hook-after-change t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
504 "*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
505 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
506 after reload."
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
507 :type 'boolean
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
508 :group 'cperl-speed)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
509
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
510 (defcustom cperl-imenu-addback nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
511 "*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
512 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
513 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
514 :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
515
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
516 (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
517 "*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
518 :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
519 :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
520
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
521 (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
522 "*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
523 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
524 :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
525
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
526 (defcustom cperl-info-page "perl"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
527 "*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
528 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
529 :type 'string
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
530 :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
531
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
532 (defcustom cperl-use-syntax-table-text-property
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
533 (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
534 "*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
535 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
536 :group 'cperl-speed)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
537
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
538 (defcustom cperl-use-syntax-table-text-property-for-tags
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
539 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
540 "*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
541 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
542 :group 'cperl-speed)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
543
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
544 (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
545 "*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
546 :type 'regexp
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
547 :group 'cperl)
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
548
47334
e3cfc5df817a (cperl-noscan-files-regexp): In addition to RCS, exclude CVS directories.
Richard M. Stallman <rms@gnu.org>
parents: 46132
diff changeset
549 (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
550 "/\\(\\.\\.?\\|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
551 "*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
552 :type 'regexp
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
553 :group 'cperl)
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
554
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
555 (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
556 "*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
557 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
558 :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
559 :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
560
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
561 (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
562 "*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
563 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
564 :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
565
26667
a11929b241ab (cperl-under-as-char): Make nil the default value.
Richard M. Stallman <rms@gnu.org>
parents: 26455
diff changeset
566 (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
567 "*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
568 :type 'boolean
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
569 :group 'cperl)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
570
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
571 (defcustom cperl-extra-perl-args ""
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
572 "*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
573 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
574 :type 'string
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
575 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
576
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
577 (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
578 "*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
579 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
580 :group 'cperl-help-system)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
581
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
582 (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
583 "*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
584 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
585 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
586 :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
587 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
588
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
589 (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
590 "*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
591 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
592 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
593 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
594
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
595 (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
596 "*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
597 when indenting a region.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
598 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
599 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
600 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
601
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
602 (defcustom cperl-merge-trailing-else t
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
603 "*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
604 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
605 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
606 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
607
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
608 (defcustom cperl-indent-parens-as-block nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
609 "*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
610 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
611 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
612 :type 'boolean
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
613 :group 'cperl-indentation-details)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
614
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
615 (defcustom cperl-syntaxify-by-font-lock
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
616 (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
617 (boundp 'parse-sexp-lookup-properties))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
618 "*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
619 :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
620 :group 'cperl-speed)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
621
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
622 (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
623 t
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
624 "*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
625 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
626 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
627 :group 'cperl-speed)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
628
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
629 (defcustom cperl-syntaxify-for-menu
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
630 t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
631 "*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
632 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
633 :type 'boolean
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
634 :group 'cperl-speed)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
635
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
636 (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
637 '((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
638 (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
639 (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
640 (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
641 (cperl-array-face nil "LightGray" bold underline)
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
642 (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
643 (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
644 (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
645 (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
646 (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
647 (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
648 (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
649 "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
650 :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
651 (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
652 (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
653 (repeat symbol)))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
654 :group 'cperl-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
655
49304
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
656 (defvar cperl-dark-background
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
657 (cperl-choose-color "navy" "os2blue" "darkgreen"))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
658 (defvar cperl-dark-foreground
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
659 (cperl-choose-color "orchid1" "orange"))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
660
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
661 (defface cperl-nonoverridable-face
49304
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
662 `((((class grayscale) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
663 (:background "Gray90" :slant italic :underline t))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
664 (((class grayscale) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
665 (: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
666 (((class color) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
667 (:foreground "chartreuse3"))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
668 (((class color) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
669 (:foreground ,cperl-dark-foreground))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
670 (t (:weight bold :underline t)))
50788
2a3bf1afbe82 (cperl-nonoverridable-face): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 50255
diff changeset
671 "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
672 :group 'cperl-faces)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
673
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
674 (defface cperl-array-face
49304
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
675 `((((class grayscale) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
676 (:background "Gray90" :weight bold))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
677 (((class grayscale) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
678 (:foreground "Gray80" :weight bold))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
679 (((class color) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
680 (:foreground "Blue" :background "lightyellow2" :weight bold))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
681 (((class color) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
682 (: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
683 (t (:weight bold)))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
684 "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
685 :group 'cperl-faces)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
686
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
687 (defface cperl-hash-face
49304
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
688 `((((class grayscale) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
689 (:background "Gray90" :weight bold :slant italic))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
690 (((class grayscale) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
691 (:foreground "Gray80" :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 light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
693 (: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
694 (((class color) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
695 (: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
696 (t (:weight bold :slant italic)))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
697 "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
698 :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
699
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
700
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
701
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
702 ;;; Short extra-docs.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
703
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
704 (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
705 "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
706 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
707 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
708 patches to related files.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
709
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
710 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
711 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
712 \(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
713 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
714 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
715
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
716 Get support packages choose-color.el (or font-lock-extra.el before
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
717 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
718 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
719 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
720 \(and you will not get smart highlighting in C :-().
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
721
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
722 Note that to enable Compile choices in the menu you need to install
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
723 mode-compile.el.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
724
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
725 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
726 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
727
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
728 (defalias 'perl-mode 'cperl-mode)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
729
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
730 Get perl5-info from
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
731 $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
732 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
733 $CPAN/doc/manual/info/perl5/pod2texi-0.1.tar.gz
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
734
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
735 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
736 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
737 Tools/Tags submenu in Perl menu.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
738
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
739 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
740 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
741 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
742 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
743
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
744 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
745
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
746 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
747
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
748 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
749 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
750
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
751 \\[normal-mode]
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
752
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
753 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
754
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
755 \\[load-library] cperl-mode RET
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
756 \\[normal-mode]
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
757
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
758 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
759 micro-docs on what I know about CPerl problems.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
760
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
761 (defvar cperl-problems 'please-ignore-this-line
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
762 "Description of problems in CPerl mode.
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
763 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
764 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
765 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
766
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
767 `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
768 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
769 to detect it and bulk out).
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
770
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
771 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
772 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
773 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
774
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
775 (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
776 "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
777
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 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
779 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
780 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
781 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
782 this respect (until 2003).
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
783
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
784 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
785 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
786 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
787 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
788 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
789
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
790 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
791 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
792 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
793 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
794 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
795 braces.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
796
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
797 This may be confusing, since the regexp s#//#/#\; may be highlighted
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
798 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
799 code. Or the opposite case, when a POD section is highlighted, but
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
800 may break the indentation of the following code (though indentation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
801 should work if the balance of delimiters is not broken by POD).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
802
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
803 The main trick (to make $ a \"backslash\") makes constructions like
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
804 ${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
805 to insert it as $ {aaa} (valid in perl5, not in perl4).
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
806
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
807 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
808 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
809
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
810 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
811 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
812 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
813 and on CPAN.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
814
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
815 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
816 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
817 via `cperl-use-syntax-table-text-property'.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
818
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
819 (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
820 "Advantages of CPerl mode.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
821
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
822 0) It uses the newest `syntax-table' property ;-);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
823
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
824 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
825 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
826 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
827
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
828 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
829 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
830 updates syntax assist hints when you edit your script.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
831
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
832 2) It is generally believed to be \"the most user-friendly Emacs
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
833 package\" whatever it may mean (I doubt that the people who say similar
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
834 things tried _all_ the rest of Emacs ;-), but this was not a lonely
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
835 voice);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
836
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
837 3) Everything is customizable, one-by-one or in a big sweep;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
838
96459
a90a9fcdc77d Spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 95832
diff changeset
839 4) It has many easily-accessible \"tools\":
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
840 a) Can run program, check syntax, start debugger;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
841 b) Can lineup vertically \"middles\" of rows, like `=' in
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
842 a = b;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
843 cc = d;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
844 c) Can insert spaces where this impoves readability (in one
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
845 interactive sweep over the buffer);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
846 d) Has support for imenu, including:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
847 1) Separate unordered list of \"interesting places\";
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
848 2) Separate TOC of POD sections;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
849 3) Separate list of packages;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
850 4) Hierarchical view of methods in (sub)packages;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
851 5) and functions (by the full name - with package);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
852 e) Has an interface to INFO docs for Perl; The interface is
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
853 very flexible, including shrink-wrapping of
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
854 documentation buffer/frame;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
855 f) Has a builtin list of one-line explanations for perl constructs.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
856 g) Can show these explanations if you stay long enough at the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
857 corresponding place (or on demand);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
858 h) Has an enhanced fontification (using 3 or 4 additional faces
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
859 comparing to font-lock - basically, different
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
860 namespaces in Perl have different colors);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
861 i) Can construct TAGS basing on its knowledge of Perl syntax,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
862 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
863 TAGS (if \"by directory\", .xs files - with C-language
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
864 bindings - are included in the scan);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
865 j) Can build a hierarchical view of classes (via imenu) basing
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
866 on generated TAGS file;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
867 k) Has electric parentheses, electric newlines, uses Abbrev
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
868 for electric logical constructs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
869 while () {}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
870 with different styles of expansion (context sensitive
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
871 to be not so bothering). Electric parentheses behave
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
872 \"as they should\" in a presence of a visible region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
873 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
874 m) Can convert from
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
875 if (A) { B }
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
876 to
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
877 B if A;
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
878
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
879 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
880 (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
881 o) Highlights trailing whitespace;
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
882 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
883 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
884 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
885 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
886 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
887 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
888 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
889 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
890 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
891
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
892 5) The indentation engine was very smart, but most of tricks may be
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
893 not needed anymore with the support for `syntax-table' property. Has
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
894 progress indicator for indentation (with `imenu' loaded).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
895
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
896 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
897 whitespace *inside* the conditional/loop constructs.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
898
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
899 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
900
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
901 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
902 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
903
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
904 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
905 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
906
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
907 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
908 capable syntax engines).
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
909
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
910 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
911 ")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
912
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
913 (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
914 "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
915 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
916
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
917 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
918 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
919
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
920 *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
921 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
922 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
923 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
924 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
925
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
926 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
927 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
928 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
929
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
930 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
931 PODs and HERE-documents), or
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
932 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
933 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
934
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
935 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
936
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
937 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
938 `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
939 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
940
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
941 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
942 `cperl-pod-here-scan'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
943 to nil.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
944
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
945 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
946
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
947 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
948 `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
949 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
950 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
951 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
952 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
953
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
954 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
955 of, say, long POD sections.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
956
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
957 (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
958 "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
959
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
960 `cperl-array-face' Array names
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
961 `cperl-hash-face' Hash names
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
962 `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
963 syntaxically to be not code
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
964 `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
965 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
966 `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
967 `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
968 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
969 (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
970 package names (when recognized), format names
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
971 `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
972 `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
973 `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
974 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
975 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
976 as string literals
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
977 `font-lock-type-face' Overridable keywords
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
978 `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
979 hash names, POD headers/item names
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
980 `cperl-invalid-face' Trailing whitespace
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
981
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
982 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
983 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
984 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
985 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
986
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
987 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
988 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
989
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
990 In regular expressions (including character classes):
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
991 `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
992 `font-lock-constant-face': Delimiters
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
993 `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
994 Mismatched closing delimiters, parens
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
995 we couldn't match, misplaced quantifiers,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
996 unrecognized escape sequences
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
997 `cperl-nonoverridable-face' Modifiers, as gism in m/REx/gism
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
998 `font-lock-type-face' escape sequences with arguments (\\x \\23 \\p \\N)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
999 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
1000 `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
1001 `font-lock-function-name-face' Special symbols: $ ^ . [ ] [^ ] (?{ }) (??{ })
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1002 \"Range -\" in character classes
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1003 `font-lock-builtin-face' \"Remaining\" 0-length constructs, multipliers
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1004 ?+*{}, not-capturing parens, leading
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1005 backslashes of escape sequences
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1006 `font-lock-variable-name-face' Interpolated constructs, embedded code,
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1007 POSIX classes (inside charclasses)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1008 `font-lock-comment-face' Embedded comments
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1009
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1010 ")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1011
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1012
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1013
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1014 ;;; Portability stuff:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1015
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1016 (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
1017 `(define-key cperl-mode-map
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
1018 ,(if xemacs-key
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
1019 `(if (featurep 'xemacs) ,xemacs-key ,emacs-key)
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
1020 emacs-key)
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
1021 ,definition))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1022
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1023 (defvar cperl-del-back-ch
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1024 (car (append (where-is-internal 'delete-backward-char)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1025 (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
1026 "Character generated by key bound to `delete-backward-char'.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1027
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1028 (and (vectorp cperl-del-back-ch) (= (length cperl-del-back-ch) 1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1029 (setq cperl-del-back-ch (aref cperl-del-back-ch 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1030
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1031 (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
1032 (if (featurep 'xemacs)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1033 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1034 ;; "Active regions" are on: use region only if active
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1035 ;; "Active regions" are off: use region unconditionally
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1036 (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
1037 (if zmacs-regions (mark) t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1038 (defun cperl-use-region-p ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1039 (if transient-mark-mode mark-active t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1040 (defun cperl-mark-active () mark-active))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1041
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1042 (defsubst cperl-enable-font-lock ()
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1043 cperl-can-font-lock)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1044
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1045 (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
1046 (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
1047
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
1048 (if (featurep 'xemacs)
55049
20627b978043 (cperl-putback-char): Delete Emacs 18 definition.
Richard M. Stallman <rms@gnu.org>
parents: 54556
diff changeset
1049 (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
1050 (setq unread-command-events (list (eval '(character-to-event c))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1051
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1052 (or (fboundp 'uncomment-region)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1053 (defun uncomment-region (beg end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1054 (interactive "r")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1055 (comment-region beg end -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1056
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1057 (defvar cperl-do-not-fontify
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1058 (if (string< emacs-version "19.30")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1059 'fontified
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1060 'lazy-lock)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1061 "Text property which inhibits refontification.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1062
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1063 (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
1064 ;; 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
1065 (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
1066 nil
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1067 (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
1068 to cperl-do-not-fontify t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1069
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
1070 (defcustom cperl-mode-hook nil
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
1071 "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
1072 :type 'hook
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
1073 :group 'cperl)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1074
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1075 (defvar cperl-syntax-state nil)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1076 (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
1077 (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
1078 (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
1079
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1080 ;; Make customization possible "in reverse"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1081 (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
1082 (cond
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1083 ((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
1084 (cperl-hairy (or hairy t))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1085 (t (symbol-value symbol))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1086
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1087
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1088 (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
1089 "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
1090 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
1091 versions of Emacs."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1092 (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
1093 (or keep
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1094 (delete-horizontal-space))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1095 (indent-to column minimum)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1096 ;; 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
1097 (and prop
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1098 (> (current-column) 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1099 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1100 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1101 (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
1102 (and (looking-at "\\=[ \t]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1103 (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
1104 'syntax-type prop)))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1105
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1106 ;;; 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
1107
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1108 ;;;(and cperl-clobber-mode-lists
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1109 ;;;(setq auto-mode-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1110 ;;; (append '(("\\.\\([pP][Llm]\\|al\\)$" . perl-mode)) auto-mode-alist ))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1111 ;;;(and (boundp 'interpreter-mode-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1112 ;;; (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
1113 ;;; '(("miniperl" . perl-mode))))))
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1114 (eval-when-compile
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
1115 (mapc (lambda (p)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
1116 (condition-case nil
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
1117 (require p)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
1118 (error nil)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
1119 '(imenu easymenu etags timer man info))
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1120 (if (fboundp 'ps-extend-face-list)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1121 (defmacro cperl-ps-extend-face-list (arg)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1122 `(ps-extend-face-list ,arg))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1123 (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
1124 `(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
1125 ;; 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
1126 ;; 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
1127 ;; expansion manually. Any other suggestions?
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1128 (require 'cl))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1129
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1130 (defvar cperl-mode-abbrev-table nil
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
1131 "Abbrev table in use in CPerl mode buffers.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1132
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1133 (add-hook 'edit-var-mode-alist '(perl-mode (regexp . "^cperl-")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1134
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1135 (defvar cperl-mode-map () "Keymap used in CPerl mode.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1136
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1137 (if cperl-mode-map nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1138 (setq cperl-mode-map (make-sparse-keymap))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1139 (cperl-define-key "{" 'cperl-electric-lbrace)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1140 (cperl-define-key "[" 'cperl-electric-paren)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1141 (cperl-define-key "(" 'cperl-electric-paren)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1142 (cperl-define-key "<" 'cperl-electric-paren)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1143 (cperl-define-key "}" 'cperl-electric-brace)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1144 (cperl-define-key "]" 'cperl-electric-rparen)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1145 (cperl-define-key ")" 'cperl-electric-rparen)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1146 (cperl-define-key ";" 'cperl-electric-semi)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1147 (cperl-define-key ":" 'cperl-electric-terminator)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1148 (cperl-define-key "\C-j" 'newline-and-indent)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1149 (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
1150 (cperl-define-key "\C-c\C-t" 'cperl-invert-if-unless)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1151 (cperl-define-key "\C-c\C-a" 'cperl-toggle-auto-newline)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1152 (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
1153 (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
1154 (cperl-define-key "\C-c\C-f" 'auto-fill-mode)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1155 (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
1156 (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
1157 (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
1158 (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
1159 (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
1160 (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
1161 (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
1162 (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
1163 (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
1164 (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
1165 (cperl-define-key "\C-c\C-hP" 'cperl-perldoc-at-point)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1166 (cperl-define-key "\e\C-q" 'cperl-indent-exp) ; Usually not bound
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1167 (cperl-define-key [?\C-\M-\|] 'cperl-lineup
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1168 [(control meta |)])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1169 ;;(cperl-define-key "\M-q" 'cperl-fill-paragraph)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1170 ;;(cperl-define-key "\e;" 'cperl-indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1171 (cperl-define-key "\177" 'cperl-electric-backspace)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1172 (cperl-define-key "\t" 'cperl-indent-command)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1173 ;; 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
1174 (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
1175 [(control c) (control h) F])
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1176 (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
1177 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1178 (cperl-define-key "\C-hf"
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) "f") ; does not work
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1180 'cperl-info-on-command
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1181 [(control h) f])
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1182 (cperl-define-key "\C-hv"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1183 ;;(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
1184 '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
1185 [(control h) v])
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-hf"
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) "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
1188 (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
1189 [(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
1190 (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
1191 ;;(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
1192 (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
1193 [(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
1194 (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
1195 [(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
1196 (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
1197 ;;(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
1198 'cperl-get-help
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1199 [(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
1200 (if (and (featurep 'xemacs)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1201 (<= emacs-minor-version 11) (<= emacs-major-version 19))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1202 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1203 ;; 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
1204 ;;;;;(cperl-define-key "\M-q" 'cperl-fill-paragraph)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1205 (cperl-define-key "\e;" 'cperl-indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1206 (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
1207 (or (boundp 'fill-paragraph-function)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1208 (substitute-key-definition
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1209 'fill-paragraph 'cperl-fill-paragraph
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1210 cperl-mode-map global-map))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1211 (substitute-key-definition
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1212 'indent-sexp 'cperl-indent-exp
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1213 cperl-mode-map global-map)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1214 (substitute-key-definition
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1215 'indent-region 'cperl-indent-region
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1216 cperl-mode-map global-map)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1217 (substitute-key-definition
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1218 'indent-for-comment 'cperl-indent-for-comment
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1219 cperl-mode-map global-map)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1220
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1221 (defvar cperl-menu)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1222 (defvar cperl-lazy-installed)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1223 (defvar cperl-old-style nil)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1224 (condition-case nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1225 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1226 (require 'easymenu)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1227 (easy-menu-define
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1228 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
1229 '("Perl"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1230 ["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
1231 ["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
1232 ["Mark function" mark-defun t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1233 ["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
1234 ["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
1235 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1236 ["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
1237 ["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
1238 ("Regexp"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1239 ["Beautify" cperl-beautify-regexp
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 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
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 ["Beautify a group" cperl-beautify-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 ["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
1246 cperl-use-syntax-table-text-property]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1247 ["Contract a group" cperl-contract-level
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1248 cperl-use-syntax-table-text-property]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1249 ["Contract groups" cperl-contract-levels
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1250 cperl-use-syntax-table-text-property]
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1251 "----"
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
1252 ["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
1253 (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
1254 ["Find next interpolated (no //o)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1255 cperl-next-interpolated-REx-0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1256 (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
1257 (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
1258 ["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
1259 cperl-next-interpolated-REx-1
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1260 (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
1261 ["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
1262 ["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
1263 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1264 ["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
1265 ["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
1266 ["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
1267 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1268 ["Run" mode-compile (fboundp 'mode-compile)]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1269 ["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
1270 (get-buffer "*compilation*"))]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1271 ["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
1272 ["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
1273 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1274 ["Debugger" cperl-db t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1275 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1276 ("Tools"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1277 ["Imenu" imenu (fboundp 'imenu)]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1278 ["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
1279 "----"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1280 ["Ispell PODs" cperl-pod-spell
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1281 ;; Better not to update syntaxification here:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1282 ;; 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
1283 (or
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1284 (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
1285 (< (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1286 (and cperl-syntaxify-for-menu
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1287 (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
1288 (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
1289 (point-max)))]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1290 ["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
1291 (< (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1292 (and cperl-syntaxify-for-menu
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1293 (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
1294 (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
1295 (point-max))]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1296 ["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
1297 (eq 'here-doc (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1298 (and cperl-syntaxify-for-menu
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1299 (cperl-update-syntaxification (point) (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1300 (get-text-property (point) 'syntax-type)))]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1301 ["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
1302 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
1303 (memq (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1304 (and cperl-syntaxify-for-menu
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1305 (cperl-update-syntaxification (point) (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1306 (get-text-property (point) 'syntax-type))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1307 '(here-doc pod))]
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1308 "----"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1309 ["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
1310 (fboundp 'ps-extend-face-list)]
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1311 "----"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1312 ["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
1313 (cperl-use-region-p)]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1314 ["Profile syntaxification" cperl-time-fontification t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1315 ["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
1316 ["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
1317 ["Debug backtrace on syntactic scan (BEWARE!!!)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1318 (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
1319 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1320 ["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
1321 ;;["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
1322 ("Tags"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1323 ;;; ["Create tags for current file" cperl-etags t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1324 ;;; ["Add tags for current file" (cperl-etags t) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1325 ;;; ["Create tags for Perl files in directory" (cperl-etags nil t) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1326 ;;; ["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
1327 ;;; ["Create tags for Perl files in (sub)directories"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1328 ;;; (cperl-etags nil 'recursive) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1329 ;;; ["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
1330 ;;; (cperl-etags t 'recursive) t])
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1331 ;;;; 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
1332 ["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
1333 ["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
1334 ["Create tags for Perl files in directory"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1335 (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
1336 ["Add tags for Perl files in directory"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1337 (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
1338 ["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
1339 (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
1340 ["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
1341 (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
1342 ("Perl docs"
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
1343 ["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
1344 (fboundp 'imenu-go-find-at-position)]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1345 ["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
1346 ["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
1347 ["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
1348 ["Perldoc" cperl-perldoc t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1349 ["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
1350 ["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
1351 ["Auto-help on" cperl-lazy-install
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1352 (and (fboundp 'run-with-idle-timer)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1353 (not cperl-lazy-installed))]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1354 ["Auto-help off" cperl-lazy-unstall
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1355 (and (fboundp 'run-with-idle-timer)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1356 cperl-lazy-installed)])
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1357 ("Toggle..."
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1358 ["Auto newline" cperl-toggle-auto-newline t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1359 ["Electric parens" cperl-toggle-electric t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1360 ["Electric keywords" cperl-toggle-abbrev t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1361 ["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
1362 ["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
1363 ["Auto fill" auto-fill-mode t])
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1364 ("Indent styles..."
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1365 ["CPerl" (cperl-set-style "CPerl") t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1366 ["PerlStyle" (cperl-set-style "PerlStyle") t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1367 ["GNU" (cperl-set-style "GNU") t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1368 ["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
1369 ["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
1370 ["BSD" (cperl-set-style "BSD") t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1371 ["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
1372 ["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
1373 ["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
1374 ("Micro-docs"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1375 ["Tips" (describe-variable 'cperl-tips) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1376 ["Problems" (describe-variable 'cperl-problems) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1377 ["Speed" (describe-variable 'cperl-speed) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1378 ["Praise" (describe-variable 'cperl-praise) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1379 ["Faces" (describe-variable 'cperl-tips-faces) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1380 ["CPerl mode" (describe-function 'cperl-mode) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1381 ["CPerl version"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1382 (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
1383 cperl-version) t]))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1384 (error nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1385
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1386 (autoload 'c-macro-expand "cmacexp"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1387 "Display the result of expanding all C macros occurring in the region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1388 The expansion is entirely correct because it uses the C preprocessor."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1389 t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1390
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1391 ;;; 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
1392 (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
1393 "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
1394 Should contain exactly one group.")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1395
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1396 ;;; 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
1397 (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
1398 "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
1399 Should contain exactly one group.")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1400
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1401
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1402 ;;; 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
1403 ;;; `cperl-outline-regexp', `defun-prompt-regexp'.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1404 ;;; 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
1405 ;;; near mentioned above variable(s)...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1406 ;;; sub($$):lvalue{} sub:lvalue{} Both allowed...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1407 (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
1408 "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
1409 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
1410 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
1411 the last)."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1412 (concat ; Assume n groups before this...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1413 "\\(" ; n+1=name-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1414 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
1415 "\\(::[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
1416 "\\)" ; END n+1=name-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1417 (if named "" "?")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1418 "\\(" ; n+4=proto-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+5=pre-proto
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1420 "\\(([^()]*)\\)" ; n+6=prototype
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1421 "\\)?" ; END n+4=proto-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1422 "\\(" ; n+7=attr-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1423 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
1424 "\\(" ; n+9=start-attr
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1425 ":"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1426 (if attr (concat
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 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
1429 "\\(\\sw\\|_\\)+" ; attr-name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1430 ;; 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
1431 "\\((\\(\\\\.\\|[^\\\\()]\\|([^\\\\()]*)\\)*)\\)?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1432 "\\(" ; optional : (XXX allows trailing???)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1433 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
1434 ":\\)?"
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 "\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1438 "\\)?" ; END n+6=proto-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1439 ))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1440
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1441 ;;; 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
1442 ;;; and `cperl-outline-level'.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1443 ;;;; 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
1444 (defvar cperl-imenu--function-name-regexp-perl
5ef08437e801 (cperl-imenu--function-name-regexp-perl):
Richard M. Stallman <rms@gnu.org>
parents: 43899
diff changeset
1445 (concat
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1446 "^\\(" ; 1 = all
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1447 "\\([ \t]*package" ; 2 = package-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1448 "\\(" ; 3 = package-name-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1449 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
1450 "\\([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
1451 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1452 "[ \t]*sub"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1453 (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
1454 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
1455 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1456 "=head\\([1-4]\\)[ \t]+" ; 16=level
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1457 "\\([^\n]+\\)$" ; 17=text
43943
5ef08437e801 (cperl-imenu--function-name-regexp-perl):
Richard M. Stallman <rms@gnu.org>
parents: 43899
diff changeset
1458 "\\)"))
5ef08437e801 (cperl-imenu--function-name-regexp-perl):
Richard M. Stallman <rms@gnu.org>
parents: 43899
diff changeset
1459
43899
2b9c79cd9ecb (cperl-outline-regexp): Move definition up.
Richard M. Stallman <rms@gnu.org>
parents: 43688
diff changeset
1460 (defvar cperl-outline-regexp
2b9c79cd9ecb (cperl-outline-regexp): Move definition up.
Richard M. Stallman <rms@gnu.org>
parents: 43688
diff changeset
1461 (concat cperl-imenu--function-name-regexp-perl "\\|" "\\`"))
2b9c79cd9ecb (cperl-outline-regexp): Move definition up.
Richard M. Stallman <rms@gnu.org>
parents: 43688
diff changeset
1462
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1463 (defvar cperl-mode-syntax-table nil
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
1464 "Syntax table in use in CPerl mode buffers.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1465
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1466 (defvar cperl-string-syntax-table nil
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
1467 "Syntax table in use in CPerl mode string-like chunks.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1468
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1469 (defsubst cperl-1- (p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1470 (max (point-min) (1- p)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1471
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1472 (defsubst cperl-1+ (p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1473 (min (point-max) (1+ p)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1474
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1475 (if cperl-mode-syntax-table
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1476 ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1477 (setq cperl-mode-syntax-table (make-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 ?< "." 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 (modify-syntax-entry ?\n ">" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1490 (modify-syntax-entry ?# "<" 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 (if cperl-under-as-char
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1494 (modify-syntax-entry ?_ "w" cperl-mode-syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1495 (modify-syntax-entry ?: "_" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1496 (modify-syntax-entry ?| "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1497 (setq cperl-string-syntax-table (copy-syntax-table cperl-mode-syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1498 (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
1499 (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
1500 (modify-syntax-entry ?\} "." cperl-string-syntax-table)
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1501 (modify-syntax-entry ?\" "." cperl-string-syntax-table)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1502 (modify-syntax-entry ?' "." cperl-string-syntax-table)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1503 (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
1504 (modify-syntax-entry ?# "." cperl-string-syntax-table)) ; (?# comment )
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1505
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1506
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1507
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1508 (defvar cperl-faces-init nil)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1509 ;; Fix for msb.el
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1510 (defvar cperl-msb-fixed nil)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1511 (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
1512 (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
1513 (defvar cperl-font-lock-multiline nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1514 (defvar cperl-font-locking nil)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1515
78407
377800d78812 (cperl-compilation-error-regexp-alist): Remove duplicate defvar
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
1516 ;; 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
1517 ;; 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
1518 (defvar cperl-compilation-error-regexp-alist
377800d78812 (cperl-compilation-error-regexp-alist): Remove duplicate defvar
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
1519 ;; 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
1520 '(("^[^\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
1521 2 3))
377800d78812 (cperl-compilation-error-regexp-alist): Remove duplicate defvar
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
1522 "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
1523
86503
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1524 (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
1525
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1526 ;;;###autoload
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1527 (defun cperl-mode ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1528 "Major mode for editing Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1529 Expression and list commands understand all C brackets.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1530 Tab indents for Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1531 Paragraphs are separated by blank lines only.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1532 Delete converts tabs to spaces as it moves back.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1533
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1534 Various characters in Perl almost always come in pairs: {}, (), [],
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1535 sometimes <>. When the user types the first, she gets the second as
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1536 well, with optional special formatting done on {}. (Disabled by
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1537 default.) You can always quote (with \\[quoted-insert]) the left
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1538 \"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
1539 since most the time you mean \"less\". CPerl mode tries to guess
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1540 whether you want to type pair <>, and inserts is if it
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1541 appropriate. You can set `cperl-electric-parens-string' to the string that
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1542 contains the parenths from the above list you want to be electrical.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1543 Electricity of parenths is controlled by `cperl-electric-parens'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1544 You may also set `cperl-electric-parens-mark' to have electric parens
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1545 look for active mark and \"embrace\" a region if possible.'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1546
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1547 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
1548
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1549 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
1550 for, foreach, formy and foreachmy.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1551
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1552 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
1553
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1554 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
1555 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
1556 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
1557 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
1558 } { } 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
1559 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
1560 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
1561 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
1562 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
1563
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1564 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
1565
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1566 bite if angry;
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1567
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1568 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
1569 `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
1570 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
1571 to nil.)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1572
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1573 \\[cperl-linefeed] is a convenience replacement for typing carriage
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1574 return. It places you in the next line with proper indentation, or if
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1575 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
1576
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1577 foreach (@lines) {print; print}
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1578
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1579 and you are on a boundary of a statement inside braces, it will
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1580 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
1581 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
1582 `newline-and-indent' behavior, it is on \\[newline-and-indent],
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1583 see documentation on `cperl-electric-linefeed'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1584
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1585 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
1586
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1587 if (A) { B }
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1588
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1589 into
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1590
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1591 B if A;
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1592
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1593 \\{cperl-mode-map}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1594
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1595 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
1596 \(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
1597 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
1598 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
1599 \(see also `cperl-electric-parens-mark' and `cperl-electric-parens'),
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1600 setting `cperl-electric-keywords' enables electric expansion of
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1601 control structures in CPerl. `cperl-electric-linefeed' governs which
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1602 one of two linefeed behavior is preferable. You can enable all these
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1603 options simultaneously (recommended mode of use) by setting
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1604 `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
1605 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
1606 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
1607 consequent \\[cperl-electric-backspace].
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 If your site has perl5 documentation in info format, you can use commands
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1610 \\[cperl-info-on-current-command] and \\[cperl-info-on-command] to access it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1611 These keys run commands `cperl-info-on-current-command' and
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1612 `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
1613 `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
1614 \(in turn affected by `cperl-hairy').
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1615
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1616 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
1617 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
1618 man via menu.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1619
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1620 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
1621 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
1622 `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
1623 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
1624 menu, or via \\[cperl-toggle-autohelp]. Requires `run-with-idle-timer'.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1625
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1626 Use \\[cperl-lineup] to vertically lineup some construction - put the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1627 beginning of the region at the start of construction, and make region
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1628 span the needed amount of lines.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1629
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1630 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
1631 `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
1632 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
1633 for indentation too, otherwise they are used for highlighting only.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1634
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1635 Variables controlling indentation style:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1636 `cperl-tab-always-indent'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1637 Non-nil means TAB in CPerl mode should always reindent the current line,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1638 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
1639 `cperl-indent-left-aligned-comments'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1640 Non-nil means that the comment starting in leftmost column should indent.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1641 `cperl-auto-newline'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1642 Non-nil means automatically newline before and after braces,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1643 and after colons and semicolons, inserted in Perl code. The following
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1644 \\[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
1645 Insertion after colons requires both this variable and
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1646 `cperl-auto-newline-after-colon' set.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1647 `cperl-auto-newline-after-colon'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1648 Non-nil means automatically newline even after colons.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1649 Subject to `cperl-auto-newline' setting.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1650 `cperl-indent-level'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1651 Indentation of Perl statements within surrounding block.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1652 The surrounding block's indentation is the indentation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1653 of the line on which the open-brace appears.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1654 `cperl-continued-statement-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1655 Extra indentation given to a substatement, such as the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1656 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
1657 `cperl-continued-brace-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1658 Extra indentation given to a brace that starts a substatement.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1659 This is in addition to `cperl-continued-statement-offset'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1660 `cperl-brace-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1661 Extra indentation for line if it starts with an open brace.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1662 `cperl-brace-imaginary-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1663 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
1664 this far to the right of the actual line indentation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1665 `cperl-label-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1666 Extra indentation for line that is a label.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1667 `cperl-min-label-indent'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1668 Minimal indentation for line that is a label.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1669
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1670 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
1671 `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
1672 `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
1673 `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
1674 `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
1675 `cperl-continued-statement-offset' 5 4 2 4
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1676
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1677 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
1678 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
1679 \\[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
1680 \(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
1681
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1682 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
1683 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
1684 templates for these constructs are created (controlled by
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1685 `cperl-extra-newline-before-brace'), and how reflow-logic should treat
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1686 \"continuation\" blocks of else/elsif/continue, controlled by the same
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1687 variable, and by `cperl-extra-newline-before-brace-multiline',
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1688 `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
1689
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1690 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
1691 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
1692 `cperl-brace-offset'+`cperl-continued-statement-offset'.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1693
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1694 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
1695 with no args.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1696
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1697 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
1698 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
1699 `cperl-praise', `cperl-speed'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1700 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1701 (kill-all-local-variables)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1702 (use-local-map cperl-mode-map)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1703 (if (cperl-val 'cperl-electric-linefeed)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1704 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1705 (local-set-key "\C-J" 'cperl-linefeed)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1706 (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
1707 (if (and
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1708 (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
1709 (cperl-val 'cperl-info-on-command-no-prompt))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1710 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1711 ;; don't clobber the backspace binding:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1712 (cperl-define-key "\C-hf" 'cperl-info-on-current-command [(control h) f])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1713 (cperl-define-key "\C-c\C-hf" 'cperl-info-on-command
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1714 [(control c) (control h) f])))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1715 (setq major-mode cperl-use-major-mode)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1716 (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
1717 (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
1718 (define-abbrev-table 'cperl-mode-abbrev-table '(
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1719 ("if" "if" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1720 ("elsif" "elsif" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1721 ("while" "while" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1722 ("until" "until" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1723 ("unless" "unless" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1724 ("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
1725 ("continue" "continue" cperl-electric-else 0)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1726 ("for" "for" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1727 ("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
1728 ("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
1729 ("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
1730 ("do" "do" cperl-electric-keyword 0)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1731 ("=pod" "=pod" cperl-electric-pod 0)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1732 ("=over" "=over" cperl-electric-pod 0)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1733 ("=head1" "=head1" cperl-electric-pod 0)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1734 ("=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
1735 ("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
1736 ("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
1737 ("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
1738 ("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
1739 (setq abbrevs-changed prev-a-c))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1740 (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
1741 (if (cperl-val 'cperl-electric-keywords)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1742 (abbrev-mode 1))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1743 (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
1744 ;; 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
1745 (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
1746 (make-local-variable 'cperl-font-locking)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1747 (make-local-variable 'outline-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1748 ;; (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
1749 (setq outline-regexp cperl-outline-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1750 (make-local-variable 'outline-level)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1751 (setq outline-level 'cperl-outline-level)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1752 (make-local-variable 'paragraph-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1753 (setq paragraph-start (concat "^$\\|" page-delimiter))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1754 (make-local-variable 'paragraph-separate)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1755 (setq paragraph-separate paragraph-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1756 (make-local-variable 'paragraph-ignore-fill-prefix)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1757 (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
1758 (if (featurep 'xemacs)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1759 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1760 (make-local-variable 'paren-backwards-message)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1761 (set 'paren-backwards-message t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1762 (make-local-variable 'indent-line-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1763 (setq indent-line-function 'cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1764 (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
1765 (setq require-final-newline mode-require-final-newline)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1766 (make-local-variable 'comment-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1767 (setq comment-start "# ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1768 (make-local-variable 'comment-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1769 (setq comment-end "")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1770 (make-local-variable 'comment-column)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1771 (setq comment-column cperl-comment-column)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1772 (make-local-variable 'comment-start-skip)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1773 (setq comment-start-skip "#+ *")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1774 (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
1775 ;;; "[ \t]*sub"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1776 ;;; (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
1777 ;;; 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
1778 (setq defun-prompt-regexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1779 (concat "^[ \t]*\\(sub"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1780 (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
1781 "\\|" ; per toke.c
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1782 "\\(BEGIN\\|CHECK\\|INIT\\|END\\|AUTOLOAD\\|DESTROY\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1783 "\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1784 cperl-maybe-white-and-comment-rex))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1785 (make-local-variable 'comment-indent-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1786 (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
1787 (and (boundp 'fill-paragraph-function)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1788 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1789 (make-local-variable 'fill-paragraph-function)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1790 (set 'fill-paragraph-function 'cperl-fill-paragraph)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1791 (make-local-variable 'parse-sexp-ignore-comments)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1792 (setq parse-sexp-ignore-comments t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1793 (make-local-variable 'indent-region-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1794 (setq indent-region-function 'cperl-indent-region)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1795 ;;(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
1796 (make-local-variable 'imenu-create-index-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1797 (setq imenu-create-index-function
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1798 (function cperl-imenu--create-perl-index))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1799 (make-local-variable 'imenu-sort-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1800 (setq imenu-sort-function nil)
62686
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
1801 (make-local-variable 'vc-rcs-header)
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
1802 (set 'vc-rcs-header cperl-vc-rcs-header)
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
1803 (make-local-variable 'vc-sccs-header)
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
1804 (set 'vc-sccs-header cperl-vc-sccs-header)
110741
d90a3bc6b730 Remove vc-header-alist, obsolete since 21.1.
Glenn Morris <rgm@gnu.org>
parents: 110305
diff changeset
1805 (when (featurep 'xemacs)
d90a3bc6b730 Remove vc-header-alist, obsolete since 21.1.
Glenn Morris <rgm@gnu.org>
parents: 110305
diff changeset
1806 ;; This one is obsolete...
d90a3bc6b730 Remove vc-header-alist, obsolete since 21.1.
Glenn Morris <rgm@gnu.org>
parents: 110305
diff changeset
1807 (make-local-variable 'vc-header-alist)
d90a3bc6b730 Remove vc-header-alist, obsolete since 21.1.
Glenn Morris <rgm@gnu.org>
parents: 110305
diff changeset
1808 (set 'vc-header-alist (or cperl-vc-header-alist ; Avoid warning
d90a3bc6b730 Remove vc-header-alist, obsolete since 21.1.
Glenn Morris <rgm@gnu.org>
parents: 110305
diff changeset
1809 `((SCCS ,(car cperl-vc-sccs-header))
d90a3bc6b730 Remove vc-header-alist, obsolete since 21.1.
Glenn Morris <rgm@gnu.org>
parents: 110305
diff changeset
1810 (RCS ,(car cperl-vc-rcs-header))))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1811 (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
1812 (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
1813 (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
1814 (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
1815 (symbol-value 'compilation-error-regexp-alist-alist)))
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1816 (if (fboundp 'compilation-build-compilation-error-regexp-alist)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1817 (let ((f 'compilation-build-compilation-error-regexp-alist))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1818 (funcall f))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1819 (make-local-variable 'compilation-error-regexp-alist)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
1820 (push 'cperl compilation-error-regexp-alist)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1821 ((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
1822 (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
1823 (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
1824 (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
1825 (symbol-value 'compilation-error-regexp-alist)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1826 (make-local-variable 'font-lock-defaults)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1827 (setq font-lock-defaults
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1828 (cond
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1829 ((string< emacs-version "19.30")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1830 '(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
1831 ((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
1832 '((cperl-font-lock-keywords
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
1833 cperl-font-lock-keywords-1
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1834 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
1835 (t
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1836 '((cperl-load-font-lock-keywords
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1837 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
1838 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
1839 (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
1840 (setq cperl-syntax-state nil) ; reset syntaxification cache
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1841 (if cperl-use-syntax-table-text-property
110305
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108282
diff changeset
1842 (if (boundp 'syntax-propertize-function)
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108282
diff changeset
1843 (progn
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108282
diff changeset
1844 ;; Reset syntaxification cache.
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108282
diff changeset
1845 (set (make-local-variable 'cperl-syntax-done-to) nil)
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108282
diff changeset
1846 (set (make-local-variable 'syntax-propertize-function)
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108282
diff changeset
1847 (lambda (start end)
b10051866f51 New syntax-propertize functionality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108282
diff changeset
1848 (goto-char start) (cperl-fontify-syntaxically end))))
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
1849 (make-local-variable 'parse-sexp-lookup-properties)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1850 ;; 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
1851 (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
1852 ;; Fix broken font-lock:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1853 (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
1854 (set 'font-lock-unfontify-region-function
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1855 '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
1856 (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
1857 (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
1858 (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
1859 '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
1860 (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
1861 (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
1862 (make-local-variable 'font-lock-syntactic-keywords)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1863 (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
1864 (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
1865 '((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
1866 ;; 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
1867 ;; 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
1868 ;; 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
1869 ;; are defined.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1870 '(t)))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1871 (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
1872 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1873 (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
1874 (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
1875 (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
1876 (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
1877 'cperl-font-lock-fontify-region-function))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1878 (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
1879 (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
1880 '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
1881 (make-local-variable 'cperl-old-style)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1882 (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
1883 (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
1884 'cperl-do-auto-fill)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1885 (or (fboundp 'cperl-old-auto-fill-mode)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1886 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1887 (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
1888 (defun auto-fill-mode (&optional arg)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1889 (interactive "P")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1890 (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
1891 (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
1892 (setq auto-fill-function 'cperl-do-auto-fill))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1893 (if (cperl-enable-font-lock)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1894 (if (cperl-val 'cperl-font-lock)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1895 (progn (or cperl-faces-init (cperl-init-faces))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1896 (font-lock-mode 1))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1897 (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
1898 'cperl-facemenu-add-face-function) ; XXXX What this guy is for???
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1899 (and (boundp 'msb-menu-cond)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1900 (not cperl-msb-fixed)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1901 (cperl-msb-fix))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1902 (if (featurep 'easymenu)
22392
7300e6ab99d2 (cperl-problems): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 22391
diff changeset
1903 (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
1904 (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
1905 (if cperl-hook-after-change
77103
5e661f4001f4 (cperl-mode): Remove unnecessary call to obsolete function
Glenn Morris <rgm@gnu.org>
parents: 76299
diff changeset
1906 (add-hook 'after-change-functions 'cperl-after-change-function nil t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1907 ;; After hooks since fontification will break this
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1908 (if cperl-pod-here-scan
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1909 (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
1910 (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
1911 (cperl-find-pods-heres)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1912
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1913 ;; Fix for perldb - make default reasonable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1914 (defun cperl-db ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1915 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1916 (require 'gud)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1917 (perldb (read-from-minibuffer "Run perldb (like this): "
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1918 (if (consp gud-perldb-history)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1919 (car gud-perldb-history)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1920 (concat "perl " ;;(file-name-nondirectory
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1921 ;; I have problems
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1922 ;; in OS/2
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1923 ;; otherwise
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1924 (buffer-file-name)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1925 nil nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1926 '(gud-perldb-history . 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1927
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1928 (defun cperl-msb-fix ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1929 ;; Adds perl files to msb menu, supposes that msb is already loaded
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1930 (setq cperl-msb-fixed t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1931 (let* ((l (length msb-menu-cond))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1932 (last (nth (1- l) msb-menu-cond))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1933 (precdr (nthcdr (- l 2) msb-menu-cond)) ; cdr of this is last
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1934 (handle (1- (nth 1 last))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1935 (setcdr precdr (list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1936 (list
36602
4bcc2745d610 (cperl-msb-fix, cperl-get-help-defer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36601
diff changeset
1937 '(memq major-mode '(cperl-mode perl-mode))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1938 handle
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1939 "Perl Files (%d)")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1940 last))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1941
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1942 ;; This is used by indent-for-comment
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1943 ;; to decide how much to indent a comment in CPerl code
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1944 ;; based on its context. Do fallback if comment is found wrong.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1945
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1946 (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
1947 (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
1948 (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
1949 (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
1950 (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
1951 (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
1952 (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
1953
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1954
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1955 (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
1956 (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
1957 (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
1958 (looking-at "^#"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1959 0 ; Existing comment at bol stays there.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1960 ;; Wrong comment found
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1961 (save-excursion
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1962 (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
1963 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
1964 cperl-st-cfence))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1965 (if phony
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1966 (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
1967 (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
1968 (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
1969 (forward-char -1))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1970 (setq was nil)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1971 (if (= (point) p) ; Our caller found a correct place
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1972 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1973 (skip-chars-backward " \t")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1974 (setq was (current-column))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1975 (if (eq was 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1976 comment-column
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1977 (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
1978 comment-column)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1979 ;; No, the caller found a random place; we need to edit ourselves
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1980 (if was nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1981 (insert comment-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1982 (backward-char (length comment-start)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1983 (setq cperl-wrong-comment t)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1984 (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
1985 c)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1986
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1987 ;;;(defun cperl-comment-indent-fallback ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1988 ;;; "Is called if the standard comment-search procedure fails.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1989 ;;;Point is at start of real comment."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1990 ;;; (let ((c (current-column)) target cnt prevc)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1991 ;;; (if (= c comment-column) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1992 ;;; (setq cnt (skip-chars-backward "[ \t]"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1993 ;;; (setq target (max (1+ (setq prevc
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1994 ;;; (current-column))) ; Else indent at comment column
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1995 ;;; comment-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1996 ;;; (if (= c comment-column) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1997 ;;; (delete-backward-char cnt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1998 ;;; (while (< prevc target)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1999 ;;; (insert "\t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2000 ;;; (setq prevc (current-column)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2001 ;;; (if (> prevc target) (progn (delete-char -1) (setq prevc (current-column))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2002 ;;; (while (< prevc target)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2003 ;;; (insert " ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2004 ;;; (setq prevc (current-column)))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2005
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2006 (defun cperl-indent-for-comment ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2007 "Substitute for `indent-for-comment' in CPerl."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2008 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2009 (let (cperl-wrong-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2010 (indent-for-comment)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2011 (if cperl-wrong-comment ; set by `cperl-comment-indent'
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2012 (progn (cperl-to-comment-or-eol)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2013 (forward-char (length comment-start))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2014
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2015 (defun cperl-comment-region (b e arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2016 "Comment or uncomment each line in the region in CPerl mode.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2017 See `comment-region'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2018 (interactive "r\np")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2019 (let ((comment-start "#"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2020 (comment-region b e arg)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2021
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2022 (defun cperl-uncomment-region (b e arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2023 "Uncomment or comment each line in the region in CPerl mode.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2024 See `comment-region'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2025 (interactive "r\np")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2026 (let ((comment-start "#"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2027 (comment-region b e (- arg))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2028
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2029 (defvar cperl-brace-recursing nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2030
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2031 (defun cperl-electric-brace (arg &optional only-before)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2032 "Insert character and correct line's indentation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2033 If ONLY-BEFORE and `cperl-auto-newline', will insert newline before the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2034 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
2035 char is \"{\", insert extra newline before only if
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2036 `cperl-extra-newline-before-brace'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2037 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2038 (let (insertpos
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2039 (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
2040 (cperl-mark-active)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2041 (< (mark) (point)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2042 (mark)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2043 nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2044 (if (and other-end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2045 (not cperl-brace-recursing)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2046 (cperl-val 'cperl-electric-parens)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2047 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2048 ;; Need to insert a matching pair
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2049 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2050 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2051 (setq insertpos (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2052 (goto-char other-end)
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2053 (setq last-command-event ?\{)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2054 (cperl-electric-lbrace arg insertpos))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2055 (forward-char 1))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2056 ;; Check whether we close something "usual" with `}'
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2057 (if (and (eq last-command-event ?\})
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2058 (not
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2059 (condition-case nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2060 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2061 (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
2062 ;;(cperl-after-block-p (point-min))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2063 (or (cperl-after-expr-p nil "{;)")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2064 ;; after sub, else, continue
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2065 (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
2066 (error nil))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2067 ;; Just insert the guy
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2068 (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
2069 (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
2070 (eolp)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2071 (or (and (null only-before)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2072 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2073 (skip-chars-backward " \t")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2074 (bolp)))
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2075 (and (eq last-command-event ?\{) ; Do not insert newline
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2076 ;; 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
2077 ;; 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
2078 (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
2079 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2080 (skip-chars-backward " \t")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2081 (eq (preceding-char) ?\))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2082 (if cperl-auto-newline
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2083 (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
2084 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2085 (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
2086 (cperl-indent-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2087 (if cperl-auto-newline
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2088 (setq insertpos (1- (point))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2089 (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
2090 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2091 (newline)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2092 (cperl-indent-line)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2093 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2094 (if insertpos (progn (goto-char insertpos)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2095 (search-forward (make-string
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2096 1 last-command-event))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2097 (setq insertpos (1- (point)))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2098 (delete-char -1))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2099 (if insertpos
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2100 (save-excursion
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2101 (goto-char insertpos)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2102 (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
2103 (self-insert-command (prefix-numeric-value arg)))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2104
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2105 (defun cperl-electric-lbrace (arg &optional end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2106 "Insert character, correct line's indentation, correct quoting by space."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2107 (interactive "P")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2108 (let ((cperl-brace-recursing t)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2109 (cperl-auto-newline cperl-auto-newline)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2110 (other-end (or end
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2111 (if (and cperl-electric-parens-mark
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2112 (cperl-mark-active)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2113 (> (mark) (point)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2114 (save-excursion
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2115 (goto-char (mark))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2116 (point-marker))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2117 nil)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2118 pos after)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2119 (and (cperl-val 'cperl-electric-lbrace-space)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2120 (eq (preceding-char) ?$)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2121 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2122 (skip-chars-backward "$")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2123 (looking-at "\\(\\$\\$\\)*\\$\\([^\\$]\\|$\\)"))
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
2124 (insert ?\s))
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2125 ;; Check whether we are in comment
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2126 (if (and
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2127 (save-excursion
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2128 (beginning-of-line)
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2129 (not (looking-at "[ \t]*#")))
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2130 (cperl-after-expr-p nil "{;)"))
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2131 nil
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2132 (setq cperl-auto-newline nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2133 (cperl-electric-brace arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2134 (and (cperl-val 'cperl-electric-parens)
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2135 (eq last-command-event ?{)
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2136 (memq last-command-event
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2137 (append cperl-electric-parens-string nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2138 (or (if other-end (goto-char (marker-position other-end)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2139 t)
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2140 (setq last-command-event ?} pos (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2141 (progn (cperl-electric-brace arg t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2142 (goto-char pos)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2143
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2144 (defun cperl-electric-paren (arg)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2145 "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
2146 See `cperl-electric-parens'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2147 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2148 (let ((beg (save-excursion (beginning-of-line) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2149 (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
2150 (cperl-mark-active)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2151 (> (mark) (point)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2152 (save-excursion
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2153 (goto-char (mark))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2154 (point-marker))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2155 nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2156 (if (and (cperl-val 'cperl-electric-parens)
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2157 (memq last-command-event
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2158 (append cperl-electric-parens-string nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2159 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2160 ;;(not (save-excursion (search-backward "#" beg t)))
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2161 (if (eq last-command-event ?<)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2162 (progn
104311
bf7a2419d30f * progmodes/cperl-mode.el (cperl-electric-paren): Don't expand
Chong Yidong <cyd@stupidchicken.com>
parents: 104310
diff changeset
2163 ;; This code is too electric, see Bug#3943.
bf7a2419d30f * progmodes/cperl-mode.el (cperl-electric-paren): Don't expand
Chong Yidong <cyd@stupidchicken.com>
parents: 104310
diff changeset
2164 ;; (and abbrev-mode ; later it is too late, may be after `for'
bf7a2419d30f * progmodes/cperl-mode.el (cperl-electric-paren): Don't expand
Chong Yidong <cyd@stupidchicken.com>
parents: 104310
diff changeset
2165 ;; (expand-abbrev))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2166 (cperl-after-expr-p nil "{;(,:="))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2167 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2168 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2169 (self-insert-command (prefix-numeric-value arg))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2170 (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
2171 (insert (make-string
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2172 (prefix-numeric-value arg)
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2173 (cdr (assoc last-command-event '((?{ .?})
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2174 (?[ . ?])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2175 (?( . ?))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2176 (?< . ?>))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2177 (forward-char (- (prefix-numeric-value arg))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2178 (self-insert-command (prefix-numeric-value arg)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2179
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2180 (defun cperl-electric-rparen (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2181 "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
2182 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
2183 Affected by `cperl-electric-parens'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2184 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2185 (let ((beg (save-excursion (beginning-of-line) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2186 (other-end (if (and cperl-electric-parens-mark
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2187 (cperl-val 'cperl-electric-parens)
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2188 (memq last-command-event
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2189 (append cperl-electric-parens-string nil))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2190 (cperl-mark-active)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2191 (< (mark) (point)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2192 (mark)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2193 nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2194 p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2195 (if (and other-end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2196 (cperl-val 'cperl-electric-parens)
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2197 (memq last-command-event '( ?\) ?\] ?\} ?\> ))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2198 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2199 ;;(not (save-excursion (search-backward "#" beg t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2200 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2201 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2202 (self-insert-command (prefix-numeric-value arg))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2203 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2204 (if other-end (goto-char other-end))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2205 (insert (make-string
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2206 (prefix-numeric-value arg)
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2207 (cdr (assoc last-command-event '((?\} . ?\{)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2208 (?\] . ?\[)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2209 (?\) . ?\()
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2210 (?\> . ?\<))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2211 (goto-char (1+ p)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2212 (self-insert-command (prefix-numeric-value arg)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2213
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2214 (defun cperl-electric-keyword ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2215 "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
2216 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
2217 to nil."
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2218 (let ((beg (save-excursion (beginning-of-line) (point)))
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2219 (dollar (and (eq last-command-event ?$)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2220 (eq this-command 'self-insert-command)))
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2221 (delete (and (memq last-command-event '(?\s ?\n ?\t ?\f))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2222 (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
2223 my do)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2224 (and (save-excursion
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2225 (condition-case nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2226 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2227 (backward-sexp 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2228 (setq do (looking-at "do\\>")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2229 (error nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2230 (cperl-after-expr-p nil "{;:"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2231 (save-excursion
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2232 (not
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2233 (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
2234 "[#\"'`]\\|\\<q\\(\\|[wqxr]\\)\\>"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2235 beg t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2236 (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
2237 (or
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2238 (looking-at "=cut")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2239 (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
2240 (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
2241 'syntax-type)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2242 'pod))))))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2243 (save-excursion (forward-sexp -1)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2244 (not (memq (following-char) (append "$@%&*" nil))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2245 (progn
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2246 (and (eq (preceding-char) ?y)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2247 (progn ; "foreachmy"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2248 (forward-char -2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2249 (insert " ")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2250 (forward-char 2)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2251 (setq my t dollar t
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2252 delete
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2253 (memq this-command '(self-insert-command newline)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2254 (and dollar (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 ;;(insert " () {\n}")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2257 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2258 (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
2259 (insert (if do "\n" " ()\n"))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2260 (insert "{")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2261 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2262 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2263 (cperl-indent-line)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2264 (insert "\n}")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2265 (and do (insert " while ();")))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2266 (t
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2267 (insert (if do " {\n} while ();" " () {\n}"))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2268 (or (looking-at "[ \t]\\|$") (insert " "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2269 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2270 (if dollar (progn (search-backward "$")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2271 (if my
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2272 (forward-char 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2273 (delete-char 1)))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2274 (search-backward ")")
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2275 (if (eq last-command-event ?\()
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2276 (progn ; Avoid "if (())"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2277 (delete-backward-char 1)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2278 (delete-backward-char -1))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2279 (if delete
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2280 (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
2281 (if cperl-message-electric-keyword
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2282 (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
2283
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2284 (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
2285 "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
2286 (or pos (setq pos (point)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2287 (if (looking-at "\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2288 (forward-char 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2289 (insert "\n"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2290 (if (> n 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2291 (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
2292 (goto-char pos)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2294 (defun cperl-electric-pod ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2295 "Insert a POD chunk appropriate after a =POD directive."
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2296 (let ((delete (and (memq last-command-event '(?\s ?\n ?\t ?\f))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2297 (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
2298 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
2299 (and (save-excursion
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2300 (forward-word -1)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
2301 (and
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2302 (eq (preceding-char) ?=)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2303 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2304 (setq head1 (looking-at "head1\\>[ \t]*$"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2305 (setq over (and (looking-at "over\\>[ \t]*$")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2306 (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
2307 (forward-char -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2308 (bolp))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2309 (or
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2310 (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
2311 (cperl-after-expr-p nil "{;:")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2312 (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
2313 (not (looking-at "\n*=cut"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2314 (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
2315 (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
2316 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2317 (save-excursion
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2318 (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
2319 (or notlast
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2320 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2321 (insert "\n\n=cut")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2322 (cperl-ensure-newlines 2)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2323 (forward-word -2)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
2324 (if (and head1
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
2325 (not
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2326 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2327 (forward-char -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2328 (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
2329 nil t)))) ; Only one
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
2330 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2331 (forward-word 1)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2332 (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
2333 (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
2334 p (point))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2335 (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
2336 " - \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
2337 "=head1 DESCRIPTION")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2338 (cperl-ensure-newlines 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2339 (goto-char p)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2340 (forward-word 2)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2341 (end-of-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2342 (setq really-delete t))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2343 (forward-word 1))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2344 (if over
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2345 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2346 (setq p (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2347 (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
2348 "=back")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2349 (cperl-ensure-newlines 2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2350 (goto-char p)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2351 (forward-word 1)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2352 (end-of-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2353 (setq really-delete t)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2354 (if (and delete really-delete)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2355 (cperl-putback-char cperl-del-back-ch))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2356
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2357 (defun cperl-electric-else ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2358 "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
2359 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
2360 to nil."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2361 (let ((beg (save-excursion (beginning-of-line) (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2362 (and (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2363 (backward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2364 (cperl-after-expr-p nil "{;:"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2365 (save-excursion
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2366 (not
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2367 (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
2368 "[#\"'`]\\|\\<q\\(\\|[wqxr]\\)\\>"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2369 beg t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2370 (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
2371 (looking-at "=cut")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2372 (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
2373 (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
2374 'syntax-type)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2375 'pod)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2376 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2377 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2378 ;;(insert " {\n\n}")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2379 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2380 (cperl-extra-newline-before-brace
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2381 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2382 (insert "{")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2383 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2384 (insert "\n\n}"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2385 (t
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2386 (insert " {\n\n}")))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2387 (or (looking-at "[ \t]\\|$") (insert " "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2388 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2389 (forward-line -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2390 (cperl-indent-line)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2391 (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
2392 (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
2393 (if cperl-message-electric-keyword
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2394 (message "Precede char by C-q to avoid expansion"))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2395
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2396 (defun cperl-linefeed ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2397 "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
2398 If in POD, insert appropriate lines."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2399 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2400 (let ((beg (save-excursion (beginning-of-line) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2401 (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
2402 (pos (point)) start over cut res)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2403 (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
2404 ; i.e., on a boundary and inside "{...}"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2405 (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
2406 (>= (point) pos)) ; Not in a comment
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2407 (or (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2408 (skip-chars-backward " \t" beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2409 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2410 (looking-at "[;{]")) ; After { or ; + spaces
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2411 (looking-at "[ \t]*}") ; Before }
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2412 (re-search-forward "\\=[ \t]*;" end t)) ; Before spaces + ;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2413 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2414 (and
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2415 (eq (car (parse-partial-sexp pos end -1)) -1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2416 ; Leave the level of parens
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2417 (looking-at "[,; \t]*\\($\\|#\\)") ; Comma to allow anon subr
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2418 ; Are at end
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2419 (cperl-after-block-p (point-min))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2420 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2421 (backward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2422 (setq start (point-marker))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2423 (<= start pos))))) ; Redundant? Are after the
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2424 ; start of parens group.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2425 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2426 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2427 (or (memq (preceding-char) (append ";{" nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2428 (insert ";"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2429 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2430 (forward-line -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2431 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2432 (goto-char start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2433 (or (looking-at "{[ \t]*$") ; If there is a statement
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2434 ; before, move it to separate line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2435 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2436 (forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2437 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2438 (cperl-indent-line)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2439 (forward-line 1) ; We are on the target line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2440 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2441 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2442 (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
2443 ; after, move it to separate line
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2444 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2445 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2446 (search-backward "}" beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2447 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2448 (or (memq (preceding-char) (append ";{" nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2449 (insert ";"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2450 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2451 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2452 (forward-line -1)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2453 (forward-line -1) ; We are on the line before target
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2454 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2455 (newline-and-indent))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2456 (end-of-line) ; else - no splitting
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2457 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2458 ((and (looking-at "\n[ \t]*{$")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2459 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2460 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2461 (eq (preceding-char) ?\)))) ; Probably if () {} group
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2462 ; with an extra newline.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2463 (forward-line 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2464 (cperl-indent-line))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2465 ((save-excursion ; In POD header
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2466 (forward-paragraph -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2467 ;; (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
2468 ;; 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
2469 (if (looking-at "\\(\\`\n?\\|\n\\)=\\sw+")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2470 (progn
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2471 (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
2472 (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
2473 t)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2474 (if (and over
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2475 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2476 (forward-paragraph -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2477 (forward-word 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2478 (setq pos (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2479 (setq cut (buffer-substring (point)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2480 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2481 (end-of-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2482 (point))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2483 (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
2484 (point)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2485 (setq res (expand-abbrev))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2486 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2487 (goto-char pos)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2488 (insert cut))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2489 res))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2490 nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2491 (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
2492 (forward-line 2)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2493 ((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
2494 (cperl-ensure-newlines 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2495 (forward-line 2))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2496 ((looking-at "\n[ \t]*$") ; Next line is empty - use it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2497 (forward-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2498 (cperl-indent-line))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2499 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2500 (newline-and-indent))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2501
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2502 (defun cperl-electric-semi (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2503 "Insert character and correct line's indentation."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2504 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2505 (if cperl-auto-newline
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2506 (cperl-electric-terminator arg)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2507 (self-insert-command (prefix-numeric-value arg))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2508 (if cperl-autoindent-on-semi
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2509 (cperl-indent-line))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2510
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2511 (defun cperl-electric-terminator (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2512 "Insert character and correct line's indentation."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2513 (interactive "P")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2514 (let ((end (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2515 (auto (and cperl-auto-newline
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2516 (or (not (eq last-command-event ?:))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2517 cperl-auto-newline-after-colon)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2518 insertpos)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2519 (if (and ;;(not arg)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2520 (eolp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2521 (not (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2522 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2523 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2524 (or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2525 ;; Ignore in comment lines
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2526 (= (following-char) ?#)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2527 ;; Colon is special only after a label
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2528 ;; So quickly rule out most other uses of colon
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2529 ;; and do no indentation for them.
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2530 (and (eq last-command-event ?:)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2531 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2532 (forward-word 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2533 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2534 (and (< (point) end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2535 (progn (goto-char (- end 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2536 (not (looking-at ":"))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2537 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2538 (beginning-of-defun)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2539 (let ((pps (parse-partial-sexp (point) end)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2540 (or (nth 3 pps) (nth 4 pps) (nth 5 pps))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2541 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2542 (self-insert-command (prefix-numeric-value arg))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2543 ;;(forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2544 (if auto (setq insertpos (point-marker)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2545 ;;(forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2546 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2547 (if auto
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2548 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2549 (newline)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2550 (cperl-indent-line)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2551 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2552 (if insertpos (goto-char (1- (marker-position insertpos)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2553 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2554 (delete-char 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2555 (if insertpos
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2556 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2557 (goto-char insertpos)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2558 (self-insert-command (prefix-numeric-value arg)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2559 (self-insert-command (prefix-numeric-value arg)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2560
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2561 (defun cperl-electric-backspace (arg)
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
2562 "Backspace, or remove whitespace around the point inserted by an electric key.
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
2563 Will untabify if `cperl-electric-backspace-untabify' is non-nil."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2564 (interactive "p")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2565 (if (and cperl-auto-newline
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2566 (memq last-command '(cperl-electric-semi
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2567 cperl-electric-terminator
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2568 cperl-electric-lbrace))
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
2569 (memq (preceding-char) '(?\s ?\t ?\n)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2570 (let (p)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2571 (if (eq last-command 'cperl-electric-lbrace)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2572 (skip-chars-forward " \t\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2573 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2574 (skip-chars-backward " \t\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2575 (delete-region (point) p))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2576 (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
2577 ;; 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
2578 (setq this-command 'cperl-electric-else-really))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2579 (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
2580 (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
2581 (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
2582 (let (p)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2583 (skip-chars-forward " \t\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2584 (setq p (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2585 (skip-chars-backward " \t\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2586 (delete-region (point) p))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2587 (if cperl-electric-backspace-untabify
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2588 (backward-delete-char-untabify arg)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2589 (delete-backward-char arg)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2590
50255
a716a67fdf9d (cperl-electric-backspace): Add delete-selection property.
Kim F. Storm <storm@cua.dk>
parents: 49919
diff changeset
2591 (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
2592
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2593 (defun cperl-inside-parens-p () ;; NOT USED????
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2594 (condition-case ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2595 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2596 (save-restriction
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2597 (narrow-to-region (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2598 (progn (beginning-of-defun) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2599 (goto-char (point-max))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2600 (= (char-after (or (scan-lists (point) -1 1) (point-min))) ?\()))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2601 (error nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2602
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2603 (defun cperl-indent-command (&optional whole-exp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2604 "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
2605 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
2606 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
2607 or in the line's indentation; otherwise insert a tab.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2608
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2609 A numeric argument, regardless of its value,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2610 means indent rigidly all the lines of the expression starting after point
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2611 so that this line becomes properly indented.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2612 The relative indentation among the lines of the expression are preserved."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2613 (interactive "P")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2614 (cperl-update-syntaxification (point) (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2615 (if whole-exp
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2616 ;; If arg, always indent this line as Perl
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2617 ;; and shift remaining lines of expression the same amount.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2618 (let ((shift-amt (cperl-indent-line))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2619 beg end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2620 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2621 (if cperl-tab-always-indent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2622 (beginning-of-line))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2623 (setq beg (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2624 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2625 (setq end (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2626 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2627 (forward-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2628 (setq beg (point)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2629 (if (and shift-amt (> end beg))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2630 (indent-code-rigidly beg end shift-amt "#")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2631 (if (and (not cperl-tab-always-indent)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2632 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2633 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2634 (not (bolp))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2635 (insert-tab)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2636 (cperl-indent-line))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2637
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2638 (defun cperl-indent-line (&optional parse-data)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2639 "Indent current line as Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2640 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
2641 (let ((case-fold-search nil)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2642 (pos (- (point-max) (point)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2643 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
2644 (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
2645 i indent)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2646 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2647 (setq beg (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2648 (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
2649 (setq indent (current-indentation) i nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2650 ;;((eq indent t) ; Never?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2651 ;; (setq indent (cperl-calculate-indent-within-comment)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2652 ;;((looking-at "[ \t]*#")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2653 ;; (setq indent 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2654 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2655 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2656 (if (listp indent) (setq indent (car indent)))
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2657 (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
2658 (not (looking-at "[smy]:\\|tr:")))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2659 (and (> indent 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2660 (setq indent (max cperl-min-label-indent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2661 (+ indent cperl-label-offset)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2662 ((= (following-char) ?})
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2663 (setq indent (- indent cperl-indent-level)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2664 ((memq (following-char) '(?\) ?\])) ; To line up with opening paren.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2665 (setq indent (+ indent cperl-close-paren-offset)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2666 ((= (following-char) ?{)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2667 (setq indent (+ indent cperl-brace-offset))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2668 (skip-chars-forward " \t")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2669 (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
2670 (if (or (not shift-amt)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2671 (zerop shift-amt))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2672 (if (> (- (point-max) pos) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2673 (goto-char (- (point-max) pos)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2674 ;;;(delete-region beg (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2675 ;;;(indent-to indent)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2676 (cperl-make-indent indent)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2677 ;; If initial point was within line's indentation,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2678 ;; position after the indentation. Else stay at same point in text.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2679 (if (> (- (point-max) pos) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2680 (goto-char (- (point-max) pos))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2681 shift-amt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2682
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2683 (defun cperl-after-label ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2684 ;; Returns true if the point is after label. Does not do save-excursion.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2685 (and (eq (preceding-char) ?:)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2686 (memq (char-syntax (char-after (- (point) 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2687 '(?w ?_))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2688 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2689 (backward-sexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2690 (looking-at "[a-zA-Z_][a-zA-Z0-9_]*:[^:]"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2691
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2692 (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
2693 ;; 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
2694 ;; 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
2695 ;; 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
2696 ;; 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
2697 ;; 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
2698 ;; which contains START.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2699 ;; PRESTART is the position basing on which START was found.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2700 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2701 (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
2702 (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
2703 (<= parse-start start-point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2704 (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
2705 (beginning-of-defun)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2706 (setq start-state nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2707 (setq prestart (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2708 (if start-state nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2709 ;; Try to go out, if sub is not on the outermost level
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2710 (while (< (point) start-point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2711 (setq start (point) parse-start start depth nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2712 state (parse-partial-sexp start start-point -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2713 (if (> (car state) -1) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2714 ;; The current line could start like }}}, so the indentation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2715 ;; corresponds to a different level than what we reached
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2716 (setq depth t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2717 (beginning-of-line 2))) ; Go to the next line.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2718 (if start (goto-char start))) ; Not at the start of file
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2719 (setq start (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2720 (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
2721 (list start state depth prestart))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2722
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2723 (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
2724
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2725 (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
2726 "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
2727 Will not look before LIM."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2728 ;;; 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
2729 (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
2730 (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2731 ;;; (cond ((eq p (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2732 ;;; p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2733 ;;; ((and lim (<= p lim))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2734 ;;; p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2735 ;;; ((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
2736 ;;; p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2737 ;;; (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
2738 ;;; (point-min))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2739 )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2740
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2741 (defun cperl-sniff-for-indent (&optional parse-data) ; was parse-start
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
2742 ;; the sniffer logic to understand what the current line MEANS.
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2743 (cperl-update-syntaxification (point) (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2744 (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
2745 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2746 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2747 ((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
2748 (not (get-text-property (point) 'indentable)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2749 (vector res))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2750 ;; 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
2751 ((looking-at "[ \t]*\n=")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2752 (error "Spaces before POD section!"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2753 ((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
2754 (looking-at "^#"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2755 [comment-special:at-beginning-of-line])
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2756 ((get-text-property (point) 'in-pod)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2757 [in-pod])
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2758 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2759 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2760 (let* ((indent-point (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2761 (char-after-pos (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2762 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2763 (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2764 (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
2765 (pre-indent-point (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2766 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
2767 (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
2768 (cperl-backward-to-noncomment nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2769 (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
2770 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
2771 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
2772 'syntax-type))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2773 (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
2774 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2775 (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
2776 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2777 (setq pre-indent-point (point)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2778 (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
2779 (let* ((case-fold-search nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2780 (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
2781 (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
2782 (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
2783 (state (nth 1 s-s))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2784 (containing-sexp (car (cdr state)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2785 old-indent)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2786 (if (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2787 ;;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
2788 parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2789 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2790 (setcar parse-data pre-indent-point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2791 (setcar (cdr parse-data) state)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2792 (or (nth 2 parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2793 (setcar (cddr parse-data) start))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2794 ;; Before this point: end of statement
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2795 (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
2796 (cond ((get-text-property (point) 'indentable)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2797 ;; indent to "after" the surrounding open
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2798 ;; (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
2799 ;; 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
2800 (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
2801 (get-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2802 (cperl-1+ char-after-pos) 'indentable)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2803 p (1+ (cperl-beginning-of-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2804 (point) 'indentable))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2805 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
2806 (save-excursion ; Find preceeding line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2807 (cperl-backward-to-noncomment p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2808 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2809 (if (<= (point) p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2810 (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
2811 (goto-char p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2812 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2813 (if (memq (char-after (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2814 (append "#\n" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2815 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
2816 (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2817 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2818 (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2819 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
2820 (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
2821 (vector 'indentable 'terminator p is-block))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2822 (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
2823 (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
2824 is-block char-after p))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2825 (t ; No preceeding line...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2826 (vector 'indentable 'first-line p))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2827 ((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
2828 (vector 'REx-part2 (point)))
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2829 ((nth 4 state)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2830 [comment])
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2831 ((nth 3 state)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2832 [string])
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2833 ;; 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
2834 ((null containing-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2835 ;; 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
2836 ;; or may be function argument declaration.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2837 ;; 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
2838 ;; 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
2839 ;; 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
2840 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2841 (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
2842 (setq state
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2843 (or (bobp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2844 (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
2845 (eq (preceding-char) ?\;)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2846 ;; Had ?\) too
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2847 (and (eq (preceding-char) ?\})
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2848 (cperl-after-block-and-statement-beg
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2849 (point-min))) ; Was start - too close
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2850 (memq char-after (append ")]}" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2851 (and (eq (preceding-char) ?\:) ; label
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2852 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2853 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2854 (skip-chars-backward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2855 (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
2856 (get-text-property (point) 'first-format-line)))
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
2857
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2858 ;; 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
2859 ;; 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
2860 ;; 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
2861 ;; 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
2862 (and state
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2863 parse-data
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2864 (not (eq char-after ?\C-j))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2865 (setcdr (cddr parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2866 (list pre-indent-point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2867 (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
2868 ((not
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2869 (or (setq is-block
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2870 (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
2871 (save-excursion ; Is it a hash?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2872 (goto-char containing-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2873 (cperl-block-p))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2874 cperl-indent-parens-as-block))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2875 ;; 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
2876 ;; 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
2877 ;; 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
2878 (goto-char (1+ containing-sexp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2879 (or (memq char-after
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2880 (append (if delim "}" ")]}") nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2881 (looking-at "[ \t]*\\(#\\|$\\)")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2882 (skip-chars-forward " \t"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2883 (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
2884 (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
2885 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2886 ;; 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
2887 ;; Find previous non-comment character.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2888 (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
2889 (cperl-backward-to-noncomment containing-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2890 ;; 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
2891 ;; 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
2892 ;; (Had \, too)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2893 (while;;(or (eq (preceding-char) ?\,)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2894 (and (eq (preceding-char) ?:)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2895 (or;;(eq (char-after (- (point) 2)) ?\') ; ????
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2896 (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
2897 '(?w ?_))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2898 ;;)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2899 ;; This is always FALSE?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2900 (if (eq (preceding-char) ?\,)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2901 ;; 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
2902 ;; Will ignore embedded sexpr XXXX.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2903 (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
2904 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2905 (cperl-backward-to-noncomment containing-sexp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2906 ;; 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
2907 (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
2908 (memq (preceding-char)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2909 (append (if is-block " ;{" " ,;{") '(nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2910 (and (eq (preceding-char) ?\})
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2911 (cperl-after-block-and-statement-beg
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2912 containing-sexp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2913 (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
2914 ;; 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
2915 ;; 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
2916 ;; previous line of the statement.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2917 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2918 ;; 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
2919 ;; 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
2920 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2921 (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
2922 (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
2923 ;; This line starts a new statement.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2924 ;; Position following last unclosed open brace
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2925 (goto-char containing-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2926 ;; 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
2927 (or
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2928 ;; 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
2929 ;; 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
2930 ;; 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
2931 ;; small.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2932 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2933 (forward-char 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2934 (let ((colon-line-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2935 (while
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2936 (progn (skip-chars-forward " \t\n")
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2937 ;; s: foo : bar :x is NOT label
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2938 (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
2939 (not (looking-at "[sym]:\\|tr:"))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2940 ;; 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
2941 (cond ((= (following-char) ?\#)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2942 (forward-line 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2943 ((= (following-char) ?\=)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2944 (goto-char
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2945 (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
2946 (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
2947 ;; label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2948 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2949 (save-excursion (end-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2950 (setq colon-line-end (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2951 (search-forward ":"))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2952 ;; 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
2953 ;; First, the following code counts
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2954 ;; 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
2955 (and (< (point) indent-point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2956 (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
2957 containing-sexp))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2958 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2959 ;; If no previous statement,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2960 ;; 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
2961
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2962 ;; 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
2963 ;; add in cperl-brace-imaginary-offset.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2964
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2965 ;; If first thing on a line: ?????
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2966 ;; 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
2967 (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
2968 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
2969 ;; 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
2970 ;; 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
2971 (or cperl-indent-wrt-brace
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2972 (cperl-backward-to-noncomment (point-min)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2973 ;; 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
2974 ;; move to the beginning of that;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2975 (if (eq (preceding-char) ?\))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2976 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2977 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2978 (cperl-backward-to-noncomment (point-min))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2979 ;; 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
2980 ;; 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
2981 ;; 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
2982 ;; anonymous sub in a hash.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2983 (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
2984 (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
2985 (goto-char (cperl-beginning-of-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2986 (point) 'attrib-group)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2987 ((eq (preceding-char) ?b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2988 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2989 (looking-at "sub\\>")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2990 (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
2991 (parse-partial-sexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2992 (save-excursion (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2993 (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2994 (point)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2995 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2996 (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
2997 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2998 (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
2999 (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
3000 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
3001 t (point) ; have something before...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3002 )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3003 ;;(current-column)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3004 )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3005 ;; 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
3006 ;; 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
3007 (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
3008 (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
3009 old-indent ; brace first thing on a line
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3010 nil (point))))))))))))))) ; nothing interesting before
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3011
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3012 (defvar cperl-indent-rules-alist
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3013 '((pod nil) ; via `syntax-type' property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3014 (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
3015 (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
3016 (format nil) ; via `syntax-type' property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3017 (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
3018 (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
3019 (string t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3020 (comment nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3021 "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
3022 The values mean:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3023 nil: do not indent;
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3024 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
3025
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3026 (defun cperl-calculate-indent (&optional parse-data) ; was parse-start
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3027 "Return appropriate indentation for current line as Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3028 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
3029 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
3030
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3031 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
3032 and closing parentheses and brackets."
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3033 ;; 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
3034 ;; compensate for some modifications which `cperl-indent-line' will add later
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3035 (save-excursion
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3036 (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
3037 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3038 ;;((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
3039 ;; i)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3040 ((vectorp i)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3041 (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
3042 (cond
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3043 (what (cadr what)) ; Load from table
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3044 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3045 ;; 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
3046 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3047 ((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
3048 (goto-char (elt i 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3049 (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
3050 (forward-sexp -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 '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
3053 (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
3054 ((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
3055 (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
3056 (1- (current-column)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3057 ((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
3058 (goto-char (elt i 2))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3059 (+ (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
3060 -1
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3061 (current-column)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3062 ((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
3063 ;; 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
3064 (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
3065 (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
3066 (setq p (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3067 (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
3068 (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
3069 ;; Number of parens in between:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3070 (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
3071 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
3072 (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
3073 (+ (* 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
3074 (cond ((eq what ?\) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3075 (- cperl-close-paren-offset)) ; compensate
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3076 ((eq what ?\| )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3077 (- (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
3078 (t 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3079 (if (eq (following-char) ?\| )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3080 (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
3081 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3082 (current-column)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3083 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3084 (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
3085 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3086 ;; Indenter for stuff at toplevel
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3087 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3088 ((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
3089 (+ (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
3090 (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
3091 (- (current-indentation) ;
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3092 (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
3093 (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
3094 ;; 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
3095 ;; 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
3096 ;; 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
3097 ;; 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
3098 (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
3099 0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3100 cperl-continued-statement-offset)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3101 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3102 ;; 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
3103 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3104 ((eq 'in-parens (elt i 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3105 ;; 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
3106
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3107 ;; 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
3108 ;; 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
3109 ;; 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
3110 (+ (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3111 (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
3112 (current-column))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3113 (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
3114 (eq (elt i 1) ?\})) ; char-after
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3115 ;; Correct indentation of trailing ?\}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3116 (+ 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
3117 0)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3118 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3119 ;; Indenter for continuation lines
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3120 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3121 ((eq 'continuation (elt i 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3122 ;; [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
3123 (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
3124 (+ (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
3125 0 ; Closing parenth
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3126 cperl-continued-statement-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3127 (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
3128 (not (elt i 4)) ; is-brace
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3129 (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
3130 0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3131 ;; Now it is a hash reference
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3132 (+ 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
3133 ;; Labels do not take :: ...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3134 (if (looking-at "\\(\\w\\|_\\)+[ \t]*:")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3135 (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
3136 (- (current-indentation) cperl-label-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3137 ;; 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
3138 ;; be quick anyway (this comment comes
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3139 ;; from different location):
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3140 (cperl-calculate-indent))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3141 (current-column))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3142 (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
3143 cperl-continued-brace-offset 0)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3144 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3145 ;; 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
3146 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3147 ((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
3148 ;; [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
3149 (goto-char (elt i 1)) ; sibling-beg
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3150 (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
3151 (if (> (current-indentation)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3152 cperl-min-label-indent)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3153 (- (current-indentation) cperl-label-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3154 ;; 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
3155 (+ cperl-indent-level
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3156 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3157 (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
3158 (current-indentation))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3159 (current-column)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3160 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3161 ;; 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
3162 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3163 ((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
3164 ;;[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
3165 ;; 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
3166 ;; 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
3167 (goto-char (elt i 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3168 ;; 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
3169 ;; 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
3170 ;; 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
3171 (+ (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
3172 (+ 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
3173 cperl-indent-level)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3174 (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
3175 (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
3176 (+ 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
3177 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3178 ;; 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
3179 ;; add the cperl-brace-imaginary-offset.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3180 (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
3181 cperl-brace-imaginary-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3182 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3183 (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
3184 (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
3185 (current-column)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3186 ;; 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
3187 ;; 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
3188 (if (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3189 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3190 (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
3191 (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
3192 (- (current-indentation) cperl-label-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3193 ;; 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
3194 ;; be quick anyway:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3195 (cperl-calculate-indent))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3196 (current-indentation))))))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3197 (t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3198 (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
3199 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3200 (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
3201
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3202 (defun cperl-calculate-indent-within-comment ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3203 "Return the indentation amount for line, assuming that
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3204 the current line is to be regarded as part of a block comment."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3205 (let (end star-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3206 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3207 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3208 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3209 (setq end (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3210 (and (= (following-char) ?#)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3211 (forward-line -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3212 (cperl-to-comment-or-eol)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3213 (setq end (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3214 (goto-char end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3215 (current-column))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3216
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3217
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3218 (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
3219 "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
3220 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
3221 ;; 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
3222 ;; 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
3223 (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
3224 (or cperl-font-locking
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3225 (cperl-update-syntaxification lim lim))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3226 (beginning-of-line)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3227 (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
3228 (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
3229 (if (or (eq pr 'pod)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3230 (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
3231 (re-search-forward "\\=[ \t]*\\(#\\|$\\)" lim t)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3232 (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
3233 ;; 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
3234 (and (and e (<= e lim))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3235 (goto-char e))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3236 (while (not stop-in)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3237 (setq state (parse-partial-sexp (point) lim nil nil nil t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3238 ; stop at comment
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3239 ;; 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
3240 (if (nth 4 state) ; After `#';
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3241 ; (nth 2 state) can be
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3242 ; beginning of m,s,qq and so
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3243 ; on
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3244 (if (nth 2 state)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3245 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3246 (setq cpoint (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3247 (goto-char (nth 2 state))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3248 (cond
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3249 ((looking-at "\\(s\\|tr\\)\\>")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3250 (or (re-search-forward
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3251 "\\=\\w+[ \t]*#\\([^\n\\\\#]\\|\\\\[\\\\#]\\)*#\\([^\n\\\\#]\\|\\\\[\\\\#]\\)*"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3252 lim 'move)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3253 (setq stop-in t)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3254 ((looking-at "\\(m\\|q\\([qxwr]\\)?\\)\\>")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3255 (or (re-search-forward
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3256 "\\=\\w+[ \t]*#\\([^\n\\\\#]\\|\\\\[\\\\#]\\)*#"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3257 lim 'move)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3258 (setq stop-in t)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3259 (t ; It was fair comment
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3260 (setq stop-in t) ; Finish
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3261 (goto-char (1- cpoint)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3262 (setq stop-in t) ; Finish
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3263 (forward-char -1))
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
3264 (setq stop-in t))) ; Finish
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3265 (nth 4 state))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3266
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3267 (defsubst cperl-modify-syntax-type (at how)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3268 (if (< at (point-max))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3269 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3270 (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
3271 (put-text-property at (1+ at) 'rear-nonsticky '(syntax-table)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3272
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3273 (defun cperl-protect-defun-start (s e)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3274 ;; C code looks for "^\\s(" to skip comment backward in "hard" situations
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3275 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3276 (goto-char s)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3277 (while (re-search-forward "^\\s(" e 'to-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3278 (put-text-property (1- (point)) (point) 'syntax-table cperl-st-punct))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3279
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3280 (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
3281 (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
3282 (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
3283 nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3284 ;; We suppose that e is _after_ the end of construction, as after eol.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3285 (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
3286 (if (> bb (- e 2))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3287 ;; one-char string/comment?!
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3288 (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
3289 (cperl-modify-syntax-type bb string)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3290 (cperl-modify-syntax-type (1- e) string))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3291 (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
3292 (put-text-property (1+ bb) (1- e)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3293 '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
3294 (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
3295 ;; Fontify
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3296 (or noface
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3297 (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
3298 (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
3299 'font-lock-comment-face)))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3300
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3301 (defvar cperl-starters '(( ?\( . ?\) )
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3302 ( ?\[ . ?\] )
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3303 ( ?\{ . ?\} )
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3304 ( ?\< . ?\> )))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3305
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3306 (defun cperl-cached-syntax-table (st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3307 "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
3308 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
3309 is quoting."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3310 (if (car-safe st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3311 (car st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3312 (setcar st (make-syntax-table))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3313 (setq st (car st))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3314 (let ((i 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3315 (while (< i 256)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3316 (modify-syntax-entry i "." st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3317 (setq i (1+ i))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3318 (modify-syntax-entry ?\\ "\\" st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3319 st))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3320
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3321 (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
3322 &optional ostart oend)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3323 "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
3324 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
3325
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3326 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
3327 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
3328 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
3329 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
3330 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
3331 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
3332 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
3333 the second argument of 2ARG construct.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3334
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3335 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
3336 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
3337 (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
3338 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3339 ;; ender means matching-char matcher.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3340 (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
3341 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
3342 ender (cdr (assoc starter cperl-starters)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3343 ;; What if starter == ?\\ ????
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3344 (setq st (cperl-cached-syntax-table st-l))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3345 (setq set-st t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3346 ;; Whether we have an intermediate point
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3347 (setq i nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3348 ;; Prepare the syntax table:
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3349 (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
3350 (modify-syntax-entry starter "$" st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3351 (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
3352 (modify-syntax-entry ender (concat ")" (list starter)) st))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3353 (condition-case bb
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3354 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3355 ;; 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
3356 ;; is recognized the same as $, so we need to check this manually.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3357 (if (and (eq starter (char-after (cperl-1+ b)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3358 (not ender))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3359 ;; $ has TeXish matching rules, so $$ equiv $...
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3360 (forward-char 2)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3361 (setq reset-st (syntax-table))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3362 (set-syntax-table st)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3363 (forward-sexp 1)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3364 (if (<= (point) (1+ b))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3365 (error "Unfinished regular expression"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3366 (set-syntax-table reset-st)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3367 (setq reset-st nil)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3368 ;; Now the problem is with m;blah;;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3369 (and (not ender)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3370 (eq (preceding-char)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3371 (char-after (- (point) 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3372 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3373 (forward-char -2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3374 (= 0 (% (skip-chars-backward "\\\\") 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3375 (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
3376 ;; Now we are after the first part.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3377 (and is-2arg ; Have trailing part
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3378 (not ender)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3379 (eq (following-char) starter) ; Empty trailing part
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 (or (eq (char-syntax (following-char)) ?.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3382 ;; Make trailing letter into punctuation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3383 (cperl-modify-syntax-type (point) cperl-st-punct))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3384 (setq is-2arg nil go-forward t))) ; Ignore the tail
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3385 (if is-2arg ; Not number => have second part
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3386 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3387 (setq i (point) i2 i)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3388 (if ender
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
3389 (if (memq (following-char) '(?\s ?\t ?\n ?\f))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3390 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3391 (if (looking-at "[ \t\n\f]+\\(#[^\n]*\n[ \t\n\f]*\\)+")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3392 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3393 (skip-chars-forward " \t\n\f"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3394 (setq i2 (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3395 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3396 (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
3397 (if ender (modify-syntax-entry ender "." st))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3398 (setq set-st nil)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3399 (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
3400 argument starter ender)
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3401 ender (nth 2 ender)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3402 (error (goto-char lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3403 (setq set-st nil)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3404 (if reset-st
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3405 (set-syntax-table reset-st))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3406 (or end
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3407 (and cperl-brace-recursing
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3408 (or (eq ostart ?\{)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3409 (eq starter ?\{)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3410 (message
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3411 "End of `%s%s%c ... %c' string/RE not found: %s"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3412 argument
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3413 (if ostart (format "%c ... %c" ostart (or oend ostart)) "")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3414 starter (or ender starter) bb)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3415 (or (car err-l) (setcar err-l b)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3416 (if set-st
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3417 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3418 (modify-syntax-entry starter (if (eq starter ?\\) "\\" ".") st)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3419 (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
3420 ;; 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
3421 ;; 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
3422 ;; 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
3423 ;; starter: the starting delimiter of the first arg
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3424 ;; go-forward: has 2 args, and the second part is empty
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3425 (list i i2 ender starter go-forward)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3426
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3427 (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
3428 "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
3429 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
3430 Works before syntax recognition is done."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3431 ;; Works *before* syntax recognition is done
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3432 (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
3433 (let (st b reset-st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3434 (condition-case b
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3435 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3436 (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
3437 (modify-syntax-entry ?\( "()" st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3438 (modify-syntax-entry ?\) ")(" st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3439 (setq reset-st (syntax-table))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3440 (set-syntax-table st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3441 (forward-sexp 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3442 (error (message
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3443 "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
3444 ;; now restore the initial state
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3445 (if st
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3446 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3447 (modify-syntax-entry ?\( "." st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3448 (modify-syntax-entry ?\) "." st)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3449 (if reset-st
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3450 (set-syntax-table reset-st))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3451 b))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3452
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3453
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3454 (defvar font-lock-string-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3455 ;;(defvar font-lock-reference-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3456 (defvar font-lock-constant-face)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3457 (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
3458 ;; 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
3459 (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
3460 (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
3461 (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
3462
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3463 ;;; 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
3464 ;;; recognized locally) are marked:
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3465 ;; a) PODs:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3466 ;; 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
3467 ;; 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
3468 ;; 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
3469 ;; b) HEREs:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3470 ;; 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
3471 ;; 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
3472 ;; 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
3473 ;; c) FORMATs:
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3474 ;; 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
3475 ;; 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
3476 ;; 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
3477 ;; 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
3478 ;; 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
3479 ;; 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
3480 ;; 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
3481 ;; (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
3482 ;; 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
3483
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3484 ;;; 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
3485 ;;; (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
3486
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3487 (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
3488 ;; 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
3489 (let ((pos (point)) opos)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3490 (while (and pos (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3491 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3492 (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
3493 (setq opos pos
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3494 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
3495 (if (eq pos (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3496 (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
3497 (if pos
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3498 (if before
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3499 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3500 (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
3501 (beginning-of-line)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3502 (setq pos (point)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3503 (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
3504 ;; 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
3505 (goto-char (point-min))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3506 ;; Skip empty lines
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3507 (and (looking-at "\n*=")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3508 (/= 0 (skip-chars-backward "\n"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3509 (forward-char))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3510 (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
3511 (if end
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3512 ;; 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
3513 (save-excursion
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3514 (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
3515 (setq pos end
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3516 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
3517 (if end (progn (goto-char end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3518 (or (bolp) (forward-line 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3519 (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
3520 (or end pos)))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3521
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3522 ;;; 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
3523 (defvar cperl-nonoverridable-face)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3524 (defvar font-lock-variable-name-face)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3525 (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
3526 (defvar font-lock-keyword-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3527 (defvar font-lock-builtin-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3528 (defvar font-lock-type-face)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3529 (defvar font-lock-comment-face)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3530 (defvar font-lock-warning-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3531
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3532 (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
3533 "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
3534 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
3535 ;; Works *before* syntax recognition is done
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3536 (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
3537 (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
3538 (condition-case b
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3539 (while (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3540 (concat
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3541 "\\(" ; 1=optional? colon
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3542 ":" 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
3543 "\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3544 (if after-first "?" "")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3545 ;; 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
3546 "\\(\\sw+\\)" ; 3=name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3547 "\\((\\)?")) ; 4=optional paren
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3548 (and (match-beginning 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3549 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3550 (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
3551 'face font-lock-constant-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3552 (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
3553 (cperl-postpone-fontification start1 end1
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3554 'face font-lock-constant-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3555 (goto-char end1) ; end or before `('
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3556 (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
3557 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3558 (if st nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3559 (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
3560 (modify-syntax-entry ?\( "()" st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3561 (modify-syntax-entry ?\) ")(" st))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3562 (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
3563 (set-syntax-table st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3564 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3565 (set-syntax-table reset-st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3566 (setq reset-st nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3567 (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
3568 (forward-comment (buffer-size))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3569 (setq after-first t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3570 (error (message
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3571 "L%d: attribute `%s': %s"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3572 (count-lines (point-min) (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3573 (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
3574 (setq start nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3575 (and start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3576 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3577 (put-text-property start (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3578 '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
3579 (and pos
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3580 (< 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
3581 ;; 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
3582 (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
3583 'syntax-type 'sub-decl))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3584 (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
3585 (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
3586 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
3587 (if (looking-at "{")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3588 font-lock-function-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3589 font-lock-variable-name-face)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3590 ;; now restore the initial state
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3591 (if st
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3592 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3593 (modify-syntax-entry ?\( "." st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3594 (modify-syntax-entry ?\) "." st)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3595 (if reset-st
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3596 (set-syntax-table reset-st))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3597
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3598 (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
3599 (if (and
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3600 (< (point) e)
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3601 (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
3602 (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
3603 (if (eq ?\{ (preceding-char)) nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3604 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3605 (1- (point)) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3606 'face font-lock-warning-face))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3607
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3608 ;; Do some smarter-highlighting
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3609 ;; XXXX Currently ignores alphanum/dash delims,
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3610 (defsubst cperl-highlight-charclass (endbracket dashface bsface onec-space)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3611 (let ((l '(1 5 7)) ll lle lll
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3612 ;; 2 groups, the first takes the whole match (include \[trnfabe])
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3613 (singleChar (concat "\\(" "[^\\\\]" "\\|" "\\\\[^cdg-mo-qsu-zA-Z0-9_]" "\\|" "\\\\c." "\\|" "\\\\x" "\\([0-9a-fA-F][0-9a-fA-F]?\\|\\={[0-9a-fA-F]+}\\)" "\\|" "\\\\0?[0-7][0-7]?[0-7]?" "\\|" "\\\\N{[^{}]*}" "\\)")))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3614 (while ; look for unescaped - between non-classes
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3615 (re-search-forward
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3616 ;; On 19.33, certain simplifications lead
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3617 ;; to bugs (as in [^a-z] \\| [trnfabe] )
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3618 (concat ; 1: SingleChar (include \[trnfabe])
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3619 singleChar
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3620 ;;"\\(" "[^\\\\]" "\\|" "\\\\[^cdg-mo-qsu-zA-Z0-9_]" "\\|" "\\\\c." "\\|" "\\\\x" "\\([0-9a-fA-F][0-9a-fA-F]?\\|\\={[0-9a-fA-F]+}\\)" "\\|" "\\\\0?[0-7][0-7]?[0-7]?" "\\|" "\\\\N{[^{}]*}" "\\)"
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3621 "\\(" ; 3: DASH SingleChar (match optionally)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3622 "\\(-\\)" ; 4: DASH
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3623 singleChar ; 5: SingleChar
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3624 ;;"\\(" "[^\\\\]" "\\|" "\\\\[^cdg-mo-qsu-zA-Z0-9_]" "\\|" "\\\\c." "\\|" "\\\\x" "\\([0-9a-fA-F][0-9a-fA-F]?\\|\\={[0-9a-fA-F]+}\\)" "\\|" "\\\\0?[0-7][0-7]?[0-7]?" "\\|" "\\\\N{[^{}]*}" "\\)"
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3625 "\\)?"
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3626 "\\|"
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3627 "\\(" ; 7: other escapes
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3628 "\\\\[pP]" "\\([^{]\\|{[^{}]*}\\)"
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3629 "\\|" "\\\\[^pP]" "\\)"
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3630 )
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3631 endbracket 'toend)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3632 (if (match-beginning 4)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3633 (cperl-postpone-fontification
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3634 (match-beginning 4) (match-end 4)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3635 'face dashface))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3636 ;; save match data (for looking-at)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3637 (setq lll (mapcar (function (lambda (elt) (cons (match-beginning elt)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3638 (match-end elt)))) l))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3639 (while lll
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3640 (setq ll (car lll))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3641 (setq lle (cdr ll)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3642 ll (car ll))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3643 ;; (message "Got %s of %s" ll l)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3644 (if (and ll (eq (char-after ll) ?\\ ))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3645 (save-excursion
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3646 (goto-char ll)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3647 (cperl-postpone-fontification ll (1+ ll)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3648 'face bsface)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3649 (if (looking-at "\\\\[a-zA-Z0-9]")
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3650 (cperl-postpone-fontification (1+ ll) lle
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3651 'face onec-space))))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3652 (setq lll (cdr lll))))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3653 (goto-char endbracket) ; just in case something misbehaves???
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3654 t))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
3655
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3656 ;;; 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
3657 (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
3658 "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
3659 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
3660 the sections using `cperl-pod-head-face', `cperl-pod-face',
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3661 `cperl-here-face'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3662 (interactive)
78582
d168a4166b80 Fix s{a}{b} parsing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78487
diff changeset
3663 (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
3664 cperl-syntax-state nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3665 cperl-syntax-done-to min))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3666 (or max (setq max (point-max)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3667 (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
3668 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
3669 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
3670 (case-fold-search nil) (inhibit-read-only t) (buffer-undo-list t)
102228
f51bb75d96dc (cperl-find-pods-heres): Don't globally bind `name'.
Glenn Morris <rgm@gnu.org>
parents: 101112
diff changeset
3671 (modified (buffer-modified-p)) overshoot is-o-REx name
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3672 (after-change-functions nil)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3673 (cperl-font-locking t)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3674 (use-syntax-state (and cperl-syntax-state
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3675 (>= min (car cperl-syntax-state))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3676 (state-point (if use-syntax-state
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3677 (car cperl-syntax-state)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3678 (point-min)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3679 (state (if use-syntax-state
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3680 (cdr cperl-syntax-state)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3681 ;; (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
3682 (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
3683 ;; 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
3684 ;; (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
3685 (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
3686 font-lock-string-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3687 'font-lock-string-face))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3688 (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
3689 font-lock-constant-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3690 'font-lock-constant-face))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3691 (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
3692 (if (boundp 'font-lock-function-name-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3693 font-lock-function-name-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3694 'font-lock-function-name-face))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3695 (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
3696 (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
3697 font-lock-variable-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3698 'font-lock-variable-name-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3699 (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
3700 (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
3701 font-lock-function-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3702 'font-lock-function-name-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3703 (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
3704 (if (boundp 'font-lock-constant-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3705 font-lock-constant-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3706 'font-lock-constant-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3707 (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
3708 (if (boundp 'font-lock-builtin-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3709 font-lock-builtin-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3710 'font-lock-builtin-face))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3711 (font-lock-comment-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3712 (if (boundp 'font-lock-comment-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3713 font-lock-comment-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3714 'font-lock-comment-face))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3715 (font-lock-warning-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3716 (if (boundp 'font-lock-warning-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3717 font-lock-warning-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3718 'font-lock-warning-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3719 (my-cperl-REx-ctl-face ; (|)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3720 (if (boundp 'font-lock-keyword-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3721 font-lock-keyword-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3722 'font-lock-keyword-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3723 (my-cperl-REx-modifiers-face ; //gims
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3724 (if (boundp 'cperl-nonoverridable-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3725 cperl-nonoverridable-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3726 'cperl-nonoverridable-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3727 (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
3728 (if (boundp 'font-lock-type-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3729 font-lock-type-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3730 'font-lock-type-face))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3731 (stop-point (if ignore-max
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3732 (point-max)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3733 max))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3734 (search
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3735 (concat
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3736 "\\(\\`\n?\\|^\n\\)=" ; POD
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3737 "\\|"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3738 ;; One extra () before this:
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3739 "<<" ; HERE-DOC
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3740 "\\(" ; 1 + 1
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3741 ;; First variant "BLAH" or just ``.
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3742 "[ \t]*" ; Yes, whitespace is allowed!
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3743 "\\([\"'`]\\)" ; 2 + 1 = 3
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3744 "\\([^\"'`\n]*\\)" ; 3 + 1
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3745 "\\3"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3746 "\\|"
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3747 ;; 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
3748 "\\\\?\\(\\([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
3749 ;; 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
3750 ;; "\\([^= \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
3751 "\\(\\)" ; To preserve count of pars :-( 6 + 1
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3752 "\\)"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3753 "\\|"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3754 ;; 1+6 extra () before this:
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3755 "^[ \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
3756 (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
3757 (concat
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3758 "\\|"
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3759 ;; 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
3760 "\\<\\(q[wxqr]?\\|[msy]\\|tr\\)\\>" ; QUOTED CONSTRUCT
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3761 "\\|"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3762 ;; 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
3763 "\\([?/<]\\)" ; /blah/ or ?blah? or <file*glob>
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3764 "\\|"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3765 ;; 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
3766 "\\<sub\\>" ; sub with proto/attr
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3767 "\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3768 cperl-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3769 "\\(::[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
3770 "\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3771 cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3772 "\\(([^()]*)\\|:[^:]\\)\\)" ; prototype or attribute start
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3773 "\\|"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3774 ;; 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
3775 "\\$\\(['{]\\)" ; $' or ${foo}
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3776 "\\|"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3777 ;; 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
3778 ;; we do not support intervening comments...):
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3779 "\\(\\<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
3780 ;; 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
3781 "\\|"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3782 "__\\(END\\|DATA\\)__" ; __END__ or __DATA__
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3783 ;; 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
3784 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3785 "\\\\\\(['`\"($]\\)") ; BACKWACKED something-hairy
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3786 ""))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3787 (unwind-protect
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3788 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3789 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3790 (or non-inter
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3791 (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
3792 ;;(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
3793 (and cperl-pod-here-fontify
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3794 ;; 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
3795 (setq face cperl-pod-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3796 head-face cperl-pod-head-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3797 here-face cperl-here-face))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3798 (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
3799 '(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
3800 attrib-group t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3801 REx-interpolated t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3802 cperl-postpone t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3803 syntax-subtype t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3804 rear-nonsticky t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3805 front-sticky t
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3806 here-doc-group t
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3807 first-format-line t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3808 REx-part2 t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3809 indentable t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3810 ;; Need to remove face as well...
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3811 (goto-char min)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3812 (and (eq system-type 'emx)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3813 (eq (point) 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3814 (let ((case-fold-search t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3815 (looking-at "extproc[ \t]")) ; Analogue of #!
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3816 (cperl-commentify min
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3817 (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
3818 nil))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3819 (while (and
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3820 (< (point) max)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3821 (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
3822 (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
3823 (setq b (match-beginning 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3824 state (save-excursion (parse-partial-sexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3825 state-point b nil nil state))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3826 state-point b)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3827 (cond
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3828 ;; 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
3829 ;; "\\$\\(['{]\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3830 ((match-beginning 18) ; $' or ${foo}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3831 (if (eq (preceding-char) ?\') ; $'
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3832 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3833 (setq b (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3834 state (parse-partial-sexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3835 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
3836 state-point (1- b))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3837 (if (nth 3 state) ; in string
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3838 (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
3839 (goto-char (1+ b)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3840 ;; else: ${
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3841 (setq bb (match-beginning 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3842 (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
3843 ;; 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
3844 ((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
3845 t) ; Do nothing in comment/string
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3846 ((match-beginning 1) ; POD section
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3847 ;; "\\(\\`\n?\\|^\n\\)="
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3848 (setq b (match-beginning 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3849 state (parse-partial-sexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3850 state-point b nil nil state)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3851 state-point b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3852 (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
3853 (looking-at "cut\\>"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3854 (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
3855 nil ; Doing a chunk only
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3856 (message "=cut is not preceded by a POD section")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3857 (or (car err-l) (setcar err-l (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3858 (beginning-of-line)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3859
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3860 (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
3861 bb b
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3862 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
3863 b1 nil) ; error condition
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3864 ;; 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
3865 ;; 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
3866 (or (re-search-forward "^\n=cut\\>" stop-point 'toend)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3867 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3868 (goto-char b)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3869 (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
3870 (progn
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3871 (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
3872 (setq b1 t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3873 (or (car err-l) (setcar err-l b))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3874 (beginning-of-line 2) ; An empty line after =cut is not POD!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3875 (setq e (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3876 (and (> e max)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3877 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3878 (remove-text-properties
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3879 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
3880 attrib-group t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3881 REx-interpolated t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3882 cperl-postpone t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3883 syntax-subtype t
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3884 here-doc-group t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3885 rear-nonsticky t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3886 front-sticky t
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3887 first-format-line t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3888 REx-part2 t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3889 indentable t))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3890 (setq tmpend tb)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3891 (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
3892 (put-text-property b e 'syntax-type 'in-pod)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3893 (goto-char b)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3894 (while (re-search-forward "\n\n[ \t]" e t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3895 ;; We start 'pod 1 char earlier to include the preceding line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3896 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3897 (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
3898 (cperl-put-do-not-fontify b (point) t)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3899 ;; mark the non-literal parts as PODs
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3900 (if cperl-pod-here-fontify
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3901 (cperl-postpone-fontification b (point) 'face face t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3902 (re-search-forward "\n\n[^ \t\f\n]" e 'toend)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3903 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3904 (setq b (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3905 (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
3906 (cperl-put-do-not-fontify (point) e t)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3907 (if cperl-pod-here-fontify
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3908 (progn
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3909 ;; mark the non-literal parts as PODs
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3910 (cperl-postpone-fontification (point) e 'face face t)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3911 (goto-char bb)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3912 (if (looking-at
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3913 "=[a-zA-Z0-9_]+\\>[ \t]*\\(\\(\n?[^\n]\\)+\\)$")
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3914 ;; mark the headers
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3915 (cperl-postpone-fontification
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3916 (match-beginning 1) (match-end 1)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3917 'face head-face))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3918 (while (re-search-forward
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3919 ;; One paragraph
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3920 "^\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
3921 e 'toend)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3922 ;; mark the headers
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3923 (cperl-postpone-fontification
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3924 (match-beginning 1) (match-end 1)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3925 'face head-face))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3926 (cperl-commentify bb e nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3927 (goto-char e)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3928 (or (eq e (point-max))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3929 (forward-char -1)))) ; Prepare for immediate POD start.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3930 ;; Here document
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3931 ;; 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
3932 ;; 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
3933 ;; ;; One extra () before this:
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3934 ;;"<<"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3935 ;; "\\(" ; 1 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3936 ;; ;; First variant "BLAH" or just ``.
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3937 ;; "[ \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
3938 ;; "\\([\"'`]\\)" ; 2 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3939 ;; "\\([^\"'`\n]*\\)" ; 3 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3940 ;; "\\3"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3941 ;; "\\|"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3942 ;; ;; 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
3943 ;; "\\\\?\\(\\([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
3944 ;; ;; 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
3945 ;; ;; "\\([^= \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
3946 ;; "\\(\\)" ; 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
3947 ;; "\\)"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3948 ((match-beginning 2) ; 1 + 1
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3949 (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
3950 tb (match-beginning 0)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3951 c (and ; not HERE-DOC
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3952 (match-beginning 5)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3953 (save-match-data
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3954 (or (looking-at "[ \t]*(") ; << function_call()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3955 (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
3956 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3957 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3958 (goto-char tb)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3959 ;;; XXX What to do: foo <<bar ???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3960 ;;; 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
3961 (forward-sexp -1)
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
3962 (save-match-data
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3963 ; $foo << b; $f .= <<B;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3964 ; ($f+1) << b; a($f) . <<B;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3965 ; foo 1, <<B; $x{a} <<b;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3966 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3967 ((looking-at "[0-9$({]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3968 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3969 (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3970 (looking-at "[ \t]*<<")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3971 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3972 ;; print $foo <<EOF
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3973 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3974 (forward-sexp -2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3975 (not
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3976 (looking-at "\\(printf?\\|system\\|exec\\|sort\\)\\>")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3977 (error t)))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3978 (error nil))) ; func(<<EOF)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3979 (and (not (match-beginning 6)) ; Empty
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3980 (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3981 "[ \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
3982 (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
3983 nil ; Skip it.
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3984 (setq c (match-end 2)) ; 1 + 1
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3985 (if (match-beginning 5) ;4 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3986 (setq b1 (match-beginning 5) ; 4 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3987 e1 (match-end 5)) ; 4 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3988 (setq b1 (match-beginning 4) ; 3 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3989 e1 (match-end 4))) ; 3 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3990 (setq tag (buffer-substring b1 e1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3991 qtag (regexp-quote tag))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3992 (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
3993 ;; Highlight the starting delimiter
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
3994 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3995 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
3996 (cperl-put-do-not-fontify b1 e1 t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3997 (forward-line)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3998 (setq i (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3999 (if end-of-here-doc
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4000 (goto-char end-of-here-doc))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4001 (setq b (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4002 ;; 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
4003 ;; 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
4004 (or (and (re-search-forward (concat "^" qtag "$")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4005 stop-point 'toend)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4006 ;;;(eq (following-char) ?\n) ; XXXX WHY???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4007 )
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4008 (progn ; Pretend we matched at the end
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4009 (goto-char (point-max))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4010 (re-search-forward "\\'")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4011 (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
4012 (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
4013 (if cperl-pod-here-fontify
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4014 (progn
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4015 ;; Highlight the ending delimiter
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4016 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4017 (match-beginning 0) (match-end 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4018 'face my-cperl-delimiters-face)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4019 (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
4020 ;; Highlight the HERE-DOC
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4021 (cperl-postpone-fontification b (match-beginning 0)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4022 'face here-face)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4023 (setq e1 (cperl-1+ (match-end 0)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4024 (put-text-property b (match-beginning 0)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4025 'syntax-type 'here-doc)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4026 (put-text-property (match-beginning 0) e1
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4027 'syntax-type 'here-doc-delim)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4028 (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
4029 ;; 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
4030 ;; the whole construct:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4031 (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
4032 (cperl-commentify b e1 nil)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4033 (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
4034 ;; Cache the syntax info...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4035 (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
4036 ;; ... 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
4037 (setq overshoot
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4038 (elt ; non-inter ignore-max
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4039 (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
4040 (if (and overshoot (> overshoot (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4041 (goto-char overshoot)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4042 (setq overshoot e1))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4043 (if (> e1 max)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4044 (setq tmpend tb))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4045 ;; format
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4046 ((match-beginning 8)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4047 ;; 1+6=7 extra () before this:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4048 ;;"^[ \t]*\\(format\\)[ \t]*\\([a-zA-Z0-9_]+\\)?[ \t]*=[ \t]*$"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4049 (setq b (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4050 name (if (match-beginning 8) ; 7 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4051 (buffer-substring (match-beginning 8) ; 7 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4052 (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
4053 "")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4054 tb (match-beginning 0))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4055 (setq argument nil)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4056 (put-text-property (save-excursion
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4057 (beginning-of-line)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4058 (point))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4059 b 'first-format-line 't)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4060 (if cperl-pod-here-fontify
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4061 (while (and (eq (forward-line) 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4062 (not (looking-at "^[.;]$")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4063 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4064 ((looking-at "^#")) ; Skip comments
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4065 ((and argument ; Skip argument multi-lines
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4066 (looking-at "^[ \t]*{"))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4067 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4068 (setq argument nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4069 (argument ; Skip argument lines
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4070 (setq argument nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4071 (t ; Format line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4072 (setq b1 (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4073 (setq argument (looking-at "^[^\n]*[@^]"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4074 (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
4075 ;; Highlight the format line
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4076 (cperl-postpone-fontification b1 (point)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4077 'face font-lock-string-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4078 (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
4079 (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
4080 ;; 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
4081 ;; 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
4082 (re-search-forward "^[.;]$" stop-point 'toend))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4083 (beginning-of-line)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4084 (if (looking-at "^\\.$") ; ";" is not supported yet
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4085 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4086 ;; 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
4087 (cperl-postpone-fontification (point) (+ (point) 2)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4088 'face font-lock-string-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4089 (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
4090 (cperl-put-do-not-fontify (point) (+ (point) 2) t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4091 (message "End of format `%s' not found." name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4092 (or (car err-l) (setcar err-l b)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4093 (forward-line)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4094 (if (> (point) max)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4095 (setq tmpend tb))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4096 (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
4097 ;; qq-like String or Regexp:
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4098 ((or (match-beginning 10) (match-beginning 11))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4099 ;; 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
4100 ;; "\\<\\(q[wxqr]?\\|[msy]\\|tr\\)\\>"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4101 ;; "\\|"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4102 ;; "\\([?/<]\\)" ; /blah/ or ?blah? or <file*glob>
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4103 (setq b1 (if (match-beginning 10) 10 11)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4104 argument (buffer-substring
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4105 (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
4106 b (point) ; end of qq etc
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4107 i b
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4108 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
4109 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
4110 ;; 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
4111 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
4112 (and (memq bb (append "$@%*#_:-&>" nil)) ; $#y)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4113 (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
4114 ((eq bb ?\:) ; $opt::s
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4115 (eq (char-after
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4116 (- (match-beginning b1) 2))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4117 ?\:))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4118 ((eq bb ?\>) ; $foo->s
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4119 (eq (char-after
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4120 (- (match-beginning b1) 2))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4121 ?\-))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4122 ((eq bb ?\&)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4123 (not (eq (char-after ; &&m/blah/
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4124 (- (match-beginning b1) 2))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4125 ?\&)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4126 (t t)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4127 ;; <file> or <$file>
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4128 (and (eq c ?\<)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4129 ;; 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
4130 (save-match-data
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4131 (looking-at
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4132 "\\$?\\([_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
4133 tb (match-beginning 0))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4134 (goto-char (match-beginning b1))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4135 (cperl-backward-to-noncomment (point-min))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4136 (or bb
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4137 (if (eq b1 11) ; bare /blah/ or ?blah? or <foo>
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4138 (setq argument ""
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4139 b1 nil
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4140 bb ; Not a regexp?
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4141 (not
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4142 ;; What is below: regexp-p?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4143 (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4144 (or (memq (preceding-char)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4145 (append (if (memq c '(?\? ?\<))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4146 ;; $a++ ? 1 : 2
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4147 "~{(=|&*!,;:["
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4148 "~{(=|&+-*!,;:[") nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4149 (and (eq (preceding-char) ?\})
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4150 (cperl-after-block-p (point-min)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4151 (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
4152 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4153 (forward-sexp -1)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4154 ;; 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
4155 ;; 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
4156 (if (eq (preceding-char) ?-)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4157 ;; -d ?foo? is a RE
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4158 (looking-at "[a-zA-Z]\\>")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4159 (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4160 (not (memq (preceding-char)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4161 '(?$ ?@ ?& ?%)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4162 (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4163 "\\(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
4164 (and (eq (preceding-char) ?.)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4165 (eq (char-after (- (point) 2)) ?.))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4166 (bobp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4167 ;; m|blah| ? foo : bar;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4168 (not
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4169 (and (eq c ?\?)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4170 cperl-use-syntax-table-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4171 (not (bobp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4172 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4173 (forward-char -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4174 (looking-at "\\s|"))))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4175 b (1- b))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4176 ;; s y tr m
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4177 ;; Check for $a -> y
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4178 (setq b1 (preceding-char)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4179 go (point))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4180 (if (and (eq b1 ?>)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4181 (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
4182 ;; Not a regexp
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4183 (setq bb t))))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4184 (or bb
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4185 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4186 (goto-char b)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4187 (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
4188 (goto-char (match-end 0))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4189 (skip-chars-forward " \t\n\f"))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4190 (cond ((and (eq (following-char) ?\})
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4191 (eq b1 ?\{))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4192 ;; 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
4193 (goto-char (1- go))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4194 (skip-chars-backward " \t\n\f")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4195 (if (memq (preceding-char) (append "$@%&*" nil))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4196 (setq bb t) ; @{y}
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4197 (condition-case nil
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4198 (forward-sexp -1)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4199 (error nil)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4200 (if (or bb
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4201 (looking-at ; $foo -> {s}
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4202 "[$@]\\$*\\([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
4203 (and ; $foo[12] -> {s}
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4204 (memq (following-char) '(?\{ ?\[))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4205 (progn
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4206 (forward-sexp 1)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4207 (looking-at "\\([ \t\n]*->\\)?[ \t\n]*{"))))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4208 (setq bb t)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4209 (goto-char b)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4210 ((and (eq (following-char) ?=)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4211 (eq (char-after (1+ (point))) ?\>))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4212 ;; Check for { foo => 1, s => 2 }
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4213 ;; Apparently s=> is never a substitution...
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4214 (setq bb t))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4215 ((and (eq (following-char) ?:)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4216 (eq b1 ?\{) ; Check for $ { s::bar }
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4217 (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
4218 (progn
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4219 (goto-char (1- go))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4220 (skip-chars-backward " \t\n\f")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4221 (memq (preceding-char)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4222 (append "$@%&*" nil))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4223 (setq bb t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4224 ((eobp)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4225 (setq bb t)))))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4226 (if bb
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4227 (goto-char i)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4228 ;; Skip whitespace and comments...
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4229 (if (looking-at "[ \t\n\f]+\\(#[^\n]*\n[ \t\n\f]*\\)+")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4230 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4231 (skip-chars-forward " \t\n\f"))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4232 (if (> (point) b)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4233 (put-text-property b (point) 'syntax-type 'prestring))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4234 ;; qtag means two-arg matcher, may be reset to
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4235 ;; 2 or 3 later if some special quoting is needed.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4236 ;; e1 means matching-char matcher.
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4237 (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
4238 ;; has 2 args
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4239 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
4240 ;; 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
4241 ;; 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
4242 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
4243 i2
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4244 st-l err-l argument)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4245 ;; 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
4246 ;; 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
4247 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
4248 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
4249 ; is with matching chars []
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4250 go (nth 4 i) ; There is a 1-char part after the end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4251 i (car i) ; intermediate point
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4252 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
4253 ;; 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
4254 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
4255 (1- e1))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4256 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
4257 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
4258 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
4259 ;; If s{} (), then b/b1 are at "{", "(", e1/i after ")", "}"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4260 ;; Commenting \\ is dangerous, what about ( ?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4261 (and i tail
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4262 (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
4263 (setq qtag t))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4264 (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
4265 (looking-at "\\sw*x")) ; qr//x
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4266 (setq is-x-REx t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4267 (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
4268 (looking-at "\\sw*o")) ; //o
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4269 (setq is-o-REx t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4270 (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
4271 ;; Considered as 1arg form
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4272 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4273 (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
4274 (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
4275 (if (or is-x-REx
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4276 ;; ignore other text properties:
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4277 (string-match "^qw$" argument))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4278 (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
4279 (and go
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4280 (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
4281 (or (eobp)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4282 (forward-char 1))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4283 (cperl-commentify b i t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4284 (if (looking-at "\\sw*e") ; s///e
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4285 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4286 ;; Cache the syntax info...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4287 (setq cperl-syntax-state (cons state-point state))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4288 (and
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4289 ;; silent:
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4290 (car (cperl-find-pods-heres b1 (1- (point)) t end))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4291 ;; Error
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4292 (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
4293 (if (and tag (eq (preceding-char) ?\>))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4294 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4295 (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
4296 (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
4297 (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
4298 (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
4299 (if is-x-REx
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4300 (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
4301 (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
4302 (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
4303 (if is-x-REx
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4304 (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
4305 (if qtag
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4306 (cperl-modify-syntax-type (1+ i) cperl-st-punct))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4307 (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
4308 ;; Now: tail: if the second part is non-matching without ///e
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4309 (if (eq (char-syntax (following-char)) ?w)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4310 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4311 (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
4312 (if tail (cperl-commentify tail (point) t))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
4313 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4314 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
4315 ;; 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
4316 ;; and highlight differently
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
4317 (setq is-REx
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4318 (and (string-match "^\\([sm]?\\|qr\\)$" argument)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4319 (or (not (= (length argument) 0))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4320 (not (eq c ?\<)))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
4321 (if (and is-REx
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4322 (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
4323 ;; 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
4324 (save-excursion
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4325 (condition-case nil
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4326 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4327 (goto-char tb)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4328 (forward-sexp -1)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4329 (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
4330 (error t))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4331 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4332 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
4333 (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
4334 (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
4335 (or
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4336 (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
4337 (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
4338 (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
4339 (progn
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4340 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4341 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
4342 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4343 (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
4344 (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
4345 ;; Process RExen: embedded comments, charclasses and ]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4346 ;;;/\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
4347 ;;;/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
4348 ;;;/(?<=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
4349 ;;;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
4350 ;;;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
4351 ;;;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
4352 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4353 (goto-char (1+ b))
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
4354 ;; First
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4355 (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
4356 (setq hairy-RE
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4357 (concat
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4358 (if is-x-REx
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4359 (if (eq (char-after b) ?\#)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4360 "\\((\\?\\\\#\\)\\|\\(\\\\#\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4361 "\\((\\?#\\)\\|\\(#\\)")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4362 ;; 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
4363 (if (eq (char-after b) ?\#)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4364 "\\((\\?\\\\#\\)\\(\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4365 "\\((\\?#\\)\\(\\)"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4366 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4367 "\\(\\[\\)" ; 3=[
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4368 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4369 "\\(]\\)" ; 4=]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4370 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4371 ;; 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
4372 (if (eq (char-after b) ?\) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4373 "\\())))\\)" ; Will never match
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4374 (if (eq (char-after b) ?? )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4375 ;;"\\((\\\\\\?\\(\\\\\\?\\)?{\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4376 "\\((\\\\\\?\\\\\\?{\\|()\\\\\\?{\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4377 "\\((\\?\\??{\\)")) ; 5= (??{ (?{
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4378 "\\|" ; 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
4379 "\\(" ;; XXXX 1-char variables, exc. |()\s
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4380 "[$@]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4381 "\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4382 "[_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
4383 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4384 "{[^{}]*}" ; only one-level allowed
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4385 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4386 "[^{(|) \t\r\n\f]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4387 "\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4388 "\\(" ;;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
4389 "\\(" "->" "\\)?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4390 "\\[[^][]*\\]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4391 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4392 "{[^{}]*}"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4393 "\\)*"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4394 ;; XXXX: what if u is delim?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4395 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4396 "[)^|$.*?+]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4397 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4398 "{[0-9]+}"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4399 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4400 "{[0-9]+,[0-9]*}"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4401 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4402 "\\\\[luLUEQbBAzZG]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4403 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4404 "(" ; Group opener
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4405 "\\(" ; 10 group opener follower
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4406 "\\?\\((\\?\\)" ; 11: in (?(?=C)A|B)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4407 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4408 "\\?[:=!>?{]" ; "?" something
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4409 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4410 "\\?[-imsx]+[:)]" ; (?i) (?-s:.)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4411 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4412 "\\?([0-9]+)" ; (?(1)foo|bar)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4413 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4414 "\\?<[=!]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4415 ;;;"\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4416 ;;; "\\?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4417 "\\)?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4418 "\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4419 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4420 "\\\\\\(.\\)" ; 12=\SYMBOL
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4421 ))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4422 (while
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4423 (and (< (point) (1- e))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4424 (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
4425 (goto-char (match-beginning 0))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4426 (setq REx-subgr-start (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4427 was-subgr (following-char))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4428 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4429 ((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
4430 (goto-char (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4431 (if (match-beginning 11)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4432 (goto-char (match-beginning 11)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4433 (if (>= (point) e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4434 (goto-char (1- e)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4435 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4436 (match-beginning 0) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4437 'face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4438 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4439 ((eq was-subgr ?\) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4440 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4441 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4442 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4443 (if (> (point) b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4444 (if (if (eq (char-after b) ?? )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4445 (looking-at "(\\\\\\?")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4446 (eq (char-after (1+ (point))) ?\?))
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 font-lock-warning-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4450 (error font-lock-warning-face)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4451 ((eq was-subgr ?\| )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4452 my-cperl-REx-ctl-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4453 ((eq was-subgr ?\$ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4454 (if (> (point) (1+ REx-subgr-start))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4455 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4456 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4457 (match-beginning 0) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4458 'REx-interpolated
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4459 (if is-o-REx 0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4460 (if (and (eq (match-beginning 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4461 (1+ b))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4462 (eq (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4463 (1- e))) 1 t)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4464 font-lock-variable-name-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4465 my-cperl-REx-spec-char-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4466 ((memq was-subgr (append "^." nil) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4467 my-cperl-REx-spec-char-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4468 ((eq was-subgr ?\( )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4469 (if (not (match-beginning 10))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4470 my-cperl-REx-ctl-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4471 my-cperl-REx-0length-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4472 (t my-cperl-REx-0length-face)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4473 (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
4474 (not (string-match "(\\?[-imsx]+)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4475 (match-string 0))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4476 (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
4477 (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
4478 ((match-beginning 12) ; \SYMBOL
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4479 (forward-char 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4480 (if (>= (point) e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4481 (goto-char (1- e))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4482 ;; How many chars to not highlight:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4483 ;; 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
4484 ;; 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
4485 ;; 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
4486 (setq REx-subgr-start (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4487 qtag (preceding-char))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4488 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4489 (- (point) 2) (- (point) 1) 'face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4490 (if (memq qtag
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4491 (append "ghijkmoqvFHIJKMORTVY" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4492 font-lock-warning-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4493 my-cperl-REx-0length-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4494 (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
4495 (memq qtag (append ".])^$|*?+" nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4496 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4497 (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
4498 (eq qtag ?\) ))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4499 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4500 REx-subgr-start (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4501 'syntax-table cperl-st-punct))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4502 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4503 (1- (point)) (point) 'face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4504 ; \] can't appear below
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4505 (if (memq qtag (append ".]^$" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4506 'my-cperl-REx-spec-char-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4507 (if (memq qtag (append "*?+" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4508 'my-cperl-REx-0length-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4509 'my-cperl-REx-ctl-face))))) ; )|
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4510 ;; Test for arguments:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4511 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4512 ;; 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
4513 ;; \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
4514 ;; \DIGIT -> backref unless \0
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
4515 ;; \DIGITs -> backref if valid
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4516 ;; otherwise up to 3 -> octal
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4517 ;; 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
4518 ((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
4519 (re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4520 "\\=[01234567]?[01234567]?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4521 (1- e) 'to-end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4522 (and (memq qtag (append "89" nil))
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
4523 (re-search-forward
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4524 "\\=[0123456789]*" (1- e) 'to-end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4525 (and (eq qtag ?x)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4526 (re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4527 "\\=[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
4528 (1- e) 'to-end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4529 (and (memq qtag (append "pPN" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4530 (re-search-forward "\\={[^{}]+}\\|."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4531 (1- e) 'to-end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4532 (eq (char-syntax qtag) ?w))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4533 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4534 (1- REx-subgr-start) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4535 'face my-cperl-REx-length1-face))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4536 (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
4537 ((match-beginning 3) ; [charclass]
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4538 ;; Highlight leader, trailer, POSIX classes
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4539 (forward-char 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4540 (if (eq (char-after b) ?^ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4541 (and (eq (following-char) ?\\ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4542 (eq (char-after (cperl-1+ (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4543 ?^ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4544 (forward-char 2))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4545 (and (eq (following-char) ?^ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4546 (forward-char 1)))
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4547 (setq argument b ; continue? & end of last POSIX
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4548 tag nil ; list of POSIX classes
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4549 qtag (point)) ; after leading ^ if present
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4550 (if (eq (char-after b) ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4551 (and (eq (following-char) ?\\ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4552 (eq (char-after (cperl-1+ (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4553 ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4554 (setq qtag (1+ qtag))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4555 (forward-char 2))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4556 (and (eq (following-char) ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4557 (forward-char 1)))
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4558 (setq REx-subgr-end qtag) ;EndOf smart-highlighed
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4559 ;; 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
4560 ;; in m]]: m][\\\]\]] produces [\\]]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4561 ;;; POSIX? [:word:] [:^word:] only inside []
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4562 ;;; "\\=\\(\\\\.\\|[^][\\\\]\\|\\[:\\^?\sw+:]\\|\\[[^:]\\)*]")
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4563 (while ; look for unescaped ]
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4564 (and argument
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4565 (re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4566 (if (eq (char-after b) ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4567 "\\=\\(\\\\[^]]\\|[^]\\\\]\\)*\\\\]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4568 "\\=\\(\\\\.\\|[^]\\\\]\\)*]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4569 (1- e) 'toend))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4570 ;; 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
4571 (if (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4572 (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4573 (search-backward "[" argument t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4574 (< REx-subgr-start (point))
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4575 (setq argument (point)) ; POSIX-start
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4576 (or ; Should work with delim = \
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4577 (not (eq (preceding-char) ?\\ ))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4578 ;; XXXX Double \\ is needed with 19.33
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4579 (= (% (skip-chars-backward "\\\\") 2) 0))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4580 (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4581 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4582 ((eq (char-after b) ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4583 "\\\\*\\[:\\^?\\sw+:\\\\\\]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4584 ((eq (char-after b) ?\: )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4585 "\\\\*\\[\\\\:\\^?\\sw+\\\\:]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4586 ((eq (char-after b) ?^ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4587 "\\\\*\\[:\\(\\\\\\^\\)?\\sw+:\]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4588 ((eq (char-syntax (char-after b))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4589 ?w)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4590 (concat
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4591 "\\\\*\\[:\\(\\\\\\^\\)?\\(\\\\"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4592 (char-to-string (char-after b))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4593 "\\|\\sw\\)+:\]"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4594 (t "\\\\*\\[:\\^?\\sw*:]")))
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4595 (goto-char REx-subgr-end)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4596 (cperl-highlight-charclass
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4597 argument my-cperl-REx-spec-char-face
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4598 my-cperl-REx-0length-face my-cperl-REx-length1-face)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4599 (setq tag (cons (cons argument (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4600 tag)
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4601 argument (point)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4602 REx-subgr-end argument) ; continue
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4603 (setq argument nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4604 (and argument
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4605 (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
4606 REx-subgr-start))
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4607 (setq argument (1- (point)))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4608 (goto-char REx-subgr-end)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4609 (cperl-highlight-charclass
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4610 argument my-cperl-REx-spec-char-face
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4611 my-cperl-REx-0length-face my-cperl-REx-length1-face)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4612 (forward-char 1)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4613 ;; Highlight starter, trailer, POSIX
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4614 (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
4615 (> (- (point) 2) REx-subgr-start))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4616 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4617 (1+ REx-subgr-start) (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4618 'syntax-table cperl-st-punct))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4619 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4620 REx-subgr-start qtag
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4621 '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
4622 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4623 (1- (point)) (point) 'face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4624 my-cperl-REx-spec-char-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4625 (if (eq (char-after b) ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4626 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4627 (- (point) 2) (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4628 'face my-cperl-REx-0length-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4629 (while tag
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4630 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4631 (car (car tag)) (cdr (car tag))
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4632 'face font-lock-variable-name-face) ;my-cperl-REx-length1-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4633 (setq tag (cdr tag)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4634 (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
4635 ;; Now rare stuff:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4636 ((and (match-beginning 2) ; #-comment
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4637 (/= (match-beginning 2) (match-end 2)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4638 (beginning-of-line 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4639 (if (> (point) e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4640 (goto-char (1- e))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4641 ((match-beginning 4) ; character "]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4642 (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
4643 (goto-char (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4644 (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
4645 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4646 (1- (point)) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4647 'syntax-table cperl-st-punct))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4648 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4649 (1- (point)) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4650 'face font-lock-warning-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4651 ((match-beginning 5) ; before (?{}) (??{})
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4652 (setq tag (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4653 (if (or (setq qtag
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4654 (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
4655 (and (>= (point) e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4656 (setq qtag "no matching `)' found"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4657 (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
4658 ?\} ))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4659 (setq qtag "Can't find })")))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
4660 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4661 (goto-char (1- e))
87170
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 86503
diff changeset
4662 (message "%s" qtag))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4663 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4664 (1- tag) (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4665 'face font-lock-variable-name-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4666 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4667 REx-subgr-start (1- tag)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4668 '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
4669 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4670 (1- (point)) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4671 '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
4672 (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
4673 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4674 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4675 (- (point) 2) (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4676 'syntax-table cperl-st-cfence)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4677 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4678 (+ REx-subgr-start 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4679 (+ REx-subgr-start 3)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4680 'syntax-table cperl-st-cfence))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4681 (setq was-subgr nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4682 (t ; (?#)-comment
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4683 ;; 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
4684 ;; 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
4685 (or;;(if (eq (char-after b) ?\) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4686 ;;(re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4687 ;; "[^\\\\]\\(\\\\\\\\\\)*\\\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4688 ;; (1- e) 'toend)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4689 (search-forward ")" (1- e) 'toend)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4690 ;;)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4691 (message
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4692 "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
4693 REx-subgr-start))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4694 (if (>= (point) e)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4695 (goto-char (1- e)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4696 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4697 (was-subgr
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4698 (setq REx-subgr-end (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4699 (cperl-commentify
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4700 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
4701 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4702 REx-subgr-start REx-subgr-end
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4703 'face font-lock-comment-face))))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4704 (if (and is-REx is-x-REx)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
4705 (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
4706 'syntax-subtype 'x-REx)))
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
4707 (if (and i2 e1 (or (not b1) (> e1 b1)))
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4708 (progn ; No errors finding the second part...
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4709 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4710 (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
4711 (if (and (not (eobp))
d168a4166b80 Fix s{a}{b} parsing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78487
diff changeset
4712 (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
4713 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4714 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4715 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
4716 (put-text-property b1 (1+ b1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4717 '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
4718 (if (> (point) max)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4719 (setq tmpend tb))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4720 ((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
4721 ;; 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
4722 ;;"\\<sub\\>\\(" ;12
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4723 ;; cperl-white-and-comment-rex ;13
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4724 ;; "\\([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
4725 ;;"\\(" 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
4726 ;; "\\(([^()]*)\\|:[^:]\\)\\)" ; 17:proto or attribute start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4727 (setq b1 (match-beginning 14) e1 (match-end 14))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4728 (if (memq (char-after (1- b))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4729 '(?\$ ?\@ ?\% ?\& ?\*))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4730 nil
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4731 (goto-char b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4732 (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
4733 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4734 (cperl-commentify ; Prototypes; mark as string
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4735 (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
4736 (goto-char (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4737 ;; Now look for attributes after prototype:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4738 (forward-comment (buffer-size))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4739 (and (looking-at ":[^:]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4740 (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
4741 ;; treat attributes without prototype
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4742 (goto-char (match-beginning 17))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4743 (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
4744 ;; 1+6+2+1+1+6+1=18 extra () before this:
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4745 ;; "\\(\\<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
4746 ((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
4747 (setq bb (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4748 ;;;(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
4749 (put-text-property (1- bb) bb 'syntax-table cperl-st-word)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4750 (goto-char bb))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4751 ;; 1+6+2+1+1+6+1+1=19 extra () before this:
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4752 ;; "__\\(END\\|DATA\\)__"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4753 ((match-beginning 20) ; __END__, __DATA__
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4754 (setq bb (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4755 ;; (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
4756 (cperl-commentify b bb nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4757 (setq end t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4758 ;; "\\\\\\(['`\"($]\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4759 ((match-beginning 21)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4760 ;; 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
4761 (setq bb (match-end 0))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4762 (goto-char b)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4763 (skip-chars-backward "\\\\")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4764 ;;;(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
4765 (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
4766 (goto-char bb))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4767 (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
4768 (if (> (point) stop-point)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4769 (progn
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4770 (if end
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4771 (message "Garbage after __END__/__DATA__ ignored")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4772 (message "Unbalanced syntax found while scanning")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4773 (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
4774 (goto-char stop-point))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4775 (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
4776 ;; 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
4777 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
4778 ;;(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
4779 )
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4780 (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
4781 (or non-inter
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4782 (message "Scanning for \"hard\" Perl constructions... done"))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4783 (and (buffer-modified-p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4784 (not modified)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4785 (set-buffer-modified-p nil))
63836
e6973993a720 (cperl-find-pods-heres): Don't gratuitously
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63518
diff changeset
4786 ;; 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
4787 ;; 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
4788 ;; cperl-mode-syntax-table.
e6973993a720 (cperl-find-pods-heres): Don't gratuitously
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63518
diff changeset
4789 ;; (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
4790 )
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4791 (list (car err-l) overshoot)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4792
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4793 (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
4794 (interactive "r")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4795 (cperl-find-pods-heres min max))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4796
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4797 (defun cperl-backward-to-noncomment (lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4798 ;; 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
4799 ;; 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
4800 (let (stop p pr)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4801 (while (and (not stop) (> (point) (or lim (point-min))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4802 (skip-chars-backward " \t\n\f" lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4803 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4804 (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
4805 (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
4806 '(pod here-doc here-doc-delim))
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4807 (progn
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4808 (cperl-unwind-to-safe nil)
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4809 (setq pr (get-text-property (point) 'syntax-type))))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4810 (or (and (looking-at "^[ \t]*\\(#\\|$\\)")
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4811 (not (memq pr '(string prestring))))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4812 (progn (cperl-to-comment-or-eol) (bolp))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4813 (progn
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4814 (skip-chars-backward " \t")
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4815 (if (< p (point)) (goto-char p))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4816 (setq stop t))))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4817
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4818 ;; Used only in `cperl-calculate-indent'...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4819 (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
4820 ;; 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
4821 ;; 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
4822 (cperl-backward-to-noncomment (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4823 (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
4824 ; 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
4825 (save-excursion (cperl-after-label))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4826 (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
4827 (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
4828 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4829 (backward-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4830 ;; 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
4831 (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
4832 (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
4833 ;; sub bless::foo {}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4834 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4835 (cperl-backward-to-noncomment (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4836 (and (eq (preceding-char) ?b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4837 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4838 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4839 (looking-at "sub[ \t\n\f#]")))))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4840
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4841 ;;; 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
4842 ;;; 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
4843 ;;; 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
4844 ;;; ${something()}, print {FH} $data.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4845 ;;; 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
4846 ;;; 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
4847 (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
4848 "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
4849 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
4850 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
4851 statement would start; thus the block in ${func()} does not count."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4852 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4853 (condition-case nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4854 (progn
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4855 (or pre-block (forward-sexp -1))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4856 (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
4857 (or (eq (point) lim)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4858 ;; if () {} // sub f () {} // sub f :a(') {}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4859 (eq (preceding-char) ?\) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4860 ;; label: {}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4861 (save-excursion (cperl-after-label))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4862 ;; sub :attr {}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4863 (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
4864 (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
4865 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4866 (forward-sexp -1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4867 ;; else {} but not else::func {}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4868 (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
4869 (not (looking-at "\\(\\sw\\|_\\)+::")))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4870 ;; sub f {}
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4871 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4872 (cperl-backward-to-noncomment lim)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4873 (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
4874 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4875 (forward-sexp -1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4876 (looking-at "sub[ \t\n\f#]"))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4877 ;; 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
4878 (cperl-after-expr-p lim))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4879 (error nil))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4880
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4881 (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
4882 "Return true if the position is good for start of expression.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4883 TEST is the expression to evaluate at the found position. If absent,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4884 CHARS is a string that contains good characters to have before us (however,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4885 `}' 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
4886 (let ((lim (or lim (point-min)))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4887 stop p pr)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4888 (cperl-update-syntaxification (point) (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4889 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4890 (while (and (not stop) (> (point) lim))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4891 (skip-chars-backward " \t\n\f" lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4892 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4893 (beginning-of-line)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4894 ;;(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
4895 ;; '(pod here-doc here-doc-delim))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4896 (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
4897 (progn
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4898 (goto-char
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4899 (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
4900 (beginning-of-line 0)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4901 (if (get-text-property (point) 'in-pod)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4902 (progn
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4903 (goto-char
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4904 (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
4905 (beginning-of-line 0)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4906 (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
4907 ;; Else: last iteration, or a label
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4908 (cperl-to-comment-or-eol) ; Will not move past "." after a format
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4909 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4910 (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
4911 (setq p (point))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4912 (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
4913 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4914 (forward-char -1)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4915 (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
4916 (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
4917 (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
4918 (goto-char p)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4919 (setq stop t))))
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
4920 (or (bobp) ; ???? Needed
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
4921 (eq (point) lim)
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
4922 (looking-at "[ \t]*__\\(END\\|DATA\\)__") ; After this anything goes
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4923 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4924 (if test (eval test)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4925 (or (memq (preceding-char) (append (or chars "{;") nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4926 (and (eq (preceding-char) ?\})
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4927 (cperl-after-block-p lim))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4928 (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
4929 (eq (get-text-property (point) 'syntax-type)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4930 'format)))))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4931
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4932 (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
4933 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4934 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4935 (while (and (or (not lim)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4936 (> (point) lim))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4937 (not (cperl-after-expr-p lim)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4938 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4939 ;; 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
4940 (skip-chars-backward "$@%#")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4941 (error nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4942
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4943 (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
4944 ;; 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
4945 (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
4946 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4947 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4948 ;; 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
4949 ;; 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
4950 ;; 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
4951 ;; 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
4952 (let ((p (point)))
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 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4955 (while (memq (preceding-char) (append "%&@$*" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4956 (forward-char -1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4957 (or (< (point) p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4958 (cperl-after-expr-p lim))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4959 (error t))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4960
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4961 (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
4962 (let ((p (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4963 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4964 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4965 (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
4966 (not (cperl-at-end-of-expr)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4967 (forward-sexp 1)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4968 (error nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4969
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4970 (defun cperl-backward-to-start-of-continued-exp (lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4971 (if (memq (preceding-char) (append ")]}\"'`" nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4972 (forward-sexp -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4973 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4974 (if (<= (point) lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4975 (goto-char (1+ lim)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4976 (skip-chars-forward " \t"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4977
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4978 (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
4979 ;; We assume that we are after ?\}
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4980 (and
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4981 (cperl-after-block-p lim)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4982 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4983 (forward-sexp -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4984 (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
4985 (or (bobp)
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
4986 (eq (point) lim)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4987 (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
4988 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4989 (forward-sexp -1)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4990 (not
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4991 (looking-at
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4992 "\\(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
4993
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4994
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4995 (defun cperl-indent-exp ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4996 "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
4997
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4998 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
4999 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
5000
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5001 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
5002 conditional/loop constructs."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5003 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5004 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5005 (let ((tmp-end (progn (end-of-line) (point))) top done)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5006 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5007 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5008 (while (null done)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5009 (setq top (point))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5010 ;; 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
5011 (while (= -1 (nth 0 (parse-partial-sexp (point) tmp-end -1)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5012 (setq top (point))) ; Get the outermost parenths in line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5013 (goto-char top)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5014 (while (< (point) tmp-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5015 (parse-partial-sexp (point) tmp-end nil t) ; To start-sexp or eol
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5016 (or (eolp) (forward-sexp 1)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5017 (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
5018 nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5019 (if (eq ?\) (preceding-char))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5020 (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
5021 (setq top (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5022 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5023 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5024 (forward-sexp -2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5025 (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
5026 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5027 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5028 (if (looking-at "\\(my\\|local\\|our\\)\\>")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5029 (forward-sexp -1))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5030 (if (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5031 (concat "\\(\\elsif\\|if\\|unless\\|while\\|until"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5032 "\\|for\\(each\\)?\\>\\(\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5033 cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5034 "\\(my\\|local\\|our\\)\\)?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5035 cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5036 "\\$[_a-zA-Z0-9]+\\)?\\)\\>"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5037 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5038 (goto-char top)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5039 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5040 (setq top (point)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5041 (error (setq done t)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5042 (goto-char top))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5043 (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
5044 (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
5045 "\\<\\(else\\|elsif\|continue\\)\\>"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5046 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5047 (goto-char (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5048 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5049 (end-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5050 (setq tmp-end (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5051 (setq done t))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5052 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5053 (end-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5054 (setq tmp-end (point))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5055 (goto-char tmp-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5056 (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
5057 (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
5058 (cperl-fix-line-spacing tmp-end))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5059 (cperl-indent-region (point) tmp-end))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5060
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5061 (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
5062 "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
5063 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
5064 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5065 (or end
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5066 (setq end (point-max)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5067 (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
5068 (cperl-indent-region-fix-constructs
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5069 (or cperl-indent-region-fix-constructs 1))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5070 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
5071 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5072 (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
5073 (setq ret (point))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5074 ;; }? continue
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5075 ;; blah; }
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5076 (if (not
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5077 (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
5078 (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
5079 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
5080 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5081 ;; }
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5082 ;; else
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5083 (if cperl-merge-trailing-else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5084 (if (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5085 "[ \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
5086 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5087 (search-forward "}")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5088 (setq p (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5089 (skip-chars-forward " \t\n")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5090 (delete-region p (point))
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5091 (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
5092 (beginning-of-line)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5093 (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
5094 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5095 (search-forward "}")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5096 (delete-horizontal-space)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5097 (insert "\n")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5098 (setq ret (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5099 (if (cperl-indent-line parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5100 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5101 (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
5102 (setq ret (point)))))))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5103 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5104 ;; } else
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5105 (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
5106 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5107 (search-forward "}")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5108 (delete-horizontal-space)
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5109 (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
5110 (beginning-of-line)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5111 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5112 ;; else {
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5113 (if (looking-at
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5114 "[ \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
5115 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5116 (forward-word 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5117 (delete-horizontal-space)
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5118 (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
5119 (beginning-of-line)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5120 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5121 ;; foreach my $var
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5122 (if (looking-at
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5123 "[ \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
5124 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5125 (forward-word 2)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5126 (delete-horizontal-space)
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5127 (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
5128 (beginning-of-line)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5129 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5130 ;; foreach my $var (
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5131 (if (looking-at
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5132 "[ \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
5133 (progn
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
5134 (forward-sexp 3)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5135 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5136 (insert
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5137 (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
5138 (beginning-of-line)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5139 ;; 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
5140 ;; } foreach my $var () OR {
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5141 (if (looking-at
44446
9b08deb1030e (cperl-make-face, cperl-force-face):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43943
diff changeset
5142 "[ \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
5143 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5144 (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
5145 (re-search-forward "[({]")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5146 (forward-char -1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5147 (setq p (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5148 (if (eq (following-char) ?\( )
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5149 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5150 (forward-sexp 1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5151 (setq pp (point))) ; past parenth-group
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5152 ;; after `else' or nothing
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5153 (if ml ; after `else'
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5154 (skip-chars-backward " \t\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5155 (beginning-of-line))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5156 (setq pp nil))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5157 ;; Now after the sexp before the brace
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5158 ;; Multiline expr should be special
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5159 (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
5160 (search-forward "\n" pp t))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5161 (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
5162 (looking-at "[ \t\n]*{"))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5163 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5164 (cond
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5165 ((bolp) ; Were before `{', no if/else/etc
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5166 nil)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5167 ((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
5168 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5169 (if (if ml
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5170 cperl-extra-newline-before-brace-multiline
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5171 cperl-extra-newline-before-brace)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5172 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5173 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5174 (insert "\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5175 (setq ret (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5176 (if (cperl-indent-line parse-data)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5177 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5178 (cperl-fix-line-spacing end parse-data)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5179 (setq ret (point)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5180 (insert
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5181 (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
5182 ((and (looking-at "[ \t]*\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5183 (not (if ml
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5184 cperl-extra-newline-before-brace-multiline
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5185 cperl-extra-newline-before-brace)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5186 (setq pp (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5187 (skip-chars-forward " \t\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5188 (delete-region pp (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5189 (insert
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5190 (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
5191 ((and (looking-at "[\t ]*{")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5192 (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
5193 cperl-extra-newline-before-brace))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5194 (delete-horizontal-space)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5195 (insert "\n")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5196 (setq ret (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5197 (if (cperl-indent-line parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5198 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5199 (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
5200 (setq ret (point))))))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5201 ;; Now we are before `{'
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5202 (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
5203 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5204 (skip-chars-forward " \t\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5205 (setq pp (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5206 (forward-sexp 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5207 (setq p (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5208 (goto-char pp)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5209 (setq ml (search-forward "\n" p t))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5210 (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
5211 ;; not good: multi-line BLOCK
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5212 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5213 (goto-char (1+ pp))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5214 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5215 (insert "\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5216 (setq ret (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5217 (if (cperl-indent-line parse-data)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5218 (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
5219 (beginning-of-line)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5220 (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
5221 ;; Now check whether there is a hanging `}'
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5222 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5223 ;; } blah
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5224 (if (and
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5225 cperl-fix-hanging-brace-when-indent
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5226 have-brace
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5227 (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
5228 (condition-case nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5229 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5230 (up-list 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5231 (if (and (<= (point) pp)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5232 (eq (preceding-char) ?\} )
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5233 (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
5234 t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5235 (goto-char p)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5236 nil))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5237 (error nil)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5238 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5239 (forward-char -1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5240 (skip-chars-backward " \t")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5241 (if (bolp)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5242 ;; `}' 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
5243 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5244 (cperl-indent-line parse-data)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5245 (search-forward "}")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5246 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5247 (insert "\n"))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5248 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5249 (or (eq (preceding-char) ?\;)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5250 (bolp)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5251 (and (eq (preceding-char) ?\} )
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5252 (cperl-after-block-p (point-min)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5253 (insert ";"))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5254 (insert "\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5255 (setq ret (point)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5256 (if (cperl-indent-line parse-data)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5257 (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
5258 (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
5259 ret))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5260
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5261 (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
5262 (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
5263 (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
5264 (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
5265 (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
5266
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5267 (defun cperl-indent-region (start end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5268 "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
5269 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
5270 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
5271 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
5272 inclusive.
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5273
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5274 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
5275 conditional/loop constructs."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5276 (interactive "r")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5277 (cperl-update-syntaxification end end)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5278 (save-excursion
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5279 (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
5280 (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
5281 (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
5282 nil))
58356
4ca1b78a471f (cperl-indent-region): Don't mind imenu-scanning-message.
Richard M. Stallman <rms@gnu.org>
parents: 58190
diff changeset
5283 (pm 0)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5284 after-change-functions ; Speed it up!
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5285 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
5286 (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
5287 (goto-char start)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5288 (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
5289 (current-column))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5290 new-comm-indent old-comm-indent)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5291 (goto-char start)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5292 (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
5293 (or (bolp) (beginning-of-line 2))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5294 (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
5295 (setq st (point))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5296 (if (or
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5297 (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
5298 (and (setq comm (looking-at "[ \t]*#"))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5299 (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
5300 comment-column))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5301 (setq old-comm-indent nil))))
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5302 (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
5303 (not empty)
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5304 (= (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
5305 (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
5306 (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
5307 cperl-st-cfence)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5308 (let ((comment-column new-comm-indent))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5309 (indent-for-comment)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5310 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5311 (setq i (cperl-indent-line indent-info))
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5312 (or comm
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5313 (not i)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5314 (progn
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5315 (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
5316 (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
5317 (if (setq old-comm-indent
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5318 (and (cperl-to-comment-or-eol)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5319 (not (memq (get-text-property (point)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5320 'syntax-type)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5321 '(pod here-doc)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5322 (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
5323 'syntax-table)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5324 cperl-st-cfence))
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5325 (current-column)))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5326 (progn (indent-for-comment)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5327 (skip-chars-backward " \t")
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5328 (skip-chars-backward "#")
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5329 (setq new-comm-indent (current-column))))))))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5330 (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
5331 ;; Now run the update hooks
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5332 (and after-change-functions
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5333 cperl-update-end
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5334 (save-excursion
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5335 (goto-char cperl-update-end)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5336 (insert " ")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5337 (delete-char -1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5338 (goto-char cperl-update-start)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5339 (insert " ")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5340 (delete-char -1))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5341
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5342 ;; Stolen from lisp-mode with a lot of improvements
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5343
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5344 (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
5345 "Like `fill-paragraph', but handle CPerl comments.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5346 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
5347 block of it that point is in, preserving the comment's initial
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5348 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
5349 ;; (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
5350 (let (;; Non-nil if the current line contains a comment.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5351 has-comment
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5352 fill-paragraph-function ; do not recurse
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5353 ;; If has-comment, the appropriate fill-prefix for the comment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5354 comment-fill-prefix
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5355 ;; Line that contains code and comment (or nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5356 start
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5357 c spaces len dc (comment-column comment-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5358 ;; Figure out what kind of comment we are looking at.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5359 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5360 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5361 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5362
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5363 ;; A line with nothing but a comment on it?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5364 ((looking-at "[ \t]*#[# \t]*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5365 (setq has-comment t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5366 comment-fill-prefix (buffer-substring (match-beginning 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5367 (match-end 0))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5368
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5369 ;; A line with some code, followed by a comment? Remember that the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5370 ;; semi which starts the comment shouldn't be part of a string or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5371 ;; character.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5372 ((cperl-to-comment-or-eol)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5373 (setq has-comment t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5374 (looking-at "#+[ \t]*")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5375 (setq start (point) c (current-column)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5376 comment-fill-prefix
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5377 (concat (make-string (current-column) ?\s)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5378 (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
5379 spaces (progn (skip-chars-backward " \t")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5380 (buffer-substring (point) start))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5381 dc (- c (current-column)) len (- start (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5382 start (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5383 (delete-char len)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5384 (insert (make-string dc ?-))))) ; Placeholder (to avoid splitting???)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5385 (if (not has-comment)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5386 (fill-paragraph justify) ; Do the usual thing outside of comment
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5387 ;; Narrow to include only the comment, and then fill the region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5388 (save-restriction
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5389 (narrow-to-region
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5390 ;; Find the first line we should include in the region to fill.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5391 (if start (progn (beginning-of-line) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5392 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5393 (while (and (zerop (forward-line -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5394 (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5395 ;; We may have gone to far. Go forward again.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5396 (or (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5397 (forward-line 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5398 (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5399 ;; Find the beginning of the first line past the region to fill.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5400 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5401 (while (progn (forward-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5402 (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5403 (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5404 ;; Remove existing hashes
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5405 (goto-char (point-min))
53812
80c9f33653f7 (cperl-fill-paragraph): Call fill-paragraph
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53779
diff changeset
5406 (save-excursion
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5407 (while (progn (forward-line 1) (< (point) (point-max)))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5408 (skip-chars-forward " \t")
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5409 (if (looking-at "#+")
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5410 (progn
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5411 (if (and (eq (point) (match-beginning 0))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
5412 (not (eq (point) (match-end 0)))) nil
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5413 (error
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5414 "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
5415 (delete-char (- (match-end 0) (match-beginning 0)))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5416
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5417 ;; Lines with only hashes on them can be paragraph boundaries.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5418 (let ((paragraph-start (concat paragraph-start "\\|^[ \t#]*$"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5419 (paragraph-separate (concat paragraph-start "\\|^[ \t#]*$"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5420 (fill-prefix comment-fill-prefix))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5421 (fill-paragraph justify)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5422 (if (and start)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5423 (progn
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5424 (goto-char start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5425 (if (> dc 0)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5426 (progn (delete-char dc) (insert spaces)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5427 (if (or (= (current-column) c) iteration) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5428 (setq comment-column c)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5429 (indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5430 ;; 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
5431 (cperl-fill-paragraph justify t))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5432 t)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5433
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5434 (defun cperl-do-auto-fill ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5435 ;; Break out if the line is short enough
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5436 (if (> (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5437 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5438 (current-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5439 fill-column)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5440 (let ((c (save-excursion (beginning-of-line)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5441 (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
5442 (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
5443 (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
5444 ;; 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
5445 nil
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5446 (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
5447 (fill-paragraph nil)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5448 (goto-char marker)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5449 ;; 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
5450 (if (bolp) (progn (re-search-forward "#+[ \t]*")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5451 (goto-char (match-end 0))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5452 ;; 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
5453 (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
5454 (insert " ")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5455 (backward-char 1))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5456 ;; 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
5457 (or (memq (preceding-char) '(?\s ?\t)) (insert " "))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5458
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5459 (defun cperl-imenu-addback (lst &optional isback name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5460 ;; We suppose that the lst is a DAG, unless the first element only
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5461 ;; loops back, and ISBACK is set. Thus this function cannot be
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5462 ;; applied twice without ISBACK set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5463 (cond ((not cperl-imenu-addback) lst)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5464 (t
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5465 (or name
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5466 (setq name "+++BACK+++"))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5467 (mapc (lambda (elt)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5468 (if (and (listp elt) (listp (cdr elt)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5469 (progn
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5470 ;; In the other order it goes up
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5471 ;; one level only ;-(
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5472 (setcdr elt (cons (cons name lst)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5473 (cdr elt)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5474 (cperl-imenu-addback (cdr elt) t name))))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5475 (if isback (cdr lst) lst))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5476 lst)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5477
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5478 (defun cperl-imenu--create-perl-index (&optional regexp)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5479 (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
5480 (let ((index-alist '()) (index-pack-alist '()) (index-pod-alist '())
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5481 (index-unsorted-alist '()) (i-s-f (default-value 'imenu-sort-function))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5482 (index-meth-alist '()) meth
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5483 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
5484 (prev-pos 0) is-pack index index1 name (end-range 0) package)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5485 (goto-char (point-min))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5486 (cperl-update-syntaxification (point-max) (point-max))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5487 ;; Search for the function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5488 (progn ;;save-match-data
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5489 (while (re-search-forward
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5490 (or regexp cperl-imenu--function-name-regexp-perl)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5491 nil t)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5492 ;; 2=package-group, 5=package-name 8=sub-name
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5493 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5494 ((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
5495 (match-beginning 5) ; package name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5496 ;;(eq (char-after (match-beginning 2)) ?p) ; package
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5497 (not (save-match-data
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5498 (looking-at "[ \t\n]*;")))) ; Plain text word 'package'
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5499 nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5500 ((and
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5501 (or (match-beginning 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5502 (match-beginning 8)) ; package or sub
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5503 ;; Skip if quoted (will not skip multi-line ''-strings :-():
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5504 (null (get-text-property (match-beginning 1) 'syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5505 (null (get-text-property (match-beginning 1) 'syntax-type))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5506 (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
5507 (setq is-pack (match-beginning 2))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5508 ;; (if (looking-at "([^()]*)[ \t\n\f]*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5509 ;; (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
5510 (setq meth nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5511 p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5512 (while (and ends-ranges (>= p (car ends-ranges)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5513 ;; delete obsolete entries
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5514 (setq ends-ranges (cdr ends-ranges) packages (cdr packages)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5515 (setq package (or (car packages) "")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5516 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
5517 (if is-pack ; doing "package"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5518 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5519 (if (match-beginning 5) ; named package
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5520 (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
5521 (match-end 5))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5522 name (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5523 (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
5524 name)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5525 package (concat name "::")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5526 name (concat "package " name))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5527 ;; Support nameless packages
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5528 (setq name "package;" package ""))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5529 (setq end-range
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5530 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5531 (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
5532 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
5533 packages (cons package packages)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5534 (setq is-proto
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5535 (or (eq (following-char) ?\;)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5536 (eq 0 (get-text-property (point) 'attrib-group)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5537 ;; 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
5538 (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
5539 (or is-pack
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5540 (setq name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5541 (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
5542 (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
5543 (setq marker (make-marker))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5544 (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
5545 (cond (is-pack nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5546 ((string-match "[:']" name)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5547 (setq meth t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5548 ((> p end-range) nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5549 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5550 (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
5551 (setq index (cons name marker))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5552 (if is-pack
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5553 (push index index-pack-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5554 (push index index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5555 (if meth (push index index-meth-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5556 (push index index-unsorted-alist)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5557 ((match-beginning 16) ; POD section
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5558 (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
5559 marker (make-marker))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5560 (set-marker marker (match-beginning 17))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5561 (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
5562 (setq name (concat (make-string
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5563 (* 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
5564 ?\ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5565 name)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5566 index (cons name marker))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5567 (setq index1 (cons (concat "=" name) (cdr index)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5568 (push index index-pod-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5569 (push index1 index-unsorted-alist)))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5570 (setq index-alist
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5571 (if (default-value 'imenu-sort-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5572 (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
5573 (nreverse index-alist)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5574 (and index-pod-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5575 (push (cons "+POD headers+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5576 (nreverse index-pod-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5577 index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5578 (and (or index-pack-alist index-meth-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5579 (let ((lst index-pack-alist) hier-list pack elt group name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5580 ;; Remove "package ", reverse and uniquify.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5581 (while lst
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5582 (setq elt (car lst) lst (cdr lst) name (substring (car elt) 8))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5583 (if (assoc name hier-list) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5584 (setq hier-list (cons (cons name (cdr elt)) hier-list))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5585 (setq lst index-meth-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5586 (while lst
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5587 (setq elt (car lst) lst (cdr lst))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5588 (cond ((string-match "\\(::\\|'\\)[_a-zA-Z0-9]+$" (car elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5589 (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
5590 (if (setq group (assoc pack hier-list))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5591 (if (listp (cdr group))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5592 ;; Have some functions already
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5593 (setcdr group
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5594 (cons (cons (substring
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5595 (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5596 (+ 2 (match-beginning 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5597 (cdr elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5598 (cdr group)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5599 (setcdr group (list (cons (substring
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5600 (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5601 (+ 2 (match-beginning 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5602 (cdr elt)))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5603 (setq hier-list
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5604 (cons (cons pack
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5605 (list (cons (substring
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5606 (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5607 (+ 2 (match-beginning 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5608 (cdr elt))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5609 hier-list))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5610 (push (cons "+Hierarchy+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5611 hier-list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5612 index-alist)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5613 (and index-pack-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5614 (push (cons "+Packages+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5615 (nreverse index-pack-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5616 index-alist))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5617 (and (or index-pack-alist index-pod-alist
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5618 (default-value 'imenu-sort-function))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5619 index-unsorted-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5620 (push (cons "+Unsorted List+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5621 (nreverse index-unsorted-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5622 index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5623 (cperl-imenu-addback index-alist)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5624
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5625
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5626 ;; Suggested by Mark A. Hershberger
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5627 (defun cperl-outline-level ()
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5628 (looking-at outline-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5629 (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
5630 ;;;; 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
5631 ((match-beginning 2) 0) ; package
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5632 ((match-beginning 8) 1) ; sub
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5633 ((match-beginning 16)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5634 (- (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
5635 (t 5))) ; should not happen
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5636
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5637
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5638 (defun cperl-windowed-init ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5639 "Initialization under windowed version."
73457
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5640 (cond ((featurep 'ps-print)
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
5641 (or cperl-faces-init
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
5642 (progn
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
5643 (and (boundp 'font-lock-multiline)
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
5644 (setq cperl-font-lock-multiline t))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
5645 (cperl-init-faces))))
73457
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5646 ((not cperl-faces-init)
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5647 (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
5648 (function
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5649 (lambda ()
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5650 (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
5651 (progn
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5652 (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
5653 (if (fboundp 'eval-after-load)
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5654 (eval-after-load
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5655 "ps-print"
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5656 '(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
5657
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5658 (defvar cperl-font-lock-keywords-1 nil
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5659 "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
5660 (defvar cperl-font-lock-keywords nil
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5661 "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
5662 (defvar cperl-font-lock-keywords-2 nil
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5663 "Additional expressions to highlight in Perl mode. Maximal set")
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5664
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5665 (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
5666 (or cperl-faces-init (cperl-init-faces))
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5667 cperl-font-lock-keywords)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5668
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5669 (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
5670 (or cperl-faces-init (cperl-init-faces))
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5671 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
5672
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5673 (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
5674 (or cperl-faces-init (cperl-init-faces))
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5675 cperl-font-lock-keywords-2)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5676
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5677 (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
5678 ;; 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
5679 (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
5680 (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
5681 "Face for constant and label names"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5682 (or (boundp 'font-lock-warning-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5683 (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
5684 "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
5685 ;;(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
5686 )
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5687
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5688 (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
5689 (condition-case errs
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5690 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5691 (require 'font-lock)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5692 (and (fboundp 'font-lock-fontify-anchored-keywords)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5693 (featurep 'font-lock-extra)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5694 (message "You have an obsolete package `font-lock-extra'. Install `choose-color'."))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5695 (let (t-font-lock-keywords t-font-lock-keywords-1 font-lock-anchored)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5696 (if (fboundp 'font-lock-fontify-anchored-keywords)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5697 (setq font-lock-anchored t))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5698 (setq
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5699 t-font-lock-keywords
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5700 (list
104995
45d111e58a36 * progmodes/cperl-mode.el (cperl-init-faces): Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 104544
diff changeset
5701 `("[ \t]+$" 0 ',cperl-invalid-face t)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5702 (cons
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5703 (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5704 "\\(^\\|[^$@%&\\]\\)\\<\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5705 (mapconcat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5706 'identity
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5707 '("if" "until" "while" "elsif" "else" "unless" "for"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5708 "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
5709 "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
5710 "require" "package" "eval" "my" "BEGIN" "END" "CHECK" "INIT")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5711 "\\|") ; Flow control
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5712 "\\)\\>") 2) ; was "\\)[ \n\t;():,\|&]"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5713 ; In what follows we use `type' style
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5714 ; for overwritable builtins
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5715 (list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5716 (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5717 "\\(^\\|[^$@%&\\]\\)\\<\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5718 ;; "CORE" "__FILE__" "__LINE__" "abs" "accept" "alarm"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5719 ;; "and" "atan2" "bind" "binmode" "bless" "caller"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5720 ;; "chdir" "chmod" "chown" "chr" "chroot" "close"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5721 ;; "closedir" "cmp" "connect" "continue" "cos" "crypt"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5722 ;; "dbmclose" "dbmopen" "die" "dump" "endgrent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5723 ;; "endhostent" "endnetent" "endprotoent" "endpwent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5724 ;; "endservent" "eof" "eq" "exec" "exit" "exp" "fcntl"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5725 ;; "fileno" "flock" "fork" "formline" "ge" "getc"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5726 ;; "getgrent" "getgrgid" "getgrnam" "gethostbyaddr"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5727 ;; "gethostbyname" "gethostent" "getlogin"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5728 ;; "getnetbyaddr" "getnetbyname" "getnetent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5729 ;; "getpeername" "getpgrp" "getppid" "getpriority"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5730 ;; "getprotobyname" "getprotobynumber" "getprotoent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5731 ;; "getpwent" "getpwnam" "getpwuid" "getservbyname"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5732 ;; "getservbyport" "getservent" "getsockname"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5733 ;; "getsockopt" "glob" "gmtime" "gt" "hex" "index" "int"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5734 ;; "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
5735 ;; "link" "listen" "localtime" "lock" "log" "lstat" "lt"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5736 ;; "mkdir" "msgctl" "msgget" "msgrcv" "msgsnd" "ne"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5737 ;; "not" "oct" "open" "opendir" "or" "ord" "pack" "pipe"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5738 ;; "quotemeta" "rand" "read" "readdir" "readline"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5739 ;; "readlink" "readpipe" "recv" "ref" "rename" "require"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5740 ;; "reset" "reverse" "rewinddir" "rindex" "rmdir" "seek"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5741 ;; "seekdir" "select" "semctl" "semget" "semop" "send"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5742 ;; "setgrent" "sethostent" "setnetent" "setpgrp"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5743 ;; "setpriority" "setprotoent" "setpwent" "setservent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5744 ;; "setsockopt" "shmctl" "shmget" "shmread" "shmwrite"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5745 ;; "shutdown" "sin" "sleep" "socket" "socketpair"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5746 ;; "sprintf" "sqrt" "srand" "stat" "substr" "symlink"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5747 ;; "syscall" "sysopen" "sysread" "system" "syswrite" "tell"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5748 ;; "telldir" "time" "times" "truncate" "uc" "ucfirst"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5749 ;; "umask" "unlink" "unpack" "utime" "values" "vec"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5750 ;; "wait" "waitpid" "wantarray" "warn" "write" "x" "xor"
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5751 "a\\(bs\\|ccept\\|tan2\\|larm\\|nd\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5752 "b\\(in\\(d\\|mode\\)\\|less\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5753 "c\\(h\\(r\\(\\|oot\\)\\|dir\\|mod\\|own\\)\\|aller\\|rypt\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5754 "lose\\(\\|dir\\)\\|mp\\|o\\(s\\|n\\(tinue\\|nect\\)\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5755 "CORE\\|d\\(ie\\|bm\\(close\\|open\\)\\|ump\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5756 "e\\(x\\(p\\|it\\|ec\\)\\|q\\|nd\\(p\\(rotoent\\|went\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5757 "hostent\\|servent\\|netent\\|grent\\)\\|of\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5758 "f\\(ileno\\|cntl\\|lock\\|or\\(k\\|mline\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5759 "g\\(t\\|lob\\|mtime\\|e\\(\\|t\\(p\\(pid\\|r\\(iority\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5760 "oto\\(byn\\(ame\\|umber\\)\\|ent\\)\\)\\|eername\\|w"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5761 "\\(uid\\|ent\\|nam\\)\\|grp\\)\\|host\\(by\\(addr\\|name\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5762 "ent\\)\\|s\\(erv\\(by\\(port\\|name\\)\\|ent\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5763 "ock\\(name\\|opt\\)\\)\\|c\\|login\\|net\\(by\\(addr\\|name\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5764 "ent\\)\\|gr\\(ent\\|nam\\|gid\\)\\)\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5765 "hex\\|i\\(n\\(t\\|dex\\)\\|octl\\)\\|join\\|kill\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5766 "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
5767 "\\(\\|ngth\\)\\|o\\(c\\(altime\\|k\\)\\|g\\)\\)\\|m\\(sg\\(rcv\\|snd\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5768 "ctl\\|get\\)\\|kdir\\)\\|n\\(e\\|ot\\)\\|o\\(pen\\(\\|dir\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5769 "r\\(\\|d\\)\\|ct\\)\\|p\\(ipe\\|ack\\)\\|quotemeta\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5770 "r\\(index\\|and\\|mdir\\|e\\(quire\\|ad\\(pipe\\|\\|lin"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5771 "\\(k\\|e\\)\\|dir\\)\\|set\\|cv\\|verse\\|f\\|winddir\\|name"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5772 "\\)\\)\\|s\\(printf\\|qrt\\|rand\\|tat\\|ubstr\\|e\\(t\\(p\\(r"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5773 "\\(iority\\|otoent\\)\\|went\\|grp\\)\\|hostent\\|s\\(ervent\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5774 "ockopt\\)\\|netent\\|grent\\)\\|ek\\(\\|dir\\)\\|lect\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5775 "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
5776 "write\\|get\\)\\)\\|y\\(s\\(read\\|call\\|open\\|tem\\|write\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5777 "mlink\\)\\|in\\|leep\\|ocket\\(pair\\|\\)\\)\\|t\\(runcate\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5778 "ell\\(\\|dir\\)\\|ime\\(\\|s\\)\\)\\|u\\(c\\(\\|first\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5779 "time\\|mask\\|n\\(pack\\|link\\)\\)\\|v\\(alues\\|ec\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5780 "w\\(a\\(rn\\|it\\(pid\\|\\)\\|ntarray\\)\\|rite\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5781 "x\\(\\|or\\)\\|__\\(FILE__\\|LINE__\\|PACKAGE__\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5782 "\\)\\>") 2 'font-lock-type-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5783 ;; In what follows we use `other' style
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5784 ;; for nonoverwritable builtins
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5785 ;; Somehow 's', 'm' are not auto-generated???
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5786 (list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5787 (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5788 "\\(^\\|[^$@%&\\]\\)\\<\\("
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5789 ;; "AUTOLOAD" "BEGIN" "CHECK" "DESTROY" "END" "INIT" "__END__" "chomp"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5790 ;; "chop" "defined" "delete" "do" "each" "else" "elsif"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5791 ;; "eval" "exists" "for" "foreach" "format" "goto"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5792 ;; "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
5793 ;; "no" "our" "package" "pop" "pos" "print" "printf" "push"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5794 ;; "q" "qq" "qw" "qx" "redo" "return" "scalar" "shift"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5795 ;; "sort" "splice" "split" "study" "sub" "tie" "tr"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5796 ;; "undef" "unless" "unshift" "untie" "until" "use"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5797 ;; "while" "y"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5798 "AUTOLOAD\\|BEGIN\\|CHECK\\|cho\\(p\\|mp\\)\\|d\\(e\\(fined\\|lete\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5799 "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
5800 "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
5801 "l\\(ast\\|ocal\\)\\|m\\(ap\\|y\\)\\|n\\(ext\\|o\\)\\|our\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5802 "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
5803 "q\\(\\|q\\|w\\|x\\|r\\)\\|re\\(turn\\|do\\)\\|s\\(pli\\(ce\\|t\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5804 "calar\\|tudy\\|ub\\|hift\\|ort\\)\\|t\\(r\\|ie\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5805 "u\\(se\\|n\\(shift\\|ti\\(l\\|e\\)\\|def\\|less\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5806 "while\\|y\\|__\\(END\\|DATA\\)__" ;__DATA__ added manually
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5807 "\\|[sm]" ; Added manually
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5808 "\\)\\>") 2 'cperl-nonoverridable-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5809 ;; (mapconcat 'identity
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5810 ;; '("#endif" "#else" "#ifdef" "#ifndef" "#if"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5811 ;; "#include" "#define" "#undef")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5812 ;; "\\|")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5813 '("-[rwxoRWXOezsfdlpSbctugkTBMAC]\\>\\([ \t]+_\\>\\)?" 0
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5814 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
5815 ;; This highlights declarations and definitions differenty.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5816 ;; 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
5817 ;; 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
5818 (list (concat "\\<sub"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5819 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
5820 "\\([^ \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
5821 "\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5822 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
5823 "([^()]*)\\)?" ; prototype
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5824 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
5825 "[{;]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5826 2 (if cperl-font-lock-multiline
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5827 '(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
5828 'font-lock-function-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5829 'font-lock-variable-name-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5830 ;; 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
5831 '(progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5832 (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
5833 (match-end 0)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5834 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5835 (+ 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
5836 'syntax-type 'multiline))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5837 (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
5838 'font-lock-function-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5839 'font-lock-variable-name-face))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5840 '("\\<\\(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
5841 2 font-lock-function-name-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5842 '("^[ \t]*format[ \t]+\\([a-zA-z_][a-zA-z_0-9:]*\\)[ \t]*=[ \t]*$"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5843 1 font-lock-function-name-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5844 (cond ((featurep 'font-lock-extra)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5845 '("\\([]}\\\\%@>*&]\\|\\$[a-zA-Z0-9_:]*\\)[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5846 (2 font-lock-string-face t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5847 (0 '(restart 2 t)))) ; To highlight $a{bc}{ef}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5848 (font-lock-anchored
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5849 '("\\([]}\\\\%@>*&]\\|\\$[a-zA-Z0-9_:]*\\)[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5850 (2 font-lock-string-face t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5851 ("\\=[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5852 nil nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5853 (1 font-lock-string-face t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5854 (t '("\\([]}\\\\%@>*&]\\|\\$[a-zA-Z0-9_:]*\\)[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5855 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
5856 '("[\[ \t{,(]\\(-?[a-zA-Z0-9_:]+\\)[ \t]*=>" 1
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5857 font-lock-string-face t)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5858 '("^[ \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
5859 font-lock-constant-face) ; labels
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5860 '("\\<\\(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
5861 2 font-lock-constant-face)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5862 ;; Uncomment to get perl-mode-like vars
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5863 ;;; '("[$*]{?\\(\\sw+\\)" 1 font-lock-variable-name-face)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5864 ;;; '("\\([@%]\\|\\$#\\)\\(\\sw+\\)"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5865 ;;; (2 (cons font-lock-variable-name-face '(underline))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5866 (cond ((featurep 'font-lock-extra)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5867 '("^[ \t]*\\(my\\|local\\|our\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)\\([ \t]*,\\)?"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5868 (3 font-lock-variable-name-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5869 (4 '(another 4 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5870 ("\\=[ \t]*,[ \t]*\\([$@%*][a-zA-Z0-9_:]+\\)\\([ \t]*,\\)?"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5871 (1 font-lock-variable-name-face)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5872 (2 '(restart 2 nil) nil t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5873 nil t))) ; local variables, multiple
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5874 (font-lock-anchored
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5875 ;; 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
5876 `(,(concat "\\<\\(my\\|local\\|our\\)"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5877 cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5878 "\\(("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5879 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
5880 "\\)?\\([$@%*]\\([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
5881 (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
5882 'font-lock-variable-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5883 '(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
5884 (match-beginning 0))
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5885 'font-lock-variable-name-face)))
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5886 (,(concat "\\="
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5887 cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5888 ","
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5889 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
5890 "\\([$@%*]\\([a-zA-Z0-9_:]+\\|[^a-zA-Z0-9_]\\)\\)")
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
5891 ;; 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
5892 ;; 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
5893 ;; 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
5894 ,(if cperl-font-lock-multiline
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5895 '(if (match-beginning 3)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5896 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5897 (goto-char (match-beginning 3))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5898 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5899 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5900 (error
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5901 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5902 (forward-char 200)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5903 (error nil)))) ; typeahead
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5904 (1- (point))) ; report limit
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5905 (forward-char -2)) ; disable continued expr
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5906 '(if (match-beginning 3)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5907 (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
5908 (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
5909 ,(if cperl-font-lock-multiline
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5910 nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5911 '(progn ; Do at end
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5912 ;; "my" may be already fontified (POD),
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5913 ;; 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
5914 (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
5915 (> 2 (count-lines
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5916 cperl-font-lock-multiline-start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5917 (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5918 nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5919 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5920 (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
5921 'syntax-type 'multiline))
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5922 (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
5923 (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
5924 (t '("^[ \t{}]*\\(my\\|local\\|our\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5925 3 font-lock-variable-name-face)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5926 '("\\<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
5927 4 font-lock-variable-name-face)
62085
7dbe52d92117 Avoid $! for font-lock-negation-char-face.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62081
diff changeset
5928 ;; 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
5929 '("\\(?:^\\|[^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
5930 '("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
5931 (setq
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5932 t-font-lock-keywords-1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5933 (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
5934 ;; 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
5935 (or
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
5936 (not (featurep 'xemacs))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5937 (string< "21.1.9" emacs-version)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5938 (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
5939 (string< emacs-version "21.1.2")))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5940 '(
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5941 ("\\(\\([@%]\\|\$#\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)" 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5942 (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
5943 'cperl-hash-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5944 'cperl-array-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5945 t) ; arrays and hashes
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5946 ("\\(\\([$@]+\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)[ \t]*\\([[{]\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5947 1
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5948 (if (= (- (match-end 2) (match-beginning 2)) 1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5949 (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
5950 'cperl-hash-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5951 'cperl-array-face) ; arrays and hashes
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5952 font-lock-variable-name-face) ; Just to put something
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5953 t)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5954 ("\\(@\\|\\$#\\)\\(\\$+\\([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
5955 (1 cperl-array-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5956 (2 font-lock-variable-name-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5957 ("\\(%\\)\\(\\$+\\([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
5958 (1 cperl-hash-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5959 (2 font-lock-variable-name-face))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5960 ;;("\\([smy]\\|tr\\)\\([^a-z_A-Z0-9]\\)\\(\\([^\n\\]*||\\)\\)\\2")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5961 ;;; 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
5962 ;;("\\(\\<\\([msy]\\|tr\\)[ \t]*\\([^ \t\na-zA-Z0-9_]\\)\\|\\(/\\)\\)"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5963 ;;(3 font-lock-function-name-face t t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5964 ;;(4
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5965 ;; (if (cperl-slash-is-regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5966 ;; font-lock-function-name-face 'default) nil t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5967 )))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5968 (if cperl-highlight-variables-indiscriminately
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5969 (setq t-font-lock-keywords-1
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5970 (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
5971 (list '("\\([$*]{?\\sw+\\)" 1
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5972 font-lock-variable-name-face)))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
5973 (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
5974 (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
5975 (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
5976 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
5977 t-font-lock-keywords)
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5978 cperl-font-lock-keywords cperl-font-lock-keywords-1
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5979 cperl-font-lock-keywords-2 (append
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5980 cperl-font-lock-keywords-1
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5981 t-font-lock-keywords-1)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5982 (if (fboundp 'ps-print-buffer) (cperl-ps-print-init))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5983 (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
5984 (eval ; Avoid a warning
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5985 '(font-lock-require-faces
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5986 (list
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5987 ;; 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
5988 (list 'font-lock-comment-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5989 ["Firebrick" "OrangeRed" "DimGray" "Gray80"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5990 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5991 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5992 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5993 nil)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5994 (list 'font-lock-string-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5995 ["RosyBrown" "LightSalmon" "Gray50" "LightGray"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5996 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5997 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5998 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5999 nil)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6000 (list 'font-lock-function-name-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6001 (vector
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6002 "Blue" "LightSkyBlue" "Gray50" "LightGray"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6003 (cdr (assq 'background-color ; if mono
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6004 (frame-parameters))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6005 (vector
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6006 nil nil nil nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6007 (cdr (assq 'foreground-color ; if mono
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6008 (frame-parameters))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6009 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6010 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6011 nil)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6012 (list 'font-lock-variable-name-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6013 ["DarkGoldenrod" "LightGoldenrod" "DimGray" "Gray90"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6014 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6015 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6016 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6017 nil)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6018 (list 'font-lock-type-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6019 ["DarkOliveGreen" "PaleGreen" "DimGray" "Gray80"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6020 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6021 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6022 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6023 [nil nil t t t])
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6024 (list 'font-lock-warning-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6025 ["Pink" "Red" "Gray50" "LightGray"]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6026 ["gray20" "gray90"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6027 "gray80" "gray20"]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6028 [nil nil t t t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6029 nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6030 [nil nil t t t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6031 )
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6032 (list 'font-lock-constant-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6033 ["CadetBlue" "Aquamarine" "Gray50" "LightGray"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6034 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6035 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6036 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6037 [nil nil t t t])
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6038 (list 'cperl-nonoverridable-face
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6039 ["chartreuse3" ("orchid1" "orange")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6040 nil "Gray80"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6041 [nil nil "gray90"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6042 [nil nil nil t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6043 [nil nil t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6044 [nil nil t t t])
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6045 (list 'cperl-array-face
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6046 ["blue" "yellow" nil "Gray80"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6047 ["lightyellow2" ("navy" "os2blue" "darkgreen")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6048 "gray90"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6049 t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6050 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6051 nil)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6052 (list 'cperl-hash-face
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6053 ["red" "red" nil "Gray80"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6054 ["lightyellow2" ("navy" "os2blue" "darkgreen")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6055 "gray90"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6056 t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6057 t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6058 nil))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6059 ;; Do it the dull way, without choose-color
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6060 (defvar cperl-guessed-background nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6061 "Display characteristics as guessed by cperl.")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6062 ;; (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
6063 ;; (defalias 'x-color-defined-p
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6064 ;; (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
6065 ;; ;; XEmacs >= 19.12
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6066 ;; ((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
6067 ;; ;; XEmacs 19.11
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6068 ;; (t 'x-valid-color-name-p))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6069 (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
6070 "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
6071 (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
6072 "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
6073 (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
6074 "Face for data types")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6075 (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
6076 "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
6077 (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
6078 "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
6079 (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
6080 "Face for comments")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6081 (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
6082 "Face for function names")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6083 (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
6084 "Face for hashes")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6085 (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
6086 "Face for arrays")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6087 ;;(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
6088 ;;(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
6089 ;;(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
6090 ;; (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
6091 ;; '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
6092 ;; "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
6093 ;;(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
6094 ;; (defconst cperl-nonoverridable-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6095 ;; '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
6096 ;; "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
6097 ;;(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
6098 ;; (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
6099 ;; (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
6100 ;; '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
6101 ;; "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
6102 ;; (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
6103 ;; (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
6104 ;; '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
6105 ;; "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
6106 ;; (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
6107 ;; (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
6108 ;; '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
6109 ;; "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
6110 (if (and
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6111 (not (cperl-is-face 'cperl-array-face))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6112 (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
6113 (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
6114 (if (and
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6115 (not (cperl-is-face 'cperl-hash-face))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6116 (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
6117 (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
6118 (if (and
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6119 (not (cperl-is-face 'cperl-nonoverridable-face))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6120 (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
6121 (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
6122 ;;(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
6123 ;; (defconst cperl-hash-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6124 ;; '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
6125 ;; "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
6126 ;;(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
6127 ;; (defconst cperl-array-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6128 ;; '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
6129 ;; "Face to use for arrays."))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6130 ;; Here we try to guess background
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6131 (let ((background
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6132 (if (boundp 'font-lock-background-mode)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6133 font-lock-background-mode
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6134 'light))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6135 (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
6136 ;;;; (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
6137 ;;;; (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
6138 ;;;; (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
6139 ;;;; (face-list
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6140 ;;;; (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
6141 ;;;; (t
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6142 ;;;; (function (lambda (face) (boundp face))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6143 (defvar cperl-guessed-background
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6144 (if (and (boundp 'font-lock-display-type)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6145 (eq font-lock-display-type 'grayscale))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6146 'gray
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6147 background)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6148 "Background as guessed by CPerl mode")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6149 (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
6150 (cperl-is-face 'font-lock-reference-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6151 (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
6152 (if (cperl-is-face 'font-lock-type-face) nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6153 (copy-face 'default 'font-lock-type-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6154 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6155 ((eq background 'light)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6156 (set-face-foreground 'font-lock-type-face
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6157 (if (x-color-defined-p "seagreen")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6158 "seagreen"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6159 "sea green")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6160 ((eq background 'dark)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6161 (set-face-foreground 'font-lock-type-face
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6162 (if (x-color-defined-p "os2pink")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6163 "os2pink"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6164 "pink")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6165 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6166 (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
6167 (if (cperl-is-face 'cperl-nonoverridable-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6168 nil
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6169 (copy-face 'font-lock-type-face 'cperl-nonoverridable-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6170 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6171 ((eq background 'light)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6172 (set-face-foreground 'cperl-nonoverridable-face
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6173 (if (x-color-defined-p "chartreuse3")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6174 "chartreuse3"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6175 "chartreuse")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6176 ((eq background 'dark)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6177 (set-face-foreground 'cperl-nonoverridable-face
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6178 (if (x-color-defined-p "orchid1")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6179 "orchid1"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6180 "orange")))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6181 ;;; (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
6182 ;;; (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
6183 ;;; (cond
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6184 ;;; ((eq background 'light)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6185 ;;; (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
6186 ;;; (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
6187 ;;; "lightyellow2"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6188 ;;; (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
6189 ;;; "lightyellow"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6190 ;;; "light yellow"))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6191 ;;; ((eq background 'dark)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6192 ;;; (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
6193 ;;; (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
6194 ;;; "navy"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6195 ;;; (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
6196 ;;; "darkgreen"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6197 ;;; "dark green"))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6198 ;;; (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
6199 ;;; (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
6200 ;;; (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
6201 ;;; (cond
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6202 ;;; ((eq background 'light)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6203 ;;; (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
6204 ;;; (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
6205 ;;; "lightyellow2"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6206 ;;; "lightyellow")))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6207 ;;; ((eq background 'dark)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6208 ;;; (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
6209 ;;; (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
6210 ;;; "navy"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6211 ;;; (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
6212 ;;; "darkgreen"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6213 ;;; "dark green"))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6214 ;;; (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
6215 (if (cperl-is-face 'font-lock-variable-name-face) nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6216 (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
6217 (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
6218 (copy-face 'italic 'font-lock-constant-face))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6219 (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
6220 (error (message "cperl-init-faces (ignored): %s" errs))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6221
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6222
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6223 (defun cperl-ps-print-init ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6224 "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
6225 (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
6226 '(setq ps-bold-faces
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6227 ;; 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
6228 ;; font-lock-constant-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6229 (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
6230 ps-bold-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6231 ps-italic-faces
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6232 ;; font-lock-constant-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6233 (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
6234 ps-italic-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6235 ps-underlined-faces
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6236 ;; font-lock-type-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6237 (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
6238 ps-underlined-faces))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6239
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6240 (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
6241
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6242 (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
6243 "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
6244 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
6245 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
6246
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6247 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
6248 (interactive)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6249 (or file
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6250 (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
6251 "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
6252 (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
6253 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
6254 (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
6255 (setq file nil))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6256 (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
6257 (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
6258 (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
6259 (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
6260 (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
6261
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6262 ;;; (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
6263 ;;; "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
6264 ;;; ;; 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
6265 ;;; (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
6266 ;;; (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
6267 ;;; (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
6268 ;;; (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
6269 ;;; (append '(font-lock-emphasized-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6270 ;;; cperl-array-face
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6271 ;;; font-lock-keyword-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6272 ;;; font-lock-variable-name-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6273 ;;; font-lock-constant-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6274 ;;; 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
6275 ;;; font-lock-other-emphasized-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6276 ;;; 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
6277 ;;; ps-bold-faces))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6278 ;;; (setq ps-italic-faces
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6279 ;;; (append '(cperl-nonoverridable-face
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6280 ;;; font-lock-constant-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6281 ;;; 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
6282 ;;; font-lock-other-emphasized-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6283 ;;; 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
6284 ;;; ps-italic-faces))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6285 ;;; (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
6286 ;;; (append '(font-lock-emphasized-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6287 ;;; 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
6288 ;;; font-lock-other-emphasized-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6289 ;;; cperl-hash-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6290 ;;; 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
6291 ;;; ps-underlined-faces))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6292 ;;; (cons 'font-lock-type-face ps-underlined-faces))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6293
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6294
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6295 (if (cperl-enable-font-lock) (cperl-windowed-init))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6296
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6297 (defconst cperl-styles-entries
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6298 '(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
6299 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
6300 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
6301 cperl-merge-trailing-else
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6302 cperl-continued-statement-offset))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6303
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6304 (defconst cperl-style-examples
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6305 "##### 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
6306 ##### 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
6307 ##### cperl-continued-statement-offset
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6308 ##### 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
6309
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6310 ########### (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
6311
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6312 ### 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
6313 if (foo) {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6314 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6315 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6316 label:
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 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6319 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6320 } else {
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 ### 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
6325 if (foo) {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6326 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6327 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6328 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6329 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6330 boon;
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 } else {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6333 stop;
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
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6336 ### 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
6337 if (foo)
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 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6340 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6341 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6342 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6343 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6344 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6345 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6346 else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6347 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6348 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6349 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6350
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6351 ### 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
6352 if (foo)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6353 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6354 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6355 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6356 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6357 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6358 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6359 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6360 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6361 else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6362 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6363 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6364 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6365
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6366 ### 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
6367 ### 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
6368 if (foo)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6369 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6370 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6371 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6372 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6373 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6374 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6375 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6376 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6377 else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6378 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6379 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6380 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6381
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6382 ### 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
6383 ### 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
6384 if (foo)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6385 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6386 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6387 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6388 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6389 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6390 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6391 }
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 else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6394 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6395 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6396 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6397
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6398 ### 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
6399 ### 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
6400 if (foo)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6401 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6402 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6403 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6404 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6405 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6406 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6407 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6408 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6409 else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6410 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6411 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6412 }
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 "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
6415
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6416 (defconst cperl-style-alist
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6417 '(("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
6418 (cperl-indent-level . 2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6419 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6420 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6421 (cperl-label-offset . -2)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6422 (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
6423 (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
6424 (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
6425 (cperl-merge-trailing-else . t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6426
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6427 ("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
6428 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6429 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6430 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6431 (cperl-label-offset . -4)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6432 (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
6433 (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
6434 (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
6435 (cperl-merge-trailing-else . t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6436
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6437 ("GNU"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6438 (cperl-indent-level . 2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6439 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6440 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6441 (cperl-label-offset . -2)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6442 (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
6443 (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
6444 (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
6445 (cperl-merge-trailing-else . nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6446
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6447 ("K&R"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6448 (cperl-indent-level . 5)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6449 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6450 (cperl-continued-brace-offset . -5)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6451 (cperl-label-offset . -5)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6452 (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
6453 ;;(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
6454 ;;(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
6455 (cperl-merge-trailing-else . nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6456
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6457 ("BSD"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6458 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6459 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6460 (cperl-continued-brace-offset . -4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6461 (cperl-label-offset . -4)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6462 (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
6463 ;;(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
6464 ;;(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
6465 ;;(cperl-merge-trailing-else . nil) ; ???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6466 )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6467
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6468 ("C++"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6469 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6470 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6471 (cperl-continued-brace-offset . -4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6472 (cperl-label-offset . -4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6473 (cperl-continued-statement-offset . 4)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6474 (cperl-extra-newline-before-brace . t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6475 (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
6476 (cperl-merge-trailing-else . nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6477
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6478 ("Whitesmith"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6479 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6480 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6481 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6482 (cperl-label-offset . -4)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6483 (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
6484 ;;(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
6485 ;;(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
6486 ;;(cperl-merge-trailing-else . nil) ; ???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6487 )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6488 ("Current"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6489 "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
6490 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
6491
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6492 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
6493
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6494 (defun cperl-set-style (style)
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
6495 "Set CPerl mode variables to use one of several different indentation styles.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6496 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
6497 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
6498 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
6499
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6500 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
6501 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
6502
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6503 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
6504 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
6505 (interactive
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
6506 (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
6507 cperl-style-alist)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6508 (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
6509 (or cperl-old-style
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6510 (setq cperl-old-style
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6511 (mapcar (function
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6512 (lambda (name)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6513 (cons name (eval name))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6514 cperl-styles-entries)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6515 (let ((style (cdr (assoc style cperl-style-alist))) setting str sym)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6516 (while style
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6517 (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
6518 (set (car setting) (cdr setting)))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6519
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6520 (defun cperl-set-style-back ()
63518
475955d58ad4 (cperl-set-style-back): Fix spelling in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 63460
diff changeset
6521 "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
6522 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6523 (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
6524 (let (setting)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6525 (while cperl-old-style
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6526 (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
6527 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
6528 (set (car setting) (cdr setting)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6529
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6530 (defun cperl-check-syntax ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6531 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6532 (require 'mode-compile)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6533 (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
6534 (eval '(mode-compile)))) ; Avoid a warning
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6535
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6536 (defun cperl-info-buffer (type)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6537 ;; Returns buffer with documentation. Creates if missing.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6538 ;; If TYPE, this vars buffer.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6539 ;; Special care is taken to not stomp over an existing info buffer
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6540 (let* ((bname (if type "*info-perl-var*" "*info-perl*"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6541 (info (get-buffer bname))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6542 (oldbuf (get-buffer "*info*")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6543 (if info info
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6544 (save-window-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6545 ;; Get Info running
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6546 (require 'info)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6547 (cond (oldbuf
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6548 (set-buffer oldbuf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6549 (rename-buffer "*info-perl-tmp*")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6550 (save-window-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6551 (info))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6552 (Info-find-node cperl-info-page (if type "perlvar" "perlfunc"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6553 (set-buffer "*info*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6554 (rename-buffer bname)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6555 (cond (oldbuf
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6556 (set-buffer "*info-perl-tmp*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6557 (rename-buffer "*info*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6558 (set-buffer bname)))
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
6559 (make-local-variable 'window-min-height)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6560 (setq window-min-height 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6561 (current-buffer)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6562
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6563 (defun cperl-word-at-point (&optional p)
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
6564 "Return the word at point or at P."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6565 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6566 (if p (goto-char p))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6567 (or (cperl-word-at-point-hard)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6568 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6569 (require 'etags)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6570 (funcall (or (and (boundp 'find-tag-default-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6571 find-tag-default-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6572 (get major-mode 'find-tag-default-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6573 ;; XEmacs 19.12 has `find-tag-default-hook'; it is
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6574 ;; automatically used within `find-tag-default':
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6575 'find-tag-default))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6576
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6577 (defun cperl-info-on-command (command)
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
6578 "Show documentation for Perl command COMMAND in other window.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6579 If perl-info buffer is shown in some frame, uses this frame.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6580 Customized by setting variables `cperl-shrink-wrap-info-frame',
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6581 `cperl-max-help-size'."
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6582 (interactive
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6583 (let* ((default (cperl-word-at-point))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6584 (read (read-string
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6585 (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
6586 default))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6587 (list (if (equal read "")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6588 default
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6589 read))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6590
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6591 (let ((buffer (current-buffer))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6592 (cmd-desc (concat "^" (regexp-quote command) "[^a-zA-Z_0-9]")) ; "tr///"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6593 pos isvar height iniheight frheight buf win fr1 fr2 iniwin not-loner
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6594 max-height char-height buf-list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6595 (if (string-match "^-[a-zA-Z]$" command)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6596 (setq cmd-desc "^-X[ \t\n]"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6597 (setq isvar (string-match "^[$@%]" command)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6598 buf (cperl-info-buffer isvar)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6599 iniwin (selected-window)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6600 fr1 (window-frame iniwin))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6601 (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
6602 (goto-char (point-min))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6603 (or isvar
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6604 (progn (re-search-forward "^-X[ \t\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6605 (forward-line -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6606 (if (re-search-forward cmd-desc nil t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6607 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6608 ;; Go back to beginning of the group (ex, for qq)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6609 (if (re-search-backward "^[ \t\n\f]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6610 (forward-line 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6611 (beginning-of-line)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6612 ;; Get some of
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6613 (setq pos (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6614 buf-list (list buf "*info-perl-var*" "*info-perl*"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6615 (while (and (not win) buf-list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6616 (setq win (get-buffer-window (car buf-list) t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6617 (setq buf-list (cdr buf-list)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6618 (or (not win)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6619 (eq (window-buffer win) buf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6620 (set-window-buffer win buf))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6621 (and win (setq fr2 (window-frame win)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6622 (if (or (not fr2) (eq fr1 fr2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6623 (pop-to-buffer buf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6624 (special-display-popup-frame buf) ; Make it visible
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6625 (select-window win))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6626 (goto-char pos) ; Needed (?!).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6627 ;; Resize
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6628 (setq iniheight (window-height)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6629 frheight (frame-height)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6630 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
6631 (cond ((if not-loner cperl-max-help-size
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6632 cperl-shrink-wrap-info-frame)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6633 (setq height
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6634 (+ 2
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6635 (count-lines
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6636 pos
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6637 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6638 (if (re-search-forward
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6639 "^[ \t][^\n]*\n+\\([^ \t\n\f]\\|\\'\\)" nil t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6640 (match-beginning 0) (point-max)))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6641 max-height
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6642 (if not-loner
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6643 (/ (* (- frheight 3) cperl-max-help-size) 100)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6644 (setq char-height (frame-char-height))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6645 ;; Non-functioning under OS/2:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6646 (if (eq char-height 1) (setq char-height 18))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6647 ;; 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
6648 (- (/ (display-pixel-height) char-height) 4)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6649 (if (> height max-height) (setq height max-height))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6650 ;;(message "was %s doing %s" iniheight height)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6651 (if not-loner
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6652 (enlarge-window (- height iniheight))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6653 (set-frame-height (window-frame win) (1+ height)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6654 (set-window-start (selected-window) pos))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6655 (message "No entry for %s found." command))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6656 ;;(pop-to-buffer buffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6657 (select-window iniwin)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6658
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6659 (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
6660 "Show documentation for Perl command at point in other window."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6661 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6662 (cperl-info-on-command (cperl-word-at-point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6663
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6664 (defun cperl-imenu-info-imenu-search ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6665 (if (looking-at "^-X[ \t\n]") nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6666 (re-search-backward
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6667 "^\n\\([-a-zA-Z_]+\\)[ \t\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6668 (forward-line 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6669
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6670 (defun cperl-imenu-info-imenu-name ()
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6671 (buffer-substring
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6672 (match-beginning 1) (match-end 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6673
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6674 (defun cperl-imenu-on-info ()
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6675 "Shows imenu for Perl Info Buffer.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6676 Opens Perl Info buffer if needed."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6677 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6678 (let* ((buffer (current-buffer))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6679 imenu-create-index-function
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6680 imenu-prev-index-position-function
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6681 imenu-extract-index-name-function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6682 (index-item (save-restriction
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6683 (save-window-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6684 (set-buffer (cperl-info-buffer nil))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6685 (setq imenu-create-index-function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6686 'imenu-default-create-index-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6687 imenu-prev-index-position-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6688 'cperl-imenu-info-imenu-search
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6689 imenu-extract-index-name-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6690 'cperl-imenu-info-imenu-name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6691 (imenu-choose-buffer-index)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6692 (and index-item
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6693 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6694 (push-mark)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6695 (pop-to-buffer "*info-perl*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6696 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6697 ((markerp (cdr index-item))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6698 (goto-char (marker-position (cdr index-item))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6699 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6700 (goto-char (cdr index-item))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6701 (set-window-start (selected-window) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6702 (pop-to-buffer buffer)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6703
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6704 (defun cperl-lineup (beg end &optional step minshift)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6705 "Lineup construction in a region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6706 Beginning of region should be at the start of a construction.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6707 All first occurrences of this construction in the lines that are
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6708 partially contained in the region are lined up at the same column.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6709
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6710 MINSHIFT is the minimal amount of space to insert before the construction.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6711 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
6712 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
6713 \(or `cperl-indent-level', if `cperl-lineup-step' is nil).
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6714 Will not move the position at the start to the left."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6715 (interactive "r")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6716 (let (search col tcol seen b)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6717 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6718 (goto-char end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6719 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6720 (setq end (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6721 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6722 (skip-chars-forward " \t\f")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6723 (setq beg (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6724 (indent-region beg end nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6725 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6726 (setq col (current-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6727 (if (looking-at "[a-zA-Z0-9_]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6728 (if (looking-at "\\<[a-zA-Z0-9_]+\\>")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6729 (setq search
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6730 (concat "\\<"
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6731 (regexp-quote
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6732 (buffer-substring (match-beginning 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6733 (match-end 0))) "\\>"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6734 (error "Cannot line up in a middle of the word"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6735 (if (looking-at "$")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6736 (error "Cannot line up end of line"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6737 (setq search (regexp-quote (char-to-string (following-char)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6738 (setq step (or step cperl-lineup-step cperl-indent-level))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6739 (or minshift (setq minshift 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6740 (while (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6741 (beginning-of-line 2)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6742 (and (< (point) end)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6743 (re-search-forward search end t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6744 (goto-char (match-beginning 0))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6745 (setq tcol (current-column) seen t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6746 (if (> tcol col) (setq col tcol)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6747 (or seen
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6748 (error "The construction to line up occurred only once"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6749 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6750 (setq col (+ col minshift))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6751 (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
6752 (while
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6753 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6754 (cperl-make-indent col)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6755 (beginning-of-line 2)
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6756 (and (< (point) end)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6757 (re-search-forward search end t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6758 (goto-char (match-beginning 0)))))))) ; No body
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6759
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6760 (defun cperl-etags (&optional add all files) ;; NOT USED???
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6761 "Run etags with appropriate options for Perl files.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6762 If optional argument ALL is `recursive', will process Perl files
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6763 in subdirectories too."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6764 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6765 (let ((cmd "etags")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6766 (args '("-l" "none" "-r"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6767 ;; 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
6768 "/\\<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
6769 "-r"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6770 "/\\<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
6771 "-r"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6772 "/\\<\\(package\\)[ \\t]*;/\\1;/"))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6773 res)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6774 (if add (setq args (cons "-a" args)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6775 (or files (setq files (list buffer-file-name)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6776 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6777 ((eq all 'recursive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6778 ;;(error "Not implemented: recursive")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6779 (setq args (append (list "-e"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6780 "sub wanted {push @ARGV, $File::Find::name if /\\.[pP][Llm]$/}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6781 use File::Find;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6782 find(\\&wanted, '.');
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6783 exec @ARGV;"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6784 cmd) args)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6785 cmd "perl"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6786 (all
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6787 ;;(error "Not implemented: all")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6788 (setq args (append (list "-e"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6789 "push @ARGV, <*.PL *.pl *.pm>;
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6790 exec @ARGV;"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6791 cmd) args)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6792 cmd "perl"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6793 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6794 (setq args (append args files))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6795 (setq res (apply 'call-process cmd nil nil nil args))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6796 (or (eq res 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6797 (message "etags returned \"%s\"" res))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6798
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6799 (defun cperl-toggle-auto-newline ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6800 "Toggle the state of `cperl-auto-newline'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6801 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6802 (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
6803 (message "Newlines will %sbe auto-inserted now."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6804 (if cperl-auto-newline "" "not ")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6805
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6806 (defun cperl-toggle-abbrev ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6807 "Toggle the state of automatic keyword expansion in CPerl mode."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6808 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6809 (abbrev-mode (if abbrev-mode 0 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6810 (message "Perl control structure will %sbe auto-inserted now."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6811 (if abbrev-mode "" "not ")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6812
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6813
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6814 (defun cperl-toggle-electric ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6815 "Toggle the state of parentheses doubling in CPerl mode."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6816 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6817 (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
6818 (message "Parentheses will %sbe auto-doubled now."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6819 (if (cperl-val 'cperl-electric-parens) "" "not ")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6820
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6821 (defun cperl-toggle-autohelp ()
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
6822 "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
6823 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
6824 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6825 (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
6826 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6827 (if cperl-lazy-installed
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
6828 (cperl-lazy-unstall)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6829 (cperl-lazy-install))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6830 (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
6831 (if cperl-lazy-installed "" "not ")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6832 (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
6833
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6834 (defun cperl-toggle-construct-fix ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6835 "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
6836 (interactive)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6837 (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
6838 (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
6839 nil
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6840 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6841 (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
6842 (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
6843
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6844 (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
6845 "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
6846 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
6847 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
6848
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6849 The message looks like this:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6850
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6851 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
6852
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6853 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
6854 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
6855 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
6856 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
6857 by CPerl."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6858 (interactive "P")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6859 (or arg
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
6860 (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
6861 (if backtrace 'backtrace 'message)) 0 1)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6862 (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
6863 (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
6864 (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
6865 (if (eq arg t) "dis" "en")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6866
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6867 ;;;; Tags file creation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6868
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6869 (defvar cperl-tmp-buffer " *cperl-tmp*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6870
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6871 (defun cperl-setup-tmp-buf ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6872 (set-buffer (get-buffer-create cperl-tmp-buffer))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6873 (set-syntax-table cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6874 (buffer-disable-undo)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6875 (auto-fill-mode 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6876 (if cperl-use-syntax-table-text-property-for-tags
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6877 (progn
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
6878 (make-local-variable 'parse-sexp-lookup-properties)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6879 ;; Do not introduce variable if not needed, we check it!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6880 (set 'parse-sexp-lookup-properties t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6881
104544
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
6882 ;; Copied from imenu-example--name-and-position.
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
6883 (defvar imenu-use-markers)
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
6884
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
6885 (defun cperl-imenu-name-and-position ()
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
6886 "Return the current/previous sexp and its (beginning) location.
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
6887 Does not move point."
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
6888 (save-excursion
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
6889 (forward-sexp -1)
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
6890 (let ((beg (if imenu-use-markers (point-marker) (point)))
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
6891 (end (progn (forward-sexp) (point))))
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
6892 (cons (buffer-substring beg end)
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
6893 beg))))
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
6894
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6895 (defun cperl-xsub-scan ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6896 (require 'imenu)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6897 (let ((index-alist '())
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6898 (prev-pos 0) index index1 name package prefix)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6899 (goto-char (point-min))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6900 ;; Search for the function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6901 (progn ;;save-match-data
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6902 (while (re-search-forward
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6903 "^\\([ \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
6904 nil t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6905 (cond
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6906 ((match-beginning 2) ; SECTION
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6907 (setq package (buffer-substring (match-beginning 2) (match-end 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6908 (goto-char (match-beginning 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6909 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6910 (forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6911 (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
6912 (setq prefix (buffer-substring (match-beginning 1) (match-end 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6913 (setq prefix nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6914 ((not package) nil) ; C language section
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6915 ((match-beginning 3) ; XSUB
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6916 (goto-char (1+ (match-beginning 3)))
104544
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
6917 (setq index (cperl-imenu-name-and-position))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6918 (setq name (buffer-substring (match-beginning 3) (match-end 3)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6919 (if (and prefix (string-match (concat "^" prefix) name))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6920 (setq name (substring name (length prefix))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6921 (cond ((string-match "::" name) nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6922 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6923 (setq index1 (cons (concat package "::" name) (cdr index)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6924 (push index1 index-alist)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6925 (setcar index name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6926 (push index index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6927 (t ; BOOT: section
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6928 ;; (beginning-of-line)
104544
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
6929 (setq index (cperl-imenu-name-and-position))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6930 (setcar index (concat package "::BOOT:"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6931 (push index index-alist)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6932 index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6933
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6934 (defvar cperl-unreadable-ok nil)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6935
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6936 (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
6937 (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
6938 (cperl-pod-here-fontify nil) f file)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6939 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6940 (if b (set-buffer b)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6941 (cperl-setup-tmp-buf))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6942 (erase-buffer)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6943 (condition-case err
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6944 (setq file (car (insert-file-contents ifile)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6945 (error (if cperl-unreadable-ok nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6946 (if (y-or-n-p
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6947 (format "File %s unreadable. Continue? " ifile))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6948 (setq cperl-unreadable-ok t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6949 (error "Aborting: unreadable file %s" ifile)))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
6950 (if (not file)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6951 (message "Unreadable file %s" ifile)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6952 (message "Scanning file %s ..." file)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6953 (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
6954 (not xs))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6955 (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
6956 (cperl-find-pods-heres nil nil noninteractive)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6957 (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
6958 (if xs
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6959 (setq lst (cperl-xsub-scan))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6960 (setq ind (cperl-imenu--create-perl-index))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6961 (setq lst (cdr (assoc "+Unsorted List+..." ind))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6962 (setq lst
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6963 (mapcar
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6964 (function
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6965 (lambda (elt)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6966 (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
6967 (goto-char (cdr elt))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6968 (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
6969 (list (car elt)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6970 (point)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6971 (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
6972 (buffer-substring (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6973 (goto-char (cdr elt))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6974 ;; After name now...
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6975 (or (eolp) (forward-char 1))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6976 (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6977 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6978 (beginning-of-line)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6979 (point))))))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6980 lst))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6981 (erase-buffer)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6982 (while lst
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6983 (setq elt (car lst) lst (cdr lst))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6984 (if elt
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6985 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6986 (insert (elt elt 3)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6987 127
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6988 (if (string-match "^package " (car elt))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6989 (substring (car elt) 8)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6990 (car elt) )
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6991 1
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6992 (number-to-string (elt elt 2)) ; Line
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6993 ","
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6994 (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
6995 "\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6996 (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
6997 (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
6998 (elt elt 3)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6999 ;; 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
7000 (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
7001 (match-beginning 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7002 (match-end 1))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7003 (cdr elt))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7004 lst))))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7005 (setq pos (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7006 (goto-char 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7007 (setq rel file)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7008 ;; 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
7009 (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
7010 (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
7011 (setq rel (substring file (length topdir))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7012 (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
7013 (setq ret (buffer-substring 1 (point-max)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7014 (erase-buffer)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7015 (or noninteractive
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7016 (message "Scanning file %s finished" file))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7017 ret))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7018
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7019 (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
7020 "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
7021 Use as
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7022 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
7023 -f cperl-add-tags-recurse-noxs
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7024 "
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7025 (cperl-write-tags nil nil t t nil t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7026
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7027 (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
7028 "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
7029 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
7030 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
7031 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
7032 -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
7033 "
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7034 (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
7035
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7036 (defun cperl-add-tags-recurse ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7037 "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
7038 Use as
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7039 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
7040 -f cperl-add-tags-recurse
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7041 "
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7042 (cperl-write-tags nil nil t t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7043
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7044 (defun cperl-write-tags (&optional file erase recurse dir inbuffer noxs topdir)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7045 ;; If INBUFFER, do not select buffer, and do not save
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7046 ;; 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
7047 (require 'etags)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7048 (if file nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7049 (setq file (if dir default-directory (buffer-file-name)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7050 (if (and (not dir) (buffer-modified-p)) (error "Save buffer first!")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7051 (or topdir
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7052 (setq topdir default-directory))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7053 (let ((tags-file-name "TAGS")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7054 (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
7055 xs rel tm)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7056 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7057 (cond (inbuffer nil) ; Already there
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7058 ((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
7059 (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
7060 (visit-tags-table-buffer)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7061 (visit-tags-table-buffer tags-file-name)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7062 (t (set-buffer (find-file-noselect tags-file-name))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7063 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7064 (dir
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7065 (cond ((eq erase 'ignore))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7066 (erase
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7067 (erase-buffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7068 (setq erase 'ignore)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
7069 (let ((files
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7070 (condition-case err
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
7071 (directory-files file t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7072 (if recurse nil cperl-scan-files-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7073 t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7074 (error
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7075 (if cperl-unreadable-ok nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7076 (if (y-or-n-p
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7077 (format "Directory %s unreadable. Continue? " file))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
7078 (setq cperl-unreadable-ok t
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7079 tm nil) ; Return empty list
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7080 (error "Aborting: unreadable directory %s" file)))))))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7081 (mapc (function
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7082 (lambda (file)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7083 (cond
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7084 ((string-match cperl-noscan-files-regexp file)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7085 nil)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7086 ((not (file-directory-p file))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7087 (if (string-match cperl-scan-files-regexp file)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7088 (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
7089 ((not recurse) nil)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7090 (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
7091 files)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7092 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7093 (setq xs (string-match "\\.xs$" file))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7094 (if (not (and xs noxs))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7095 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7096 (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
7097 (erase (erase-buffer))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7098 (t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7099 (goto-char 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7100 (setq rel file)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7101 ;; 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
7102 (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
7103 (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
7104 (setq rel (substring file (length topdir))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7105 (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
7106 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7107 (search-backward "\f\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7108 (delete-region (point)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7109 (save-excursion
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7110 (forward-char 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7111 (if (search-forward "\f\n"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7112 nil 'toend)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7113 (- (point) 2)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7114 (point-max)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7115 (goto-char (point-max)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7116 (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
7117 (if inbuffer nil ; Delegate to the caller
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7118 (save-buffer 0) ; No backup
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7119 (if (fboundp 'initialize-new-tags-table) ; Do we need something special in XEmacs?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7120 (initialize-new-tags-table))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7121
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7122 (defvar cperl-tags-hier-regexp-list
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7123 (concat
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7124 "^\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7125 "\\(package\\)\\>"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7126 "\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7127 "sub\\>[^\n]+::"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7128 "\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7129 "[a-zA-Z_][a-zA-Z_0-9:]*(\C-?[^\n]+::" ; XSUB?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7130 "\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7131 "[ \t]*BOOT:\C-?[^\n]+::" ; BOOT section
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7132 "\\)"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7133
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7134 (defvar cperl-hierarchy '(() ())
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
7135 "Global hierarchy of classes.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7136
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7137 (defun cperl-tags-hier-fill ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7138 ;; Suppose we are in a tag table cooked by cperl.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7139 (goto-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7140 (let (type pack name pos line chunk ord cons1 file str info fileind)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7141 (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
7142 (setq pos (match-beginning 0)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7143 pack (match-beginning 2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7144 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7145 (if (looking-at (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7146 "\\([^\n]+\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7147 "\C-?"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7148 "\\([^\n]+\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7149 "\C-a"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7150 "\\([0-9]+\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7151 ","
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7152 "\\([0-9]+\\)"))
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 (setq ;;str (buffer-substring (match-beginning 1) (match-end 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7155 name (buffer-substring (match-beginning 2) (match-end 2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7156 ;;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
7157 line (buffer-substring (match-beginning 3) (match-end 3))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7158 ord (if pack 1 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7159 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
7160 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
7161 ;; 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
7162 info (cperl-etags-snarf-tag file line))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7163 ;; Move back
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7164 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7165 ;; Make new member of hierarchy name ==> file ==> pos if needed
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7166 (if (setq cons1 (assoc name (nth ord cperl-hierarchy)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7167 ;; Name known
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7168 (setcdr cons1 (cons (cons fileind (vector file info))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7169 (cdr cons1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7170 ;; First occurrence of the name, start alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7171 (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
7172 (if pack
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7173 (setcar (cdr cperl-hierarchy)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7174 (cons cons1 (nth 1 cperl-hierarchy)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7175 (setcar cperl-hierarchy
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7176 (cons cons1 (car cperl-hierarchy)))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7177 (end-of-line))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7178
105933
8f110099da5c Update x-popup-menu declaration.
Glenn Morris <rgm@gnu.org>
parents: 105813
diff changeset
7179 (declare-function x-popup-menu "menu.c" (position menu))
97422
6e551caf98f6 Add declarations for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 96459
diff changeset
7180
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7181 (defun cperl-tags-hier-init (&optional update)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7182 "Show hierarchical menu of classes and methods.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7183 Finds info about classes by a scan of loaded TAGS files.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7184 Supposes that the TAGS files contain fully qualified function names.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7185 One may build such TAGS files from CPerl mode menu."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7186 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7187 (require 'etags)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7188 (require 'imenu)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7189 (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
7190 (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
7191 (or (nthcdr 2 elt)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7192 ;; Only in one file
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7193 (setcdr elt (cdr (nth 1 elt)))))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7194 pack name cons1 to l1 l2 l3 l4 b)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7195 ;; (setq cperl-hierarchy '(() () ())) ; Would write into '() later!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7196 (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
7197 (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
7198 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7199 (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
7200 ;; Does this work in XEmacs?
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
7201 (call-interactively 'visit-tags-table))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
7202 (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
7203 (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
7204 (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
7205 (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
7206 (call-interactively 'visit-tags-table))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7207 (mapc
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7208 (function
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7209 (lambda (tagsfile)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7210 (message "Updating list of classes... %s" tagsfile)
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
7211 (set-buffer (get-file-buffer tagsfile))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
7212 (cperl-tags-hier-fill)))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7213 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
7214 (message "Updating list of classes... postprocessing..."))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7215 (mapc remover (car cperl-hierarchy))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7216 (mapc remover (nth 1 cperl-hierarchy))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7217 (setq to (list nil (cons "Packages: " (nth 1 cperl-hierarchy))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7218 (cons "Methods: " (car cperl-hierarchy))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7219 (cperl-tags-treeify to 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7220 (setcar (nthcdr 2 cperl-hierarchy)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7221 (cperl-menu-to-keymap (cons '("+++UPDATE+++" . -999) (cdr to))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7222 (message "Updating list of classes: done, requesting display...")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7223 ;;(cperl-imenu-addback (nth 2 cperl-hierarchy))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7224 ))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7225 (or (nth 2 cperl-hierarchy)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7226 (error "No items found"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7227 (setq update
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7228 ;;; (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
7229 (if (if (fboundp 'display-popup-menus-p)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7230 (let ((f 'display-popup-menus-p))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7231 (funcall f))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7232 window-system)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7233 (x-popup-menu t (nth 2 cperl-hierarchy))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7234 (require 'tmm)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7235 (tmm-prompt (nth 2 cperl-hierarchy))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7236 (if (and update (listp update))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7237 (progn (while (cdr update) (setq update (cdr update)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7238 (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
7239 (if (vectorp update)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7240 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7241 (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
7242 (cperl-etags-goto-tag-location (elt update 1))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7243 (if (eq update -999) (cperl-tags-hier-init t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7244
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7245 (defun cperl-tags-treeify (to level)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7246 ;; 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
7247 (let* ((regexp (concat "^\\(" (mapconcat
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7248 'identity
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7249 (make-list level "[_a-zA-Z0-9]+")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7250 "::")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7251 "\\)\\(::\\)?"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7252 (packages (cdr (nth 1 to)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7253 (methods (cdr (nth 2 to)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7254 l1 head tail cons1 cons2 ord writeto packs recurse
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7255 root-packages root-functions ms many_ms same_name ps
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7256 (move-deeper
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7257 (function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7258 (lambda (elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7259 (cond ((and (string-match regexp (car elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7260 (or (eq ord 1) (match-end 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7261 (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
7262 tail (if (match-end 2) (substring (car elt)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7263 (match-end 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7264 recurse t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7265 (if (setq cons1 (assoc head writeto)) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7266 ;; Need to init new head
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7267 (setcdr writeto (cons (list head (list "Packages: ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7268 (list "Methods: "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7269 (cdr writeto)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7270 (setq cons1 (nth 1 writeto)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7271 (setq cons2 (nth ord cons1)) ; Either packs or meths
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7272 (setcdr cons2 (cons elt (cdr cons2))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7273 ((eq ord 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7274 (setq root-functions (cons elt root-functions)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7275 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7276 (setq root-packages (cons elt root-packages))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7277 (setcdr to l1) ; Init to dynamic space
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7278 (setq writeto to)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7279 (setq ord 1)
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7280 (mapc move-deeper packages)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7281 (setq ord 2)
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7282 (mapc move-deeper methods)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7283 (if recurse
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7284 (mapc (function (lambda (elt)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7285 (cperl-tags-treeify elt (1+ level))))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7286 (cdr to)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7287 ;;Now clean up leaders with one child only
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7288 (mapc (function (lambda (elt)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7289 (if (not (and (listp (cdr elt))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7290 (eq (length elt) 2))) nil
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7291 (setcar elt (car (nth 1 elt)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7292 (setcdr elt (cdr (nth 1 elt))))))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7293 (cdr to))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7294 ;; Sort the roots of subtrees
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7295 (if (default-value 'imenu-sort-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7296 (setcdr to
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7297 (sort (cdr to) (default-value 'imenu-sort-function))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7298 ;; Now add back functions removed from display
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7299 (mapc (function (lambda (elt)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7300 (setcdr to (cons elt (cdr to)))))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7301 (if (default-value 'imenu-sort-function)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7302 (nreverse
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7303 (sort root-functions (default-value 'imenu-sort-function)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7304 root-functions))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7305 ;; Now add back packages removed from display
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7306 (mapc (function (lambda (elt)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7307 (setcdr to (cons (cons (concat "package " (car elt))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7308 (cdr elt))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7309 (cdr to)))))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7310 (if (default-value 'imenu-sort-function)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7311 (nreverse
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7312 (sort root-packages (default-value 'imenu-sort-function)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7313 root-packages))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7314
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7315 ;;;(x-popup-menu t
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7316 ;;; '(keymap "Name1"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7317 ;;; ("Ret1" "aa")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7318 ;;; ("Head1" "ab"
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7319 ;;; keymap "Name2"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7320 ;;; ("Tail1" "x") ("Tail2" "y"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7321
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7322 (defun cperl-list-fold (list name limit)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7323 (let (list1 list2 elt1 (num 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7324 (if (<= (length list) limit) list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7325 (setq list1 nil list2 nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7326 (while list
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7327 (setq num (1+ num)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7328 elt1 (car list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7329 list (cdr list))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7330 (if (<= num imenu-max-items)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7331 (setq list2 (cons elt1 list2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7332 (setq list1 (cons (cons name
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7333 (nreverse list2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7334 list1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7335 list2 (list elt1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7336 num 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7337 (nreverse (cons (cons name
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7338 (nreverse list2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7339 list1)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7340
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7341 (defun cperl-menu-to-keymap (menu &optional name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7342 (let (list)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7343 (cons 'keymap
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7344 (mapcar
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7345 (function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7346 (lambda (elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7347 (cond ((listp (cdr elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7348 (setq list (cperl-list-fold
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7349 (cdr elt) (car elt) imenu-max-items))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7350 (cons nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7351 (cons (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7352 (cperl-menu-to-keymap list))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7353 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7354 (list (cdr elt) (car elt) t))))) ; t is needed in 19.34
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7355 (cperl-list-fold menu "Root" imenu-max-items)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7356
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7357
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7358 (defvar cperl-bad-style-regexp
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7359 (mapconcat 'identity
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7360 '("[^-\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
7361 "[-<>=+^&|]+[^- \t\n=+<>~]") ; sign+ char
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7362 "\\|")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7363 "Finds places such that insertion of a whitespace may help a lot.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7364
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7365 (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
7366 (mapconcat
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7367 'identity
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7368 '("[^-\t <>=+]\\(--\\|\\+\\+\\)" ; var-- var++
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7369 "[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
7370 "&[(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
7371 "<\\$?\\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
7372 "-[a-zA-Z][ \t]+[_$\"'`a-zA-Z]" ; -f file, -t STDIN
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7373 "-[0-9]" ; -5
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7374 "\\+\\+" ; ++var
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7375 "--" ; --var
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7376 ".->" ; a->b
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7377 "->" ; a SPACE ->b
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7378 "\\[-" ; a[-1]
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7379 "\\\\[&$@*\\\\]" ; \&func
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7380 "^=" ; =head
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7381 "\\$." ; $|
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7382 "<<[a-zA-Z_'\"`]" ; <<FOO, <<'FOO'
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7383 "||"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7384 "&&"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7385 "[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
7386 "-[a-zA-Z_0-9]+[ \t]*=>" ; -option => value
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7387 ;; Unaddressed trouble spots: = -abc, f(56, -abc) --- specialcased below
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7388 ;;"[*/+-|&<.]+="
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7389 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7390 "\\|")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7391 "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
7392 insertion of a whitespace will not help.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7393
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7394 (defvar found-bad)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7395
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7396 (defun cperl-find-bad-style ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7397 "Find places in the buffer where insertion of a whitespace may help.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7398 Prompts user for insertion of spaces.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7399 Currently it is tuned to C and Perl syntax."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7400 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7401 (let (found-bad (p (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7402 (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
7403 (goto-char (point-min))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7404 (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
7405 (lambda (arg) (insert " "))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7406 'cperl-next-bad-style
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7407 '("location" "locations" "insert a space into")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7408 '((?\C-r (lambda (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7409 (let ((buffer-quit-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7410 'exit-recursive-edit))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7411 (message "Exit with Esc Esc")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7412 (recursive-edit)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7413 t)) ; Consider acted upon
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7414 "edit, exit with Esc Esc")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7415 (?e (lambda (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7416 (let ((buffer-quit-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7417 'exit-recursive-edit))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7418 (message "Exit with Esc Esc")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7419 (recursive-edit)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7420 t)) ; Consider acted upon
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7421 "edit, exit with Esc Esc"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7422 t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7423 (if found-bad (goto-char found-bad)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7424 (goto-char p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7425 (message "No appropriate place found"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7426
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7427 (defun cperl-next-bad-style ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7428 (let (p (not-found t) (point (point)) found)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7429 (while (and not-found
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7430 (re-search-forward cperl-bad-style-regexp nil 'to-end))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7431 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7432 (goto-char (match-beginning 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7433 (if (or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7434 (looking-at cperl-not-bad-style-regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7435 ;; Check for a < -b and friends
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7436 (and (eq (following-char) ?\-)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7437 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7438 (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
7439 (memq (preceding-char) '(?\= ?\> ?\< ?\, ?\( ?\[ ?\{))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7440 ;; Now check for syntax type
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7441 (save-match-data
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7442 (setq found (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7443 (beginning-of-defun)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7444 (let ((pps (parse-partial-sexp (point) found)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7445 (or (nth 3 pps) (nth 4 pps) (nth 5 pps)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7446 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7447 (goto-char (1- p))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7448 (setq not-found nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7449 found-bad found)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7450 (not not-found)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7451
27248
ae566f9903df Replace ^F with ^L.
Gerd Moellmann <gerd@gnu.org>
parents: 26667
diff changeset
7452
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7453 ;;; Getting help
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7454 (defvar cperl-have-help-regexp
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7455 ;;(concat "\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7456 (mapconcat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7457 'identity
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7458 '("[$@%*&][0-9a-zA-Z_:]+\\([ \t]*[[{]\\)?" ; Usual variable
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7459 "[$@]\\^[a-zA-Z]" ; Special variable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7460 "[$@][^ \n\t]" ; Special variable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7461 "-[a-zA-Z]" ; File test
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7462 "\\\\[a-zA-Z0]" ; Special chars
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7463 "^=[a-z][a-zA-Z0-9_]*" ; POD sections
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7464 "[-!&*+,-./<=>?\\\\^|~]+" ; Operator
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7465 "[a-zA-Z_0-9:]+" ; symbol or number
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7466 "x="
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7467 "#!")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7468 ;;"\\)\\|\\("
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7469 "\\|")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7470 ;;"\\)"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7471 ;;)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7472 "Matches places in the buffer we can find help for.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7473
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7474 (defvar cperl-message-on-help-error t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7475 (defvar cperl-help-from-timer nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7476
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7477 (defun cperl-word-at-point-hard ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7478 ;; Does not save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7479 ;; Get to the something meaningful
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7480 (or (eobp) (eolp) (forward-char 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7481 (re-search-backward "[-a-zA-Z0-9_:!&*+,-./<=>?\\\\^|~$%@]"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7482 (save-excursion (beginning-of-line) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7483 'to-beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7484 ;; (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7485 ;; ((or (eobp) (looking-at "[][ \t\n{}();,]")) ; Not at a symbol
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7486 ;; (skip-chars-backward " \n\t\r({[]});,")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7487 ;; (or (bobp) (backward-char 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7488 ;; Try to backtrace
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7489 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7490 ((looking-at "[a-zA-Z0-9_:]") ; symbol
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7491 (skip-chars-backward "a-zA-Z0-9_:")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7492 (cond
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7493 ((and (eq (preceding-char) ?^) ; $^I
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7494 (eq (char-after (- (point) 2)) ?\$))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7495 (forward-char -2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7496 ((memq (preceding-char) (append "*$@%&\\" nil)) ; *glob
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7497 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7498 ((and (eq (preceding-char) ?\=)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7499 (eq (current-column) 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7500 (forward-char -1))) ; =head1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7501 (if (and (eq (preceding-char) ?\<)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7502 (looking-at "\\$?[a-zA-Z0-9_:]+>")) ; <FH>
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7503 (forward-char -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7504 ((and (looking-at "=") (eq (preceding-char) ?x)) ; x=
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7505 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7506 ((and (looking-at "\\^") (eq (preceding-char) ?\$)) ; $^I
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7507 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7508 ((looking-at "[-!&*+,-./<=>?\\\\^|~]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7509 (skip-chars-backward "-!&*+,-./<=>?\\\\^|~")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7510 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7511 ((and (eq (preceding-char) ?\$)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7512 (not (eq (char-after (- (point) 2)) ?\$))) ; $-
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7513 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7514 ((and (eq (following-char) ?\>)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7515 (string-match "[a-zA-Z0-9_]" (char-to-string (preceding-char)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7516 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7517 (forward-sexp -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7518 (and (eq (preceding-char) ?\<)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7519 (looking-at "\\$?[a-zA-Z0-9_:]+>")))) ; <FH>
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7520 (search-backward "<"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7521 ((and (eq (following-char) ?\$)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7522 (eq (preceding-char) ?\<)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7523 (looking-at "\\$?[a-zA-Z0-9_:]+>")) ; <$fh>
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7524 (forward-char -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7525 (if (looking-at cperl-have-help-regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7526 (buffer-substring (match-beginning 0) (match-end 0))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7527
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7528 (defun cperl-get-help ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7529 "Get one-line docs on the symbol at the point.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7530 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
7531 than a line. Your contribution to update/shorten it is appreciated."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7532 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7533 (save-match-data ; May be called "inside" query-replace
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7534 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7535 (let ((word (cperl-word-at-point-hard)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7536 (if word
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7537 (if (and cperl-help-from-timer ; Bail out if not in mainland
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7538 (not (string-match "^#!\\|\\\\\\|^=" word)) ; Show help even in comments/strings.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7539 (or (memq (get-text-property (point) 'face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7540 '(font-lock-comment-face font-lock-string-face))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7541 (memq (get-text-property (point) 'syntax-type)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7542 '(pod here-doc format))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7543 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7544 (cperl-describe-perl-symbol word))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7545 (if cperl-message-on-help-error
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7546 (message "Nothing found for %s..."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7547 (buffer-substring (point) (min (+ 5 (point)) (point-max))))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7548
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7549 ;;; Stolen from perl-descr.el by Johan Vromans:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7550
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7551 (defvar cperl-doc-buffer " *perl-doc*"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7552 "Where the documentation can be found.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7553
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7554 (defun cperl-describe-perl-symbol (val)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7555 "Display the documentation of symbol at point, a Perl operator."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7556 (let ((enable-recursive-minibuffers t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7557 args-file regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7558 (cond
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7559 ((string-match "^[&*][a-zA-Z_]" val)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7560 (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
7561 ((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
7562 (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
7563 ((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
7564 (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
7565 ((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
7566 (setq val "x="))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7567 ((string-match "^\\$[\C-a-\C-z]" val)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7568 (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
7569 ((string-match "^CORE::" val)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7570 (setq val "CORE::"))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7571 ((string-match "^SUPER::" val)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7572 (setq val "SUPER::"))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7573 ((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
7574 (setq val "<NAME>")))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7575 (setq regexp (concat "^"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7576 "\\([^a-zA-Z0-9_:]+[ \t]+\\)?"
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7577 (regexp-quote val)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7578 "\\([ \t([/]\\|$\\)"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7579
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7580 ;; get the buffer with the documentation text
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7581 (cperl-switch-to-doc-buffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7582
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7583 ;; lookup in the doc
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7584 (goto-char (point-min))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7585 (let ((case-fold-search nil))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7586 (list
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7587 (if (re-search-forward regexp (point-max) t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7588 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7589 (beginning-of-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7590 (let ((lnstart (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7591 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7592 (message "%s" (buffer-substring lnstart (point)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7593 (if cperl-message-on-help-error
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7594 (message "No definition for %s" val)))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7595
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7596 (defvar cperl-short-docs 'please-ignore-this-line
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7597 ;; Perl4 version was written by Johan Vromans (jvromans@squirrel.nl)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7598 "# 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
7599 ... 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
7600 ! ... Logical negation.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7601 ... != ... Numeric inequality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7602 ... !~ ... Search pattern, substitution, or translation (negated).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7603 $! In numeric context: errno. In a string context: error string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7604 $\" 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
7605 $# The output format for printed numbers. Default is %.15g or close.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7606 $$ Process number of this script. Changes in the fork()ed child process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7607 $% The current page number of the currently selected output channel.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7608
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7609 The following variables are always local to the current block:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7610
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7611 $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
7612 $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
7613 $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
7614 $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
7615 $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
7616 $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
7617 $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
7618 $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
7619 $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
7620 $& The string matched by the last pattern match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7621 $' The string after what was matched by the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7622 $` The string before what was matched by the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7623
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7624 $( The real gid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7625 $) The effective gid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7626 $* Deprecated: Set to 1 to do multiline matching within a string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7627 $+ The last bracket matched by the last search pattern.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7628 $, The output field separator for the print operator.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7629 $- The number of lines left on the page.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7630 $. The current input line number of the last filehandle that was read.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7631 $/ 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
7632 $0 Name of the file containing the current perl script (read/write).
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7633 $: String may be broken after these characters to fill ^-lines in a format.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7634 $; Subscript separator for multi-dim array emulation. Default \"\\034\".
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7635 $< The real uid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7636 $= The page length of the current output channel. Default is 60 lines.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7637 $> The effective uid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7638 $? The status returned by the last ``, pipe close or `system'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7639 $@ The perl error message from the last eval or do @var{EXPR} command.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7640 $ARGV The name of the current file used with <> .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7641 $[ Deprecated: The index of the first element/char in an array/string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7642 $\\ The output record separator for the print operator.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7643 $] The perl version string as displayed with perl -v.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7644 $^ The name of the current top-of-page format.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7645 $^A The current value of the write() accumulator for format() lines.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7646 $^D The value of the perl debug (-D) flags.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7647 $^E Information about the last system error other than that provided by $!.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7648 $^F The highest system file descriptor, ordinarily 2.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7649 $^H The current set of syntax checks enabled by `use strict'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7650 $^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
7651 $^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
7652 $^M A buffer for emergency memory allocation when running out of memory.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7653 $^O The operating system name under which this copy of Perl was built.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7654 $^P Internal debugging flag.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7655 $^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
7656 $^W True if warnings are requested (perl -w flag).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7657 $^X The name under which perl was invoked (argv[0] in C-speech).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7658 $_ The default input and pattern-searching space.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7659 $| Auto-flush after write/print on current output channel? Default 0.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7660 $~ The name of the current report format.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7661 ... % ... Modulo division.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7662 ... %= ... Modulo division assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7663 %ENV Contains the current environment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7664 %INC List of files that have been require-d or do-ne.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7665 %SIG Used to set signal handlers for various signals.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7666 ... & ... Bitwise and.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7667 ... && ... Logical and.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7668 ... &&= ... Logical and assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7669 ... &= ... Bitwise and assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7670 ... * ... Multiplication.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7671 ... ** ... Exponentiation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7672 *NAME Glob: all objects refered by NAME. *NAM1 = *NAM2 aliases NAM1 to NAM2.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7673 &NAME(arg0, ...) Subroutine call. Arguments go to @_.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7674 ... + ... Addition. +EXPR Makes EXPR into scalar context.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7675 ++ Auto-increment (magical on strings). ++EXPR EXPR++
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7676 ... += ... Addition assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7677 , Comma operator.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7678 ... - ... Subtraction.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7679 -- Auto-decrement (NOT magical on strings). --EXPR EXPR--
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7680 ... -= ... Subtraction assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7681 -A Access time in days since script started.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7682 -B File is a non-text (binary) file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7683 -C Inode change time in days since script started.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7684 -M Age in days since script started.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7685 -O File is owned by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7686 -R File is readable by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7687 -S File is a socket .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7688 -T File is a text file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7689 -W File is writable by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7690 -X File is executable by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7691 -b File is a block special file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7692 -c File is a character special file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7693 -d File is a directory.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7694 -e File exists .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7695 -f File is a plain file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7696 -g File has setgid bit set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7697 -k File has sticky bit set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7698 -l File is a symbolic link.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7699 -o File is owned by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7700 -p File is a named pipe (FIFO).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7701 -r File is readable by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7702 -s File has non-zero size.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7703 -t Tests if filehandle (STDIN by default) is opened to a tty.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7704 -u File has setuid bit set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7705 -w File is writable by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7706 -x File is executable by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7707 -z File has zero size.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7708 . Concatenate strings.
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
7709 .. Range (list context); flip/flop (scalar context) operator.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7710 .= Concatenate assignment strings
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7711 ... / ... Division. /PATTERN/ioxsmg Pattern match
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7712 ... /= ... Division assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7713 /PATTERN/ioxsmg Pattern match.
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
7714 ... < ... Numeric less than. <pattern> Glob. See <NAME>, <> as well.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7715 <NAME> Reads line from filehandle NAME (a bareword or dollar-bareword).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7716 <pattern> Glob (Unless pattern is bareword/dollar-bareword - see <NAME>).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7717 <> Reads line from union of files in @ARGV (= command line) and STDIN.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7718 ... << ... Bitwise shift left. << start of HERE-DOCUMENT.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7719 ... <= ... Numeric less than or equal to.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7720 ... <=> ... Numeric compare.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7721 ... = ... Assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7722 ... == ... Numeric equality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7723 ... =~ ... Search pattern, substitution, or translation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7724 ... > ... Numeric greater than.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7725 ... >= ... Numeric greater than or equal to.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7726 ... >> ... Bitwise shift right.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7727 ... >>= ... Bitwise shift right assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7728 ... ? ... : ... Condition=if-then-else operator. ?PAT? One-time pattern match.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7729 ?PATTERN? One-time pattern match.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7730 @ARGV Command line arguments (not including the command name - see $0).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7731 @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
7732 @_ 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
7733 \\ 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
7734 \\0 Octal char, e.g. \\033.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7735 \\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
7736 \\L Lowercase until \\E . See also \\l, lc.
7293b63aa3ba (cperl-short-docs): Fix quoting
Andreas Schwab <schwab@suse.de>
parents: 68773
diff changeset
7737 \\U Upcase until \\E . See also \\u, uc.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7738 \\Q Quote metacharacters until \\E . See also quotemeta.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7739 \\a Alarm character (octal 007).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7740 \\b Backspace character (octal 010).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7741 \\c Control character, e.g. \\c[ .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7742 \\e Escape character (octal 033).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7743 \\f Formfeed character (octal 014).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7744 \\l Lowercase the next character. See also \\L and \\u, lcfirst.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7745 \\n Newline character (octal 012 on most systems).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7746 \\r Return character (octal 015 on most systems).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7747 \\t Tab character (octal 011).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7748 \\u Upcase the next character. See also \\U and \\l, ucfirst.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7749 \\x Hex character, e.g. \\x1b.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7750 ... ^ ... Bitwise exclusive or.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7751 __END__ Ends program source.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7752 __DATA__ Ends program source.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7753 __FILE__ Current (source) filename.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7754 __LINE__ Current line in current source.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7755 __PACKAGE__ Current package.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7756 ARGV Default multi-file input filehandle. <ARGV> is a synonym for <>.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7757 ARGVOUT Output filehandle with -i flag.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7758 BEGIN { ... } Immediately executed (during compilation) piece of code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7759 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
7760 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
7761 INIT { ... } Pseudo-subroutine executed before the script starts running.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7762 DATA Input filehandle for what follows after __END__ or __DATA__.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7763 accept(NEWSOCKET,GENERICSOCKET)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7764 alarm(SECONDS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7765 atan2(X,Y)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7766 bind(SOCKET,NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7767 binmode(FILEHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7768 caller[(LEVEL)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7769 chdir(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7770 chmod(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7771 chop[(LIST|VAR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7772 chown(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7773 chroot(FILENAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7774 close(FILEHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7775 closedir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7776 ... cmp ... String compare.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7777 connect(SOCKET,NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7778 continue of { block } continue { block }. Is executed after `next' or at end.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7779 cos(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7780 crypt(PLAINTEXT,SALT)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7781 dbmclose(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7782 dbmopen(%HASH,DBNAME,MODE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7783 defined(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7784 delete($HASH{KEY})
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7785 die(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7786 do { ... }|SUBR while|until EXPR executes at least once
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7787 do(EXPR|SUBR([LIST])) (with while|until executes at least once)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7788 dump LABEL
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7789 each(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7790 endgrent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7791 endhostent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7792 endnetent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7793 endprotoent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7794 endpwent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7795 endservent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7796 eof[([FILEHANDLE])]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7797 ... eq ... String equality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7798 eval(EXPR) or eval { BLOCK }
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7799 exec([TRUENAME] ARGV0, ARGVs) or exec(SHELL_COMMAND_LINE)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7800 exit(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7801 exp(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7802 fcntl(FILEHANDLE,FUNCTION,SCALAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7803 fileno(FILEHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7804 flock(FILEHANDLE,OPERATION)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7805 for (EXPR;EXPR;EXPR) { ... }
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7806 foreach [VAR] (@ARRAY) { ... }
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7807 fork
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7808 ... ge ... String greater than or equal.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7809 getc[(FILEHANDLE)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7810 getgrent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7811 getgrgid(GID)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7812 getgrnam(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7813 gethostbyaddr(ADDR,ADDRTYPE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7814 gethostbyname(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7815 gethostent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7816 getlogin
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7817 getnetbyaddr(ADDR,ADDRTYPE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7818 getnetbyname(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7819 getnetent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7820 getpeername(SOCKET)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7821 getpgrp(PID)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7822 getppid
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7823 getpriority(WHICH,WHO)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7824 getprotobyname(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7825 getprotobynumber(NUMBER)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7826 getprotoent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7827 getpwent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7828 getpwnam(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7829 getpwuid(UID)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7830 getservbyname(NAME,PROTO)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7831 getservbyport(PORT,PROTO)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7832 getservent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7833 getsockname(SOCKET)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7834 getsockopt(SOCKET,LEVEL,OPTNAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7835 gmtime(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7836 goto LABEL
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7837 ... gt ... String greater than.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7838 hex(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7839 if (EXPR) { ... } [ elsif (EXPR) { ... } ... ] [ else { ... } ] or EXPR if EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7840 index(STR,SUBSTR[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7841 int(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7842 ioctl(FILEHANDLE,FUNCTION,SCALAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7843 join(EXPR,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7844 keys(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7845 kill(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7846 last [LABEL]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7847 ... le ... String less than or equal.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7848 length(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7849 link(OLDFILE,NEWFILE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7850 listen(SOCKET,QUEUESIZE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7851 local(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7852 localtime(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7853 log(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7854 lstat(EXPR|FILEHANDLE|VAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7855 ... lt ... String less than.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7856 m/PATTERN/iogsmx
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7857 mkdir(FILENAME,MODE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7858 msgctl(ID,CMD,ARG)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7859 msgget(KEY,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7860 msgrcv(ID,VAR,SIZE,TYPE.FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7861 msgsnd(ID,MSG,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7862 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
7863 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
7864 ... ne ... String inequality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7865 next [LABEL]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7866 oct(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7867 open(FILEHANDLE[,EXPR])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7868 opendir(DIRHANDLE,EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7869 ord(EXPR) ASCII value of the first char of the string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7870 pack(TEMPLATE,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7871 package NAME Introduces package context.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7872 pipe(READHANDLE,WRITEHANDLE) Create a pair of filehandles on ends of a pipe.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7873 pop(ARRAY)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7874 print [FILEHANDLE] [(LIST)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7875 printf [FILEHANDLE] (FORMAT,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7876 push(ARRAY,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7877 q/STRING/ Synonym for 'STRING'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7878 qq/STRING/ Synonym for \"STRING\"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7879 qx/STRING/ Synonym for `STRING`
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7880 rand[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7881 read(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7882 readdir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7883 readlink(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7884 recv(SOCKET,SCALAR,LEN,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7885 redo [LABEL]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7886 rename(OLDNAME,NEWNAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7887 require [FILENAME | PERL_VERSION]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7888 reset[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7889 return(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7890 reverse(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7891 rewinddir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7892 rindex(STR,SUBSTR[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7893 rmdir(FILENAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7894 s/PATTERN/REPLACEMENT/gieoxsm
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7895 scalar(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7896 seek(FILEHANDLE,POSITION,WHENCE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7897 seekdir(DIRHANDLE,POS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7898 select(FILEHANDLE | RBITS,WBITS,EBITS,TIMEOUT)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7899 semctl(ID,SEMNUM,CMD,ARG)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7900 semget(KEY,NSEMS,SIZE,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7901 semop(KEY,...)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7902 send(SOCKET,MSG,FLAGS[,TO])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7903 setgrent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7904 sethostent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7905 setnetent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7906 setpgrp(PID,PGRP)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7907 setpriority(WHICH,WHO,PRIORITY)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7908 setprotoent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7909 setpwent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7910 setservent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7911 setsockopt(SOCKET,LEVEL,OPTNAME,OPTVAL)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7912 shift[(ARRAY)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7913 shmctl(ID,CMD,ARG)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7914 shmget(KEY,SIZE,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7915 shmread(ID,VAR,POS,SIZE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7916 shmwrite(ID,STRING,POS,SIZE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7917 shutdown(SOCKET,HOW)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7918 sin(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7919 sleep[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7920 socket(SOCKET,DOMAIN,TYPE,PROTOCOL)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7921 socketpair(SOCKET1,SOCKET2,DOMAIN,TYPE,PROTOCOL)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7922 sort [SUBROUTINE] (LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7923 splice(ARRAY,OFFSET[,LENGTH[,LIST]])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7924 split[(/PATTERN/[,EXPR[,LIMIT]])]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7925 sprintf(FORMAT,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7926 sqrt(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7927 srand(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7928 stat(EXPR|FILEHANDLE|VAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7929 study[(SCALAR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7930 sub [NAME [(format)]] { BODY } sub NAME [(format)]; sub [(format)] {...}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7931 substr(EXPR,OFFSET[,LEN])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7932 symlink(OLDFILE,NEWFILE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7933 syscall(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7934 sysread(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7935 system([TRUENAME] ARGV0 [,ARGV]) or system(SHELL_COMMAND_LINE)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7936 syswrite(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7937 tell[(FILEHANDLE)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7938 telldir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7939 time
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7940 times
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7941 tr/SEARCHLIST/REPLACEMENTLIST/cds
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7942 truncate(FILE|EXPR,LENGTH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7943 umask[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7944 undef[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7945 unless (EXPR) { ... } [ else { ... } ] or EXPR unless EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7946 unlink(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7947 unpack(TEMPLATE,EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7948 unshift(ARRAY,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7949 until (EXPR) { ... } EXPR until EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7950 utime(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7951 values(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7952 vec(EXPR,OFFSET,BITS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7953 wait
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7954 waitpid(PID,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7955 wantarray Returns true if the sub/eval is called in list context.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7956 warn(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7957 while (EXPR) { ... } EXPR while EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7958 write[(EXPR|FILEHANDLE)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7959 ... x ... Repeat string or array.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7960 x= ... Repetition assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7961 y/SEARCHLIST/REPLACEMENTLIST/
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7962 ... | ... Bitwise or.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7963 ... || ... Logical or.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7964 ~ ... Unary bitwise complement.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7965 #! OS interpreter indicator. If contains `perl', used for options, and -x.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7966 AUTOLOAD {...} Shorthand for `sub AUTOLOAD {...}'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7967 CORE:: Prefix to access builtin function if imported sub obscures it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7968 SUPER:: Prefix to lookup for a method in @ISA classes.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7969 DESTROY Shorthand for `sub DESTROY {...}'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7970 ... EQ ... Obsolete synonym of `eq'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7971 ... GE ... Obsolete synonym of `ge'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7972 ... GT ... Obsolete synonym of `gt'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7973 ... LE ... Obsolete synonym of `le'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7974 ... LT ... Obsolete synonym of `lt'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7975 ... NE ... Obsolete synonym of `ne'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7976 abs [ EXPR ] absolute value
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7977 ... and ... Low-precedence synonym for &&.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7978 bless REFERENCE [, PACKAGE] Makes reference into an object of a package.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7979 chomp [LIST] Strips $/ off LIST/$_. Returns count. Special if $/ eq ''!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7980 chr Converts a number to char with the same ordinal.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7981 else Part of if/unless {BLOCK} elsif {BLOCK} else {BLOCK}.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7982 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
7983 exists $HASH{KEY} True if the key exists.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7984 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
7985 formline PICTURE, LIST Backdoor into \"format\" processing.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7986 glob EXPR Synonym of <EXPR>.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7987 lc [ EXPR ] Returns lowercased EXPR.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7988 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
7989 grep EXPR,LIST or grep {BLOCK} LIST Filters LIST via EXPR/BLOCK.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7990 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
7991 no PACKAGE [SYMBOL1, ...] Partial reverse for `use'. Runs `unimport' method.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7992 not ... Low-precedence synonym for ! - negation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7993 ... or ... Low-precedence synonym for ||.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7994 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
7995 quotemeta [ EXPR ] Quote regexp metacharacters.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7996 qw/WORD1 .../ Synonym of split('', 'WORD1 ...')
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7997 readline FH Synonym of <FH>.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7998 readpipe CMD Synonym of `CMD`.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7999 ref [ EXPR ] Type of EXPR when dereferenced.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8000 sysopen FH, FILENAME, MODE [, PERM] (MODE is numeric, see Fcntl.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8001 tie VAR, PACKAGE, LIST Hide an object behind a simple Perl variable.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8002 tied Returns internal object for a tied data.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8003 uc [ EXPR ] Returns upcased EXPR.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8004 ucfirst [ EXPR ] Returns EXPR with upcased first letter.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8005 untie VAR Unlink an object from a simple Perl variable.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8006 use PACKAGE [SYMBOL1, ...] Compile-time `require' with consequent `import'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8007 ... xor ... Low-precedence synonym for exclusive or.
71304
7293b63aa3ba (cperl-short-docs): Fix quoting
Andreas Schwab <schwab@suse.de>
parents: 68773
diff changeset
8008 prototype \\&SUB Returns prototype of the function given a reference.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8009 =head1 Top-level heading.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8010 =head2 Second-level heading.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8011 =head3 Third-level heading (is there such?).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8012 =over [ NUMBER ] Start list.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8013 =item [ TITLE ] Start new item in the list.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8014 =back End list.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8015 =cut Switch from POD to Perl.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8016 =pod Switch from Perl to POD.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8017 ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8018
57823
d77a1264b555 (cperl-switch-to-doc-buffer): Don't use interactive-p.
Richard M. Stallman <rms@gnu.org>
parents: 56377
diff changeset
8019 (defun cperl-switch-to-doc-buffer (&optional interactive)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8020 "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
8021 (interactive "p")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8022 (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
8023 (if interactive
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8024 (switch-to-buffer-other-window buf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8025 (set-buffer buf))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8026 (if (= (buffer-size) 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8027 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8028 (insert (documentation-property 'cperl-short-docs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8029 'variable-documentation))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8030 (setq buffer-read-only t)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8031
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8032 (defun cperl-beautify-regexp-piece (b e embed level)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8033 ;; b is before the starting delimiter, e before the ending
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8034 ;; 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
8035 ;; 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
8036 ;; 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
8037 ;; 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
8038 ;; 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
8039 (let (s c tmp (m (make-marker)) (m1 (make-marker)) c1 spaces inline code pos)
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8040 (if embed
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8041 (progn
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8042 (goto-char b)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8043 (setq c (if (eq embed t) (current-indentation) (current-column)))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8044 (cond ((looking-at "(\\?\\\\#") ; (?#) wrongly commented when //x-ing
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8045 (forward-char 2)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8046 (delete-char 1)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8047 (forward-char 1))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8048 ((looking-at "(\\?[^a-zA-Z]")
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8049 (forward-char 3))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8050 ((looking-at "(\\?") ; (?i)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8051 (forward-char 2))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8052 (t
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8053 (forward-char 1))))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8054 (goto-char (1+ b))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8055 (setq c (1- (current-column))))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8056 (setq c1 (+ c (or cperl-regexp-indent-step cperl-indent-level)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8057 (or (looking-at "[ \t]*[\n#]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8058 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8059 (insert "\n")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8060 (goto-char e)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8061 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8062 (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
8063 (progn ; Something before the ending delimiter
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8064 (goto-char e)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8065 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8066 (insert "\n")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8067 (cperl-make-indent c)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8068 (set-marker e (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8069 (goto-char b)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8070 (end-of-line 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8071 (while (< (point) (marker-position e))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8072 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8073 (setq s (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8074 inline t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8075 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8076 (delete-region s (point))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8077 (cperl-make-indent c1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8078 (while (and
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8079 inline
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8080 (looking-at
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8081 (concat "\\([a-zA-Z0-9]+[^*+{?]\\)" ; 1 word
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8082 "\\|" ; Embedded variable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8083 "\\$\\([a-zA-Z0-9_]+\\([[{]\\)?\\|[^\n \t)|]\\)" ; 2 3
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8084 "\\|" ; $ ^
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8085 "[$^]"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8086 "\\|" ; simple-code simple-code*?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8087 "\\(\\\\.\\|[^][()#|*+?\n]\\)\\([*+{?]\\??\\)?" ; 4 5
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8088 "\\|" ; Class
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8089 "\\(\\[\\)" ; 6
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8090 "\\|" ; Grouping
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8091 "\\((\\(\\?\\)?\\)" ; 7 8
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8092 "\\|" ; |
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8093 "\\(|\\)"))) ; 9
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8094 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8095 (setq spaces t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8096 (cond ((match-beginning 1) ; Alphanum word + junk
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8097 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8098 ((or (match-beginning 3) ; $ab[12]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8099 (and (match-beginning 5) ; X* X+ X{2,3}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8100 (eq (preceding-char) ?\{)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8101 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8102 (forward-sexp 1))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8103 ((and ; [], already syntaxified
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8104 (match-beginning 6)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8105 cperl-regexp-scan
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8106 cperl-use-syntax-table-text-property)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8107 (forward-char -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8108 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8109 (or (eq (preceding-char) ?\])
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8110 (error "[]-group not terminated"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8111 (re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8112 "\\=\\([*+?]\\|{[0-9]+\\(,[0-9]*\\)?}\\)\\??" e t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8113 ((match-beginning 6) ; []
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8114 (setq tmp (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8115 (if (looking-at "\\^?\\]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8116 (goto-char (match-end 0)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8117 ;; XXXX POSIX classes?!
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8118 (while (and (not pos)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8119 (re-search-forward "\\[:\\|\\]" e t))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8120 (if (eq (preceding-char) ?:)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8121 (or (re-search-forward ":\\]" e t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8122 (error "[:POSIX:]-group in []-group not terminated"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8123 (setq pos t)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8124 (or (eq (preceding-char) ?\])
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8125 (error "[]-group not terminated"))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8126 (re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8127 "\\=\\([*+?]\\|{[0-9]+\\(,[0-9]*\\)?}\\)\\??" e t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8128 ((match-beginning 7) ; ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8129 (goto-char (match-beginning 0))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8130 (setq pos (current-column))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8131 (or (eq pos c1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8132 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8133 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8134 (insert "\n")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8135 (cperl-make-indent c1)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8136 (setq tmp (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8137 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8138 ;; (or (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8139 ;; (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8140 ;; (goto-char tmp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8141 ;; (error "()-group not terminated")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8142 (set-marker m (1- (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8143 (set-marker m1 (point))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8144 (if (= level 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8145 (if (progn ; indent rigidly if multiline
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
8146 ;; 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
8147 ;; 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
8148 ;; to insertion of "\n" and " "
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8149 (goto-char tmp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8150 (search-forward "\n" m1 t))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8151 (indent-rigidly (point) m1 (- c1 pos)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8152 (setq level (1- level))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8153 (cond
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8154 ((not (match-beginning 8))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8155 (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
8156 ((eq (char-after (+ 2 tmp)) ?\{) ; Code
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8157 t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8158 ((eq (char-after (+ 2 tmp)) ?\() ; Conditional
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8159 (goto-char (+ 2 tmp))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8160 (forward-sexp 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8161 (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
8162 ((eq (char-after (+ 2 tmp)) ?<) ; Lookbehind
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8163 (goto-char (+ 3 tmp))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8164 (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
8165 (t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8166 (cperl-beautify-regexp-piece tmp m t level))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8167 (goto-char m1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8168 (cond ((looking-at "[*+?]\\??")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8169 (goto-char (match-end 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8170 ((eq (following-char) ?\{)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8171 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8172 (if (eq (following-char) ?\?)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8173 (forward-char))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8174 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8175 (setq spaces nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8176 (if (looking-at "[#\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8177 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8178 (or (eolp) (indent-for-comment))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8179 (beginning-of-line 2))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8180 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8181 (insert "\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8182 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8183 (setq inline nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8184 ((match-beginning 9) ; |
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8185 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8186 (setq tmp (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8187 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8188 (if (re-search-forward "[^ \t]" tmp t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8189 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8190 (goto-char tmp)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8191 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8192 (insert "\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8193 ;; first at line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8194 (delete-region (point) tmp))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8195 (cperl-make-indent c)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8196 (forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8197 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8198 (setq spaces nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8199 (if (looking-at "[#\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8200 (beginning-of-line 2)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8201 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8202 (insert "\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8203 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8204 (setq inline nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8205 (or (looking-at "[ \t\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8206 (not spaces)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8207 (insert " "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8208 (skip-chars-forward " \t"))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8209 (or (looking-at "[#\n]")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8210 (error "Unknown code `%s' in a regexp"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8211 (buffer-substring (point) (1+ (point)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8212 (and inline (end-of-line 2)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8213 ;; Special-case the last line of group
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8214 (if (and (>= (point) (marker-position e))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8215 (/= (current-indentation) c))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8216 (progn
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8217 (beginning-of-line)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8218 (cperl-make-indent c)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8219
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8220 (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
8221 ;; Returns position of the start
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8222 ;; XXX this is called too often! Need to cache the result!
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8223 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8224 (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
8225 (error "I need to have a regexp marked!"))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8226 ;; Find the start
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8227 (if (looking-at "\\s|")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8228 nil ; good already
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8229 (if (or (looking-at "\\([smy]\\|qr\\)\\s|")
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8230 (and (eq (preceding-char) ?q)
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8231 (looking-at "\\(r\\)\\s|")))
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8232 (goto-char (match-end 1))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8233 (re-search-backward "\\s|"))) ; Assume it is scanned already.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8234 ;;(forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8235 (let ((b (point)) (e (make-marker)) have-x delim (c (current-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8236 (sub-p (eq (preceding-char) ?s)) s)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8237 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8238 (set-marker e (1- (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8239 (setq delim (preceding-char))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8240 (if (and sub-p (eq delim (char-after (- (point) 2))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8241 (error "Possible s/blah// - do not know how to deal with"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8242 (if sub-p (forward-sexp 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8243 (if (looking-at "\\sw*x")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8244 (setq have-x t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8245 (insert "x"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8246 ;; Protect fragile " ", "#"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8247 (if have-x nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8248 (goto-char (1+ b))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8249 (while (re-search-forward "\\(\\=\\|[^\\\\]\\)\\(\\\\\\\\\\)*[ \t\n#]" e t) ; Need to include (?#) too?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8250 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8251 (insert "\\")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8252 (forward-char 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8253 b)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8254
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8255 (defun cperl-beautify-regexp (&optional deep)
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
8256 "Do it. (Experimental, may change semantics, recheck the result.)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8257 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
8258 (interactive "P")
49516
774eed0b5c78 (cperl-beautify-level, cperl-beautify-regexp): Fix use of
Juanma Barranquero <lekktu@gmail.com>
parents: 49304
diff changeset
8259 (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
8260 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8261 (goto-char (cperl-make-regexp-x))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8262 (let ((b (point)) (e (make-marker)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8263 (forward-sexp 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8264 (set-marker e (1- (point)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8265 (cperl-beautify-regexp-piece b e nil deep))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8266
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8267 (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
8268 "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
8269 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
8270 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8271 (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
8272 (while (not done)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8273 (or (eq (following-char) ?\()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8274 (search-backward "(" (1+ limit) t)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8275 (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
8276 (setq done
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8277 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8278 (skip-chars-backward "\\")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8279 (looking-at "\\(\\\\\\\\\\)*(")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8280 (or done (forward-char -1)))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8281
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8282 (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
8283 "Find an enclosing group in regexp and contract it.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8284 \(Experimental, may change semantics, recheck the result.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8285 We suppose that the regexp is scanned already."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8286 (interactive)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8287 ;; (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
8288 (cperl-regext-to-level-start)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8289 (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
8290 (forward-sexp 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8291 (set-marker e (1- (point)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8292 (goto-char b)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8293 (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
8294 (cond
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8295 ((match-beginning 1) ; #-comment
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8296 (or c (setq c (current-indentation)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8297 (beginning-of-line 2) ; Skip
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8298 (cperl-make-indent c))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8299 (t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8300 (delete-char -1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8301 (just-one-space))))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8302
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8303 (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
8304 "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
8305 \(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
8306 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
8307 (interactive)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8308 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8309 (condition-case nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8310 (cperl-regext-to-level-start)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8311 (error ; We are outside outermost group
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8312 (goto-char (cperl-make-regexp-x))))
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8313 (let ((b (point)) (e (make-marker)) s c)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8314 (forward-sexp 1)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8315 (set-marker e (1- (point)))
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8316 (goto-char (1+ b))
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8317 (while (re-search-forward "\\(\\\\\\\\\\)\\|(" e t)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
8318 (cond
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8319 ((match-beginning 1) ; Skip
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8320 nil)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8321 (t ; Group
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8322 (cperl-contract-level)))))))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8323
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8324 (defun cperl-beautify-level (&optional deep)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8325 "Find an enclosing group in regexp and beautify it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8326 \(Experimental, may change semantics, recheck the result.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8327 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
8328 (interactive "P")
49516
774eed0b5c78 (cperl-beautify-level, cperl-beautify-regexp): Fix use of
Juanma Barranquero <lekktu@gmail.com>
parents: 49304
diff changeset
8329 (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
8330 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8331 (cperl-regext-to-level-start)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8332 (let ((b (point)) (e (make-marker)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8333 (forward-sexp 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8334 (set-marker e (1- (point)))
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8335 (cperl-beautify-regexp-piece b e 'level deep))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8336
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8337 (defun cperl-invert-if-unless-modifiers ()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8338 "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
8339 \(Unfinished.)"
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8340 (interactive)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8341 (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
8342 (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
8343 (and (= (char-syntax (preceding-char)) ?w)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8344 (forward-sexp -1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8345 (setq pre-if (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8346 (cperl-backward-to-start-of-expr)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8347 (setq pre-B (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8348 (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
8349 (cperl-forward-to-end-of-expr)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8350 (setq post-A (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8351 (goto-char pre-if)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8352 (or (looking-at w-rex)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8353 ;; Find the position
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8354 (progn (goto-char post-A)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8355 (while (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8356 (not (looking-at w-rex))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8357 (> (point) pre-B))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8358 (forward-sexp -1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8359 (setq pre-if (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8360 (or (looking-at w-rex)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8361 (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
8362 ;; 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
8363 (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
8364 ;; First, simple part: find code boundaries
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8365 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8366 (setq post-if (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8367 (forward-sexp -2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8368 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8369 (setq post-B (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8370 (cperl-backward-to-start-of-expr)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8371 (setq pre-B (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8372 (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
8373 (goto-char pre-if)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8374 (forward-sexp 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8375 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8376 ;; 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
8377 (skip-chars-backward "$@%#")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8378 (setq pre-A (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8379 (cperl-forward-to-end-of-expr)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8380 (setq post-A (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8381 (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
8382 ;; 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
8383 (skip-chars-forward " \t;")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8384 (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
8385 (insert "\n" B ";\n}")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8386 (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
8387 (delete-region pre-if post-if)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8388 (delete-region pre-B post-B)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8389 (goto-char pre-B)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8390 (insert if-string " (" A ") {")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8391 (setq post-B (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8392 (if (looking-at "[ \t]+$")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8393 (delete-horizontal-space)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8394 (if (looking-at "[ \t]*#")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8395 (cperl-indent-for-comment)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8396 (just-one-space)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8397 (forward-line 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8398 (if (looking-at "[ \t]*$")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8399 (progn ; delete line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8400 (delete-horizontal-space)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8401 (delete-region (point) (1+ (point)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8402 (cperl-indent-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8403 (goto-char (1- post-B))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8404 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8405 (cperl-indent-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8406 (goto-char pre-B)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8407
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8408 (defun cperl-invert-if-unless ()
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8409 "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
8410 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
8411 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
8412 the appropriate statement modifier."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8413 (interactive)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8414 (and (= (char-syntax (preceding-char)) ?w)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8415 (forward-sexp -1))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8416 (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
8417 (let ((pre-if (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8418 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
8419 (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
8420 (forward-sexp 2)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8421 (setq post-A (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8422 (forward-sexp -1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8423 (setq pre-A (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8424 (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
8425 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8426 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8427 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8428 (forward-sexp 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8429 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8430 (eq (following-char) ?\{ ))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8431 (error nil)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8432 (if is-block
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8433 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8434 (goto-char post-A)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8435 (forward-sexp 1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8436 (setq post-B (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8437 (forward-sexp -1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8438 (setq pre-B (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8439 (if (and (eq (following-char) ?\{ )
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8440 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8441 (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
8442 (eq (preceding-char) ?\) )))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8443 (if (condition-case nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8444 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8445 (goto-char post-B)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8446 (forward-sexp 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8447 (forward-sexp -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8448 (looking-at "\\<els\\(e\\|if\\)\\>"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8449 (error nil))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8450 (error
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8451 "`%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
8452 (goto-char (1- post-B))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8453 (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
8454 (if (eq (preceding-char) ?\;)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8455 (forward-char -1))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8456 (setq end-B-code (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8457 (goto-char pre-B)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8458 (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
8459 (setq p (match-beginning 0)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8460 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
8461 state (parse-partial-sexp pre-B p))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8462 (or (nth 3 state)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8463 (nth 4 state)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8464 (nth 5 state)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8465 (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
8466 (goto-char (match-end 0)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8467 ;; Finally got it
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8468 (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
8469 (skip-chars-forward " \t\n")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8470 (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
8471 (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
8472 (or (looking-at ";?[ \t\n]*}")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8473 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8474 (skip-chars-forward "; \t\n")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8475 (setq B-comment
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8476 (buffer-substring (point) (1- post-B)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8477 (and (equal B "")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8478 (setq B "1"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8479 (goto-char (1- post-A))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8480 (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
8481 (or (looking-at "[ \t\n]*)")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8482 (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
8483 (setq p (point))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8484 (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
8485 (skip-chars-forward " \t\n")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8486 (setq A (buffer-substring (point) p))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8487 (delete-region pre-B post-B)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8488 (delete-region pre-A post-A)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8489 (goto-char pre-if)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8490 (insert B " ")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8491 (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
8492 (just-one-space)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8493 (forward-word 1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8494 (setq pre-A (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8495 (insert " " A ";")
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8496 (delete-horizontal-space)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8497 (setq post-B (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8498 (if (looking-at "#")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8499 (indent-for-comment))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8500 (goto-char post-B)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8501 (forward-char -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8502 (delete-horizontal-space)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8503 (goto-char pre-A)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8504 (just-one-space)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8505 (goto-char pre-if)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8506 (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
8507 (while (<= (point) (marker-position pre-A))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8508 (cperl-indent-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8509 (forward-line 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8510 (goto-char (marker-position pre-A))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8511 (if B-comment
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8512 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8513 (forward-line -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8514 (indent-for-comment)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8515 (goto-char (marker-position pre-A)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8516 (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
8517 ;; (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
8518 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8519 (cperl-invert-if-unless-modifiers)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8520 ;;(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
8521 (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
8522
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8523 ;;; By Anthony Foiani <afoiani@uswest.com>
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8524 ;;; Getting help on modules in C-h f ?
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8525 ;;; This is a modified version of `man'.
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8526 ;;; 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
8527 ;;;###autoload
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8528 (defun cperl-perldoc (word)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8529 "Run `perldoc' on WORD."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8530 (interactive
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8531 (list (let* ((default-entry (cperl-word-at-point))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8532 (input (read-string
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8533 (format "perldoc entry%s: "
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8534 (if (string= default-entry "")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8535 ""
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8536 (format " (default %s)" default-entry))))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8537 (if (string= input "")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8538 (if (string= default-entry "")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8539 (error "No perldoc args given")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8540 default-entry)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8541 input))))
41309
8c4c4027c7bd (cperl-perldoc): Require man before binding `manual-program'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39836
diff changeset
8542 (require 'man)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8543 (let* ((case-fold-search nil)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8544 (is-func (and
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8545 (string-match "^[a-z]+$" word)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8546 (string-match (concat "^" word "\\>")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8547 (documentation-property
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8548 'cperl-short-docs
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8549 'variable-documentation))))
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8550 (Man-switches "")
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8551 (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
8552 (cond
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
8553 ((featurep 'xemacs)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8554 (let ((Manual-program "perldoc")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8555 (Manual-switches (if is-func (list "-f"))))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8556 (manual-entry word)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8557 (t
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8558 (Man-getpage-in-background word)))))
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8559
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8560 ;;;###autoload
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8561 (defun cperl-perldoc-at-point ()
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8562 "Run a `perldoc' on the word around point."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8563 (interactive)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8564 (cperl-perldoc (cperl-word-at-point)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8565
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8566 (defcustom pod2man-program "pod2man"
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8567 "*File name for `pod2man'."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8568 :type 'file
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8569 :group 'cperl)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8570
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8571 ;;; 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
8572 (defun cperl-pod-to-manpage ()
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8573 "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
8574 (interactive)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8575 (require 'man)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8576 (let* ((pod2man-args (concat buffer-file-name " | nroff -man "))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8577 (bufname (concat "Man " buffer-file-name))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8578 (buffer (generate-new-buffer bufname)))
105813
df4934f25eef * textmodes/two-column.el (2C-split):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104995
diff changeset
8579 (with-current-buffer buffer
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8580 (let ((process-environment (copy-sequence process-environment)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8581 ;; Prevent any attempt to use display terminal fanciness.
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8582 (setenv "TERM" "dumb")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8583 (set-process-sentinel
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8584 (start-process pod2man-program buffer "sh" "-c"
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8585 (format (cperl-pod2man-build-command) pod2man-args))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8586 'Man-bgproc-sentinel)))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8587
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8588 ;;; Updated version by him too
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8589 (defun cperl-build-manpage ()
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8590 "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
8591 (interactive)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8592 (require 'man)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8593 (cond
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
8594 ((featurep 'xemacs)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8595 (let ((Manual-program "perldoc"))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8596 (manual-entry buffer-file-name)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8597 (t
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8598 (let* ((manual-program "perldoc")
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8599 (Man-switches ""))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8600 (Man-getpage-in-background buffer-file-name)))))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8601
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8602 (defun cperl-pod2man-build-command ()
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8603 "Builds the entire background manpage and cleaning command."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8604 (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
8605 (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
8606 (while (and flist (car flist))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8607 (let ((pcom (car (car flist)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8608 (pargs (cdr (car flist))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8609 (setq command
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8610 (concat command " | " pcom " "
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8611 (mapconcat '(lambda (phrase)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8612 (if (not (stringp phrase))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8613 (error "Malformed Man-filter-list"))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8614 phrase)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8615 pargs " ")))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8616 (setq flist (cdr flist))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8617 command))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8618
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8619
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8620 (defun cperl-next-interpolated-REx-1 ()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8621 "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
8622 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
8623
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8624 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
8625 (interactive "")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8626 (cperl-next-interpolated-REx 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8627
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8628 (defun cperl-next-interpolated-REx-0 ()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8629 "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
8630 (interactive "")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8631 (cperl-next-interpolated-REx 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8632
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8633 (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
8634 "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
8635 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
8636 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
8637
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8638 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
8639 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
8640
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8641 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
8642 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
8643 (interactive "P")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8644 (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
8645 (or beg (setq beg (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8646 (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
8647 (let (pp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8648 (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
8649 (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
8650 (cperl-map-pods-heres
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8651 (function (lambda (s e p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8652 (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
8653 t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8654 (setq pp s)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8655 nil))) ; nil stops
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8656 'REx-interpolated beg limit)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8657 (if pp (goto-char pp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8658 (message "No more interpolated REx"))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8659
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8660 ;;; Initial version contributed by Trey Belew
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8661 (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
8662 "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
8663 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
8664 (interactive "")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8665 (cperl-pod-spell t beg end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8666
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8667 (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
8668 "Spell-check POD documentation.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8669 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
8670 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
8671 (interactive "P")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8672 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8673 (let (beg end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8674 (if (cperl-mark-active)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8675 (setq beg (min (mark) (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8676 end (max (mark) (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8677 (setq beg (point-min)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8678 end (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8679 (cperl-map-pods-heres (function
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8680 (lambda (s e p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8681 (if do-heres
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8682 (setq e (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8683 (goto-char e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8684 (forward-line -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8685 (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8686 (ispell-region s e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8687 t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8688 (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
8689 beg end))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8690
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8691 (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
8692 "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
8693 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
8694 function returns nil."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8695 (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
8696 (or prop (setq prop 'in-pod))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8697 (or s (setq s (point-min)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8698 (or end (setq end (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8699 (cperl-update-syntaxification end end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8700 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8701 (goto-char (setq pos s))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8702 (while (and cont (< pos end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8703 (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
8704 (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
8705 (and has-prop
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8706 (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
8707 (setq pos posend)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8708
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8709 ;;; Based on code by Masatake YAMATO:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8710 (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
8711 "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
8712 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
8713 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
8714 (or pos (setq pos (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8715 (cperl-update-syntaxification pos pos)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8716 (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
8717 (and pod
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8718 (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
8719 (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
8720 (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
8721 (cons b (or e (point-max))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8722
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8723 (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
8724 "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
8725 POS defaults to the point."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8726 (interactive "d")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8727 (or pos (setq pos (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8728 (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
8729 (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
8730 (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
8731 (message
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8732 "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
8733
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8734 (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
8735 "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
8736 POS defaults to the point."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8737 (interactive "d")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8738 (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
8739 (if p
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8740 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8741 (goto-char (car p))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8742 (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
8743 (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
8744
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8745 (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
8746 "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
8747 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
8748 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
8749
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8750 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
8751 (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
8752 (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
8753 (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
8754 (cdr (or (assq face '((bold . "B<")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8755 (italic . "I<")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8756 (bold-italic . "B<I<")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8757 (underline . "C<")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8758 (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
8759 face))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8760
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8761 (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
8762 "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
8763 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
8764 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
8765 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
8766 *Messages* buffer.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8767
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8768 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
8769 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
8770 (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
8771 (or l (setq l 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8772 (or step (setq step 500))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8773 (or lim (setq lim 40))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8774 (let* ((timems (function (lambda ()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8775 (let ((tt (current-time)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8776 (+ (* 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
8777 (tt (funcall timems)) (c 0) delta tot)
104544
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
8778 (goto-char (point-min))
5a7504ff8b85 (cperl-imenu-name-and-position): Copy imenu-example--name-and-position
Glenn Morris <rgm@gnu.org>
parents: 104396
diff changeset
8779 (forward-line (1- l))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8780 (cperl-mode)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8781 (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
8782 (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
8783 (while (and (< c lim) (not (eobp)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8784 (forward-line step)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8785 (setq l (+ l step))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8786 (setq c (1+ c))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8787 (cperl-update-syntaxification (point) (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8788 (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
8789 (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
8790 tot))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8791
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
8792 (defvar font-lock-cache-position)
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
8793
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8794 (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
8795 "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
8796 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
8797 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
8798 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
8799 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
8800 (interactive
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8801 "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
8802 (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
8803 (let ((pos (if (> window-size 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8804 (point-min)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8805 (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8806 p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8807 (goto-char pos)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8808 (normal-mode)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8809 ;; Why needed??? With older font-locks???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8810 (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
8811 (while (if (> window-size 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8812 (< pos (point-max))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8813 (> pos (point-min)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8814 (setq p (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8815 (forward-line window-size)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8816 (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8817 (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
8818 (setq pos p))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8819
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8820
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8821 (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
8822 (defun cperl-lazy-unstall ()) ; Avoid a warning
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8823
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8824 (if (fboundp 'run-with-idle-timer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8825 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8826 (defvar cperl-help-shown nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8827 "Non-nil means that the help was already shown now.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8828
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8829 (defvar cperl-lazy-installed nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8830 "Non-nil means that the lazy-help handlers are installed now.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8831
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8832 (defun cperl-lazy-install ()
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8833 "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
8834 Delay of auto-help controlled by `cperl-lazy-help-time'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8835 (interactive)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8836 (make-local-variable 'cperl-help-shown)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8837 (if (and (cperl-val 'cperl-lazy-help-time)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8838 (not cperl-lazy-installed))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8839 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8840 (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
8841 (run-with-idle-timer
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8842 (cperl-val 'cperl-lazy-help-time 1000000 5)
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8843 t
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8844 'cperl-get-help-defer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8845 (setq cperl-lazy-installed t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8846
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8847 (defun cperl-lazy-unstall ()
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8848 "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
8849 Delay of auto-help controlled by `cperl-lazy-help-time'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8850 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8851 (remove-hook 'post-command-hook 'cperl-lazy-hook)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8852 (cancel-function-timers 'cperl-get-help-defer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8853 (setq cperl-lazy-installed nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8854
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8855 (defun cperl-lazy-hook ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8856 (setq cperl-help-shown nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8857
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8858 (defun cperl-get-help-defer ()
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8859 (if (not (memq major-mode '(perl-mode cperl-mode))) nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8860 (let ((cperl-message-on-help-error nil) (cperl-help-from-timer t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8861 (cperl-get-help)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8862 (setq cperl-help-shown t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8863 (cperl-lazy-install)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8864
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8865
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8866 ;;; Plug for wrong font-lock:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8867
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8868 (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
8869 (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
8870 (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
8871 before-change-functions after-change-functions
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8872 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
8873 (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
8874 (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
8875 (set-buffer-modified-p nil))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8876
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8877 (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
8878 "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
8879 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
8880 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
8881 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
8882 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8883 (goto-char beg)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8884 (while (and beg
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8885 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8886 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8887 (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
8888 'multiline)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8889 (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
8890 (goto-char beg)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8891 (setq beg (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8892 (goto-char end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8893 (while (and end
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8894 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8895 (or (bolp) (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8896 (forward-line 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8897 (error nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8898 (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
8899 'multiline)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8900 (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
8901 (goto-char end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8902 (setq end (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8903 (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
8904
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8905 (defvar cperl-d-l nil)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8906 (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
8907 ;; Some vars for debugging only
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8908 ;; (message "Syntaxifying...")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8909 (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
8910 (istate (car cperl-syntax-state))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8911 start from-start edebug-backtrace-buffer)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8912 (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
8913 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8914 (require 'edebug)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8915 (let ((f 'edebug-backtrace))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8916 (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
8917 (or cperl-syntax-done-to
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8918 (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
8919 from-start t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8920 (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
8921 (not from-start))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8922 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
8923 ;; 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
8924 (min cperl-syntax-done-to (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8925 (goto-char start)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8926 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8927 (setq start (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8928 (and cperl-syntaxify-unwind
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8929 (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
8930 start (point)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8931 (and (> end start)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8932 (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
8933 (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
8934 (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
8935 (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
8936 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
8937 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
8938 nil)) ; Do not iterate
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8939
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8940 (defun cperl-fontify-update (end)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8941 (let ((pos (point-min)) prop posend)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8942 (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
8943 (while (< pos end)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8944 (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
8945 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
8946 (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
8947 (setq pos posend)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8948 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
8949
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8950 (defun cperl-fontify-update-bad (end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8951 ;; 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
8952 ;; 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
8953 (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
8954 (if prop
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8955 (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
8956 (cperl-1+ pos) 'cperl-postpone)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8957 (point-min))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8958 (while (< pos end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8959 (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
8960 (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
8961 (setq pos posend)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8962 (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
8963 nil) ; Do not iterate
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8964
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8965 ;; 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
8966 (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
8967 ;; 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
8968 ;; 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
8969 (if cperl-syntax-done-to
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8970 (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
8971
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8972 (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
8973 (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
8974 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
8975 (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
8976 (< 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
8977 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8978 (save-excursion
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8979 (goto-char from)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8980 (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
8981
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8982 (defvar cperl-version
104310
2ecd57cadf51 * progmodes/cperl-mode.el: Merge upstream 6.2.
Chong Yidong <cyd@stupidchicken.com>
parents: 102228
diff changeset
8983 (let ((v "Revision: 6.2"))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8984 (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
8985 (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
8986 "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
8987
108282
d951d5810160 * progmodes/cperl-mode.el (cperl-mode-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 106815
diff changeset
8988 (defun cperl-mode-unload-function ()
d951d5810160 * progmodes/cperl-mode.el (cperl-mode-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 106815
diff changeset
8989 "Unload the Cperl mode library."
d951d5810160 * progmodes/cperl-mode.el (cperl-mode-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 106815
diff changeset
8990 (let ((new-mode (if (eq (symbol-function 'perl-mode) 'cperl-mode)
d951d5810160 * progmodes/cperl-mode.el (cperl-mode-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 106815
diff changeset
8991 'fundamental-mode
d951d5810160 * progmodes/cperl-mode.el (cperl-mode-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 106815
diff changeset
8992 'perl-mode)))
d951d5810160 * progmodes/cperl-mode.el (cperl-mode-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 106815
diff changeset
8993 (dolist (buf (buffer-list))
d951d5810160 * progmodes/cperl-mode.el (cperl-mode-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 106815
diff changeset
8994 (with-current-buffer buf
d951d5810160 * progmodes/cperl-mode.el (cperl-mode-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 106815
diff changeset
8995 (when (eq major-mode 'cperl-mode)
d951d5810160 * progmodes/cperl-mode.el (cperl-mode-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 106815
diff changeset
8996 (funcall new-mode)))))
d951d5810160 * progmodes/cperl-mode.el (cperl-mode-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 106815
diff changeset
8997 ;; continue standard unloading
d951d5810160 * progmodes/cperl-mode.el (cperl-mode-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 106815
diff changeset
8998 nil)
d951d5810160 * progmodes/cperl-mode.el (cperl-mode-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 106815
diff changeset
8999
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9000 (provide 'cperl-mode)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9001
93975
1e3a407766b9 Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92148
diff changeset
9002 ;; arch-tag: 42e5b19b-e187-4537-929f-1a7408980ce6
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9003 ;;; cperl-mode.el ends here