annotate lisp/progmodes/cperl-mode.el @ 101274:4bcf5c96d5ee

* linum.el (linum-update-window): Use `delq' instead of `delete'; compare strings with `equal-including-properties'.
author Juanma Barranquero <lekktu@gmail.com>
date Sun, 18 Jan 2009 01:45:34 +0000
parents 0685234e527d
children f51bb75d96dc
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,
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 97422
diff changeset
4 ;; 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5 ;; Free Software Foundation, Inc.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6
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
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
414 "use cperl-vc-rcs-header or cperl-vc-sccs-header instead.")
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
415
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
416 (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
417 (not
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
418 (and
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
419 (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
420 (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
421 (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
422 "*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
423 :type 'boolean
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
424 :group 'cperl)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
425
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
426 (defcustom cperl-info-on-command-no-prompt nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
427 "*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
428 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
429 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
430 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
431 :group 'cperl-affected-by-hairy)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
432
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
433 (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
434 "*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
435 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
436 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
437 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
438 :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
439
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
440 (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
441 "*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
442 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
443 :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
444 :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
445
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
446 (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
447 "*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
448 :type 'face
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
449 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
450
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
451 (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
452 "*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
453 Font for POD headers."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
454 :type 'face
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
455 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
456
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
457 (defcustom cperl-here-face 'font-lock-string-face
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
458 "*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
459 :type 'face
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
460 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
461
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
462 ;;; 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
463 (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
464
73461
c09fdf139d4a * progmodes/cperl-mode.el (cperl-invalid-face): Fix defcustom.
Chong Yidong <cyd@stupidchicken.com>
parents: 73457
diff changeset
465 (defcustom cperl-invalid-face 'underline
c09fdf139d4a * progmodes/cperl-mode.el (cperl-invalid-face): Fix defcustom.
Chong Yidong <cyd@stupidchicken.com>
parents: 73457
diff changeset
466 "*Face for highlighting trailing whitespace."
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
467 :type 'face
35013
587807c5e8e6 (cperl-invalid-face): Don't double-quote
Dave Love <fx@gnu.org>
parents: 32880
diff changeset
468 :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
469 :group 'cperl-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
470
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
471 (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
472 "*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
473 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
474 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
475
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
476 (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
477 "*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
478 :type 'boolean
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
479 :group 'cperl-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
480
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
481 (defcustom cperl-highlight-variables-indiscriminately nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
482 "*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
483 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
484 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
485 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
486 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
487 :type 'boolean
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
488 :group 'cperl)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
489
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
490 (defcustom cperl-pod-here-scan t
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
491 "*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
492 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
493 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
494 :group 'cperl-speed)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
495
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
496 (defcustom cperl-regexp-scan t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
497 "*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
498 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
499 :type 'boolean
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
500 :group 'cperl-speed)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
501
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
502 (defcustom cperl-hook-after-change t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
503 "*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
504 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
505 after reload."
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
506 :type 'boolean
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
507 :group 'cperl-speed)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
508
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
509 (defcustom cperl-imenu-addback nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
510 "*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
511 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
512 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
513 :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
514
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
515 (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
516 "*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
517 :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
518 :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
519
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
520 (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
521 "*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
522 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
523 :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
524
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
525 (defcustom cperl-info-page "perl"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
526 "*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
527 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
528 :type 'string
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
529 :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
530
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
531 (defcustom cperl-use-syntax-table-text-property
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
532 (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
533 "*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
534 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
535 :group 'cperl-speed)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
536
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
537 (defcustom cperl-use-syntax-table-text-property-for-tags
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
538 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
539 "*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
540 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
541 :group 'cperl-speed)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
542
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
543 (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
544 "*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
545 :type 'regexp
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
546 :group 'cperl)
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
547
47334
e3cfc5df817a (cperl-noscan-files-regexp): In addition to RCS, exclude CVS directories.
Richard M. Stallman <rms@gnu.org>
parents: 46132
diff changeset
548 (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
549 "/\\(\\.\\.?\\|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
550 "*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
551 :type 'regexp
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
552 :group 'cperl)
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
553
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
554 (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
555 "*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
556 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
557 :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
558 :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
559
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
560 (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
561 "*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
562 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
563 :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
564
26667
a11929b241ab (cperl-under-as-char): Make nil the default value.
Richard M. Stallman <rms@gnu.org>
parents: 26455
diff changeset
565 (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
566 "*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
567 :type 'boolean
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
568 :group 'cperl)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
569
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
570 (defcustom cperl-extra-perl-args ""
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
571 "*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
572 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
573 :type 'string
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
574 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
575
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
576 (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
577 "*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
578 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
579 :group 'cperl-help-system)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
580
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
581 (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
582 "*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
583 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
584 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
585 :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
586 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
587
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
588 (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
589 "*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
590 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
591 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
592 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
593
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
594 (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
595 "*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
596 when indenting a region.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
597 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
598 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
599 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
600
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
601 (defcustom cperl-merge-trailing-else t
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
602 "*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
603 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
604 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
605 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
606
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
607 (defcustom cperl-indent-parens-as-block nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
608 "*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
609 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
610 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
611 :type 'boolean
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
612 :group 'cperl-indentation-details)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
613
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
614 (defcustom cperl-syntaxify-by-font-lock
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
615 (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
616 (boundp 'parse-sexp-lookup-properties))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
617 "*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
618 :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
619 :group 'cperl-speed)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
620
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
621 (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
622 t
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
623 "*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
624 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
625 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
626 :group 'cperl-speed)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
627
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
628 (defcustom cperl-syntaxify-for-menu
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
629 t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
630 "*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
631 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
632 :type 'boolean
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
633 :group 'cperl-speed)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
634
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
635 (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
636 '((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
637 (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
638 (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
639 (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
640 (cperl-array-face nil "LightGray" bold underline)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
641 (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
642 (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
643 (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
644 (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
645 (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
646 (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
647 (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
648 "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
649 :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
650 (cons (choice (const nil) string)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
651 (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 (repeat symbol)))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
653 :group 'cperl-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
654
49304
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
655 (defvar cperl-dark-background
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
656 (cperl-choose-color "navy" "os2blue" "darkgreen"))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
657 (defvar cperl-dark-foreground
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
658 (cperl-choose-color "orchid1" "orange"))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
659
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
660 (defface cperl-nonoverridable-face
49304
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
661 `((((class grayscale) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
662 (:background "Gray90" :slant italic :underline t))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
663 (((class grayscale) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
664 (: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
665 (((class color) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
666 (:foreground "chartreuse3"))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
667 (((class color) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
668 (:foreground ,cperl-dark-foreground))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
669 (t (:weight bold :underline t)))
50788
2a3bf1afbe82 (cperl-nonoverridable-face): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 50255
diff changeset
670 "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
671 :group 'cperl-faces)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
672
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
673 (defface cperl-array-face
49304
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
674 `((((class grayscale) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
675 (:background "Gray90" :weight bold))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
676 (((class grayscale) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
677 (:foreground "Gray80" :weight bold))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
678 (((class color) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
679 (:foreground "Blue" :background "lightyellow2" :weight bold))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
680 (((class color) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
681 (: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
682 (t (:weight bold)))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
683 "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
684 :group 'cperl-faces)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
685
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
686 (defface cperl-hash-face
49304
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
687 `((((class grayscale) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
688 (:background "Gray90" :weight bold :slant italic))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
689 (((class grayscale) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
690 (:foreground "Gray80" :weight bold :slant italic))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
691 (((class color) (background light))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
692 (: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
693 (((class color) (background dark))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
694 (: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
695 (t (:weight bold :slant italic)))
a9d24051c803 Don't make faces depend on window-system.
Juanma Barranquero <lekktu@gmail.com>
parents: 47334
diff changeset
696 "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
697 :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
698
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
699
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
700
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
701 ;;; Short extra-docs.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
702
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
703 (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
704 "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
705 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
706 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
707 patches to related files.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
708
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
709 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
710 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
711 \(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
712 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
713 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
714
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
715 Get support packages choose-color.el (or font-lock-extra.el before
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
716 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
717 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
718 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
719 \(and you will not get smart highlighting in C :-().
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
720
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
721 Note that to enable Compile choices in the menu you need to install
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
722 mode-compile.el.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
723
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
724 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
725 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
726
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
727 (defalias 'perl-mode 'cperl-mode)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
728
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
729 Get perl5-info from
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
730 $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
731 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
732 $CPAN/doc/manual/info/perl5/pod2texi-0.1.tar.gz
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
733
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
734 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
735 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
736 Tools/Tags submenu in Perl menu.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
737
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
738 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
739 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
740 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
741 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
742
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
743 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
744
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
745 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
746
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
747 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
748 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
749
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
750 \\[normal-mode]
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
751
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
752 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
753
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
754 \\[load-library] cperl-mode RET
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
755 \\[normal-mode]
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
756
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
757 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
758 micro-docs on what I know about CPerl problems.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
759
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
760 (defvar cperl-problems 'please-ignore-this-line
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
761 "Description of problems in CPerl mode.
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
762 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
763 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
764 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
765
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
766 `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
767 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
768 to detect it and bulk out).
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
769
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
770 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
771 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
772 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
773
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
774 (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
775 "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
776
41351
d103d22e5b4f (cperl-problems, cperl-tips, cperl-non-problems, cperl-praise): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 41309
diff changeset
777 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
778 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
779 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
780 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
781 this respect (until 2003).
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
782
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
783 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
784 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
785 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
786 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
787 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
788
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
789 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
790 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
791 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
792 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
793 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
794 braces.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
795
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
796 This may be confusing, since the regexp s#//#/#\; may be highlighted
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
797 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
798 code. Or the opposite case, when a POD section is highlighted, but
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
799 may break the indentation of the following code (though indentation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
800 should work if the balance of delimiters is not broken by POD).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
801
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
802 The main trick (to make $ a \"backslash\") makes constructions like
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
803 ${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
804 to insert it as $ {aaa} (valid in perl5, not in perl4).
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
805
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
806 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
807 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
808
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
809 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
810 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
811 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
812 and on CPAN.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
813
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
814 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
815 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
816 via `cperl-use-syntax-table-text-property'.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
817
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
818 (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
819 "Advantages of CPerl mode.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
820
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
821 0) It uses the newest `syntax-table' property ;-);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
822
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
823 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
824 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
825 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
826
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
827 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
828 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
829 updates syntax assist hints when you edit your script.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
830
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
831 2) It is generally believed to be \"the most user-friendly Emacs
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
832 package\" whatever it may mean (I doubt that the people who say similar
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
833 things tried _all_ the rest of Emacs ;-), but this was not a lonely
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
834 voice);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
835
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
836 3) Everything is customizable, one-by-one or in a big sweep;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
837
96459
a90a9fcdc77d Spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 95832
diff changeset
838 4) It has many easily-accessible \"tools\":
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
839 a) Can run program, check syntax, start debugger;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
840 b) Can lineup vertically \"middles\" of rows, like `=' in
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
841 a = b;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
842 cc = d;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
843 c) Can insert spaces where this impoves readability (in one
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
844 interactive sweep over the buffer);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
845 d) Has support for imenu, including:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
846 1) Separate unordered list of \"interesting places\";
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
847 2) Separate TOC of POD sections;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
848 3) Separate list of packages;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
849 4) Hierarchical view of methods in (sub)packages;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
850 5) and functions (by the full name - with package);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
851 e) Has an interface to INFO docs for Perl; The interface is
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
852 very flexible, including shrink-wrapping of
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
853 documentation buffer/frame;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
854 f) Has a builtin list of one-line explanations for perl constructs.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
855 g) Can show these explanations if you stay long enough at the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
856 corresponding place (or on demand);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
857 h) Has an enhanced fontification (using 3 or 4 additional faces
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
858 comparing to font-lock - basically, different
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
859 namespaces in Perl have different colors);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
860 i) Can construct TAGS basing on its knowledge of Perl syntax,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
861 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
862 TAGS (if \"by directory\", .xs files - with C-language
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
863 bindings - are included in the scan);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
864 j) Can build a hierarchical view of classes (via imenu) basing
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
865 on generated TAGS file;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
866 k) Has electric parentheses, electric newlines, uses Abbrev
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
867 for electric logical constructs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
868 while () {}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
869 with different styles of expansion (context sensitive
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
870 to be not so bothering). Electric parentheses behave
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
871 \"as they should\" in a presence of a visible region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
872 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
873 m) Can convert from
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
874 if (A) { B }
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
875 to
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
876 B if A;
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
877
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
878 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
879 (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
880 o) Highlights trailing whitespace;
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
881 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
882 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
883 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
884 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
885 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
886 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
887 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
888 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
889 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
890
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
891 5) The indentation engine was very smart, but most of tricks may be
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
892 not needed anymore with the support for `syntax-table' property. Has
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
893 progress indicator for indentation (with `imenu' loaded).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
894
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
895 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
896 whitespace *inside* the conditional/loop constructs.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
897
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
898 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
899
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
900 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
901 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
902
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
903 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
904 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
905
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
906 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
907 capable syntax engines).
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
908
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
909 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
910 ")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
911
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
912 (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
913 "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
914 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
915
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
916 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
917 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
918
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
919 *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
920 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
921 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
922 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
923 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
924
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
925 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
926 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
927 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
928
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
929 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
930 PODs and HERE-documents), or
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
931 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
932 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
933
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
934 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
935
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
936 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
937 `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
938 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
939
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
940 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
941 `cperl-pod-here-scan'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
942 to nil.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
943
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
944 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
945
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
946 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
947 `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
948 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
949 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
950 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
951 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
952
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
953 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
954 of, say, long POD sections.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
955
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
956 (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
957 "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
958
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
959 `cperl-array-face' Array names
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
960 `cperl-hash-face' Hash names
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
961 `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
962 syntaxically to be not code
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
963 `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
964 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
965 `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
966 `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
967 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
968 (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
969 package names (when recognized), format names
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
970 `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
971 `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
972 `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
973 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
974 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
975 as string literals
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
976 `font-lock-type-face' Overridable keywords
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
977 `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
978 hash names, POD headers/item names
63458
3265e9c7ab3d Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-418
Miles Bader <miles@gnu.org>
parents: 63350
diff changeset
979 `cperl-invalid' Trailing whitespace
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
980
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
981 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
982 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
983 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
984 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
985
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
986 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
987 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
988
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
989 In regular expressions (except character classes):
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
990 `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
991 `font-lock-constant-face': Delimiters
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
992 `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
993 Mismatched closing delimiters, parens
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
994 we couldn't match, misplaced quantifiers,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
995 unrecognized escape sequences
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
996 `cperl-nonoverridable-face' Modifiers, as gism in m/REx/gism
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
997 `font-lock-type-face' POSIX classes inside charclasses,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
998 escape sequences with arguments (\x \23 \p \N)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
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: $ ^ . [ ] [^ ] (?{ }) (??{ })
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1002 `font-lock-builtin-face' \"Remaining\" 0-length constructs, executable
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1003 parts of a REx, not-capturing parens
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1004 `font-lock-variable-name-face' Interpolated constructs, embedded code
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1005 `font-lock-comment-face' Embedded comments
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1006
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1007 ")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1008
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1009
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1010
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1011 ;;; Portability stuff:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1012
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1013 (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
1014 `(define-key cperl-mode-map
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
1015 ,(if xemacs-key
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
1016 `(if (featurep 'xemacs) ,xemacs-key ,emacs-key)
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
1017 emacs-key)
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
1018 ,definition))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1019
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1020 (defvar cperl-del-back-ch
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1021 (car (append (where-is-internal 'delete-backward-char)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1022 (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
1023 "Character generated by key bound to `delete-backward-char'.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1024
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1025 (and (vectorp cperl-del-back-ch) (= (length cperl-del-back-ch) 1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1026 (setq cperl-del-back-ch (aref cperl-del-back-ch 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1027
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1028 (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
1029 (if (featurep 'xemacs)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1030 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1031 ;; "Active regions" are on: use region only if active
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1032 ;; "Active regions" are off: use region unconditionally
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1033 (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
1034 (if zmacs-regions (mark) t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1035 (defun cperl-use-region-p ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1036 (if transient-mark-mode mark-active t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1037 (defun cperl-mark-active () mark-active))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1038
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1039 (defsubst cperl-enable-font-lock ()
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1040 cperl-can-font-lock)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1041
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1042 (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
1043 (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
1044
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
1045 (if (featurep 'xemacs)
55049
20627b978043 (cperl-putback-char): Delete Emacs 18 definition.
Richard M. Stallman <rms@gnu.org>
parents: 54556
diff changeset
1046 (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
1047 (setq unread-command-events (list (eval '(character-to-event c))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1048
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1049 (or (fboundp 'uncomment-region)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1050 (defun uncomment-region (beg end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1051 (interactive "r")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1052 (comment-region beg end -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1053
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1054 (defvar cperl-do-not-fontify
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1055 (if (string< emacs-version "19.30")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1056 'fontified
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1057 'lazy-lock)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1058 "Text property which inhibits refontification.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1059
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1060 (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
1061 ;; 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
1062 (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
1063 nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1064 (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
1065 to cperl-do-not-fontify t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1066
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
1067 (defcustom cperl-mode-hook nil
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
1068 "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
1069 :type 'hook
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
1070 :group 'cperl)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1071
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1072 (defvar cperl-syntax-state nil)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1073 (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
1074 (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
1075 (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
1076
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1077 ;; Make customization possible "in reverse"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1078 (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
1079 (cond
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1080 ((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
1081 (cperl-hairy (or hairy t))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1082 (t (symbol-value symbol))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1083
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1084
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1085 (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
1086 "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
1087 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
1088 versions of Emacs."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1089 (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
1090 (or keep
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1091 (delete-horizontal-space))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1092 (indent-to column minimum)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1093 ;; 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
1094 (and prop
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1095 (> (current-column) 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1096 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1097 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1098 (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
1099 (and (looking-at "\\=[ \t]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1100 (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
1101 'syntax-type prop)))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1102
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1103 ;;; 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
1104
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1105 ;;;(and cperl-clobber-mode-lists
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1106 ;;;(setq auto-mode-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1107 ;;; (append '(("\\.\\([pP][Llm]\\|al\\)$" . perl-mode)) auto-mode-alist ))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1108 ;;;(and (boundp 'interpreter-mode-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1109 ;;; (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
1110 ;;; '(("miniperl" . perl-mode))))))
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1111 (eval-when-compile
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
1112 (mapc (lambda (p)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
1113 (condition-case nil
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
1114 (require p)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
1115 (error nil)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
1116 '(imenu easymenu etags timer man info))
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1117 (if (fboundp 'ps-extend-face-list)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1118 (defmacro cperl-ps-extend-face-list (arg)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1119 `(ps-extend-face-list ,arg))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1120 (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
1121 `(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
1122 ;; 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
1123 ;; 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
1124 ;; expansion manually. Any other suggestions?
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1125 (require 'cl))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1126
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1127 (defvar cperl-mode-abbrev-table nil
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
1128 "Abbrev table in use in CPerl mode buffers.")
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 (add-hook 'edit-var-mode-alist '(perl-mode (regexp . "^cperl-")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1131
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1132 (defvar cperl-mode-map () "Keymap used in CPerl mode.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1133
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1134 (if cperl-mode-map nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1135 (setq cperl-mode-map (make-sparse-keymap))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1136 (cperl-define-key "{" 'cperl-electric-lbrace)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1137 (cperl-define-key "[" 'cperl-electric-paren)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1138 (cperl-define-key "(" 'cperl-electric-paren)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1139 (cperl-define-key "<" 'cperl-electric-paren)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1140 (cperl-define-key "}" 'cperl-electric-brace)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1141 (cperl-define-key "]" 'cperl-electric-rparen)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1142 (cperl-define-key ")" 'cperl-electric-rparen)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1143 (cperl-define-key ";" 'cperl-electric-semi)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1144 (cperl-define-key ":" 'cperl-electric-terminator)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1145 (cperl-define-key "\C-j" 'newline-and-indent)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1146 (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
1147 (cperl-define-key "\C-c\C-t" 'cperl-invert-if-unless)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1148 (cperl-define-key "\C-c\C-a" 'cperl-toggle-auto-newline)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1149 (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
1150 (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
1151 (cperl-define-key "\C-c\C-f" 'auto-fill-mode)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1152 (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
1153 (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
1154 (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
1155 (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
1156 (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
1157 (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
1158 (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
1159 (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
1160 (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
1161 (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
1162 (cperl-define-key "\C-c\C-hP" 'cperl-perldoc-at-point)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1163 (cperl-define-key "\e\C-q" 'cperl-indent-exp) ; Usually not bound
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1164 (cperl-define-key [?\C-\M-\|] 'cperl-lineup
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1165 [(control meta |)])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1166 ;;(cperl-define-key "\M-q" 'cperl-fill-paragraph)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1167 ;;(cperl-define-key "\e;" 'cperl-indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1168 (cperl-define-key "\177" 'cperl-electric-backspace)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1169 (cperl-define-key "\t" 'cperl-indent-command)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1170 ;; 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
1171 (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
1172 [(control c) (control h) F])
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1173 (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
1174 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1175 (cperl-define-key "\C-hf"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1176 ;;(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
1177 'cperl-info-on-command
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1178 [(control h) f])
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1179 (cperl-define-key "\C-hv"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1180 ;;(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
1181 '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
1182 [(control h) v])
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1183 (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
1184 ;;(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
1185 (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
1186 [(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
1187 (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
1188 ;;(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
1189 (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
1190 [(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
1191 (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
1192 [(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
1193 (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
1194 ;;(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
1195 'cperl-get-help
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1196 [(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
1197 (if (and (featurep 'xemacs)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1198 (<= emacs-minor-version 11) (<= emacs-major-version 19))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1199 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1200 ;; 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
1201 ;;;;;(cperl-define-key "\M-q" 'cperl-fill-paragraph)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1202 (cperl-define-key "\e;" 'cperl-indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1203 (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
1204 (or (boundp 'fill-paragraph-function)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1205 (substitute-key-definition
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1206 'fill-paragraph 'cperl-fill-paragraph
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1207 cperl-mode-map global-map))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1208 (substitute-key-definition
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1209 'indent-sexp 'cperl-indent-exp
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1210 cperl-mode-map global-map)
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-region 'cperl-indent-region
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-for-comment 'cperl-indent-for-comment
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
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1218 (defvar cperl-menu)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1219 (defvar cperl-lazy-installed)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1220 (defvar cperl-old-style nil)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1221 (condition-case nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1222 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1223 (require 'easymenu)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1224 (easy-menu-define
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1225 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
1226 '("Perl"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1227 ["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
1228 ["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
1229 ["Mark function" mark-defun t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1230 ["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
1231 ["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
1232 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1233 ["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
1234 ["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
1235 ("Regexp"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1236 ["Beautify" cperl-beautify-regexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1237 cperl-use-syntax-table-text-property]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1238 ["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
1239 cperl-use-syntax-table-text-property]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1240 ["Beautify a group" cperl-beautify-level
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1241 cperl-use-syntax-table-text-property]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1242 ["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
1243 cperl-use-syntax-table-text-property]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1244 ["Contract a group" cperl-contract-level
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1245 cperl-use-syntax-table-text-property]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1246 ["Contract groups" cperl-contract-levels
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1247 cperl-use-syntax-table-text-property]
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1248 "----"
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
1249 ["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
1250 (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
1251 ["Find next interpolated (no //o)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1252 cperl-next-interpolated-REx-0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1253 (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
1254 (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
1255 ["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
1256 cperl-next-interpolated-REx-1
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 t)])
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1258 ["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
1259 ["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
1260 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1261 ["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
1262 ["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
1263 ["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
1264 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1265 ["Run" mode-compile (fboundp 'mode-compile)]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1266 ["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
1267 (get-buffer "*compilation*"))]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1268 ["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
1269 ["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
1270 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1271 ["Debugger" cperl-db t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1272 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1273 ("Tools"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1274 ["Imenu" imenu (fboundp 'imenu)]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1275 ["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
1276 "----"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1277 ["Ispell PODs" cperl-pod-spell
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1278 ;; Better not to update syntaxification here:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1279 ;; 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
1280 (or
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1281 (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
1282 (< (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1283 (and cperl-syntaxify-for-menu
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1284 (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
1285 (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
1286 (point-max)))]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1287 ["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
1288 (< (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1289 (and cperl-syntaxify-for-menu
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1290 (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
1291 (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
1292 (point-max))]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1293 ["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
1294 (eq 'here-doc (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1295 (and cperl-syntaxify-for-menu
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1296 (cperl-update-syntaxification (point) (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1297 (get-text-property (point) 'syntax-type)))]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1298 ["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
1299 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
1300 (memq (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1301 (and cperl-syntaxify-for-menu
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1302 (cperl-update-syntaxification (point) (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1303 (get-text-property (point) 'syntax-type))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1304 '(here-doc pod))]
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1305 "----"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1306 ["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
1307 (fboundp 'ps-extend-face-list)]
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 ["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
1310 (cperl-use-region-p)]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1311 ["Profile syntaxification" cperl-time-fontification t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1312 ["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
1313 ["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
1314 ["Debug backtrace on syntactic scan (BEWARE!!!)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1315 (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
1316 "----"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1317 ["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
1318 ;;["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
1319 ("Tags"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1320 ;;; ["Create tags for current file" cperl-etags t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1321 ;;; ["Add tags for current file" (cperl-etags t) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1322 ;;; ["Create tags for Perl files in directory" (cperl-etags nil t) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1323 ;;; ["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
1324 ;;; ["Create tags for Perl files in (sub)directories"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1325 ;;; (cperl-etags nil 'recursive) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1326 ;;; ["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
1327 ;;; (cperl-etags t 'recursive) t])
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1328 ;;;; 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
1329 ["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
1330 ["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
1331 ["Create tags for Perl files in directory"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1332 (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
1333 ["Add tags for Perl files in directory"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1334 (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
1335 ["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
1336 (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
1337 ["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
1338 (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
1339 ("Perl docs"
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
1340 ["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
1341 (fboundp 'imenu-go-find-at-position)]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1342 ["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
1343 ["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
1344 ["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
1345 ["Perldoc" cperl-perldoc t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1346 ["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
1347 ["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
1348 ["Auto-help on" cperl-lazy-install
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1349 (and (fboundp 'run-with-idle-timer)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1350 (not cperl-lazy-installed))]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1351 ["Auto-help off" cperl-lazy-unstall
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 cperl-lazy-installed)])
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1354 ("Toggle..."
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1355 ["Auto newline" cperl-toggle-auto-newline t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1356 ["Electric parens" cperl-toggle-electric t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1357 ["Electric keywords" cperl-toggle-abbrev t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1358 ["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
1359 ["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
1360 ["Auto fill" auto-fill-mode t])
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1361 ("Indent styles..."
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1362 ["CPerl" (cperl-set-style "CPerl") t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1363 ["PerlStyle" (cperl-set-style "PerlStyle") t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1364 ["GNU" (cperl-set-style "GNU") t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1365 ["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
1366 ["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
1367 ["BSD" (cperl-set-style "BSD") t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1368 ["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
1369 ["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
1370 ["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
1371 ("Micro-docs"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1372 ["Tips" (describe-variable 'cperl-tips) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1373 ["Problems" (describe-variable 'cperl-problems) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1374 ["Speed" (describe-variable 'cperl-speed) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1375 ["Praise" (describe-variable 'cperl-praise) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1376 ["Faces" (describe-variable 'cperl-tips-faces) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1377 ["CPerl mode" (describe-function 'cperl-mode) t]
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1378 ["CPerl version"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
1379 (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
1380 cperl-version) t]))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1381 (error nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1382
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1383 (autoload 'c-macro-expand "cmacexp"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1384 "Display the result of expanding all C macros occurring in the region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1385 The expansion is entirely correct because it uses the C preprocessor."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1386 t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1387
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1388 ;;; 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
1389 (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
1390 "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
1391 Should contain exactly one group.")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1392
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1393 ;;; 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
1394 (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
1395 "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
1396 Should contain exactly one group.")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1397
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1398
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1399 ;;; 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
1400 ;;; `cperl-outline-regexp', `defun-prompt-regexp'.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1401 ;;; 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
1402 ;;; near mentioned above variable(s)...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1403 ;;; sub($$):lvalue{} sub:lvalue{} Both allowed...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1404 (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
1405 "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
1406 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
1407 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
1408 the last)."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1409 (concat ; Assume n groups before this...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1410 "\\(" ; n+1=name-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1411 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
1412 "\\(::[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
1413 "\\)" ; END n+1=name-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1414 (if named "" "?")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1415 "\\(" ; n+4=proto-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1416 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
1417 "\\(([^()]*)\\)" ; n+6=prototype
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1418 "\\)?" ; END n+4=proto-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1419 "\\(" ; n+7=attr-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1420 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
1421 "\\(" ; n+9=start-attr
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1422 ":"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1423 (if attr (concat
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1424 "\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1425 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
1426 "\\(\\sw\\|_\\)+" ; attr-name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1427 ;; 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
1428 "\\((\\(\\\\.\\|[^\\\\()]\\|([^\\\\()]*)\\)*)\\)?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1429 "\\(" ; optional : (XXX allows trailing???)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1430 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
1431 ":\\)?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1432 "\\)+")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1433 "[^:]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1434 "\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1435 "\\)?" ; END n+6=proto-group
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 ;;; 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
1439 ;;; and `cperl-outline-level'.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1440 ;;;; 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
1441 (defvar cperl-imenu--function-name-regexp-perl
5ef08437e801 (cperl-imenu--function-name-regexp-perl):
Richard M. Stallman <rms@gnu.org>
parents: 43899
diff changeset
1442 (concat
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1443 "^\\(" ; 1 = all
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1444 "\\([ \t]*package" ; 2 = package-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1445 "\\(" ; 3 = package-name-group
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1446 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
1447 "\\([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
1448 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1449 "[ \t]*sub"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1450 (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
1451 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
1452 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1453 "=head\\([1-4]\\)[ \t]+" ; 16=level
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1454 "\\([^\n]+\\)$" ; 17=text
43943
5ef08437e801 (cperl-imenu--function-name-regexp-perl):
Richard M. Stallman <rms@gnu.org>
parents: 43899
diff changeset
1455 "\\)"))
5ef08437e801 (cperl-imenu--function-name-regexp-perl):
Richard M. Stallman <rms@gnu.org>
parents: 43899
diff changeset
1456
43899
2b9c79cd9ecb (cperl-outline-regexp): Move definition up.
Richard M. Stallman <rms@gnu.org>
parents: 43688
diff changeset
1457 (defvar cperl-outline-regexp
2b9c79cd9ecb (cperl-outline-regexp): Move definition up.
Richard M. Stallman <rms@gnu.org>
parents: 43688
diff changeset
1458 (concat cperl-imenu--function-name-regexp-perl "\\|" "\\`"))
2b9c79cd9ecb (cperl-outline-regexp): Move definition up.
Richard M. Stallman <rms@gnu.org>
parents: 43688
diff changeset
1459
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1460 (defvar cperl-mode-syntax-table nil
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
1461 "Syntax table in use in CPerl mode buffers.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1462
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1463 (defvar cperl-string-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 string-like chunks.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1465
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1466 (defsubst cperl-1- (p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1467 (max (point-min) (1- p)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1468
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 (min (point-max) (1+ p)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1471
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1472 (if cperl-mode-syntax-table
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1473 ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1474 (setq cperl-mode-syntax-table (make-syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1475 (modify-syntax-entry ?\\ "\\" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1476 (modify-syntax-entry ?/ "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1477 (modify-syntax-entry ?* "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1478 (modify-syntax-entry ?+ "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1479 (modify-syntax-entry ?- "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1480 (modify-syntax-entry ?= "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1481 (modify-syntax-entry ?% "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1482 (modify-syntax-entry ?< "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1483 (modify-syntax-entry ?> "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1484 (modify-syntax-entry ?& "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1485 (modify-syntax-entry ?$ "\\" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1486 (modify-syntax-entry ?\n ">" 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 ?` "\"" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1490 (if cperl-under-as-char
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1491 (modify-syntax-entry ?_ "w" 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 (modify-syntax-entry ?| "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1494 (setq cperl-string-syntax-table (copy-syntax-table cperl-mode-syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1495 (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
1496 (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
1497 (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
1498 (modify-syntax-entry ?# "." cperl-string-syntax-table)) ; (?# comment )
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1499
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1500
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1501
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1502 (defvar cperl-faces-init nil)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1503 ;; Fix for msb.el
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1504 (defvar cperl-msb-fixed nil)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1505 (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
1506 (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
1507 (defvar cperl-font-lock-multiline nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1508 (defvar cperl-font-locking nil)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1509
78407
377800d78812 (cperl-compilation-error-regexp-alist): Remove duplicate defvar
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
1510 ;; 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
1511 ;; 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
1512 (defvar cperl-compilation-error-regexp-alist
377800d78812 (cperl-compilation-error-regexp-alist): Remove duplicate defvar
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
1513 ;; 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
1514 '(("^[^\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
1515 2 3))
377800d78812 (cperl-compilation-error-regexp-alist): Remove duplicate defvar
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
1516 "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
1517
86503
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1518 (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
1519
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1520 ;;;###autoload
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1521 (defun cperl-mode ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1522 "Major mode for editing Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1523 Expression and list commands understand all C brackets.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1524 Tab indents for Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1525 Paragraphs are separated by blank lines only.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1526 Delete converts tabs to spaces as it moves back.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1527
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1528 Various characters in Perl almost always come in pairs: {}, (), [],
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1529 sometimes <>. When the user types the first, she gets the second as
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1530 well, with optional special formatting done on {}. (Disabled by
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1531 default.) You can always quote (with \\[quoted-insert]) the left
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1532 \"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
1533 since most the time you mean \"less\". CPerl mode tries to guess
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1534 whether you want to type pair <>, and inserts is if it
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1535 appropriate. You can set `cperl-electric-parens-string' to the string that
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1536 contains the parenths from the above list you want to be electrical.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1537 Electricity of parenths is controlled by `cperl-electric-parens'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1538 You may also set `cperl-electric-parens-mark' to have electric parens
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1539 look for active mark and \"embrace\" a region if possible.'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1540
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1541 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
1542
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1543 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
1544 for, foreach, formy and foreachmy.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1545
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1546 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
1547
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1548 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
1549 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
1550 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
1551 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
1552 } { } 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
1553 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
1554 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
1555 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
1556 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
1557
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1558 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
1559
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1560 bite if angry;
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1561
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1562 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
1563 `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
1564 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
1565 to nil.)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1566
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1567 \\[cperl-linefeed] is a convenience replacement for typing carriage
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1568 return. It places you in the next line with proper indentation, or if
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1569 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
1570
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1571 foreach (@lines) {print; print}
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1572
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1573 and you are on a boundary of a statement inside braces, it will
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1574 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
1575 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
1576 `newline-and-indent' behavior, it is on \\[newline-and-indent],
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1577 see documentation on `cperl-electric-linefeed'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1578
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1579 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
1580
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1581 if (A) { B }
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1582
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1583 into
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1584
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1585 B if A;
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1586
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1587 \\{cperl-mode-map}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1588
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1589 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
1590 \(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
1591 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
1592 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
1593 \(see also `cperl-electric-parens-mark' and `cperl-electric-parens'),
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1594 setting `cperl-electric-keywords' enables electric expansion of
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1595 control structures in CPerl. `cperl-electric-linefeed' governs which
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1596 one of two linefeed behavior is preferable. You can enable all these
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1597 options simultaneously (recommended mode of use) by setting
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1598 `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
1599 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
1600 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
1601 consequent \\[cperl-electric-backspace].
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1602
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1603 If your site has perl5 documentation in info format, you can use commands
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1604 \\[cperl-info-on-current-command] and \\[cperl-info-on-command] to access it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1605 These keys run commands `cperl-info-on-current-command' and
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1606 `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
1607 `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
1608 \(in turn affected by `cperl-hairy').
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1609
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1610 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
1611 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
1612 man via menu.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1613
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1614 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
1615 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
1616 `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
1617 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
1618 menu, or via \\[cperl-toggle-autohelp]. Requires `run-with-idle-timer'.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1619
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1620 Use \\[cperl-lineup] to vertically lineup some construction - put the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1621 beginning of the region at the start of construction, and make region
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1622 span the needed amount of lines.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1623
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1624 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
1625 `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
1626 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
1627 for indentation too, otherwise they are used for highlighting only.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1628
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1629 Variables controlling indentation style:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1630 `cperl-tab-always-indent'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1631 Non-nil means TAB in CPerl mode should always reindent the current line,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1632 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
1633 `cperl-indent-left-aligned-comments'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1634 Non-nil means that the comment starting in leftmost column should indent.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1635 `cperl-auto-newline'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1636 Non-nil means automatically newline before and after braces,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1637 and after colons and semicolons, inserted in Perl code. The following
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1638 \\[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
1639 Insertion after colons requires both this variable and
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1640 `cperl-auto-newline-after-colon' set.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1641 `cperl-auto-newline-after-colon'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1642 Non-nil means automatically newline even after colons.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1643 Subject to `cperl-auto-newline' setting.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1644 `cperl-indent-level'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1645 Indentation of Perl statements within surrounding block.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1646 The surrounding block's indentation is the indentation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1647 of the line on which the open-brace appears.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1648 `cperl-continued-statement-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1649 Extra indentation given to a substatement, such as the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1650 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
1651 `cperl-continued-brace-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1652 Extra indentation given to a brace that starts a substatement.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1653 This is in addition to `cperl-continued-statement-offset'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1654 `cperl-brace-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1655 Extra indentation for line if it starts with an open brace.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1656 `cperl-brace-imaginary-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1657 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
1658 this far to the right of the actual line indentation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1659 `cperl-label-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1660 Extra indentation for line that is a label.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1661 `cperl-min-label-indent'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1662 Minimal indentation for line that is a label.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1663
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1664 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
1665 `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
1666 `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
1667 `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
1668 `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
1669 `cperl-continued-statement-offset' 5 4 2 4
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1670
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1671 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
1672 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
1673 \\[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
1674 \(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
1675
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1676 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
1677 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
1678 templates for these constructs are created (controlled by
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1679 `cperl-extra-newline-before-brace'), and how reflow-logic should treat \"continuation\" blocks of else/elsif/continue, controlled by the same variable,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1680 and by `cperl-extra-newline-before-brace-multiline',
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1681 `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
1682
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1683 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
1684 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
1685 `cperl-brace-offset'+`cperl-continued-statement-offset'.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1686
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1687 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
1688 with no args.
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 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
1691 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
1692 `cperl-praise', `cperl-speed'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1693 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1694 (kill-all-local-variables)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1695 (use-local-map cperl-mode-map)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1696 (if (cperl-val 'cperl-electric-linefeed)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1697 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1698 (local-set-key "\C-J" 'cperl-linefeed)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1699 (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
1700 (if (and
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1701 (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
1702 (cperl-val 'cperl-info-on-command-no-prompt))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1703 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1704 ;; don't clobber the backspace binding:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1705 (cperl-define-key "\C-hf" 'cperl-info-on-current-command [(control h) f])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1706 (cperl-define-key "\C-c\C-hf" 'cperl-info-on-command
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1707 [(control c) (control h) f])))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1708 (setq major-mode cperl-use-major-mode)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1709 (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
1710 (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
1711 (define-abbrev-table 'cperl-mode-abbrev-table '(
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1712 ("if" "if" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1713 ("elsif" "elsif" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1714 ("while" "while" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1715 ("until" "until" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1716 ("unless" "unless" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1717 ("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
1718 ("continue" "continue" cperl-electric-else 0)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1719 ("for" "for" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1720 ("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
1721 ("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
1722 ("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
1723 ("do" "do" cperl-electric-keyword 0)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1724 ("=pod" "=pod" cperl-electric-pod 0)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1725 ("=over" "=over" cperl-electric-pod 0)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1726 ("=head1" "=head1" cperl-electric-pod 0)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1727 ("=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
1728 ("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
1729 ("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
1730 ("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
1731 ("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
1732 (setq abbrevs-changed prev-a-c))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1733 (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
1734 (if (cperl-val 'cperl-electric-keywords)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1735 (abbrev-mode 1))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1736 (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
1737 ;; 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
1738 (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
1739 (make-local-variable 'cperl-font-locking)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1740 (make-local-variable 'outline-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1741 ;; (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
1742 (setq outline-regexp cperl-outline-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1743 (make-local-variable 'outline-level)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1744 (setq outline-level 'cperl-outline-level)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1745 (make-local-variable 'paragraph-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1746 (setq paragraph-start (concat "^$\\|" page-delimiter))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1747 (make-local-variable 'paragraph-separate)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1748 (setq paragraph-separate paragraph-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1749 (make-local-variable 'paragraph-ignore-fill-prefix)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1750 (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
1751 (if (featurep 'xemacs)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1752 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1753 (make-local-variable 'paren-backwards-message)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1754 (set 'paren-backwards-message t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1755 (make-local-variable 'indent-line-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1756 (setq indent-line-function 'cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1757 (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
1758 (setq require-final-newline mode-require-final-newline)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1759 (make-local-variable 'comment-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1760 (setq comment-start "# ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1761 (make-local-variable 'comment-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1762 (setq comment-end "")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1763 (make-local-variable 'comment-column)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1764 (setq comment-column cperl-comment-column)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1765 (make-local-variable 'comment-start-skip)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1766 (setq comment-start-skip "#+ *")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1767 (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
1768 ;;; "[ \t]*sub"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1769 ;;; (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
1770 ;;; 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
1771 (setq defun-prompt-regexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1772 (concat "^[ \t]*\\(sub"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1773 (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
1774 "\\|" ; per toke.c
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1775 "\\(BEGIN\\|CHECK\\|INIT\\|END\\|AUTOLOAD\\|DESTROY\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1776 "\\)"
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))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1778 (make-local-variable 'comment-indent-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1779 (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
1780 (and (boundp 'fill-paragraph-function)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1781 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1782 (make-local-variable 'fill-paragraph-function)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1783 (set 'fill-paragraph-function 'cperl-fill-paragraph)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1784 (make-local-variable 'parse-sexp-ignore-comments)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1785 (setq parse-sexp-ignore-comments t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1786 (make-local-variable 'indent-region-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1787 (setq indent-region-function 'cperl-indent-region)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1788 ;;(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
1789 (make-local-variable 'imenu-create-index-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1790 (setq imenu-create-index-function
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1791 (function cperl-imenu--create-perl-index))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1792 (make-local-variable 'imenu-sort-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1793 (setq imenu-sort-function nil)
62686
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
1794 (make-local-variable 'vc-rcs-header)
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
1795 (set 'vc-rcs-header cperl-vc-rcs-header)
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
1796 (make-local-variable 'vc-sccs-header)
25f639ed2b2d (cperl-vc-header-alist): Obsoleted.
André Spiegel <spiegel@gnu.org>
parents: 62402
diff changeset
1797 (set 'vc-sccs-header cperl-vc-sccs-header)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1798 ;; This one is obsolete...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1799 (make-local-variable 'vc-header-alist)
86503
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1800 (with-no-warnings
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1801 (set 'vc-header-alist (or cperl-vc-header-alist ; Avoid warning
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1802 `((SCCS ,(car cperl-vc-sccs-header))
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1803 (RCS ,(car cperl-vc-rcs-header)))))
2c08ad76fc1f * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1804 )
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1805 (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
1806 (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
1807 (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
1808 (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
1809 (symbol-value 'compilation-error-regexp-alist-alist)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1810 (if (fboundp 'compilation-build-compilation-error-regexp-alist)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1811 (let ((f 'compilation-build-compilation-error-regexp-alist))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1812 (funcall f))
73921
9bcc33b6d297 (cperl-mode): Before adding to it, make `compilation-error-regexp-alist'
Romain Francoise <romain@orebokech.com>
parents: 73461
diff changeset
1813 (make-local-variable 'compilation-error-regexp-alist)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1814 (push 'cperl compilation-error-regexp-alist)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1815 ((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
1816 (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
1817 (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
1818 (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
1819 (symbol-value 'compilation-error-regexp-alist)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1820 (make-local-variable 'font-lock-defaults)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1821 (setq font-lock-defaults
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1822 (cond
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1823 ((string< emacs-version "19.30")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1824 '(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
1825 ((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
1826 '((cperl-font-lock-keywords
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
1827 cperl-font-lock-keywords-1
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1828 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
1829 (t
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1830 '((cperl-load-font-lock-keywords
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1831 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
1832 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
1833 (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
1834 (setq cperl-syntax-state nil) ; reset syntaxification cache
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1835 (if cperl-use-syntax-table-text-property
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1836 (progn
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
1837 (make-local-variable 'parse-sexp-lookup-properties)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1838 ;; 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
1839 (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
1840 ;; Fix broken font-lock:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1841 (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
1842 (set 'font-lock-unfontify-region-function
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1843 '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
1844 (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
1845 (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
1846 (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
1847 '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
1848 (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
1849 (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
1850 (make-local-variable 'font-lock-syntactic-keywords)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1851 (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
1852 (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
1853 '((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
1854 ;; 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
1855 ;; 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
1856 ;; 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
1857 ;; are defined.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1858 '(t)))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1859 (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
1860 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1861 (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
1862 (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
1863 (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
1864 (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
1865 'cperl-font-lock-fontify-region-function))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1866 (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
1867 (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
1868 '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
1869 (make-local-variable 'cperl-old-style)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1870 (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
1871 (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
1872 'cperl-do-auto-fill)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1873 (or (fboundp 'cperl-old-auto-fill-mode)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1874 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1875 (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
1876 (defun auto-fill-mode (&optional arg)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1877 (interactive "P")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1878 (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
1879 (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
1880 (setq auto-fill-function 'cperl-do-auto-fill))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1881 (if (cperl-enable-font-lock)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1882 (if (cperl-val 'cperl-font-lock)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1883 (progn (or cperl-faces-init (cperl-init-faces))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1884 (font-lock-mode 1))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1885 (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
1886 'cperl-facemenu-add-face-function) ; XXXX What this guy is for???
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1887 (and (boundp 'msb-menu-cond)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1888 (not cperl-msb-fixed)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1889 (cperl-msb-fix))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1890 (if (featurep 'easymenu)
22392
7300e6ab99d2 (cperl-problems): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 22391
diff changeset
1891 (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
1892 (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
1893 (if cperl-hook-after-change
77103
5e661f4001f4 (cperl-mode): Remove unnecessary call to obsolete function
Glenn Morris <rgm@gnu.org>
parents: 76299
diff changeset
1894 (add-hook 'after-change-functions 'cperl-after-change-function nil t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1895 ;; After hooks since fontification will break this
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1896 (if cperl-pod-here-scan
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1897 (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
1898 (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
1899 (cperl-find-pods-heres)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1900
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1901 ;; Fix for perldb - make default reasonable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1902 (defun cperl-db ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1903 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1904 (require 'gud)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1905 (perldb (read-from-minibuffer "Run perldb (like this): "
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1906 (if (consp gud-perldb-history)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1907 (car gud-perldb-history)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1908 (concat "perl " ;;(file-name-nondirectory
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1909 ;; I have problems
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1910 ;; in OS/2
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1911 ;; otherwise
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
1912 (buffer-file-name)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1913 nil nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1914 '(gud-perldb-history . 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1915
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1916 (defun cperl-msb-fix ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1917 ;; Adds perl files to msb menu, supposes that msb is already loaded
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1918 (setq cperl-msb-fixed t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1919 (let* ((l (length msb-menu-cond))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1920 (last (nth (1- l) msb-menu-cond))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1921 (precdr (nthcdr (- l 2) msb-menu-cond)) ; cdr of this is last
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1922 (handle (1- (nth 1 last))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1923 (setcdr precdr (list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1924 (list
36602
4bcc2745d610 (cperl-msb-fix, cperl-get-help-defer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36601
diff changeset
1925 '(memq major-mode '(cperl-mode perl-mode))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1926 handle
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1927 "Perl Files (%d)")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1928 last))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1929
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1930 ;; This is used by indent-for-comment
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1931 ;; to decide how much to indent a comment in CPerl code
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1932 ;; based on its context. Do fallback if comment is found wrong.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1933
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1934 (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
1935 (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
1936 (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
1937 (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
1938 (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
1939 (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
1940 (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
1941
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1942
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1943 (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
1944 (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
1945 (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
1946 (looking-at "^#"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1947 0 ; Existing comment at bol stays there.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1948 ;; Wrong comment found
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1949 (save-excursion
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1950 (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
1951 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
1952 cperl-st-cfence))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1953 (if phony
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1954 (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
1955 (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
1956 (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
1957 (forward-char -1))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1958 (setq was nil)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1959 (if (= (point) p) ; Our caller found a correct place
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1960 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1961 (skip-chars-backward " \t")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1962 (setq was (current-column))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1963 (if (eq was 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1964 comment-column
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1965 (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
1966 comment-column)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1967 ;; No, the caller found a random place; we need to edit ourselves
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1968 (if was nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1969 (insert comment-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1970 (backward-char (length comment-start)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1971 (setq cperl-wrong-comment t)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1972 (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
1973 c)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1974
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1975 ;;;(defun cperl-comment-indent-fallback ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1976 ;;; "Is called if the standard comment-search procedure fails.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1977 ;;;Point is at start of real comment."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1978 ;;; (let ((c (current-column)) target cnt prevc)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1979 ;;; (if (= c comment-column) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1980 ;;; (setq cnt (skip-chars-backward "[ \t]"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1981 ;;; (setq target (max (1+ (setq prevc
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1982 ;;; (current-column))) ; Else indent at comment column
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1983 ;;; comment-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1984 ;;; (if (= c comment-column) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1985 ;;; (delete-backward-char cnt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1986 ;;; (while (< prevc target)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1987 ;;; (insert "\t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1988 ;;; (setq prevc (current-column)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1989 ;;; (if (> prevc target) (progn (delete-char -1) (setq prevc (current-column))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1990 ;;; (while (< prevc target)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1991 ;;; (insert " ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1992 ;;; (setq prevc (current-column)))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1993
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1994 (defun cperl-indent-for-comment ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1995 "Substitute for `indent-for-comment' in CPerl."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1996 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1997 (let (cperl-wrong-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1998 (indent-for-comment)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
1999 (if cperl-wrong-comment ; set by `cperl-comment-indent'
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2000 (progn (cperl-to-comment-or-eol)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2001 (forward-char (length comment-start))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2002
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2003 (defun cperl-comment-region (b e arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2004 "Comment or uncomment each line in the region in CPerl mode.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2005 See `comment-region'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2006 (interactive "r\np")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2007 (let ((comment-start "#"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2008 (comment-region b e arg)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2009
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2010 (defun cperl-uncomment-region (b e arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2011 "Uncomment or comment each line in the region in CPerl mode.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2012 See `comment-region'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2013 (interactive "r\np")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2014 (let ((comment-start "#"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2015 (comment-region b e (- arg))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2016
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2017 (defvar cperl-brace-recursing nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2018
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2019 (defun cperl-electric-brace (arg &optional only-before)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2020 "Insert character and correct line's indentation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2021 If ONLY-BEFORE and `cperl-auto-newline', will insert newline before the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2022 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
2023 char is \"{\", insert extra newline before only if
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2024 `cperl-extra-newline-before-brace'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2025 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2026 (let (insertpos
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2027 (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
2028 (cperl-mark-active)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2029 (< (mark) (point)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2030 (mark)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2031 nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2032 (if (and other-end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2033 (not cperl-brace-recursing)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2034 (cperl-val 'cperl-electric-parens)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2035 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2036 ;; Need to insert a matching pair
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2037 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2038 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2039 (setq insertpos (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2040 (goto-char other-end)
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2041 (setq last-command-event ?\{)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2042 (cperl-electric-lbrace arg insertpos))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2043 (forward-char 1))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2044 ;; 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
2045 (if (and (eq last-command-event ?\})
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2046 (not
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2047 (condition-case nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2048 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2049 (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
2050 ;;(cperl-after-block-p (point-min))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2051 (or (cperl-after-expr-p nil "{;)")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2052 ;; after sub, else, continue
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2053 (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
2054 (error nil))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2055 ;; Just insert the guy
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2056 (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
2057 (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
2058 (eolp)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2059 (or (and (null only-before)
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 (skip-chars-backward " \t")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2062 (bolp)))
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2063 (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
2064 ;; 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
2065 ;; 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
2066 (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
2067 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2068 (skip-chars-backward " \t")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2069 (eq (preceding-char) ?\))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2070 (if cperl-auto-newline
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2071 (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
2072 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2073 (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
2074 (cperl-indent-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2075 (if cperl-auto-newline
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2076 (setq insertpos (1- (point))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2077 (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
2078 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2079 (newline)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2080 (cperl-indent-line)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2081 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2082 (if insertpos (progn (goto-char insertpos)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2083 (search-forward (make-string
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2084 1 last-command-event))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2085 (setq insertpos (1- (point)))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2086 (delete-char -1))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2087 (if insertpos
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2088 (save-excursion
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2089 (goto-char insertpos)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2090 (self-insert-command (prefix-numeric-value arg)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2091 (self-insert-command (prefix-numeric-value arg)))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2092
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2093 (defun cperl-electric-lbrace (arg &optional end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2094 "Insert character, correct line's indentation, correct quoting by space."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2095 (interactive "P")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2096 (let ((cperl-brace-recursing t)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2097 (cperl-auto-newline cperl-auto-newline)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2098 (other-end (or end
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2099 (if (and cperl-electric-parens-mark
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2100 (cperl-mark-active)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2101 (> (mark) (point)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2102 (save-excursion
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2103 (goto-char (mark))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2104 (point-marker))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2105 nil)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2106 pos after)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2107 (and (cperl-val 'cperl-electric-lbrace-space)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2108 (eq (preceding-char) ?$)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2109 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2110 (skip-chars-backward "$")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2111 (looking-at "\\(\\$\\$\\)*\\$\\([^\\$]\\|$\\)"))
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
2112 (insert ?\s))
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2113 ;; Check whether we are in comment
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2114 (if (and
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2115 (save-excursion
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2116 (beginning-of-line)
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2117 (not (looking-at "[ \t]*#")))
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2118 (cperl-after-expr-p nil "{;)"))
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2119 nil
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
2120 (setq cperl-auto-newline nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2121 (cperl-electric-brace arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2122 (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
2123 (eq last-command-event ?{)
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2124 (memq last-command-event
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2125 (append cperl-electric-parens-string nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2126 (or (if other-end (goto-char (marker-position other-end)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2127 t)
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2128 (setq last-command-event ?} pos (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2129 (progn (cperl-electric-brace arg t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2130 (goto-char pos)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2131
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2132 (defun cperl-electric-paren (arg)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2133 "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
2134 See `cperl-electric-parens'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2135 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2136 (let ((beg (save-excursion (beginning-of-line) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2137 (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
2138 (cperl-mark-active)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2139 (> (mark) (point)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2140 (save-excursion
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2141 (goto-char (mark))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2142 (point-marker))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2143 nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2144 (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
2145 (memq last-command-event
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2146 (append cperl-electric-parens-string nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2147 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2148 ;;(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
2149 (if (eq last-command-event ?<)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2150 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2151 (and abbrev-mode ; later it is too late, may be after `for'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2152 (expand-abbrev))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2153 (cperl-after-expr-p nil "{;(,:="))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2154 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2155 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2156 (self-insert-command (prefix-numeric-value arg))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2157 (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
2158 (insert (make-string
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2159 (prefix-numeric-value arg)
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2160 (cdr (assoc last-command-event '((?{ .?})
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2161 (?[ . ?])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2162 (?( . ?))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2163 (?< . ?>))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2164 (forward-char (- (prefix-numeric-value arg))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2165 (self-insert-command (prefix-numeric-value arg)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2166
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2167 (defun cperl-electric-rparen (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2168 "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
2169 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
2170 Affected by `cperl-electric-parens'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2171 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2172 (let ((beg (save-excursion (beginning-of-line) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2173 (other-end (if (and cperl-electric-parens-mark
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2174 (cperl-val 'cperl-electric-parens)
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2175 (memq last-command-event
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2176 (append cperl-electric-parens-string nil))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2177 (cperl-mark-active)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2178 (< (mark) (point)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2179 (mark)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2180 nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2181 p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2182 (if (and other-end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2183 (cperl-val 'cperl-electric-parens)
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2184 (memq last-command-event '( ?\) ?\] ?\} ?\> ))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2185 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2186 ;;(not (save-excursion (search-backward "#" beg t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2187 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2188 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2189 (self-insert-command (prefix-numeric-value arg))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2190 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2191 (if other-end (goto-char other-end))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2192 (insert (make-string
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2193 (prefix-numeric-value arg)
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2194 (cdr (assoc last-command-event '((?\} . ?\{)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2195 (?\] . ?\[)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2196 (?\) . ?\()
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2197 (?\> . ?\<))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2198 (goto-char (1+ p)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2199 (self-insert-command (prefix-numeric-value arg)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2200
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2201 (defun cperl-electric-keyword ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2202 "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
2203 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
2204 to nil."
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2205 (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
2206 (dollar (and (eq last-command-event ?$)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2207 (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
2208 (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
2209 (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
2210 my do)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2211 (and (save-excursion
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2212 (condition-case nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2213 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2214 (backward-sexp 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2215 (setq do (looking-at "do\\>")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2216 (error nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2217 (cperl-after-expr-p nil "{;:"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2218 (save-excursion
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2219 (not
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2220 (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
2221 "[#\"'`]\\|\\<q\\(\\|[wqxr]\\)\\>"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2222 beg t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2223 (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
2224 (or
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2225 (looking-at "=cut")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2226 (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
2227 (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
2228 'syntax-type)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2229 'pod))))))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2230 (save-excursion (forward-sexp -1)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2231 (not (memq (following-char) (append "$@%&*" nil))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2232 (progn
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2233 (and (eq (preceding-char) ?y)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2234 (progn ; "foreachmy"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2235 (forward-char -2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2236 (insert " ")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2237 (forward-char 2)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2238 (setq my t dollar t
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2239 delete
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2240 (memq this-command '(self-insert-command newline)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2241 (and dollar (insert " $"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2242 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2243 ;;(insert " () {\n}")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2244 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2245 (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
2246 (insert (if do "\n" " ()\n"))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2247 (insert "{")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2248 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2249 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2250 (cperl-indent-line)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2251 (insert "\n}")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2252 (and do (insert " while ();")))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2253 (t
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2254 (insert (if do " {\n} while ();" " () {\n}"))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2255 (or (looking-at "[ \t]\\|$") (insert " "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2256 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2257 (if dollar (progn (search-backward "$")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2258 (if my
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2259 (forward-char 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2260 (delete-char 1)))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2261 (search-backward ")")
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2262 (if (eq last-command-event ?\()
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2263 (progn ; Avoid "if (())"
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2264 (delete-backward-char 1)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2265 (delete-backward-char -1))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2266 (if delete
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2267 (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
2268 (if cperl-message-electric-keyword
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2269 (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
2270
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2271 (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
2272 "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
2273 (or pos (setq pos (point)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2274 (if (looking-at "\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2275 (forward-char 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2276 (insert "\n"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2277 (if (> n 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2278 (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
2279 (goto-char pos)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2280
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2281 (defun cperl-electric-pod ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2282 "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
2283 (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
2284 (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
2285 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
2286 (and (save-excursion
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2287 (forward-word -1)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
2288 (and
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2289 (eq (preceding-char) ?=)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2290 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2291 (setq head1 (looking-at "head1\\>[ \t]*$"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2292 (setq over (and (looking-at "over\\>[ \t]*$")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2293 (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
2294 (forward-char -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2295 (bolp))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2296 (or
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2297 (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
2298 (cperl-after-expr-p nil "{;:")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2299 (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
2300 (not (looking-at "\n*=cut"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2301 (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
2302 (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
2303 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2304 (save-excursion
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2305 (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
2306 (or notlast
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2307 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2308 (insert "\n\n=cut")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2309 (cperl-ensure-newlines 2)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2310 (forward-word -2)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
2311 (if (and head1
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
2312 (not
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2313 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2314 (forward-char -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2315 (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
2316 nil t)))) ; Only one
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
2317 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2318 (forward-word 1)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2319 (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
2320 (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
2321 p (point))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2322 (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
2323 " - \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
2324 "=head1 DESCRIPTION")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2325 (cperl-ensure-newlines 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2326 (goto-char p)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2327 (forward-word 2)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2328 (end-of-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2329 (setq really-delete t))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2330 (forward-word 1))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2331 (if over
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2332 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2333 (setq p (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2334 (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
2335 "=back")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2336 (cperl-ensure-newlines 2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2337 (goto-char p)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2338 (forward-word 1)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2339 (end-of-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2340 (setq really-delete t)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2341 (if (and delete really-delete)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2342 (cperl-putback-char cperl-del-back-ch))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2343
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2344 (defun cperl-electric-else ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2345 "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
2346 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
2347 to nil."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2348 (let ((beg (save-excursion (beginning-of-line) (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2349 (and (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2350 (backward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2351 (cperl-after-expr-p nil "{;:"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2352 (save-excursion
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2353 (not
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2354 (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
2355 "[#\"'`]\\|\\<q\\(\\|[wqxr]\\)\\>"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2356 beg t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2357 (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
2358 (looking-at "=cut")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2359 (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
2360 (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
2361 'syntax-type)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2362 'pod)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2363 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2364 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2365 ;;(insert " {\n\n}")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2366 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2367 (cperl-extra-newline-before-brace
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2368 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2369 (insert "{")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2370 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2371 (insert "\n\n}"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2372 (t
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2373 (insert " {\n\n}")))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2374 (or (looking-at "[ \t]\\|$") (insert " "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2375 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2376 (forward-line -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2377 (cperl-indent-line)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2378 (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
2379 (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
2380 (if cperl-message-electric-keyword
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2381 (message "Precede char by C-q to avoid expansion"))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2382
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2383 (defun cperl-linefeed ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2384 "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
2385 If in POD, insert appropriate lines."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2386 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2387 (let ((beg (save-excursion (beginning-of-line) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2388 (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
2389 (pos (point)) start over cut res)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2390 (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
2391 ; i.e., on a boundary and inside "{...}"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2392 (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
2393 (>= (point) pos)) ; Not in a comment
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2394 (or (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2395 (skip-chars-backward " \t" beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2396 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2397 (looking-at "[;{]")) ; After { or ; + spaces
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2398 (looking-at "[ \t]*}") ; Before }
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2399 (re-search-forward "\\=[ \t]*;" end t)) ; Before spaces + ;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2400 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2401 (and
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2402 (eq (car (parse-partial-sexp pos end -1)) -1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2403 ; Leave the level of parens
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2404 (looking-at "[,; \t]*\\($\\|#\\)") ; Comma to allow anon subr
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2405 ; Are at end
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2406 (cperl-after-block-p (point-min))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2407 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2408 (backward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2409 (setq start (point-marker))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2410 (<= start pos))))) ; Redundant? Are after the
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2411 ; start of parens group.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2412 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2413 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2414 (or (memq (preceding-char) (append ";{" nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2415 (insert ";"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2416 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2417 (forward-line -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2418 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2419 (goto-char start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2420 (or (looking-at "{[ \t]*$") ; If there is a statement
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2421 ; before, move it to separate line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2422 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2423 (forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2424 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2425 (cperl-indent-line)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2426 (forward-line 1) ; We are on the target line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2427 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2428 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2429 (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
2430 ; after, move it to separate line
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2431 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2432 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2433 (search-backward "}" beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2434 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2435 (or (memq (preceding-char) (append ";{" nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2436 (insert ";"))
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)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2440 (forward-line -1) ; We are on the line before target
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2441 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2442 (newline-and-indent))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2443 (end-of-line) ; else - no splitting
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2444 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2445 ((and (looking-at "\n[ \t]*{$")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2446 (save-excursion
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 (eq (preceding-char) ?\)))) ; Probably if () {} group
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2449 ; with an extra newline.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2450 (forward-line 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2451 (cperl-indent-line))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2452 ((save-excursion ; In POD header
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2453 (forward-paragraph -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2454 ;; (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
2455 ;; 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
2456 (if (looking-at "\\(\\`\n?\\|\n\\)=\\sw+")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2457 (progn
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2458 (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
2459 (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
2460 t)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2461 (if (and over
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2462 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2463 (forward-paragraph -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2464 (forward-word 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2465 (setq pos (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2466 (setq cut (buffer-substring (point)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2467 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2468 (end-of-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2469 (point))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2470 (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
2471 (point)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2472 (setq res (expand-abbrev))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2473 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2474 (goto-char pos)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2475 (insert cut))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2476 res))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2477 nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2478 (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
2479 (forward-line 2)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2480 ((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
2481 (cperl-ensure-newlines 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2482 (forward-line 2))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2483 ((looking-at "\n[ \t]*$") ; Next line is empty - use it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2484 (forward-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2485 (cperl-indent-line))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2486 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2487 (newline-and-indent))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2488
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2489 (defun cperl-electric-semi (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2490 "Insert character and correct line's indentation."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2491 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2492 (if cperl-auto-newline
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2493 (cperl-electric-terminator arg)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2494 (self-insert-command (prefix-numeric-value arg))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2495 (if cperl-autoindent-on-semi
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2496 (cperl-indent-line))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2497
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2498 (defun cperl-electric-terminator (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2499 "Insert character and correct line's indentation."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2500 (interactive "P")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2501 (let ((end (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2502 (auto (and cperl-auto-newline
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
2503 (or (not (eq last-command-event ?:))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2504 cperl-auto-newline-after-colon)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2505 insertpos)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2506 (if (and ;;(not arg)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2507 (eolp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2508 (not (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2509 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2510 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2511 (or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2512 ;; Ignore in comment lines
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2513 (= (following-char) ?#)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2514 ;; Colon is special only after a label
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2515 ;; So quickly rule out most other uses of colon
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2516 ;; 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
2517 (and (eq last-command-event ?:)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2518 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2519 (forward-word 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2520 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2521 (and (< (point) end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2522 (progn (goto-char (- end 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2523 (not (looking-at ":"))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2524 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2525 (beginning-of-defun)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2526 (let ((pps (parse-partial-sexp (point) end)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2527 (or (nth 3 pps) (nth 4 pps) (nth 5 pps))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2528 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2529 (self-insert-command (prefix-numeric-value arg))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2530 ;;(forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2531 (if auto (setq insertpos (point-marker)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2532 ;;(forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2533 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2534 (if auto
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2535 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2536 (newline)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2537 (cperl-indent-line)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2538 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2539 (if insertpos (goto-char (1- (marker-position insertpos)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2540 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2541 (delete-char 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2542 (if insertpos
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2543 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2544 (goto-char insertpos)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2545 (self-insert-command (prefix-numeric-value arg)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2546 (self-insert-command (prefix-numeric-value arg)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2547
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2548 (defun cperl-electric-backspace (arg)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2549 "Backspace, or remove the whitespace around the point inserted by an electric
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2550 key. Will untabify if `cperl-electric-backspace-untabify' is non-nil."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2551 (interactive "p")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2552 (if (and cperl-auto-newline
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2553 (memq last-command '(cperl-electric-semi
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2554 cperl-electric-terminator
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2555 cperl-electric-lbrace))
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
2556 (memq (preceding-char) '(?\s ?\t ?\n)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2557 (let (p)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2558 (if (eq last-command 'cperl-electric-lbrace)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2559 (skip-chars-forward " \t\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2560 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2561 (skip-chars-backward " \t\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2562 (delete-region (point) p))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2563 (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
2564 ;; 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
2565 (setq this-command 'cperl-electric-else-really))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2566 (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
2567 (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
2568 (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
2569 (let (p)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2570 (skip-chars-forward " \t\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2571 (setq p (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2572 (skip-chars-backward " \t\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2573 (delete-region (point) p))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2574 (if cperl-electric-backspace-untabify
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2575 (backward-delete-char-untabify arg)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
2576 (delete-backward-char arg)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2577
50255
a716a67fdf9d (cperl-electric-backspace): Add delete-selection property.
Kim F. Storm <storm@cua.dk>
parents: 49919
diff changeset
2578 (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
2579
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2580 (defun cperl-inside-parens-p () ;; NOT USED????
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2581 (condition-case ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2582 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2583 (save-restriction
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2584 (narrow-to-region (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2585 (progn (beginning-of-defun) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2586 (goto-char (point-max))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2587 (= (char-after (or (scan-lists (point) -1 1) (point-min))) ?\()))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2588 (error nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2589
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2590 (defun cperl-indent-command (&optional whole-exp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2591 "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
2592 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
2593 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
2594 or in the line's indentation; otherwise insert a tab.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2595
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2596 A numeric argument, regardless of its value,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2597 means indent rigidly all the lines of the expression starting after point
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2598 so that this line becomes properly indented.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2599 The relative indentation among the lines of the expression are preserved."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2600 (interactive "P")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2601 (cperl-update-syntaxification (point) (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2602 (if whole-exp
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2603 ;; If arg, always indent this line as Perl
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2604 ;; and shift remaining lines of expression the same amount.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2605 (let ((shift-amt (cperl-indent-line))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2606 beg end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2607 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2608 (if cperl-tab-always-indent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2609 (beginning-of-line))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2610 (setq beg (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2611 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2612 (setq end (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2613 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2614 (forward-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2615 (setq beg (point)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2616 (if (and shift-amt (> end beg))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2617 (indent-code-rigidly beg end shift-amt "#")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2618 (if (and (not cperl-tab-always-indent)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2619 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2620 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2621 (not (bolp))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2622 (insert-tab)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2623 (cperl-indent-line))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2624
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2625 (defun cperl-indent-line (&optional parse-data)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2626 "Indent current line as Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2627 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
2628 (let ((case-fold-search nil)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2629 (pos (- (point-max) (point)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
2630 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
2631 (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
2632 i indent)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2633 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2634 (setq beg (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2635 (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
2636 (setq indent (current-indentation) i nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2637 ;;((eq indent t) ; Never?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2638 ;; (setq indent (cperl-calculate-indent-within-comment)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2639 ;;((looking-at "[ \t]*#")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2640 ;; (setq indent 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2641 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2642 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2643 (if (listp indent) (setq indent (car indent)))
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2644 (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
2645 (not (looking-at "[smy]:\\|tr:")))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2646 (and (> indent 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2647 (setq indent (max cperl-min-label-indent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2648 (+ indent cperl-label-offset)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2649 ((= (following-char) ?})
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2650 (setq indent (- indent cperl-indent-level)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2651 ((memq (following-char) '(?\) ?\])) ; To line up with opening paren.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2652 (setq indent (+ indent cperl-close-paren-offset)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2653 ((= (following-char) ?{)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2654 (setq indent (+ indent cperl-brace-offset))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2655 (skip-chars-forward " \t")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2656 (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
2657 (if (or (not shift-amt)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2658 (zerop shift-amt))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2659 (if (> (- (point-max) pos) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2660 (goto-char (- (point-max) pos)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2661 ;;;(delete-region beg (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2662 ;;;(indent-to indent)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2663 (cperl-make-indent indent)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2664 ;; If initial point was within line's indentation,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2665 ;; position after the indentation. Else stay at same point in text.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2666 (if (> (- (point-max) pos) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2667 (goto-char (- (point-max) pos))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2668 shift-amt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2669
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2670 (defun cperl-after-label ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2671 ;; Returns true if the point is after label. Does not do save-excursion.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2672 (and (eq (preceding-char) ?:)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2673 (memq (char-syntax (char-after (- (point) 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2674 '(?w ?_))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2675 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2676 (backward-sexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2677 (looking-at "[a-zA-Z_][a-zA-Z0-9_]*:[^:]"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2678
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2679 (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
2680 ;; 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
2681 ;; 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
2682 ;; 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
2683 ;; 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
2684 ;; 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
2685 ;; which contains START.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2686 ;; PRESTART is the position basing on which START was found.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2687 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2688 (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
2689 (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
2690 (<= parse-start start-point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2691 (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
2692 (beginning-of-defun)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2693 (setq start-state nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2694 (setq prestart (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2695 (if start-state nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2696 ;; Try to go out, if sub is not on the outermost level
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2697 (while (< (point) start-point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2698 (setq start (point) parse-start start depth nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2699 state (parse-partial-sexp start start-point -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2700 (if (> (car state) -1) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2701 ;; The current line could start like }}}, so the indentation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2702 ;; corresponds to a different level than what we reached
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2703 (setq depth t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2704 (beginning-of-line 2))) ; Go to the next line.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2705 (if start (goto-char start))) ; Not at the start of file
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2706 (setq start (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2707 (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
2708 (list start state depth prestart))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2709
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2710 (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
2711
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2712 (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
2713 "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
2714 Will not look before LIM."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2715 ;;; 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
2716 (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
2717 (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2718 ;;; (cond ((eq p (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2719 ;;; p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2720 ;;; ((and lim (<= p lim))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2721 ;;; p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2722 ;;; ((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
2723 ;;; p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2724 ;;; (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
2725 ;;; (point-min))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2726 )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2727
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2728 (defun cperl-sniff-for-indent (&optional parse-data) ; was parse-start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2729 ;; Old workhorse for calculation of indentation; the major problem
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2730 ;; is that it mixes the sniffer logic to understand what the current line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2731 ;; MEANS with the logic to actually calculate where to indent it.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2732 ;; The latter part should be eventually moved to `cperl-calculate-indent';
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2733 ;; actually, this is mostly done now...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2734 (cperl-update-syntaxification (point) (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2735 (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
2736 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2737 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2738 ((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
2739 (not (get-text-property (point) 'indentable)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2740 (vector res))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2741 ;; 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
2742 ((looking-at "[ \t]*\n=")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2743 (error "Spaces before POD section!"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2744 ((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
2745 (looking-at "^#"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2746 [comment-special:at-beginning-of-line])
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2747 ((get-text-property (point) 'in-pod)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2748 [in-pod])
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2749 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2750 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2751 (let* ((indent-point (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2752 (char-after-pos (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2753 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2754 (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2755 (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
2756 (pre-indent-point (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2757 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
2758 (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
2759 (cperl-backward-to-noncomment nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2760 (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
2761 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
2762 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
2763 'syntax-type))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2764 (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
2765 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2766 (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
2767 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2768 (setq pre-indent-point (point)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2769 (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
2770 (let* ((case-fold-search nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2771 (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
2772 (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
2773 (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
2774 (state (nth 1 s-s))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2775 (containing-sexp (car (cdr state)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2776 old-indent)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2777 (if (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2778 ;;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
2779 parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2780 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2781 (setcar parse-data pre-indent-point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2782 (setcar (cdr parse-data) state)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2783 (or (nth 2 parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2784 (setcar (cddr parse-data) start))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2785 ;; Before this point: end of statement
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2786 (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
2787 (cond ((get-text-property (point) 'indentable)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2788 ;; indent to "after" the surrounding open
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2789 ;; (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
2790 ;; 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
2791 (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
2792 (get-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2793 (cperl-1+ char-after-pos) 'indentable)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2794 p (1+ (cperl-beginning-of-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2795 (point) 'indentable))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2796 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
2797 (save-excursion ; Find preceeding line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2798 (cperl-backward-to-noncomment p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2799 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2800 (if (<= (point) p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2801 (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
2802 (goto-char p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2803 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2804 (if (memq (char-after (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2805 (append "#\n" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2806 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
2807 (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2808 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2809 (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2810 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
2811 (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
2812 (vector 'indentable 'terminator p is-block))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2813 (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
2814 (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
2815 is-block char-after p))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2816 (t ; No preceeding line...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2817 (vector 'indentable 'first-line p))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2818 ((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
2819 (vector 'REx-part2 (point)))
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2820 ((nth 4 state)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2821 [comment])
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2822 ((nth 3 state)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2823 [string])
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2824 ;; 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
2825 ((null containing-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2826 ;; 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
2827 ;; or may be function argument declaration.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2828 ;; 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
2829 ;; 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
2830 ;; 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
2831 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2832 (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
2833 (setq state
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2834 (or (bobp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2835 (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
2836 (eq (preceding-char) ?\;)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2837 ;; Had ?\) too
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2838 (and (eq (preceding-char) ?\})
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2839 (cperl-after-block-and-statement-beg
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2840 (point-min))) ; Was start - too close
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2841 (memq char-after (append ")]}" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2842 (and (eq (preceding-char) ?\:) ; label
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2843 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2844 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2845 (skip-chars-backward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2846 (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
2847 (get-text-property (point) 'first-format-line)))
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
2848
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2849 ;; 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
2850 ;; 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
2851 ;; 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
2852 ;; 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
2853 (and state
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2854 parse-data
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2855 (not (eq char-after ?\C-j))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2856 (setcdr (cddr parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2857 (list pre-indent-point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2858 (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
2859 ((not
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2860 (or (setq is-block
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2861 (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
2862 (save-excursion ; Is it a hash?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2863 (goto-char containing-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2864 (cperl-block-p))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2865 cperl-indent-parens-as-block))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2866 ;; 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
2867 ;; 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
2868 ;; 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
2869 (goto-char (1+ containing-sexp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2870 (or (memq char-after
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2871 (append (if delim "}" ")]}") nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2872 (looking-at "[ \t]*\\(#\\|$\\)")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2873 (skip-chars-forward " \t"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2874 (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
2875 (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
2876 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2877 ;; 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
2878 ;; Find previous non-comment character.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2879 (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
2880 (cperl-backward-to-noncomment containing-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2881 ;; 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
2882 ;; 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
2883 ;; (Had \, too)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2884 (while;;(or (eq (preceding-char) ?\,)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2885 (and (eq (preceding-char) ?:)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2886 (or;;(eq (char-after (- (point) 2)) ?\') ; ????
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2887 (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
2888 '(?w ?_))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2889 ;;)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2890 ;; This is always FALSE?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2891 (if (eq (preceding-char) ?\,)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2892 ;; 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
2893 ;; Will ignore embedded sexpr XXXX.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2894 (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
2895 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2896 (cperl-backward-to-noncomment containing-sexp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2897 ;; 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
2898 (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
2899 (memq (preceding-char)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2900 (append (if is-block " ;{" " ,;{") '(nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2901 (and (eq (preceding-char) ?\})
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2902 (cperl-after-block-and-statement-beg
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2903 containing-sexp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2904 (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
2905 ;; 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
2906 ;; 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
2907 ;; previous line of the statement.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2908 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2909 ;; 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
2910 ;; 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
2911 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2912 (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
2913 (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
2914 ;; This line starts a new statement.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2915 ;; Position following last unclosed open brace
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2916 (goto-char containing-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2917 ;; 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
2918 (or
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2919 ;; 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
2920 ;; 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
2921 ;; 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
2922 ;; small.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2923 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2924 (forward-char 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2925 (let ((colon-line-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2926 (while
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2927 (progn (skip-chars-forward " \t\n")
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2928 ;; s: foo : bar :x is NOT label
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
2929 (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
2930 (not (looking-at "[sym]:\\|tr:"))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2931 ;; 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
2932 (cond ((= (following-char) ?\#)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2933 (forward-line 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2934 ((= (following-char) ?\=)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2935 (goto-char
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2936 (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
2937 (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
2938 ;; label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2939 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2940 (save-excursion (end-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2941 (setq colon-line-end (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2942 (search-forward ":"))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2943 ;; 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
2944 ;; First, the following code counts
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2945 ;; 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
2946 (and (< (point) indent-point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2947 (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
2948 containing-sexp))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2949 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2950 ;; If no previous statement,
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2951 ;; 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
2952
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2953 ;; 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
2954 ;; add in cperl-brace-imaginary-offset.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2955
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2956 ;; If first thing on a line: ?????
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2957 ;; 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
2958 (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
2959 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
2960 ;; 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
2961 ;; 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
2962 (or cperl-indent-wrt-brace
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2963 (cperl-backward-to-noncomment (point-min)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2964 ;; 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
2965 ;; move to the beginning of that;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2966 (if (eq (preceding-char) ?\))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2967 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2968 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2969 (cperl-backward-to-noncomment (point-min))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2970 ;; 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
2971 ;; 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
2972 ;; 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
2973 ;; anonymous sub in a hash.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2974 (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
2975 (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
2976 (goto-char (cperl-beginning-of-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2977 (point) 'attrib-group)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2978 ((eq (preceding-char) ?b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2979 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2980 (looking-at "sub\\>")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2981 (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
2982 (parse-partial-sexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2983 (save-excursion (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2984 (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2985 (point)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2986 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2987 (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
2988 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2989 (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
2990 (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
2991 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
2992 t (point) ; have something before...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2993 )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2994 ;;(current-column)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2995 )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
2996 ;; 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
2997 ;; 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
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
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3001 nil (point))))))))))))))) ; nothing interesting before
73331
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 (defvar cperl-indent-rules-alist
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3004 '((pod nil) ; via `syntax-type' property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3005 (here-doc nil) ; via `syntax-type' property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3006 (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
3007 (format nil) ; via `syntax-type' property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3008 (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
3009 (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
3010 (string t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3011 (comment nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3012 "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
3013 The values mean:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3014 nil: do not indent;
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3015 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
3016
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3017 (defun cperl-calculate-indent (&optional parse-data) ; was parse-start
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3018 "Return appropriate indentation for current line as Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3019 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
3020 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
3021
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3022 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
3023 and closing parentheses and brackets."
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3024 ;; 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
3025 ;; compensate for some modifications which `cperl-indent-line' will add later
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3026 (save-excursion
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3027 (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
3028 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3029 ;;((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
3030 ;; i)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3031 ((vectorp i)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3032 (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
3033 (cond
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3034 (what (cadr what)) ; Load from table
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3035 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3036 ;; 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
3037 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3038 ((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
3039 (goto-char (elt i 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3040 (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
3041 (forward-sexp -1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3042 (current-column))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3043 ((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
3044 (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
3045 ((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
3046 (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
3047 (1- (current-column)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3048 ((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
3049 (goto-char (elt i 2))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3050 (+ (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
3051 -1
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3052 (current-column)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3053 ((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
3054 ;; 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
3055 (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
3056 (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
3057 (setq p (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3058 (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
3059 (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
3060 ;; Number of parens in between:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3061 (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
3062 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
3063 (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
3064 (+ (* 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
3065 (cond ((eq what ?\) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3066 (- cperl-close-paren-offset)) ; compensate
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3067 ((eq what ?\| )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3068 (- (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
3069 (t 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3070 (if (eq (following-char) ?\| )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3071 (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
3072 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3073 (current-column)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3074 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3075 (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
3076 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3077 ;; Indenter for stuff at toplevel
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3078 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3079 ((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
3080 (+ (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
3081 (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
3082 (- (current-indentation) ;
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3083 (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
3084 (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
3085 ;; 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
3086 ;; 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
3087 ;; 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
3088 ;; 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
3089 (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
3090 0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3091 cperl-continued-statement-offset)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3092 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3093 ;; 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
3094 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3095 ((eq 'in-parens (elt i 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3096 ;; 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
3097
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3098 ;; 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
3099 ;; 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
3100 ;; 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
3101 (+ (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3102 (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
3103 (current-column))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3104 (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
3105 (eq (elt i 1) ?\})) ; char-after
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3106 ;; Correct indentation of trailing ?\}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3107 (+ 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
3108 0)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3109 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3110 ;; Indenter for continuation lines
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3111 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3112 ((eq 'continuation (elt i 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3113 ;; [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
3114 (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
3115 (+ (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
3116 0 ; Closing parenth
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3117 cperl-continued-statement-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3118 (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
3119 (not (elt i 4)) ; is-brace
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3120 (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
3121 0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3122 ;; Now it is a hash reference
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3123 (+ 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
3124 ;; Labels do not take :: ...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3125 (if (looking-at "\\(\\w\\|_\\)+[ \t]*:")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3126 (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
3127 (- (current-indentation) cperl-label-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3128 ;; 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
3129 ;; be quick anyway (this comment comes
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3130 ;; from different location):
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3131 (cperl-calculate-indent))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3132 (current-column))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3133 (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
3134 cperl-continued-brace-offset 0)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3135 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3136 ;; 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
3137 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3138 ((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
3139 ;; [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
3140 (goto-char (elt i 1)) ; sibling-beg
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3141 (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
3142 (if (> (current-indentation)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3143 cperl-min-label-indent)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3144 (- (current-indentation) cperl-label-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3145 ;; 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
3146 (+ cperl-indent-level
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3147 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3148 (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
3149 (current-indentation))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3150 (current-column)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3151 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3152 ;; 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
3153 ;;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3154 ((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
3155 ;;[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
3156 ;; 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
3157 ;; 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
3158 (goto-char (elt i 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3159 ;; 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
3160 ;; 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
3161 ;; 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
3162 (+ (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
3163 (+ 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
3164 cperl-indent-level)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3165 (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
3166 (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
3167 (+ 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
3168 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3169 ;; 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
3170 ;; add the cperl-brace-imaginary-offset.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3171 (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
3172 cperl-brace-imaginary-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3173 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3174 (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
3175 (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
3176 (current-column)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3177 ;; 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
3178 ;; 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
3179 (if (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3180 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3181 (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
3182 (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
3183 (- (current-indentation) cperl-label-offset)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3184 ;; 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
3185 ;; be quick anyway:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3186 (cperl-calculate-indent))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3187 (current-indentation))))))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3188 (t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3189 (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
3190 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3191 (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
3192
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3193 (defun cperl-calculate-indent-within-comment ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3194 "Return the indentation amount for line, assuming that
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3195 the current line is to be regarded as part of a block comment."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3196 (let (end star-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3197 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3198 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3199 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3200 (setq end (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3201 (and (= (following-char) ?#)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3202 (forward-line -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3203 (cperl-to-comment-or-eol)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3204 (setq end (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3205 (goto-char end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3206 (current-column))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3207
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3208
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3209 (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
3210 "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
3211 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
3212 ;; 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
3213 ;; 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
3214 (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
3215 (or cperl-font-locking
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3216 (cperl-update-syntaxification lim lim))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3217 (beginning-of-line)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3218 (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
3219 (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
3220 (if (or (eq pr 'pod)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3221 (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
3222 (re-search-forward "\\=[ \t]*\\(#\\|$\\)" lim t)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3223 (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
3224 ;; 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
3225 (and (and e (<= e lim))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3226 (goto-char e))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3227 (while (not stop-in)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3228 (setq state (parse-partial-sexp (point) lim nil nil nil t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3229 ; stop at comment
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3230 ;; 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
3231 (if (nth 4 state) ; After `#';
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3232 ; (nth 2 state) can be
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3233 ; beginning of m,s,qq and so
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3234 ; on
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3235 (if (nth 2 state)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3236 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3237 (setq cpoint (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3238 (goto-char (nth 2 state))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3239 (cond
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3240 ((looking-at "\\(s\\|tr\\)\\>")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3241 (or (re-search-forward
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3242 "\\=\\w+[ \t]*#\\([^\n\\\\#]\\|\\\\[\\\\#]\\)*#\\([^\n\\\\#]\\|\\\\[\\\\#]\\)*"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3243 lim 'move)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3244 (setq stop-in t)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3245 ((looking-at "\\(m\\|q\\([qxwr]\\)?\\)\\>")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3246 (or (re-search-forward
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3247 "\\=\\w+[ \t]*#\\([^\n\\\\#]\\|\\\\[\\\\#]\\)*#"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3248 lim 'move)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3249 (setq stop-in t)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3250 (t ; It was fair comment
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3251 (setq stop-in t) ; Finish
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3252 (goto-char (1- cpoint)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3253 (setq stop-in t) ; Finish
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3254 (forward-char -1))
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
3255 (setq stop-in t))) ; Finish
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3256 (nth 4 state))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3257
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3258 (defsubst cperl-modify-syntax-type (at how)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3259 (if (< at (point-max))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3260 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3261 (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
3262 (put-text-property at (1+ at) 'rear-nonsticky '(syntax-table)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3263
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3264 (defun cperl-protect-defun-start (s e)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3265 ;; C code looks for "^\\s(" to skip comment backward in "hard" situations
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3266 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3267 (goto-char s)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3268 (while (re-search-forward "^\\s(" e 'to-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3269 (put-text-property (1- (point)) (point) 'syntax-table cperl-st-punct))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3270
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3271 (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
3272 (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
3273 (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
3274 nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3275 ;; We suppose that e is _after_ the end of construction, as after eol.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3276 (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
3277 (if (> bb (- e 2))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3278 ;; one-char string/comment?!
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3279 (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
3280 (cperl-modify-syntax-type bb string)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3281 (cperl-modify-syntax-type (1- e) string))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3282 (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
3283 (put-text-property (1+ bb) (1- e)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3284 '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
3285 (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
3286 ;; Fontify
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3287 (or noface
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3288 (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
3289 (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
3290 'font-lock-comment-face)))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3291
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3292 (defvar cperl-starters '(( ?\( . ?\) )
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3293 ( ?\[ . ?\] )
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3294 ( ?\{ . ?\} )
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3295 ( ?\< . ?\> )))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3296
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3297 (defun cperl-cached-syntax-table (st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3298 "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
3299 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
3300 is quoting."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3301 (if (car-safe st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3302 (car st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3303 (setcar st (make-syntax-table))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3304 (setq st (car st))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3305 (let ((i 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3306 (while (< i 256)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3307 (modify-syntax-entry i "." st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3308 (setq i (1+ i))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3309 (modify-syntax-entry ?\\ "\\" st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3310 st))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3311
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3312 (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
3313 &optional ostart oend)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3314 "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
3315 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
3316
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3317 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
3318 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
3319 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
3320 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
3321 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
3322 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
3323 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
3324 the second argument of 2ARG construct.
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 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
3327 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
3328 (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
3329 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3330 ;; ender means matching-char matcher.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3331 (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
3332 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
3333 ender (cdr (assoc starter cperl-starters)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3334 ;; What if starter == ?\\ ????
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3335 (setq st (cperl-cached-syntax-table st-l))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3336 (setq set-st t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3337 ;; Whether we have an intermediate point
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3338 (setq i nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3339 ;; Prepare the syntax table:
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3340 (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
3341 (modify-syntax-entry starter "$" st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3342 (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
3343 (modify-syntax-entry ender (concat ")" (list starter)) st))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3344 (condition-case bb
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3345 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3346 ;; 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
3347 ;; is recognized the same as $, so we need to check this manually.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3348 (if (and (eq starter (char-after (cperl-1+ b)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3349 (not ender))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3350 ;; $ has TeXish matching rules, so $$ equiv $...
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3351 (forward-char 2)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3352 (setq reset-st (syntax-table))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3353 (set-syntax-table st)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3354 (forward-sexp 1)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3355 (if (<= (point) (1+ b))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3356 (error "Unfinished regular expression"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3357 (set-syntax-table reset-st)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3358 (setq reset-st nil)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3359 ;; Now the problem is with m;blah;;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3360 (and (not ender)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3361 (eq (preceding-char)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3362 (char-after (- (point) 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3363 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3364 (forward-char -2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3365 (= 0 (% (skip-chars-backward "\\\\") 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3366 (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
3367 ;; Now we are after the first part.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3368 (and is-2arg ; Have trailing part
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3369 (not ender)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3370 (eq (following-char) starter) ; Empty trailing part
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3371 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3372 (or (eq (char-syntax (following-char)) ?.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3373 ;; Make trailing letter into punctuation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3374 (cperl-modify-syntax-type (point) cperl-st-punct))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3375 (setq is-2arg nil go-forward t))) ; Ignore the tail
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3376 (if is-2arg ; Not number => have second part
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3377 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3378 (setq i (point) i2 i)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3379 (if ender
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
3380 (if (memq (following-char) '(?\s ?\t ?\n ?\f))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3381 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3382 (if (looking-at "[ \t\n\f]+\\(#[^\n]*\n[ \t\n\f]*\\)+")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3383 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3384 (skip-chars-forward " \t\n\f"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3385 (setq i2 (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3386 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3387 (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
3388 (if ender (modify-syntax-entry ender "." st))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3389 (setq set-st nil)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3390 (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
3391 argument starter ender)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3392 ender (nth 2 ender)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3393 (error (goto-char lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3394 (setq set-st nil)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3395 (if reset-st
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3396 (set-syntax-table reset-st))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3397 (or end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3398 (message
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3399 "End of `%s%s%c ... %c' string/RE not found: %s"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3400 argument
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3401 (if ostart (format "%c ... %c" ostart (or oend ostart)) "")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3402 starter (or ender starter) bb)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3403 (or (car err-l) (setcar err-l b)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3404 (if set-st
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3405 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3406 (modify-syntax-entry starter (if (eq starter ?\\) "\\" ".") st)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3407 (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
3408 ;; 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
3409 ;; 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
3410 ;; 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
3411 ;; starter: the starting delimiter of the first arg
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3412 ;; go-forward: has 2 args, and the second part is empty
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3413 (list i i2 ender starter go-forward)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3414
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3415 (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
3416 "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
3417 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
3418 Works before syntax recognition is done."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3419 ;; Works *before* syntax recognition is done
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3420 (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
3421 (let (st b reset-st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3422 (condition-case b
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3423 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3424 (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
3425 (modify-syntax-entry ?\( "()" st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3426 (modify-syntax-entry ?\) ")(" st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3427 (setq reset-st (syntax-table))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3428 (set-syntax-table st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3429 (forward-sexp 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3430 (error (message
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3431 "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
3432 ;; now restore the initial state
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3433 (if st
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3434 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3435 (modify-syntax-entry ?\( "." st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3436 (modify-syntax-entry ?\) "." st)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3437 (if reset-st
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3438 (set-syntax-table reset-st))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3439 b))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3440
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3441
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3442 (defvar font-lock-string-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3443 ;;(defvar font-lock-reference-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3444 (defvar font-lock-constant-face)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3445 (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
3446 ;; 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
3447 (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
3448 (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
3449 (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
3450
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3451 ;;; 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
3452 ;;; recognized locally) are marked:
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3453 ;; a) PODs:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3454 ;; 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
3455 ;; 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
3456 ;; 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
3457 ;; b) HEREs:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3458 ;; 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
3459 ;; 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
3460 ;; 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
3461 ;; c) FORMATs:
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3462 ;; 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
3463 ;; 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
3464 ;; 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
3465 ;; 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
3466 ;; 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
3467 ;; 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
3468 ;; 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
3469 ;; (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
3470 ;; 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
3471
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3472 ;;; 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
3473 ;;; (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
3474
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3475 (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
3476 ;; 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
3477 (let ((pos (point)) opos)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3478 (while (and pos (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3479 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3480 (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
3481 (setq opos pos
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3482 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
3483 (if (eq pos (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3484 (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
3485 (if pos
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3486 (if before
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3487 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3488 (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
3489 (beginning-of-line)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3490 (setq pos (point)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3491 (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
3492 ;; 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
3493 (goto-char (point-min))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3494 ;; Skip empty lines
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3495 (and (looking-at "\n*=")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3496 (/= 0 (skip-chars-backward "\n"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3497 (forward-char))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3498 (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
3499 (if end
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3500 ;; 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
3501 (save-excursion
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3502 (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
3503 (setq pos end
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3504 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
3505 (if end (progn (goto-char end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3506 (or (bolp) (forward-line 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3507 (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
3508 (or end pos)))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3509
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3510 ;;; 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
3511 (defvar cperl-nonoverridable-face)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3512 (defvar font-lock-variable-name-face)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3513 (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
3514 (defvar font-lock-keyword-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3515 (defvar font-lock-builtin-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3516 (defvar font-lock-type-face)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3517 (defvar font-lock-comment-face)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3518 (defvar font-lock-warning-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3519
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3520 (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
3521 "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
3522 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
3523 ;; Works *before* syntax recognition is done
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3524 (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
3525 (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
3526 (condition-case b
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3527 (while (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3528 (concat
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3529 "\\(" ; 1=optional? colon
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3530 ":" 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
3531 "\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3532 (if after-first "?" "")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3533 ;; 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
3534 "\\(\\sw+\\)" ; 3=name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3535 "\\((\\)?")) ; 4=optional paren
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3536 (and (match-beginning 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3537 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3538 (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
3539 'face font-lock-constant-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3540 (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
3541 (cperl-postpone-fontification start1 end1
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3542 'face font-lock-constant-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3543 (goto-char end1) ; end or before `('
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3544 (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
3545 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3546 (if st nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3547 (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
3548 (modify-syntax-entry ?\( "()" st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3549 (modify-syntax-entry ?\) ")(" st))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3550 (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
3551 (set-syntax-table st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3552 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3553 (set-syntax-table reset-st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3554 (setq reset-st nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3555 (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
3556 (forward-comment (buffer-size))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3557 (setq after-first t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3558 (error (message
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3559 "L%d: attribute `%s': %s"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3560 (count-lines (point-min) (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3561 (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
3562 (setq start nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3563 (and start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3564 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3565 (put-text-property start (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3566 '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
3567 (and pos
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3568 (< 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
3569 ;; 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
3570 (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
3571 'syntax-type 'sub-decl))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3572 (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
3573 (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
3574 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
3575 (if (looking-at "{")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3576 font-lock-function-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3577 font-lock-variable-name-face)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3578 ;; now restore the initial state
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3579 (if st
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3580 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3581 (modify-syntax-entry ?\( "." st)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3582 (modify-syntax-entry ?\) "." st)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3583 (if reset-st
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3584 (set-syntax-table reset-st))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3585
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3586 (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
3587 (if (and
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3588 (< (point) e)
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
3589 (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
3590 (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
3591 (if (eq ?\{ (preceding-char)) nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3592 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3593 (1- (point)) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3594 'face font-lock-warning-face))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3595
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3596 ;;; 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
3597 (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
3598 "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
3599 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
3600 the sections using `cperl-pod-head-face', `cperl-pod-face',
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3601 `cperl-here-face'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3602 (interactive)
78582
d168a4166b80 Fix s{a}{b} parsing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78487
diff changeset
3603 (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
3604 cperl-syntax-state nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3605 cperl-syntax-done-to min))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3606 (or max (setq max (point-max)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3607 (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
3608 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
3609 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
3610 (case-fold-search nil) (inhibit-read-only t) (buffer-undo-list t)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3611 (modified (buffer-modified-p)) overshoot is-o-REx
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3612 (after-change-functions nil)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3613 (cperl-font-locking t)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3614 (use-syntax-state (and cperl-syntax-state
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3615 (>= min (car cperl-syntax-state))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3616 (state-point (if use-syntax-state
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3617 (car cperl-syntax-state)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3618 (point-min)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3619 (state (if use-syntax-state
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3620 (cdr cperl-syntax-state)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3621 ;; (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
3622 (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
3623 ;; 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
3624 ;; (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
3625 (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
3626 font-lock-string-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3627 'font-lock-string-face))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3628 (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
3629 font-lock-constant-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3630 'font-lock-constant-face))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3631 (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
3632 (if (boundp 'font-lock-function-name-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3633 font-lock-function-name-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3634 'font-lock-function-name-face))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3635 (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
3636 (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
3637 font-lock-variable-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3638 'font-lock-variable-name-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3639 (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
3640 (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
3641 font-lock-function-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3642 'font-lock-function-name-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3643 (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
3644 (if (boundp 'font-lock-constant-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3645 font-lock-constant-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3646 'font-lock-constant-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3647 (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
3648 (if (boundp 'font-lock-builtin-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3649 font-lock-builtin-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3650 'font-lock-builtin-face))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3651 (font-lock-comment-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3652 (if (boundp 'font-lock-comment-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3653 font-lock-comment-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3654 'font-lock-comment-face))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3655 (font-lock-warning-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3656 (if (boundp 'font-lock-warning-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3657 font-lock-warning-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3658 'font-lock-warning-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3659 (my-cperl-REx-ctl-face ; (|)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3660 (if (boundp 'font-lock-keyword-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3661 font-lock-keyword-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3662 'font-lock-keyword-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3663 (my-cperl-REx-modifiers-face ; //gims
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3664 (if (boundp 'cperl-nonoverridable-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3665 cperl-nonoverridable-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3666 'cperl-nonoverridable-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3667 (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
3668 (if (boundp 'font-lock-type-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3669 font-lock-type-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3670 'font-lock-type-face))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3671 (stop-point (if ignore-max
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3672 (point-max)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3673 max))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3674 (search
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3675 (concat
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3676 "\\(\\`\n?\\|^\n\\)=" ; POD
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3677 "\\|"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3678 ;; One extra () before this:
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3679 "<<" ; HERE-DOC
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3680 "\\(" ; 1 + 1
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3681 ;; First variant "BLAH" or just ``.
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3682 "[ \t]*" ; Yes, whitespace is allowed!
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3683 "\\([\"'`]\\)" ; 2 + 1 = 3
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3684 "\\([^\"'`\n]*\\)" ; 3 + 1
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3685 "\\3"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3686 "\\|"
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3687 ;; 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
3688 "\\\\?\\(\\([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
3689 ;; 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
3690 ;; "\\([^= \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
3691 "\\(\\)" ; To preserve count of pars :-( 6 + 1
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3692 "\\)"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3693 "\\|"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3694 ;; 1+6 extra () before this:
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3695 "^[ \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
3696 (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
3697 (concat
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3698 "\\|"
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3699 ;; 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
3700 "\\<\\(q[wxqr]?\\|[msy]\\|tr\\)\\>" ; QUOTED CONSTRUCT
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3701 "\\|"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3702 ;; 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
3703 "\\([?/<]\\)" ; /blah/ or ?blah? or <file*glob>
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3704 "\\|"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3705 ;; 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
3706 "\\<sub\\>" ; sub with proto/attr
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3707 "\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3708 cperl-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3709 "\\(::[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
3710 "\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3711 cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3712 "\\(([^()]*)\\|:[^:]\\)\\)" ; prototype or attribute start
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3713 "\\|"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3714 ;; 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
3715 "\\$\\(['{]\\)" ; $' or ${foo}
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3716 "\\|"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3717 ;; 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
3718 ;; we do not support intervening comments...):
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3719 "\\(\\<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
3720 ;; 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
3721 "\\|"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3722 "__\\(END\\|DATA\\)__" ; __END__ or __DATA__
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3723 ;; 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
3724 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3725 "\\\\\\(['`\"($]\\)") ; BACKWACKED something-hairy
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3726 ""))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3727 (unwind-protect
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3728 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3729 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3730 (or non-inter
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3731 (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
3732 ;;(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
3733 (and cperl-pod-here-fontify
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3734 ;; 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
3735 (setq face cperl-pod-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3736 head-face cperl-pod-head-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3737 here-face cperl-here-face))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3738 (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
3739 '(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
3740 attrib-group t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3741 REx-interpolated t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3742 cperl-postpone t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3743 syntax-subtype t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3744 rear-nonsticky t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3745 front-sticky t
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3746 here-doc-group t
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3747 first-format-line t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3748 REx-part2 t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3749 indentable t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3750 ;; Need to remove face as well...
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3751 (goto-char min)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3752 (and (eq system-type 'emx)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3753 (eq (point) 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3754 (let ((case-fold-search t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3755 (looking-at "extproc[ \t]")) ; Analogue of #!
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3756 (cperl-commentify min
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3757 (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
3758 nil))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3759 (while (and
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3760 (< (point) max)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3761 (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
3762 (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
3763 (setq b (match-beginning 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3764 state (save-excursion (parse-partial-sexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3765 state-point b nil nil state))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3766 state-point b)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3767 (cond
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3768 ;; 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
3769 ;; "\\$\\(['{]\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3770 ((match-beginning 18) ; $' or ${foo}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3771 (if (eq (preceding-char) ?\') ; $'
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3772 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3773 (setq b (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3774 state (parse-partial-sexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3775 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
3776 state-point (1- b))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3777 (if (nth 3 state) ; in string
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3778 (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
3779 (goto-char (1+ b)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3780 ;; else: ${
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3781 (setq bb (match-beginning 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3782 (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
3783 ;; 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
3784 ((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
3785 t) ; Do nothing in comment/string
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3786 ((match-beginning 1) ; POD section
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3787 ;; "\\(\\`\n?\\|^\n\\)="
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3788 (setq b (match-beginning 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3789 state (parse-partial-sexp
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3790 state-point b nil nil state)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3791 state-point b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3792 (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
3793 (looking-at "cut\\>"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3794 (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
3795 nil ; Doing a chunk only
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3796 (message "=cut is not preceded by a POD section")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3797 (or (car err-l) (setcar err-l (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3798 (beginning-of-line)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3799
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3800 (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
3801 bb b
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3802 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
3803 b1 nil) ; error condition
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3804 ;; 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
3805 ;; 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
3806 (or (re-search-forward "^\n=cut\\>" stop-point 'toend)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3807 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3808 (goto-char b)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3809 (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
3810 (progn
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3811 (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
3812 (setq b1 t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3813 (or (car err-l) (setcar err-l b))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3814 (beginning-of-line 2) ; An empty line after =cut is not POD!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3815 (setq e (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3816 (and (> e max)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3817 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3818 (remove-text-properties
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3819 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
3820 attrib-group t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3821 REx-interpolated t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3822 cperl-postpone t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3823 syntax-subtype t
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3824 here-doc-group t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3825 rear-nonsticky t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3826 front-sticky t
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3827 first-format-line t
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3828 REx-part2 t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3829 indentable t))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3830 (setq tmpend tb)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3831 (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
3832 (put-text-property b e 'syntax-type 'in-pod)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3833 (goto-char b)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3834 (while (re-search-forward "\n\n[ \t]" e t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3835 ;; We start 'pod 1 char earlier to include the preceding line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3836 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3837 (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
3838 (cperl-put-do-not-fontify b (point) t)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3839 ;; mark the non-literal parts as PODs
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3840 (if cperl-pod-here-fontify
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3841 (cperl-postpone-fontification b (point) 'face face t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3842 (re-search-forward "\n\n[^ \t\f\n]" e 'toend)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3843 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3844 (setq b (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3845 (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
3846 (cperl-put-do-not-fontify (point) e t)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3847 (if cperl-pod-here-fontify
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3848 (progn
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3849 ;; mark the non-literal parts as PODs
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3850 (cperl-postpone-fontification (point) e 'face face t)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3851 (goto-char bb)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3852 (if (looking-at
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3853 "=[a-zA-Z0-9_]+\\>[ \t]*\\(\\(\n?[^\n]\\)+\\)$")
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3854 ;; mark the headers
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3855 (cperl-postpone-fontification
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3856 (match-beginning 1) (match-end 1)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3857 'face head-face))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3858 (while (re-search-forward
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3859 ;; One paragraph
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3860 "^\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
3861 e 'toend)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3862 ;; mark the headers
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
3863 (cperl-postpone-fontification
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3864 (match-beginning 1) (match-end 1)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3865 'face head-face))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3866 (cperl-commentify bb e nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3867 (goto-char e)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3868 (or (eq e (point-max))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
3869 (forward-char -1)))) ; Prepare for immediate POD start.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3870 ;; Here document
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3871 ;; 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
3872 ;; 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
3873 ;; ;; One extra () before this:
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3874 ;;"<<"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3875 ;; "\\(" ; 1 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3876 ;; ;; First variant "BLAH" or just ``.
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3877 ;; "[ \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
3878 ;; "\\([\"'`]\\)" ; 2 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3879 ;; "\\([^\"'`\n]*\\)" ; 3 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3880 ;; "\\3"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3881 ;; "\\|"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3882 ;; ;; 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
3883 ;; "\\\\?\\(\\([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
3884 ;; ;; 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
3885 ;; ;; "\\([^= \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
3886 ;; "\\(\\)" ; 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
3887 ;; "\\)"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3888 ((match-beginning 2) ; 1 + 1
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3889 (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
3890 tb (match-beginning 0)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3891 c (and ; not HERE-DOC
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3892 (match-beginning 5)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3893 (save-match-data
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3894 (or (looking-at "[ \t]*(") ; << function_call()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3895 (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
3896 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3897 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3898 (goto-char tb)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3899 ;;; XXX What to do: foo <<bar ???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3900 ;;; 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
3901 (forward-sexp -1)
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
3902 (save-match-data
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3903 ; $foo << b; $f .= <<B;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3904 ; ($f+1) << b; a($f) . <<B;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3905 ; foo 1, <<B; $x{a} <<b;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3906 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3907 ((looking-at "[0-9$({]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3908 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3909 (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3910 (looking-at "[ \t]*<<")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3911 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3912 ;; print $foo <<EOF
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3913 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3914 (forward-sexp -2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3915 (not
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3916 (looking-at "\\(printf?\\|system\\|exec\\|sort\\)\\>")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3917 (error t)))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3918 (error nil))) ; func(<<EOF)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3919 (and (not (match-beginning 6)) ; Empty
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3920 (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3921 "[ \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
3922 (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
3923 nil ; Skip it.
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3924 (setq c (match-end 2)) ; 1 + 1
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3925 (if (match-beginning 5) ;4 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3926 (setq b1 (match-beginning 5) ; 4 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3927 e1 (match-end 5)) ; 4 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3928 (setq b1 (match-beginning 4) ; 3 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3929 e1 (match-end 4))) ; 3 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3930 (setq tag (buffer-substring b1 e1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3931 qtag (regexp-quote tag))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3932 (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
3933 ;; Highlight the starting delimiter
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
3934 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3935 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
3936 (cperl-put-do-not-fontify b1 e1 t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3937 (forward-line)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3938 (setq i (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3939 (if end-of-here-doc
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3940 (goto-char end-of-here-doc))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3941 (setq b (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3942 ;; 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
3943 ;; 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
3944 (or (and (re-search-forward (concat "^" qtag "$")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3945 stop-point 'toend)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3946 ;;;(eq (following-char) ?\n) ; XXXX WHY???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3947 )
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3948 (progn ; Pretend we matched at the end
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3949 (goto-char (point-max))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3950 (re-search-forward "\\'")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3951 (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
3952 (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
3953 (if cperl-pod-here-fontify
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3954 (progn
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3955 ;; Highlight the ending delimiter
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3956 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3957 (match-beginning 0) (match-end 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3958 'face my-cperl-delimiters-face)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3959 (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
3960 ;; Highlight the HERE-DOC
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3961 (cperl-postpone-fontification b (match-beginning 0)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3962 'face here-face)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3963 (setq e1 (cperl-1+ (match-end 0)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3964 (put-text-property b (match-beginning 0)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3965 'syntax-type 'here-doc)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3966 (put-text-property (match-beginning 0) e1
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3967 'syntax-type 'here-doc-delim)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3968 (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
3969 ;; 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
3970 ;; the whole construct:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3971 (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
3972 (cperl-commentify b e1 nil)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3973 (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
3974 ;; Cache the syntax info...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3975 (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
3976 ;; ... 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
3977 (setq overshoot
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3978 (elt ; non-inter ignore-max
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3979 (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
3980 (if (and overshoot (> overshoot (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3981 (goto-char overshoot)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
3982 (setq overshoot e1))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3983 (if (> e1 max)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3984 (setq tmpend tb))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3985 ;; format
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3986 ((match-beginning 8)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3987 ;; 1+6=7 extra () before this:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3988 ;;"^[ \t]*\\(format\\)[ \t]*\\([a-zA-Z0-9_]+\\)?[ \t]*=[ \t]*$"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3989 (setq b (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3990 name (if (match-beginning 8) ; 7 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3991 (buffer-substring (match-beginning 8) ; 7 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3992 (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
3993 "")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3994 tb (match-beginning 0))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3995 (setq argument nil)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3996 (put-text-property (save-excursion
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3997 (beginning-of-line)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3998 (point))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
3999 b 'first-format-line 't)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4000 (if cperl-pod-here-fontify
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4001 (while (and (eq (forward-line) 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4002 (not (looking-at "^[.;]$")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4003 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4004 ((looking-at "^#")) ; Skip comments
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4005 ((and argument ; Skip argument multi-lines
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4006 (looking-at "^[ \t]*{"))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4007 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4008 (setq argument nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4009 (argument ; Skip argument lines
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4010 (setq argument nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4011 (t ; Format line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4012 (setq b1 (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4013 (setq argument (looking-at "^[^\n]*[@^]"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4014 (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
4015 ;; Highlight the format line
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4016 (cperl-postpone-fontification b1 (point)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4017 'face font-lock-string-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4018 (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
4019 (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
4020 ;; 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
4021 ;; 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
4022 (re-search-forward "^[.;]$" stop-point 'toend))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4023 (beginning-of-line)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4024 (if (looking-at "^\\.$") ; ";" is not supported yet
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4025 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4026 ;; 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
4027 (cperl-postpone-fontification (point) (+ (point) 2)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4028 'face font-lock-string-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4029 (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
4030 (cperl-put-do-not-fontify (point) (+ (point) 2) t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4031 (message "End of format `%s' not found." name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4032 (or (car err-l) (setcar err-l b)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4033 (forward-line)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4034 (if (> (point) max)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4035 (setq tmpend tb))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4036 (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
4037 ;; qq-like String or Regexp:
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4038 ((or (match-beginning 10) (match-beginning 11))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4039 ;; 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
4040 ;; "\\<\\(q[wxqr]?\\|[msy]\\|tr\\)\\>"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4041 ;; "\\|"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4042 ;; "\\([?/<]\\)" ; /blah/ or ?blah? or <file*glob>
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4043 (setq b1 (if (match-beginning 10) 10 11)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4044 argument (buffer-substring
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4045 (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
4046 b (point) ; end of qq etc
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4047 i b
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4048 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
4049 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
4050 ;; 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
4051 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
4052 (and (memq bb (append "$@%*#_:-&>" nil)) ; $#y)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4053 (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
4054 ((eq bb ?\:) ; $opt::s
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4055 (eq (char-after
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4056 (- (match-beginning b1) 2))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4057 ?\:))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4058 ((eq bb ?\>) ; $foo->s
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4059 (eq (char-after
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4060 (- (match-beginning b1) 2))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4061 ?\-))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4062 ((eq bb ?\&)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4063 (not (eq (char-after ; &&m/blah/
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4064 (- (match-beginning b1) 2))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4065 ?\&)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4066 (t t)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4067 ;; <file> or <$file>
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4068 (and (eq c ?\<)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4069 ;; 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
4070 (save-match-data
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4071 (looking-at
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4072 "\\$?\\([_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
4073 tb (match-beginning 0))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4074 (goto-char (match-beginning b1))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4075 (cperl-backward-to-noncomment (point-min))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4076 (or bb
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4077 (if (eq b1 11) ; bare /blah/ or ?blah? or <foo>
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4078 (setq argument ""
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4079 b1 nil
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4080 bb ; Not a regexp?
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4081 (not
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4082 ;; What is below: regexp-p?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4083 (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4084 (or (memq (preceding-char)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4085 (append (if (memq c '(?\? ?\<))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4086 ;; $a++ ? 1 : 2
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4087 "~{(=|&*!,;:["
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4088 "~{(=|&+-*!,;:[") nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4089 (and (eq (preceding-char) ?\})
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4090 (cperl-after-block-p (point-min)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4091 (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
4092 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4093 (forward-sexp -1)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4094 ;; 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
4095 ;; 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
4096 (if (eq (preceding-char) ?-)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4097 ;; -d ?foo? is a RE
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4098 (looking-at "[a-zA-Z]\\>")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4099 (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4100 (not (memq (preceding-char)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4101 '(?$ ?@ ?& ?%)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4102 (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4103 "\\(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
4104 (and (eq (preceding-char) ?.)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4105 (eq (char-after (- (point) 2)) ?.))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4106 (bobp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4107 ;; m|blah| ? foo : bar;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4108 (not
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4109 (and (eq c ?\?)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4110 cperl-use-syntax-table-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4111 (not (bobp))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4112 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4113 (forward-char -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4114 (looking-at "\\s|"))))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4115 b (1- b))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4116 ;; s y tr m
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4117 ;; Check for $a -> y
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4118 (setq b1 (preceding-char)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4119 go (point))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4120 (if (and (eq b1 ?>)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4121 (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
4122 ;; Not a regexp
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4123 (setq bb t))))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4124 (or bb
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4125 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4126 (goto-char b)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4127 (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
4128 (goto-char (match-end 0))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4129 (skip-chars-forward " \t\n\f"))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4130 (cond ((and (eq (following-char) ?\})
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4131 (eq b1 ?\{))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4132 ;; 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
4133 (goto-char (1- go))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4134 (skip-chars-backward " \t\n\f")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4135 (if (memq (preceding-char) (append "$@%&*" nil))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4136 (setq bb t) ; @{y}
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4137 (condition-case nil
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4138 (forward-sexp -1)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4139 (error nil)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4140 (if (or bb
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4141 (looking-at ; $foo -> {s}
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4142 "[$@]\\$*\\([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
4143 (and ; $foo[12] -> {s}
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4144 (memq (following-char) '(?\{ ?\[))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4145 (progn
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4146 (forward-sexp 1)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4147 (looking-at "\\([ \t\n]*->\\)?[ \t\n]*{"))))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4148 (setq bb t)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4149 (goto-char b)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4150 ((and (eq (following-char) ?=)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4151 (eq (char-after (1+ (point))) ?\>))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4152 ;; Check for { foo => 1, s => 2 }
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4153 ;; Apparently s=> is never a substitution...
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4154 (setq bb t))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4155 ((and (eq (following-char) ?:)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4156 (eq b1 ?\{) ; Check for $ { s::bar }
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4157 (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
4158 (progn
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4159 (goto-char (1- go))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4160 (skip-chars-backward " \t\n\f")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4161 (memq (preceding-char)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4162 (append "$@%&*" nil))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4163 (setq bb t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4164 ((eobp)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4165 (setq bb t)))))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4166 (if bb
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4167 (goto-char i)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4168 ;; Skip whitespace and comments...
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4169 (if (looking-at "[ \t\n\f]+\\(#[^\n]*\n[ \t\n\f]*\\)+")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4170 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4171 (skip-chars-forward " \t\n\f"))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4172 (if (> (point) b)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4173 (put-text-property b (point) 'syntax-type 'prestring))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4174 ;; qtag means two-arg matcher, may be reset to
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4175 ;; 2 or 3 later if some special quoting is needed.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4176 ;; e1 means matching-char matcher.
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4177 (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
4178 ;; has 2 args
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4179 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
4180 ;; 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
4181 ;; 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
4182 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
4183 i2
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4184 st-l err-l argument)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4185 ;; 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
4186 ;; 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
4187 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
4188 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
4189 ; is with matching chars []
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4190 go (nth 4 i) ; There is a 1-char part after the end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4191 i (car i) ; intermediate point
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4192 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
4193 ;; 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
4194 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
4195 (1- e1))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4196 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
4197 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
4198 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
4199 ;; If s{} (), then b/b1 are at "{", "(", e1/i after ")", "}"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4200 ;; Commenting \\ is dangerous, what about ( ?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4201 (and i tail
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4202 (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
4203 (setq qtag t))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4204 (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
4205 (looking-at "\\sw*x")) ; qr//x
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4206 (setq is-x-REx t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4207 (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
4208 (looking-at "\\sw*o")) ; //o
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4209 (setq is-o-REx t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4210 (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
4211 ;; Considered as 1arg form
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4212 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4213 (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
4214 (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
4215 (if (or is-x-REx
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4216 ;; ignore other text properties:
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4217 (string-match "^qw$" argument))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4218 (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
4219 (and go
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4220 (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
4221 (or (eobp)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4222 (forward-char 1))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4223 (cperl-commentify b i t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4224 (if (looking-at "\\sw*e") ; s///e
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4225 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4226 ;; Cache the syntax info...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4227 (setq cperl-syntax-state (cons state-point state))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4228 (and
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4229 ;; silent:
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4230 (car (cperl-find-pods-heres b1 (1- (point)) t end))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4231 ;; Error
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4232 (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
4233 (if (and tag (eq (preceding-char) ?\>))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4234 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4235 (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
4236 (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
4237 (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
4238 (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
4239 (if is-x-REx
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4240 (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
4241 (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
4242 (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
4243 (if is-x-REx
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4244 (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
4245 (if qtag
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4246 (cperl-modify-syntax-type (1+ i) cperl-st-punct))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4247 (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
4248 ;; Now: tail: if the second part is non-matching without ///e
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4249 (if (eq (char-syntax (following-char)) ?w)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4250 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4251 (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
4252 (if tail (cperl-commentify tail (point) t))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
4253 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4254 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
4255 ;; 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
4256 ;; and highlight differently
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
4257 (setq is-REx
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4258 (and (string-match "^\\([sm]?\\|qr\\)$" argument)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4259 (or (not (= (length argument) 0))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4260 (not (eq c ?\<)))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
4261 (if (and is-REx
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4262 (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
4263 ;; 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
4264 (save-excursion
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4265 (condition-case nil
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4266 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4267 (goto-char tb)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4268 (forward-sexp -1)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4269 (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
4270 (error t))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4271 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4272 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
4273 (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
4274 (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
4275 (or
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4276 (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
4277 (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
4278 (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
4279 (progn
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4280 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4281 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
4282 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4283 (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
4284 (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
4285 ;; Process RExen: embedded comments, charclasses and ]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4286 ;;;/\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
4287 ;;;/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
4288 ;;;/(?<=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
4289 ;;;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
4290 ;;;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
4291 ;;;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
4292 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4293 (goto-char (1+ b))
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
4294 ;; First
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4295 (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
4296 (setq hairy-RE
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4297 (concat
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4298 (if is-x-REx
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4299 (if (eq (char-after b) ?\#)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4300 "\\((\\?\\\\#\\)\\|\\(\\\\#\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4301 "\\((\\?#\\)\\|\\(#\\)")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4302 ;; 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
4303 (if (eq (char-after b) ?\#)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4304 "\\((\\?\\\\#\\)\\(\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4305 "\\((\\?#\\)\\(\\)"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4306 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4307 "\\(\\[\\)" ; 3=[
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4308 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4309 "\\(]\\)" ; 4=]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4310 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4311 ;; 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
4312 (if (eq (char-after b) ?\) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4313 "\\())))\\)" ; Will never match
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4314 (if (eq (char-after b) ?? )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4315 ;;"\\((\\\\\\?\\(\\\\\\?\\)?{\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4316 "\\((\\\\\\?\\\\\\?{\\|()\\\\\\?{\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4317 "\\((\\?\\??{\\)")) ; 5= (??{ (?{
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4318 "\\|" ; 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
4319 "\\(" ;; XXXX 1-char variables, exc. |()\s
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4320 "[$@]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4321 "\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4322 "[_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
4323 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4324 "{[^{}]*}" ; only one-level allowed
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4325 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4326 "[^{(|) \t\r\n\f]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4327 "\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4328 "\\(" ;;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
4329 "\\(" "->" "\\)?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4330 "\\[[^][]*\\]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4331 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4332 "{[^{}]*}"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4333 "\\)*"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4334 ;; XXXX: what if u is delim?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4335 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4336 "[)^|$.*?+]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4337 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4338 "{[0-9]+}"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4339 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4340 "{[0-9]+,[0-9]*}"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4341 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4342 "\\\\[luLUEQbBAzZG]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4343 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4344 "(" ; Group opener
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4345 "\\(" ; 10 group opener follower
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4346 "\\?\\((\\?\\)" ; 11: in (?(?=C)A|B)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4347 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4348 "\\?[:=!>?{]" ; "?" something
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4349 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4350 "\\?[-imsx]+[:)]" ; (?i) (?-s:.)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4351 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4352 "\\?([0-9]+)" ; (?(1)foo|bar)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4353 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4354 "\\?<[=!]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4355 ;;;"\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4356 ;;; "\\?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4357 "\\)?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4358 "\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4359 "\\|"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4360 "\\\\\\(.\\)" ; 12=\SYMBOL
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4361 ))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4362 (while
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4363 (and (< (point) (1- e))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4364 (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
4365 (goto-char (match-beginning 0))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4366 (setq REx-subgr-start (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4367 was-subgr (following-char))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4368 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4369 ((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
4370 (goto-char (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4371 (if (match-beginning 11)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4372 (goto-char (match-beginning 11)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4373 (if (>= (point) e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4374 (goto-char (1- e)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4375 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4376 (match-beginning 0) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4377 'face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4378 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4379 ((eq was-subgr ?\) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4380 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4381 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4382 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4383 (if (> (point) b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4384 (if (if (eq (char-after b) ?? )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4385 (looking-at "(\\\\\\?")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4386 (eq (char-after (1+ (point))) ?\?))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4387 my-cperl-REx-0length-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4388 my-cperl-REx-ctl-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4389 font-lock-warning-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4390 (error font-lock-warning-face)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4391 ((eq was-subgr ?\| )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4392 my-cperl-REx-ctl-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4393 ((eq was-subgr ?\$ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4394 (if (> (point) (1+ REx-subgr-start))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4395 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4396 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4397 (match-beginning 0) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4398 'REx-interpolated
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4399 (if is-o-REx 0
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4400 (if (and (eq (match-beginning 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4401 (1+ b))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4402 (eq (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4403 (1- e))) 1 t)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4404 font-lock-variable-name-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4405 my-cperl-REx-spec-char-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4406 ((memq was-subgr (append "^." nil) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4407 my-cperl-REx-spec-char-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4408 ((eq was-subgr ?\( )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4409 (if (not (match-beginning 10))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4410 my-cperl-REx-ctl-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4411 my-cperl-REx-0length-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4412 (t my-cperl-REx-0length-face)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4413 (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
4414 (not (string-match "(\\?[-imsx]+)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4415 (match-string 0))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4416 (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
4417 (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
4418 ((match-beginning 12) ; \SYMBOL
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4419 (forward-char 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4420 (if (>= (point) e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4421 (goto-char (1- e))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4422 ;; How many chars to not highlight:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4423 ;; 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
4424 ;; 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
4425 ;; 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
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 qtag (preceding-char))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4428 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4429 (- (point) 2) (- (point) 1) 'face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4430 (if (memq qtag
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4431 (append "ghijkmoqvFHIJKMORTVY" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4432 font-lock-warning-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4433 my-cperl-REx-0length-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4434 (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
4435 (memq qtag (append ".])^$|*?+" nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4436 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4437 (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
4438 (eq qtag ?\) ))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4439 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4440 REx-subgr-start (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4441 'syntax-table cperl-st-punct))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4442 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4443 (1- (point)) (point) 'face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4444 ; \] can't appear below
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4445 (if (memq qtag (append ".]^$" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4446 'my-cperl-REx-spec-char-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4447 (if (memq qtag (append "*?+" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4448 'my-cperl-REx-0length-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4449 'my-cperl-REx-ctl-face))))) ; )|
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4450 ;; Test for arguments:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4451 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4452 ;; 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
4453 ;; \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
4454 ;; \DIGIT -> backref unless \0
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
4455 ;; \DIGITs -> backref if valid
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4456 ;; otherwise up to 3 -> octal
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4457 ;; 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
4458 ((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
4459 (re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4460 "\\=[01234567]?[01234567]?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4461 (1- e) 'to-end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4462 (and (memq qtag (append "89" nil))
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
4463 (re-search-forward
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4464 "\\=[0123456789]*" (1- e) 'to-end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4465 (and (eq qtag ?x)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4466 (re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4467 "\\=[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
4468 (1- e) 'to-end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4469 (and (memq qtag (append "pPN" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4470 (re-search-forward "\\={[^{}]+}\\|."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4471 (1- e) 'to-end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4472 (eq (char-syntax qtag) ?w))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4473 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4474 (1- REx-subgr-start) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4475 'face my-cperl-REx-length1-face))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4476 (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
4477 ((match-beginning 3) ; [charclass]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4478 (forward-char 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4479 (if (eq (char-after b) ?^ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4480 (and (eq (following-char) ?\\ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4481 (eq (char-after (cperl-1+ (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4482 ?^ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4483 (forward-char 2))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4484 (and (eq (following-char) ?^ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4485 (forward-char 1)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4486 (setq argument b ; continue?
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4487 tag nil ; list of POSIX classes
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4488 qtag (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4489 (if (eq (char-after b) ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4490 (and (eq (following-char) ?\\ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4491 (eq (char-after (cperl-1+ (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4492 ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4493 (setq qtag (1+ qtag))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4494 (forward-char 2))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4495 (and (eq (following-char) ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4496 (forward-char 1)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4497 ;; 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
4498 ;; in m]]: m][\\\]\]] produces [\\]]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4499 ;;; POSIX? [:word:] [:^word:] only inside []
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4500 ;;; "\\=\\(\\\\.\\|[^][\\\\]\\|\\[:\\^?\sw+:]\\|\\[[^:]\\)*]")
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
4501 (while
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4502 (and argument
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4503 (re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4504 (if (eq (char-after b) ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4505 "\\=\\(\\\\[^]]\\|[^]\\\\]\\)*\\\\]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4506 "\\=\\(\\\\.\\|[^]\\\\]\\)*]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4507 (1- e) 'toend))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4508 ;; 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
4509 (if (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4510 (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4511 (search-backward "[" argument t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4512 (< REx-subgr-start (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4513 (not
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4514 (and ; Should work with delim = \
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4515 (eq (preceding-char) ?\\ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4516 (= (% (skip-chars-backward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4517 "\\\\") 2) 0)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4518 (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4519 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4520 ((eq (char-after b) ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4521 "\\\\*\\[:\\^?\\sw+:\\\\\\]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4522 ((eq (char-after b) ?\: )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4523 "\\\\*\\[\\\\:\\^?\\sw+\\\\:]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4524 ((eq (char-after b) ?^ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4525 "\\\\*\\[:\\(\\\\\\^\\)?\\sw+:\]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4526 ((eq (char-syntax (char-after b))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4527 ?w)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4528 (concat
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4529 "\\\\*\\[:\\(\\\\\\^\\)?\\(\\\\"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4530 (char-to-string (char-after b))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4531 "\\|\\sw\\)+:\]"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4532 (t "\\\\*\\[:\\^?\\sw*:]")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4533 (setq argument (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4534 (setq tag (cons (cons argument (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4535 tag)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4536 argument (point)) ; continue
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4537 (setq argument nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4538 (and argument
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4539 (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
4540 REx-subgr-start))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4541 (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
4542 (> (- (point) 2) REx-subgr-start))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4543 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4544 (1+ REx-subgr-start) (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4545 'syntax-table cperl-st-punct))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4546 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4547 REx-subgr-start qtag
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4548 '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
4549 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4550 (1- (point)) (point) 'face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4551 my-cperl-REx-spec-char-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4552 (if (eq (char-after b) ?\] )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4553 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4554 (- (point) 2) (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4555 'face my-cperl-REx-0length-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4556 (while tag
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4557 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4558 (car (car tag)) (cdr (car tag))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4559 'face my-cperl-REx-length1-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4560 (setq tag (cdr tag)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4561 (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
4562 ;; Now rare stuff:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4563 ((and (match-beginning 2) ; #-comment
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4564 (/= (match-beginning 2) (match-end 2)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4565 (beginning-of-line 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4566 (if (> (point) e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4567 (goto-char (1- e))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4568 ((match-beginning 4) ; character "]"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4569 (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
4570 (goto-char (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4571 (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
4572 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4573 (1- (point)) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4574 'syntax-table cperl-st-punct))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4575 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4576 (1- (point)) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4577 'face font-lock-warning-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4578 ((match-beginning 5) ; before (?{}) (??{})
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4579 (setq tag (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4580 (if (or (setq qtag
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4581 (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
4582 (and (>= (point) e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4583 (setq qtag "no matching `)' found"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4584 (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
4585 ?\} ))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4586 (setq qtag "Can't find })")))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
4587 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4588 (goto-char (1- e))
87170
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 86503
diff changeset
4589 (message "%s" qtag))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4590 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4591 (1- tag) (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4592 'face font-lock-variable-name-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4593 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4594 REx-subgr-start (1- tag)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4595 '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
4596 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4597 (1- (point)) (point)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4598 '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
4599 (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
4600 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4601 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4602 (- (point) 2) (1- (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4603 'syntax-table cperl-st-cfence)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4604 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4605 (+ REx-subgr-start 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4606 (+ REx-subgr-start 3)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4607 'syntax-table cperl-st-cfence))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4608 (setq was-subgr nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4609 (t ; (?#)-comment
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4610 ;; 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
4611 ;; 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
4612 (or;;(if (eq (char-after b) ?\) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4613 ;;(re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4614 ;; "[^\\\\]\\(\\\\\\\\\\)*\\\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4615 ;; (1- e) 'toend)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4616 (search-forward ")" (1- e) 'toend)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4617 ;;)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4618 (message
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4619 "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
4620 REx-subgr-start))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4621 (if (>= (point) e)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4622 (goto-char (1- e)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4623 (cond
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4624 (was-subgr
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4625 (setq REx-subgr-end (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4626 (cperl-commentify
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4627 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
4628 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4629 REx-subgr-start REx-subgr-end
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4630 'face font-lock-comment-face))))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4631 (if (and is-REx is-x-REx)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
4632 (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
4633 'syntax-subtype 'x-REx)))
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4634 (if (and i2 e1 b1 (> e1 b1))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4635 (progn ; No errors finding the second part...
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4636 (cperl-postpone-fontification
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4637 (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
4638 (if (and (not (eobp))
d168a4166b80 Fix s{a}{b} parsing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78487
diff changeset
4639 (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
4640 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4641 (cperl-postpone-fontification
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4642 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
4643 (put-text-property b1 (1+ b1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4644 '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
4645 (if (> (point) max)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4646 (setq tmpend tb))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4647 ((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
4648 ;; 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
4649 ;;"\\<sub\\>\\(" ;12
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4650 ;; cperl-white-and-comment-rex ;13
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4651 ;; "\\([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
4652 ;;"\\(" 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
4653 ;; "\\(([^()]*)\\|:[^:]\\)\\)" ; 17:proto or attribute start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4654 (setq b1 (match-beginning 14) e1 (match-end 14))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4655 (if (memq (char-after (1- b))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4656 '(?\$ ?\@ ?\% ?\& ?\*))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4657 nil
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4658 (goto-char b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4659 (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
4660 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4661 (cperl-commentify ; Prototypes; mark as string
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4662 (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
4663 (goto-char (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4664 ;; Now look for attributes after prototype:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4665 (forward-comment (buffer-size))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4666 (and (looking-at ":[^:]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4667 (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
4668 ;; treat attributes without prototype
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4669 (goto-char (match-beginning 17))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4670 (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
4671 ;; 1+6+2+1+1+6+1=18 extra () before this:
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4672 ;; "\\(\\<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
4673 ((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
4674 (setq bb (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4675 ;;;(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
4676 (put-text-property (1- bb) bb 'syntax-table cperl-st-word)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4677 (goto-char bb))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4678 ;; 1+6+2+1+1+6+1+1=19 extra () before this:
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4679 ;; "__\\(END\\|DATA\\)__"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4680 ((match-beginning 20) ; __END__, __DATA__
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4681 (setq bb (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4682 ;; (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
4683 (cperl-commentify b bb nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4684 (setq end t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4685 ;; "\\\\\\(['`\"($]\\)"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4686 ((match-beginning 21)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4687 ;; 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
4688 (setq bb (match-end 0))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4689 (goto-char b)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4690 (skip-chars-backward "\\\\")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4691 ;;;(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
4692 (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
4693 (goto-char bb))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4694 (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
4695 (if (> (point) stop-point)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4696 (progn
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4697 (if end
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4698 (message "Garbage after __END__/__DATA__ ignored")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4699 (message "Unbalanced syntax found while scanning")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4700 (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
4701 (goto-char stop-point))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4702 (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
4703 ;; 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
4704 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
4705 ;;(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
4706 )
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4707 (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
4708 (or non-inter
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4709 (message "Scanning for \"hard\" Perl constructions... done"))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4710 (and (buffer-modified-p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4711 (not modified)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4712 (set-buffer-modified-p nil))
63836
e6973993a720 (cperl-find-pods-heres): Don't gratuitously
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63518
diff changeset
4713 ;; 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
4714 ;; 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
4715 ;; cperl-mode-syntax-table.
e6973993a720 (cperl-find-pods-heres): Don't gratuitously
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63518
diff changeset
4716 ;; (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
4717 )
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4718 (list (car err-l) overshoot)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4719
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4720 (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
4721 (interactive "r")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4722 (cperl-find-pods-heres min max))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4723
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4724 (defun cperl-backward-to-noncomment (lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4725 ;; 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
4726 ;; 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
4727 (let (stop p pr)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4728 (while (and (not stop) (> (point) (or lim (point-min))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4729 (skip-chars-backward " \t\n\f" lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4730 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4731 (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
4732 (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
4733 '(pod here-doc here-doc-delim))
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4734 (progn
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4735 (cperl-unwind-to-safe nil)
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4736 (setq pr (get-text-property (point) 'syntax-type))))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4737 (or (and (looking-at "^[ \t]*\\(#\\|$\\)")
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4738 (not (memq pr '(string prestring))))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4739 (progn (cperl-to-comment-or-eol) (bolp))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4740 (progn
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4741 (skip-chars-backward " \t")
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4742 (if (< p (point)) (goto-char p))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
4743 (setq stop t))))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4744
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4745 ;; Used only in `cperl-calculate-indent'...
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4746 (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
4747 ;; 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
4748 ;; 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
4749 (cperl-backward-to-noncomment (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4750 (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
4751 ; 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
4752 (save-excursion (cperl-after-label))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4753 (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
4754 (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
4755 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4756 (backward-sexp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4757 ;; 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
4758 (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
4759 (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
4760 ;; sub bless::foo {}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4761 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4762 (cperl-backward-to-noncomment (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4763 (and (eq (preceding-char) ?b)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4764 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4765 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4766 (looking-at "sub[ \t\n\f#]")))))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4767
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4768 ;;; 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
4769 ;;; 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
4770 ;;; 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
4771 ;;; ${something()}, print {FH} $data.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4772 ;;; 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
4773 ;;; 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
4774 (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
4775 "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
4776 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
4777 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
4778 statement would start; thus the block in ${func()} does not count."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4779 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4780 (condition-case nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4781 (progn
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4782 (or pre-block (forward-sexp -1))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4783 (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
4784 (or (eq (point) lim)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4785 ;; if () {} // sub f () {} // sub f :a(') {}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4786 (eq (preceding-char) ?\) )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4787 ;; label: {}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4788 (save-excursion (cperl-after-label))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4789 ;; sub :attr {}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4790 (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
4791 (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
4792 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4793 (forward-sexp -1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4794 ;; else {} but not else::func {}
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4795 (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
4796 (not (looking-at "\\(\\sw\\|_\\)+::")))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4797 ;; sub f {}
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4798 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4799 (cperl-backward-to-noncomment lim)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4800 (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
4801 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4802 (forward-sexp -1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4803 (looking-at "sub[ \t\n\f#]"))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4804 ;; 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
4805 (cperl-after-expr-p lim))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4806 (error nil))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4807
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4808 (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
4809 "Return true if the position is good for start of expression.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4810 TEST is the expression to evaluate at the found position. If absent,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4811 CHARS is a string that contains good characters to have before us (however,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4812 `}' 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
4813 (let ((lim (or lim (point-min)))
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4814 stop p pr)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4815 (cperl-update-syntaxification (point) (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4816 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4817 (while (and (not stop) (> (point) lim))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4818 (skip-chars-backward " \t\n\f" lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4819 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4820 (beginning-of-line)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4821 ;;(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
4822 ;; '(pod here-doc here-doc-delim))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4823 (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
4824 (progn
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4825 (goto-char
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4826 (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
4827 (beginning-of-line 0)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4828 (if (get-text-property (point) 'in-pod)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4829 (progn
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4830 (goto-char
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4831 (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
4832 (beginning-of-line 0)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4833 (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
4834 ;; Else: last iteration, or a label
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4835 (cperl-to-comment-or-eol) ; Will not move past "." after a format
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4836 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4837 (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
4838 (setq p (point))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4839 (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
4840 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4841 (forward-char -1)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4842 (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
4843 (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
4844 (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
4845 (goto-char p)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4846 (setq stop t))))
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
4847 (or (bobp) ; ???? Needed
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
4848 (eq (point) lim)
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
4849 (looking-at "[ \t]*__\\(END\\|DATA\\)__") ; After this anything goes
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4850 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4851 (if test (eval test)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4852 (or (memq (preceding-char) (append (or chars "{;") nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4853 (and (eq (preceding-char) ?\})
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4854 (cperl-after-block-p lim))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4855 (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
4856 (eq (get-text-property (point) 'syntax-type)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
4857 'format)))))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4858
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4859 (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
4860 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4861 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4862 (while (and (or (not lim)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4863 (> (point) lim))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4864 (not (cperl-after-expr-p lim)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4865 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4866 ;; 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
4867 (skip-chars-backward "$@%#")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4868 (error nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4869
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4870 (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
4871 ;; 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
4872 (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
4873 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4874 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4875 ;; 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
4876 ;; 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
4877 ;; 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
4878 ;; 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
4879 (let ((p (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4880 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4881 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4882 (while (memq (preceding-char) (append "%&@$*" nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4883 (forward-char -1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4884 (or (< (point) p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4885 (cperl-after-expr-p lim))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4886 (error t))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4887
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4888 (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
4889 (let ((p (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4890 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4891 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4892 (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
4893 (not (cperl-at-end-of-expr)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4894 (forward-sexp 1)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4895 (error nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4896
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4897 (defun cperl-backward-to-start-of-continued-exp (lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4898 (if (memq (preceding-char) (append ")]}\"'`" nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4899 (forward-sexp -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4900 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4901 (if (<= (point) lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4902 (goto-char (1+ lim)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4903 (skip-chars-forward " \t"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4904
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4905 (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
4906 ;; We assume that we are after ?\}
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4907 (and
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4908 (cperl-after-block-p lim)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4909 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4910 (forward-sexp -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4911 (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
4912 (or (bobp)
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
4913 (eq (point) lim)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4914 (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
4915 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4916 (forward-sexp -1)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4917 (not
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4918 (looking-at
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4919 "\\(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
4920
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4921
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4922 (defun cperl-indent-exp ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4923 "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
4924
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4925 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
4926 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
4927
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4928 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
4929 conditional/loop constructs."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4930 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4931 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4932 (let ((tmp-end (progn (end-of-line) (point))) top done)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4933 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4934 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4935 (while (null done)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4936 (setq top (point))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4937 ;; 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
4938 (while (= -1 (nth 0 (parse-partial-sexp (point) tmp-end -1)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4939 (setq top (point))) ; Get the outermost parenths in line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4940 (goto-char top)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4941 (while (< (point) tmp-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4942 (parse-partial-sexp (point) tmp-end nil t) ; To start-sexp or eol
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4943 (or (eolp) (forward-sexp 1)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4944 (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
4945 nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4946 (if (eq ?\) (preceding-char))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4947 (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
4948 (setq top (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4949 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4950 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4951 (forward-sexp -2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4952 (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
4953 (progn
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 (if (looking-at "\\(my\\|local\\|our\\)\\>")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4956 (forward-sexp -1))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4957 (if (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4958 (concat "\\(\\elsif\\|if\\|unless\\|while\\|until"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4959 "\\|for\\(each\\)?\\>\\(\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4960 cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4961 "\\(my\\|local\\|our\\)\\)?"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4962 cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4963 "\\$[_a-zA-Z0-9]+\\)?\\)\\>"))
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 (goto-char top)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4966 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4967 (setq top (point)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4968 (error (setq done t)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4969 (goto-char top))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4970 (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
4971 (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
4972 "\\<\\(else\\|elsif\|continue\\)\\>"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4973 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4974 (goto-char (match-end 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4975 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4976 (end-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4977 (setq tmp-end (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4978 (setq done t))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4979 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4980 (end-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
4981 (setq tmp-end (point))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4982 (goto-char tmp-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4983 (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
4984 (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
4985 (cperl-fix-line-spacing tmp-end))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4986 (cperl-indent-region (point) tmp-end))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4987
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4988 (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
4989 "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
4990 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
4991 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4992 (or end
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4993 (setq end (point-max)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4994 (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
4995 (cperl-indent-region-fix-constructs
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4996 (or cperl-indent-region-fix-constructs 1))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
4997 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
4998 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4999 (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
5000 (setq ret (point))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5001 ;; }? continue
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5002 ;; blah; }
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5003 (if (not
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5004 (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
5005 (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
5006 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
5007 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5008 ;; }
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5009 ;; else
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5010 (if cperl-merge-trailing-else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5011 (if (looking-at
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5012 "[ \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
5013 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5014 (search-forward "}")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5015 (setq p (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5016 (skip-chars-forward " \t\n")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5017 (delete-region p (point))
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5018 (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
5019 (beginning-of-line)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5020 (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
5021 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5022 (search-forward "}")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5023 (delete-horizontal-space)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5024 (insert "\n")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5025 (setq ret (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5026 (if (cperl-indent-line parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5027 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5028 (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
5029 (setq ret (point)))))))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5030 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5031 ;; } else
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5032 (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
5033 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5034 (search-forward "}")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5035 (delete-horizontal-space)
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5036 (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
5037 (beginning-of-line)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5038 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5039 ;; else {
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5040 (if (looking-at
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5041 "[ \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
5042 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5043 (forward-word 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5044 (delete-horizontal-space)
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5045 (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
5046 (beginning-of-line)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5047 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5048 ;; foreach my $var
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5049 (if (looking-at
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5050 "[ \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
5051 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5052 (forward-word 2)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5053 (delete-horizontal-space)
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5054 (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
5055 (beginning-of-line)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5056 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5057 ;; foreach my $var (
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5058 (if (looking-at
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5059 "[ \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
5060 (progn
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
5061 (forward-sexp 3)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5062 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5063 (insert
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5064 (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
5065 (beginning-of-line)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5066 ;; 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
5067 ;; } foreach my $var () OR {
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5068 (if (looking-at
44446
9b08deb1030e (cperl-make-face, cperl-force-face):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43943
diff changeset
5069 "[ \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
5070 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5071 (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
5072 (re-search-forward "[({]")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5073 (forward-char -1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5074 (setq p (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5075 (if (eq (following-char) ?\( )
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5076 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5077 (forward-sexp 1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5078 (setq pp (point))) ; past parenth-group
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5079 ;; after `else' or nothing
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5080 (if ml ; after `else'
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5081 (skip-chars-backward " \t\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5082 (beginning-of-line))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5083 (setq pp nil))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5084 ;; Now after the sexp before the brace
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5085 ;; Multiline expr should be special
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5086 (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
5087 (search-forward "\n" pp t))))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5088 (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
5089 (looking-at "[ \t\n]*{"))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5090 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5091 (cond
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5092 ((bolp) ; Were before `{', no if/else/etc
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5093 nil)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5094 ((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
5095 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5096 (if (if ml
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5097 cperl-extra-newline-before-brace-multiline
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5098 cperl-extra-newline-before-brace)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5099 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5100 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5101 (insert "\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5102 (setq ret (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5103 (if (cperl-indent-line parse-data)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5104 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5105 (cperl-fix-line-spacing end parse-data)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5106 (setq ret (point)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5107 (insert
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5108 (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
5109 ((and (looking-at "[ \t]*\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5110 (not (if ml
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5111 cperl-extra-newline-before-brace-multiline
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5112 cperl-extra-newline-before-brace)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5113 (setq pp (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5114 (skip-chars-forward " \t\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5115 (delete-region pp (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5116 (insert
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5117 (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
5118 ((and (looking-at "[\t ]*{")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5119 (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
5120 cperl-extra-newline-before-brace))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5121 (delete-horizontal-space)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5122 (insert "\n")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5123 (setq ret (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5124 (if (cperl-indent-line parse-data)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5125 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5126 (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
5127 (setq ret (point))))))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5128 ;; Now we are before `{'
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5129 (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
5130 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5131 (skip-chars-forward " \t\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5132 (setq pp (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5133 (forward-sexp 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5134 (setq p (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5135 (goto-char pp)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5136 (setq ml (search-forward "\n" p t))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5137 (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
5138 ;; not good: multi-line BLOCK
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5139 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5140 (goto-char (1+ pp))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5141 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5142 (insert "\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5143 (setq ret (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5144 (if (cperl-indent-line parse-data)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5145 (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
5146 (beginning-of-line)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5147 (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
5148 ;; Now check whether there is a hanging `}'
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5149 ;; Looking at:
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5150 ;; } blah
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5151 (if (and
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5152 cperl-fix-hanging-brace-when-indent
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5153 have-brace
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5154 (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
5155 (condition-case nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5156 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5157 (up-list 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5158 (if (and (<= (point) pp)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5159 (eq (preceding-char) ?\} )
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5160 (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
5161 t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5162 (goto-char p)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5163 nil))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5164 (error nil)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5165 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5166 (forward-char -1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5167 (skip-chars-backward " \t")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5168 (if (bolp)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5169 ;; `}' 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
5170 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5171 (cperl-indent-line parse-data)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5172 (search-forward "}")
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 (delete-horizontal-space)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5176 (or (eq (preceding-char) ?\;)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5177 (bolp)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5178 (and (eq (preceding-char) ?\} )
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5179 (cperl-after-block-p (point-min)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5180 (insert ";"))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5181 (insert "\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5182 (setq ret (point)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5183 (if (cperl-indent-line parse-data)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5184 (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
5185 (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
5186 ret))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5187
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5188 (defvar cperl-update-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
5189 (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
5190 (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
5191 (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
5192 (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
5193
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5194 (defun cperl-indent-region (start end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5195 "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
5196 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
5197 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
5198 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
5199 inclusive.
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5200
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5201 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
5202 conditional/loop constructs."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5203 (interactive "r")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5204 (cperl-update-syntaxification end end)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5205 (save-excursion
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5206 (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
5207 (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
5208 (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
5209 nil))
58356
4ca1b78a471f (cperl-indent-region): Don't mind imenu-scanning-message.
Richard M. Stallman <rms@gnu.org>
parents: 58190
diff changeset
5210 (pm 0)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5211 after-change-functions ; Speed it up!
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5212 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
5213 (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
5214 (goto-char start)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5215 (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
5216 (current-column))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5217 new-comm-indent old-comm-indent)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5218 (goto-char start)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5219 (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
5220 (or (bolp) (beginning-of-line 2))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5221 (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
5222 (setq st (point))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5223 (if (or
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5224 (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
5225 (and (setq comm (looking-at "[ \t]*#"))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5226 (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
5227 comment-column))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5228 (setq old-comm-indent nil))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5229 (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
5230 (not empty)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5231 (= (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
5232 (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
5233 (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
5234 cperl-st-cfence)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5235 (let ((comment-column new-comm-indent))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5236 (indent-for-comment)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5237 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5238 (setq i (cperl-indent-line indent-info))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5239 (or comm
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5240 (not i)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5241 (progn
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5242 (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
5243 (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
5244 (if (setq old-comm-indent
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5245 (and (cperl-to-comment-or-eol)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5246 (not (memq (get-text-property (point)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5247 'syntax-type)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5248 '(pod here-doc)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5249 (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
5250 'syntax-table)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5251 cperl-st-cfence))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5252 (current-column)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5253 (progn (indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5254 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5255 (skip-chars-backward "#")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5256 (setq new-comm-indent (current-column))))))))
58492
4edc8e8a8ed6 (cperl-indent-region, cperl-imenu--create-perl-index, cperl-xsub-scan):
Richard M. Stallman <rms@gnu.org>
parents: 58356
diff changeset
5257 (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
5258 ;; Now run the update hooks
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5259 (and after-change-functions
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5260 cperl-update-end
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5261 (save-excursion
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5262 (goto-char cperl-update-end)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5263 (insert " ")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5264 (delete-char -1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5265 (goto-char cperl-update-start)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5266 (insert " ")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5267 (delete-char -1))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5268
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5269 ;; Stolen from lisp-mode with a lot of improvements
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5270
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5271 (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
5272 "Like `fill-paragraph', but handle CPerl comments.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5273 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
5274 block of it that point is in, preserving the comment's initial
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5275 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
5276 ;; (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
5277 (let (;; Non-nil if the current line contains a comment.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5278 has-comment
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5279 fill-paragraph-function ; do not recurse
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5280 ;; If has-comment, the appropriate fill-prefix for the comment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5281 comment-fill-prefix
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5282 ;; Line that contains code and comment (or nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5283 start
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5284 c spaces len dc (comment-column comment-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5285 ;; Figure out what kind of comment we are looking at.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5286 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5287 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5288 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5289
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5290 ;; A line with nothing but a comment on it?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5291 ((looking-at "[ \t]*#[# \t]*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5292 (setq has-comment t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5293 comment-fill-prefix (buffer-substring (match-beginning 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5294 (match-end 0))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5295
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5296 ;; A line with some code, followed by a comment? Remember that the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5297 ;; semi which starts the comment shouldn't be part of a string or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5298 ;; character.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5299 ((cperl-to-comment-or-eol)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5300 (setq has-comment t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5301 (looking-at "#+[ \t]*")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5302 (setq start (point) c (current-column)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5303 comment-fill-prefix
65229
b61a0ad9cf07 (cperl-electric-lbrace, cperl-electric-keyword, cperl-electric-pod,
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
5304 (concat (make-string (current-column) ?\s)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5305 (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
5306 spaces (progn (skip-chars-backward " \t")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5307 (buffer-substring (point) start))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5308 dc (- c (current-column)) len (- start (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5309 start (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5310 (delete-char len)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5311 (insert (make-string dc ?-))))) ; Placeholder (to avoid splitting???)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5312 (if (not has-comment)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5313 (fill-paragraph justify) ; Do the usual thing outside of comment
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5314 ;; Narrow to include only the comment, and then fill the region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5315 (save-restriction
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5316 (narrow-to-region
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5317 ;; Find the first line we should include in the region to fill.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5318 (if start (progn (beginning-of-line) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5319 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5320 (while (and (zerop (forward-line -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5321 (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5322 ;; We may have gone to far. Go forward again.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5323 (or (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5324 (forward-line 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5325 (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5326 ;; Find the beginning of the first line past the region to fill.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5327 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5328 (while (progn (forward-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5329 (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5330 (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5331 ;; Remove existing hashes
53812
80c9f33653f7 (cperl-fill-paragraph): Call fill-paragraph
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53779
diff changeset
5332 (save-excursion
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5333 (goto-char (point-min))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5334 (while (progn (forward-line 1) (< (point) (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5335 (skip-chars-forward " \t")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5336 (if (looking-at "#+")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5337 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5338 (if (and (eq (point) (match-beginning 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5339 (not (eq (point) (match-end 0)))) nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5340 (error
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5341 "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
5342 (delete-char (- (match-end 0) (match-beginning 0)))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5343
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5344 ;; Lines with only hashes on them can be paragraph boundaries.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5345 (let ((paragraph-start (concat paragraph-start "\\|^[ \t#]*$"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5346 (paragraph-separate (concat paragraph-start "\\|^[ \t#]*$"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5347 (fill-prefix comment-fill-prefix))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5348 (fill-paragraph justify)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5349 (if (and start)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5350 (progn
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5351 (goto-char start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5352 (if (> dc 0)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5353 (progn (delete-char dc) (insert spaces)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5354 (if (or (= (current-column) c) iteration) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5355 (setq comment-column c)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5356 (indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5357 ;; 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
5358 (cperl-fill-paragraph justify t))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5359 t)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5360
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5361 (defun cperl-do-auto-fill ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5362 ;; Break out if the line is short enough
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5363 (if (> (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5364 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5365 (current-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5366 fill-column)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5367 (let ((c (save-excursion (beginning-of-line)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5368 (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
5369 (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
5370 (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
5371 ;; 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
5372 nil
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5373 (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
5374 (fill-paragraph nil)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5375 (goto-char marker)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5376 ;; 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
5377 (if (bolp) (progn (re-search-forward "#+[ \t]*")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5378 (goto-char (match-end 0))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5379 ;; 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
5380 (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
5381 (insert " ")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5382 (backward-char 1))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5383 ;; 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
5384 (or (memq (preceding-char) '(?\s ?\t)) (insert " "))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5385
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5386 (defun cperl-imenu-addback (lst &optional isback name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5387 ;; We suppose that the lst is a DAG, unless the first element only
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5388 ;; loops back, and ISBACK is set. Thus this function cannot be
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5389 ;; applied twice without ISBACK set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5390 (cond ((not cperl-imenu-addback) lst)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5391 (t
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5392 (or name
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5393 (setq name "+++BACK+++"))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5394 (mapc (lambda (elt)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5395 (if (and (listp elt) (listp (cdr elt)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5396 (progn
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5397 ;; In the other order it goes up
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5398 ;; one level only ;-(
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5399 (setcdr elt (cons (cons name lst)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5400 (cdr elt)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5401 (cperl-imenu-addback (cdr elt) t name))))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
5402 (if isback (cdr lst) lst))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5403 lst)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5404
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5405 (defun cperl-imenu--create-perl-index (&optional regexp)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5406 (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
5407 (let ((index-alist '()) (index-pack-alist '()) (index-pod-alist '())
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5408 (index-unsorted-alist '()) (i-s-f (default-value 'imenu-sort-function))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5409 (index-meth-alist '()) meth
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5410 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
5411 (prev-pos 0) is-pack index index1 name (end-range 0) package)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5412 (goto-char (point-min))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5413 (cperl-update-syntaxification (point-max) (point-max))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5414 ;; Search for the function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5415 (progn ;;save-match-data
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5416 (while (re-search-forward
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5417 (or regexp cperl-imenu--function-name-regexp-perl)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5418 nil t)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5419 ;; 2=package-group, 5=package-name 8=sub-name
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5420 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5421 ((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
5422 (match-beginning 5) ; package name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5423 ;;(eq (char-after (match-beginning 2)) ?p) ; package
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5424 (not (save-match-data
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5425 (looking-at "[ \t\n]*;")))) ; Plain text word 'package'
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5426 nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5427 ((and
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5428 (or (match-beginning 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5429 (match-beginning 8)) ; package or sub
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5430 ;; Skip if quoted (will not skip multi-line ''-strings :-():
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5431 (null (get-text-property (match-beginning 1) 'syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5432 (null (get-text-property (match-beginning 1) 'syntax-type))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5433 (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
5434 (setq is-pack (match-beginning 2))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5435 ;; (if (looking-at "([^()]*)[ \t\n\f]*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5436 ;; (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
5437 (setq meth nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5438 p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5439 (while (and ends-ranges (>= p (car ends-ranges)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5440 ;; delete obsolete entries
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5441 (setq ends-ranges (cdr ends-ranges) packages (cdr packages)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5442 (setq package (or (car packages) "")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5443 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
5444 (if is-pack ; doing "package"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5445 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5446 (if (match-beginning 5) ; named package
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5447 (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
5448 (match-end 5))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5449 name (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5450 (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
5451 name)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5452 package (concat name "::")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5453 name (concat "package " name))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5454 ;; Support nameless packages
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5455 (setq name "package;" package ""))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5456 (setq end-range
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5457 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5458 (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
5459 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
5460 packages (cons package packages)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5461 (setq is-proto
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5462 (or (eq (following-char) ?\;)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5463 (eq 0 (get-text-property (point) 'attrib-group)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5464 ;; 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
5465 (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
5466 (or is-pack
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5467 (setq name
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5468 (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
5469 (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
5470 (setq marker (make-marker))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5471 (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
5472 (cond (is-pack nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5473 ((string-match "[:']" name)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5474 (setq meth t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5475 ((> p end-range) nil)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5476 (t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5477 (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
5478 (setq index (cons name marker))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5479 (if is-pack
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5480 (push index index-pack-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5481 (push index index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5482 (if meth (push index index-meth-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5483 (push index index-unsorted-alist)))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5484 ((match-beginning 16) ; POD section
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5485 (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
5486 marker (make-marker))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5487 (set-marker marker (match-beginning 17))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5488 (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
5489 (setq name (concat (make-string
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5490 (* 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
5491 ?\ )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5492 name)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5493 index (cons name marker))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5494 (setq index1 (cons (concat "=" name) (cdr index)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5495 (push index index-pod-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5496 (push index1 index-unsorted-alist)))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5497 (setq index-alist
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5498 (if (default-value 'imenu-sort-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5499 (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
5500 (nreverse index-alist)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5501 (and index-pod-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5502 (push (cons "+POD headers+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5503 (nreverse index-pod-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5504 index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5505 (and (or index-pack-alist index-meth-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5506 (let ((lst index-pack-alist) hier-list pack elt group name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5507 ;; Remove "package ", reverse and uniquify.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5508 (while lst
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5509 (setq elt (car lst) lst (cdr lst) name (substring (car elt) 8))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5510 (if (assoc name hier-list) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5511 (setq hier-list (cons (cons name (cdr elt)) hier-list))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5512 (setq lst index-meth-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5513 (while lst
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5514 (setq elt (car lst) lst (cdr lst))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5515 (cond ((string-match "\\(::\\|'\\)[_a-zA-Z0-9]+$" (car elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5516 (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
5517 (if (setq group (assoc pack hier-list))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5518 (if (listp (cdr group))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5519 ;; Have some functions already
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5520 (setcdr group
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5521 (cons (cons (substring
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5522 (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5523 (+ 2 (match-beginning 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5524 (cdr elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5525 (cdr group)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5526 (setcdr group (list (cons (substring
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5527 (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5528 (+ 2 (match-beginning 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5529 (cdr elt)))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5530 (setq hier-list
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5531 (cons (cons pack
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5532 (list (cons (substring
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5533 (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5534 (+ 2 (match-beginning 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5535 (cdr elt))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5536 hier-list))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5537 (push (cons "+Hierarchy+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5538 hier-list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5539 index-alist)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5540 (and index-pack-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5541 (push (cons "+Packages+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5542 (nreverse index-pack-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5543 index-alist))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5544 (and (or index-pack-alist index-pod-alist
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5545 (default-value 'imenu-sort-function))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5546 index-unsorted-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5547 (push (cons "+Unsorted List+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5548 (nreverse index-unsorted-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5549 index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5550 (cperl-imenu-addback index-alist)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5551
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5552
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5553 ;; Suggested by Mark A. Hershberger
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5554 (defun cperl-outline-level ()
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5555 (looking-at outline-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5556 (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
5557 ;;;; 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
5558 ((match-beginning 2) 0) ; package
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5559 ((match-beginning 8) 1) ; sub
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5560 ((match-beginning 16)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5561 (- (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
5562 (t 5))) ; should not happen
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5563
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5564
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5565 (defun cperl-windowed-init ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5566 "Initialization under windowed version."
73457
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5567 (cond ((featurep 'ps-print)
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
5568 (or cperl-faces-init
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
5569 (progn
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
5570 (and (boundp 'font-lock-multiline)
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
5571 (setq cperl-font-lock-multiline t))
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
5572 (cperl-init-faces))))
73457
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5573 ((not cperl-faces-init)
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5574 (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
5575 (function
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5576 (lambda ()
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5577 (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
5578 (progn
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5579 (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
5580 (if (fboundp 'eval-after-load)
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5581 (eval-after-load
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5582 "ps-print"
0c01ec806f3e * progmodes/cperl-mode.el (cperl-mode): Don't assume
Chong Yidong <cyd@stupidchicken.com>
parents: 73331
diff changeset
5583 '(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
5584
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5585 (defvar cperl-font-lock-keywords-1 nil
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5586 "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
5587 (defvar cperl-font-lock-keywords nil
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5588 "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
5589 (defvar cperl-font-lock-keywords-2 nil
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5590 "Additional expressions to highlight in Perl mode. Maximal set")
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5591
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5592 (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
5593 (or cperl-faces-init (cperl-init-faces))
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5594 cperl-font-lock-keywords)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5595
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5596 (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
5597 (or cperl-faces-init (cperl-init-faces))
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5598 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
5599
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5600 (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
5601 (or cperl-faces-init (cperl-init-faces))
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5602 cperl-font-lock-keywords-2)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5603
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5604 (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
5605 ;; 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
5606 (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
5607 (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
5608 "Face for constant and label names"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5609 (or (boundp 'font-lock-warning-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5610 (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
5611 "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
5612 ;;(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
5613 )
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5614
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5615 (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
5616 (condition-case errs
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5617 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5618 (require 'font-lock)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5619 (and (fboundp 'font-lock-fontify-anchored-keywords)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5620 (featurep 'font-lock-extra)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5621 (message "You have an obsolete package `font-lock-extra'. Install `choose-color'."))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5622 (let (t-font-lock-keywords t-font-lock-keywords-1 font-lock-anchored)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5623 (if (fboundp 'font-lock-fontify-anchored-keywords)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5624 (setq font-lock-anchored t))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5625 (setq
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5626 t-font-lock-keywords
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5627 (list
35013
587807c5e8e6 (cperl-invalid-face): Don't double-quote
Dave Love <fx@gnu.org>
parents: 32880
diff changeset
5628 `("[ \t]+$" 0 ',cperl-invalid-face t)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5629 (cons
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5630 (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5631 "\\(^\\|[^$@%&\\]\\)\\<\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5632 (mapconcat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5633 'identity
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5634 '("if" "until" "while" "elsif" "else" "unless" "for"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5635 "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
5636 "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
5637 "require" "package" "eval" "my" "BEGIN" "END" "CHECK" "INIT")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5638 "\\|") ; Flow control
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5639 "\\)\\>") 2) ; was "\\)[ \n\t;():,\|&]"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5640 ; In what follows we use `type' style
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5641 ; for overwritable builtins
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5642 (list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5643 (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5644 "\\(^\\|[^$@%&\\]\\)\\<\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5645 ;; "CORE" "__FILE__" "__LINE__" "abs" "accept" "alarm"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5646 ;; "and" "atan2" "bind" "binmode" "bless" "caller"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5647 ;; "chdir" "chmod" "chown" "chr" "chroot" "close"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5648 ;; "closedir" "cmp" "connect" "continue" "cos" "crypt"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5649 ;; "dbmclose" "dbmopen" "die" "dump" "endgrent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5650 ;; "endhostent" "endnetent" "endprotoent" "endpwent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5651 ;; "endservent" "eof" "eq" "exec" "exit" "exp" "fcntl"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5652 ;; "fileno" "flock" "fork" "formline" "ge" "getc"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5653 ;; "getgrent" "getgrgid" "getgrnam" "gethostbyaddr"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5654 ;; "gethostbyname" "gethostent" "getlogin"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5655 ;; "getnetbyaddr" "getnetbyname" "getnetent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5656 ;; "getpeername" "getpgrp" "getppid" "getpriority"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5657 ;; "getprotobyname" "getprotobynumber" "getprotoent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5658 ;; "getpwent" "getpwnam" "getpwuid" "getservbyname"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5659 ;; "getservbyport" "getservent" "getsockname"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5660 ;; "getsockopt" "glob" "gmtime" "gt" "hex" "index" "int"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5661 ;; "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
5662 ;; "link" "listen" "localtime" "lock" "log" "lstat" "lt"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5663 ;; "mkdir" "msgctl" "msgget" "msgrcv" "msgsnd" "ne"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5664 ;; "not" "oct" "open" "opendir" "or" "ord" "pack" "pipe"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5665 ;; "quotemeta" "rand" "read" "readdir" "readline"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5666 ;; "readlink" "readpipe" "recv" "ref" "rename" "require"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5667 ;; "reset" "reverse" "rewinddir" "rindex" "rmdir" "seek"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5668 ;; "seekdir" "select" "semctl" "semget" "semop" "send"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5669 ;; "setgrent" "sethostent" "setnetent" "setpgrp"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5670 ;; "setpriority" "setprotoent" "setpwent" "setservent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5671 ;; "setsockopt" "shmctl" "shmget" "shmread" "shmwrite"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5672 ;; "shutdown" "sin" "sleep" "socket" "socketpair"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5673 ;; "sprintf" "sqrt" "srand" "stat" "substr" "symlink"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5674 ;; "syscall" "sysopen" "sysread" "system" "syswrite" "tell"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5675 ;; "telldir" "time" "times" "truncate" "uc" "ucfirst"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5676 ;; "umask" "unlink" "unpack" "utime" "values" "vec"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5677 ;; "wait" "waitpid" "wantarray" "warn" "write" "x" "xor"
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5678 "a\\(bs\\|ccept\\|tan2\\|larm\\|nd\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5679 "b\\(in\\(d\\|mode\\)\\|less\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5680 "c\\(h\\(r\\(\\|oot\\)\\|dir\\|mod\\|own\\)\\|aller\\|rypt\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5681 "lose\\(\\|dir\\)\\|mp\\|o\\(s\\|n\\(tinue\\|nect\\)\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5682 "CORE\\|d\\(ie\\|bm\\(close\\|open\\)\\|ump\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5683 "e\\(x\\(p\\|it\\|ec\\)\\|q\\|nd\\(p\\(rotoent\\|went\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5684 "hostent\\|servent\\|netent\\|grent\\)\\|of\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5685 "f\\(ileno\\|cntl\\|lock\\|or\\(k\\|mline\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5686 "g\\(t\\|lob\\|mtime\\|e\\(\\|t\\(p\\(pid\\|r\\(iority\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5687 "oto\\(byn\\(ame\\|umber\\)\\|ent\\)\\)\\|eername\\|w"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5688 "\\(uid\\|ent\\|nam\\)\\|grp\\)\\|host\\(by\\(addr\\|name\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5689 "ent\\)\\|s\\(erv\\(by\\(port\\|name\\)\\|ent\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5690 "ock\\(name\\|opt\\)\\)\\|c\\|login\\|net\\(by\\(addr\\|name\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5691 "ent\\)\\|gr\\(ent\\|nam\\|gid\\)\\)\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5692 "hex\\|i\\(n\\(t\\|dex\\)\\|octl\\)\\|join\\|kill\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5693 "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
5694 "\\(\\|ngth\\)\\|o\\(c\\(altime\\|k\\)\\|g\\)\\)\\|m\\(sg\\(rcv\\|snd\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5695 "ctl\\|get\\)\\|kdir\\)\\|n\\(e\\|ot\\)\\|o\\(pen\\(\\|dir\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5696 "r\\(\\|d\\)\\|ct\\)\\|p\\(ipe\\|ack\\)\\|quotemeta\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5697 "r\\(index\\|and\\|mdir\\|e\\(quire\\|ad\\(pipe\\|\\|lin"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5698 "\\(k\\|e\\)\\|dir\\)\\|set\\|cv\\|verse\\|f\\|winddir\\|name"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5699 "\\)\\)\\|s\\(printf\\|qrt\\|rand\\|tat\\|ubstr\\|e\\(t\\(p\\(r"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5700 "\\(iority\\|otoent\\)\\|went\\|grp\\)\\|hostent\\|s\\(ervent\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5701 "ockopt\\)\\|netent\\|grent\\)\\|ek\\(\\|dir\\)\\|lect\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5702 "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
5703 "write\\|get\\)\\)\\|y\\(s\\(read\\|call\\|open\\|tem\\|write\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5704 "mlink\\)\\|in\\|leep\\|ocket\\(pair\\|\\)\\)\\|t\\(runcate\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5705 "ell\\(\\|dir\\)\\|ime\\(\\|s\\)\\)\\|u\\(c\\(\\|first\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5706 "time\\|mask\\|n\\(pack\\|link\\)\\)\\|v\\(alues\\|ec\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5707 "w\\(a\\(rn\\|it\\(pid\\|\\)\\|ntarray\\)\\|rite\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5708 "x\\(\\|or\\)\\|__\\(FILE__\\|LINE__\\|PACKAGE__\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5709 "\\)\\>") 2 'font-lock-type-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5710 ;; In what follows we use `other' style
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5711 ;; for nonoverwritable builtins
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5712 ;; Somehow 's', 'm' are not auto-generated???
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5713 (list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5714 (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5715 "\\(^\\|[^$@%&\\]\\)\\<\\("
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5716 ;; "AUTOLOAD" "BEGIN" "CHECK" "DESTROY" "END" "INIT" "__END__" "chomp"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5717 ;; "chop" "defined" "delete" "do" "each" "else" "elsif"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5718 ;; "eval" "exists" "for" "foreach" "format" "goto"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5719 ;; "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
5720 ;; "no" "our" "package" "pop" "pos" "print" "printf" "push"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5721 ;; "q" "qq" "qw" "qx" "redo" "return" "scalar" "shift"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5722 ;; "sort" "splice" "split" "study" "sub" "tie" "tr"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5723 ;; "undef" "unless" "unshift" "untie" "until" "use"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5724 ;; "while" "y"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5725 "AUTOLOAD\\|BEGIN\\|CHECK\\|cho\\(p\\|mp\\)\\|d\\(e\\(fined\\|lete\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5726 "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
5727 "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
5728 "l\\(ast\\|ocal\\)\\|m\\(ap\\|y\\)\\|n\\(ext\\|o\\)\\|our\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5729 "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
5730 "q\\(\\|q\\|w\\|x\\|r\\)\\|re\\(turn\\|do\\)\\|s\\(pli\\(ce\\|t\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5731 "calar\\|tudy\\|ub\\|hift\\|ort\\)\\|t\\(r\\|ie\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5732 "u\\(se\\|n\\(shift\\|ti\\(l\\|e\\)\\|def\\|less\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5733 "while\\|y\\|__\\(END\\|DATA\\)__" ;__DATA__ added manually
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5734 "\\|[sm]" ; Added manually
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5735 "\\)\\>") 2 'cperl-nonoverridable-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5736 ;; (mapconcat 'identity
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5737 ;; '("#endif" "#else" "#ifdef" "#ifndef" "#if"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5738 ;; "#include" "#define" "#undef")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5739 ;; "\\|")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5740 '("-[rwxoRWXOezsfdlpSbctugkTBMAC]\\>\\([ \t]+_\\>\\)?" 0
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5741 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
5742 ;; This highlights declarations and definitions differenty.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5743 ;; 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
5744 ;; 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
5745 (list (concat "\\<sub"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5746 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
5747 "\\([^ \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
5748 "\\("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5749 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
5750 "([^()]*)\\)?" ; prototype
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5751 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
5752 "[{;]")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5753 2 (if cperl-font-lock-multiline
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5754 '(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
5755 'font-lock-function-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5756 'font-lock-variable-name-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5757 ;; 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
5758 '(progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5759 (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
5760 (match-end 0)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5761 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5762 (+ 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
5763 'syntax-type 'multiline))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5764 (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
5765 'font-lock-function-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5766 'font-lock-variable-name-face))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5767 '("\\<\\(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
5768 2 font-lock-function-name-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5769 '("^[ \t]*format[ \t]+\\([a-zA-z_][a-zA-z_0-9:]*\\)[ \t]*=[ \t]*$"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5770 1 font-lock-function-name-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5771 (cond ((featurep 'font-lock-extra)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5772 '("\\([]}\\\\%@>*&]\\|\\$[a-zA-Z0-9_:]*\\)[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5773 (2 font-lock-string-face t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5774 (0 '(restart 2 t)))) ; To highlight $a{bc}{ef}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5775 (font-lock-anchored
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5776 '("\\([]}\\\\%@>*&]\\|\\$[a-zA-Z0-9_:]*\\)[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5777 (2 font-lock-string-face t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5778 ("\\=[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5779 nil nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5780 (1 font-lock-string-face t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5781 (t '("\\([]}\\\\%@>*&]\\|\\$[a-zA-Z0-9_:]*\\)[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5782 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
5783 '("[\[ \t{,(]\\(-?[a-zA-Z0-9_:]+\\)[ \t]*=>" 1
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5784 font-lock-string-face t)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5785 '("^[ \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
5786 font-lock-constant-face) ; labels
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5787 '("\\<\\(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
5788 2 font-lock-constant-face)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5789 ;; Uncomment to get perl-mode-like vars
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5790 ;;; '("[$*]{?\\(\\sw+\\)" 1 font-lock-variable-name-face)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5791 ;;; '("\\([@%]\\|\\$#\\)\\(\\sw+\\)"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5792 ;;; (2 (cons font-lock-variable-name-face '(underline))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5793 (cond ((featurep 'font-lock-extra)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5794 '("^[ \t]*\\(my\\|local\\|our\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)\\([ \t]*,\\)?"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5795 (3 font-lock-variable-name-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5796 (4 '(another 4 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5797 ("\\=[ \t]*,[ \t]*\\([$@%*][a-zA-Z0-9_:]+\\)\\([ \t]*,\\)?"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5798 (1 font-lock-variable-name-face)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5799 (2 '(restart 2 nil) nil t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5800 nil t))) ; local variables, multiple
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5801 (font-lock-anchored
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5802 ;; 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
5803 `(,(concat "\\<\\(my\\|local\\|our\\)"
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5804 cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5805 "\\(("
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5806 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
5807 "\\)?\\([$@%*]\\([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
5808 (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
5809 'font-lock-variable-name-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5810 '(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
5811 (match-beginning 0))
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5812 'font-lock-variable-name-face)))
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5813 (,(concat "\\="
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5814 cperl-maybe-white-and-comment-rex
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5815 ","
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5816 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
5817 "\\([$@%*]\\([a-zA-Z0-9_:]+\\|[^a-zA-Z0-9_]\\)\\)")
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
5818 ;; 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
5819 ;; 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
5820 ;; 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
5821 ,(if cperl-font-lock-multiline
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5822 '(if (match-beginning 3)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5823 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5824 (goto-char (match-beginning 3))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5825 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5826 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5827 (error
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5828 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5829 (forward-char 200)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5830 (error nil)))) ; typeahead
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5831 (1- (point))) ; report limit
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5832 (forward-char -2)) ; disable continued expr
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5833 '(if (match-beginning 3)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5834 (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
5835 (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
5836 ,(if cperl-font-lock-multiline
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5837 nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5838 '(progn ; Do at end
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5839 ;; "my" may be already fontified (POD),
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5840 ;; 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
5841 (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
5842 (> 2 (count-lines
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5843 cperl-font-lock-multiline-start
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5844 (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5845 nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5846 (put-text-property
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5847 (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
5848 'syntax-type 'multiline))
78643
5c8d5235a4ac (defcustom, x-color-defined-p, cperl-is-face)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78582
diff changeset
5849 (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
5850 (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
5851 (t '("^[ \t{}]*\\(my\\|local\\|our\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5852 3 font-lock-variable-name-face)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5853 '("\\<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
5854 4 font-lock-variable-name-face)
62085
7dbe52d92117 Avoid $! for font-lock-negation-char-face.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62081
diff changeset
5855 ;; 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
5856 '("\\(?:^\\|[^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
5857 '("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
5858 (setq
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5859 t-font-lock-keywords-1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5860 (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
5861 ;; 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
5862 (or
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
5863 (not (featurep 'xemacs))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5864 (string< "21.1.9" emacs-version)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5865 (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
5866 (string< emacs-version "21.1.2")))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5867 '(
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5868 ("\\(\\([@%]\\|\$#\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)" 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5869 (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
5870 'cperl-hash-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5871 'cperl-array-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5872 t) ; arrays and hashes
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5873 ("\\(\\([$@]+\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)[ \t]*\\([[{]\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5874 1
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5875 (if (= (- (match-end 2) (match-beginning 2)) 1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5876 (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
5877 'cperl-hash-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5878 'cperl-array-face) ; arrays and hashes
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5879 font-lock-variable-name-face) ; Just to put something
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5880 t)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5881 ("\\(@\\|\\$#\\)\\(\\$+\\([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
5882 (1 cperl-array-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5883 (2 font-lock-variable-name-face))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5884 ("\\(%\\)\\(\\$+\\([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
5885 (1 cperl-hash-face)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5886 (2 font-lock-variable-name-face))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5887 ;;("\\([smy]\\|tr\\)\\([^a-z_A-Z0-9]\\)\\(\\([^\n\\]*||\\)\\)\\2")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5888 ;;; 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
5889 ;;("\\(\\<\\([msy]\\|tr\\)[ \t]*\\([^ \t\na-zA-Z0-9_]\\)\\|\\(/\\)\\)"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5890 ;;(3 font-lock-function-name-face t t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5891 ;;(4
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5892 ;; (if (cperl-slash-is-regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5893 ;; font-lock-function-name-face 'default) nil t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5894 )))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5895 (if cperl-highlight-variables-indiscriminately
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5896 (setq t-font-lock-keywords-1
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5897 (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
5898 (list '("\\([$*]{?\\sw+\\)" 1
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5899 font-lock-variable-name-face)))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
5900 (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
5901 (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
5902 (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
5903 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
5904 t-font-lock-keywords)
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5905 cperl-font-lock-keywords cperl-font-lock-keywords-1
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
5906 cperl-font-lock-keywords-2 (append
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5907 cperl-font-lock-keywords-1
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5908 t-font-lock-keywords-1)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5909 (if (fboundp 'ps-print-buffer) (cperl-ps-print-init))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5910 (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
5911 (eval ; Avoid a warning
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5912 '(font-lock-require-faces
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5913 (list
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5914 ;; 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
5915 (list 'font-lock-comment-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5916 ["Firebrick" "OrangeRed" "DimGray" "Gray80"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5917 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5918 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5919 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5920 nil)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5921 (list 'font-lock-string-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5922 ["RosyBrown" "LightSalmon" "Gray50" "LightGray"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5923 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5924 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5925 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5926 nil)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5927 (list 'font-lock-function-name-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5928 (vector
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5929 "Blue" "LightSkyBlue" "Gray50" "LightGray"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5930 (cdr (assq 'background-color ; if mono
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5931 (frame-parameters))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5932 (vector
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5933 nil nil nil nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5934 (cdr (assq 'foreground-color ; if mono
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5935 (frame-parameters))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5936 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5937 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5938 nil)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5939 (list 'font-lock-variable-name-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5940 ["DarkGoldenrod" "LightGoldenrod" "DimGray" "Gray90"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5941 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5942 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5943 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5944 nil)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5945 (list 'font-lock-type-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5946 ["DarkOliveGreen" "PaleGreen" "DimGray" "Gray80"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5947 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5948 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5949 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5950 [nil nil t t t])
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5951 (list 'font-lock-warning-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5952 ["Pink" "Red" "Gray50" "LightGray"]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5953 ["gray20" "gray90"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5954 "gray80" "gray20"]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5955 [nil nil t t t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5956 nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5957 [nil nil t t t]
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5958 )
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5959 (list 'font-lock-constant-face
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5960 ["CadetBlue" "Aquamarine" "Gray50" "LightGray"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5961 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5962 [nil nil t t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5963 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5964 [nil nil t t t])
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5965 (list 'cperl-nonoverridable-face
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5966 ["chartreuse3" ("orchid1" "orange")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5967 nil "Gray80"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5968 [nil nil "gray90"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5969 [nil nil nil t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5970 [nil nil t t]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5971 [nil nil t t t])
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5972 (list 'cperl-array-face
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5973 ["blue" "yellow" nil "Gray80"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5974 ["lightyellow2" ("navy" "os2blue" "darkgreen")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5975 "gray90"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5976 t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5977 nil
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5978 nil)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
5979 (list 'cperl-hash-face
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5980 ["red" "red" nil "Gray80"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5981 ["lightyellow2" ("navy" "os2blue" "darkgreen")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5982 "gray90"]
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5983 t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5984 t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5985 nil))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5986 ;; Do it the dull way, without choose-color
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5987 (defvar cperl-guessed-background nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5988 "Display characteristics as guessed by cperl.")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5989 ;; (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
5990 ;; (defalias 'x-color-defined-p
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5991 ;; (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
5992 ;; ;; XEmacs >= 19.12
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5993 ;; ((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
5994 ;; ;; XEmacs 19.11
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
5995 ;; (t 'x-valid-color-name-p))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5996 (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
5997 "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
5998 (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
5999 "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
6000 (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
6001 "Face for data types")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6002 (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
6003 "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
6004 (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
6005 "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
6006 (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
6007 "Face for comments")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6008 (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
6009 "Face for function names")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6010 (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
6011 "Face for hashes")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6012 (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
6013 "Face for arrays")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6014 ;;(defvar font-lock-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
6015 ;;(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
6016 ;;(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
6017 ;; (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
6018 ;; '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
6019 ;; "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
6020 ;;(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
6021 ;; (defconst cperl-nonoverridable-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6022 ;; '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
6023 ;; "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
6024 ;;(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
6025 ;; (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
6026 ;; (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
6027 ;; '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
6028 ;; "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
6029 ;; (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
6030 ;; (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
6031 ;; '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
6032 ;; "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
6033 ;; (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
6034 ;; (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
6035 ;; '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
6036 ;; "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
6037 (if (and
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6038 (not (cperl-is-face 'cperl-array-face))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6039 (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
6040 (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
6041 (if (and
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6042 (not (cperl-is-face 'cperl-hash-face))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6043 (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
6044 (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
6045 (if (and
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6046 (not (cperl-is-face 'cperl-nonoverridable-face))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6047 (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
6048 (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
6049 ;;(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
6050 ;; (defconst cperl-hash-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6051 ;; '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
6052 ;; "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
6053 ;;(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
6054 ;; (defconst cperl-array-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6055 ;; '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
6056 ;; "Face to use for arrays."))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6057 ;; Here we try to guess background
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6058 (let ((background
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6059 (if (boundp 'font-lock-background-mode)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6060 font-lock-background-mode
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6061 'light))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6062 (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
6063 ;;;; (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
6064 ;;;; (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
6065 ;;;; (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
6066 ;;;; (face-list
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6067 ;;;; (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
6068 ;;;; (t
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6069 ;;;; (function (lambda (face) (boundp face))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6070 (defvar cperl-guessed-background
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6071 (if (and (boundp 'font-lock-display-type)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6072 (eq font-lock-display-type 'grayscale))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6073 'gray
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6074 background)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6075 "Background as guessed by CPerl mode")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6076 (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
6077 (cperl-is-face 'font-lock-reference-face)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6078 (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
6079 (if (cperl-is-face 'font-lock-type-face) nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6080 (copy-face 'default 'font-lock-type-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6081 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6082 ((eq background 'light)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6083 (set-face-foreground 'font-lock-type-face
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6084 (if (x-color-defined-p "seagreen")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6085 "seagreen"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6086 "sea green")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6087 ((eq background 'dark)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6088 (set-face-foreground 'font-lock-type-face
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6089 (if (x-color-defined-p "os2pink")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6090 "os2pink"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6091 "pink")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6092 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6093 (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
6094 (if (cperl-is-face 'cperl-nonoverridable-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6095 nil
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6096 (copy-face 'font-lock-type-face 'cperl-nonoverridable-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6097 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6098 ((eq background 'light)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6099 (set-face-foreground 'cperl-nonoverridable-face
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6100 (if (x-color-defined-p "chartreuse3")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6101 "chartreuse3"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6102 "chartreuse")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6103 ((eq background 'dark)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6104 (set-face-foreground 'cperl-nonoverridable-face
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6105 (if (x-color-defined-p "orchid1")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6106 "orchid1"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6107 "orange")))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6108 ;;; (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
6109 ;;; (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
6110 ;;; (cond
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6111 ;;; ((eq background 'light)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6112 ;;; (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
6113 ;;; (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
6114 ;;; "lightyellow2"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6115 ;;; (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
6116 ;;; "lightyellow"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6117 ;;; "light yellow"))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6118 ;;; ((eq background 'dark)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6119 ;;; (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
6120 ;;; (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
6121 ;;; "navy"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6122 ;;; (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
6123 ;;; "darkgreen"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6124 ;;; "dark green"))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6125 ;;; (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
6126 ;;; (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
6127 ;;; (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
6128 ;;; (cond
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6129 ;;; ((eq background 'light)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6130 ;;; (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
6131 ;;; (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
6132 ;;; "lightyellow2"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6133 ;;; "lightyellow")))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6134 ;;; ((eq background 'dark)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6135 ;;; (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
6136 ;;; (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
6137 ;;; "navy"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6138 ;;; (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
6139 ;;; "darkgreen"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6140 ;;; "dark green"))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6141 ;;; (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
6142 (if (cperl-is-face 'font-lock-variable-name-face) nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6143 (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
6144 (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
6145 (copy-face 'italic 'font-lock-constant-face))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6146 (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
6147 (error (message "cperl-init-faces (ignored): %s" errs))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6148
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6149
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6150 (defun cperl-ps-print-init ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6151 "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
6152 (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
6153 '(setq ps-bold-faces
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6154 ;; 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
6155 ;; font-lock-constant-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6156 (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
6157 ps-bold-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6158 ps-italic-faces
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6159 ;; font-lock-constant-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6160 (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
6161 ps-italic-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6162 ps-underlined-faces
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6163 ;; font-lock-type-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6164 (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
6165 ps-underlined-faces))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6166
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6167 (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
6168
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6169 (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
6170 "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
6171 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
6172 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
6173
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6174 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
6175 (interactive)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6176 (or file
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6177 (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
6178 "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
6179 (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
6180 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
6181 (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
6182 (setq file nil))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6183 (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
6184 (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
6185 (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
6186 (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
6187 (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
6188
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6189 ;;; (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
6190 ;;; "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
6191 ;;; ;; 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
6192 ;;; (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
6193 ;;; (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
6194 ;;; (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
6195 ;;; (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
6196 ;;; (append '(font-lock-emphasized-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6197 ;;; cperl-array-face
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6198 ;;; font-lock-keyword-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6199 ;;; font-lock-variable-name-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6200 ;;; font-lock-constant-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6201 ;;; 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
6202 ;;; font-lock-other-emphasized-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6203 ;;; 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
6204 ;;; ps-bold-faces))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6205 ;;; (setq ps-italic-faces
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6206 ;;; (append '(cperl-nonoverridable-face
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6207 ;;; font-lock-constant-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6208 ;;; 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
6209 ;;; font-lock-other-emphasized-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6210 ;;; 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
6211 ;;; ps-italic-faces))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6212 ;;; (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
6213 ;;; (append '(font-lock-emphasized-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6214 ;;; 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
6215 ;;; font-lock-other-emphasized-face
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6216 ;;; cperl-hash-face
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6217 ;;; 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
6218 ;;; ps-underlined-faces))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6219 ;;; (cons 'font-lock-type-face ps-underlined-faces))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6220
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6221
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6222 (if (cperl-enable-font-lock) (cperl-windowed-init))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6223
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6224 (defconst cperl-styles-entries
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6225 '(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
6226 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
6227 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
6228 cperl-merge-trailing-else
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6229 cperl-continued-statement-offset))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6230
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6231 (defconst cperl-style-examples
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6232 "##### 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
6233 ##### 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
6234 ##### cperl-continued-statement-offset
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6235 ##### 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
6236
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6237 ########### (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
6238
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6239 ### 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
6240 if (foo) {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6241 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6242 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6243 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6244 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6245 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6246 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6247 } else {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6248 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6249 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6250
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6251 ### 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
6252 if (foo) {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6253 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6254 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6255 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6256 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6257 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6258 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6259 } else {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6260 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6261 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6262
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6263 ### 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
6264 if (foo)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6265 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6266 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6267 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6268 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6269 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6270 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6271 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6272 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6273 else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6274 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6275 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6276 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6277
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6278 ### 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
6279 if (foo)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6280 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6281 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6282 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6283 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6284 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6285 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6286 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6287 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6288 else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6289 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6290 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6291 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6292
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6293 ### 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
6294 ### 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
6295 if (foo)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6296 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6297 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6298 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6299 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6300 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6301 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6302 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6303 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6304 else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6305 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6306 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6307 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6308
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6309 ### 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
6310 ### 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
6311 if (foo)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6312 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6313 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6314 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6315 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6316 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6317 boon;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6318 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6319 }
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 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6322 stop;
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
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6325 ### 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
6326 ### 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
6327 if (foo)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6328 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6329 bar
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6330 baz;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6331 label:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6332 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6333 boon;
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 else
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6337 {
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6338 stop;
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6339 }
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6340 "
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6341 "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
6342
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6343 (defconst cperl-style-alist
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6344 '(("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
6345 (cperl-indent-level . 2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6346 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6347 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6348 (cperl-label-offset . -2)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6349 (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
6350 (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
6351 (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
6352 (cperl-merge-trailing-else . t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6353
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6354 ("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
6355 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6356 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6357 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6358 (cperl-label-offset . -4)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6359 (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
6360 (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
6361 (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
6362 (cperl-merge-trailing-else . t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6363
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6364 ("GNU"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6365 (cperl-indent-level . 2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6366 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6367 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6368 (cperl-label-offset . -2)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6369 (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
6370 (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
6371 (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
6372 (cperl-merge-trailing-else . nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6373
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6374 ("K&R"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6375 (cperl-indent-level . 5)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6376 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6377 (cperl-continued-brace-offset . -5)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6378 (cperl-label-offset . -5)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6379 (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
6380 ;;(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
6381 ;;(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
6382 (cperl-merge-trailing-else . nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6383
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6384 ("BSD"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6385 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6386 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6387 (cperl-continued-brace-offset . -4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6388 (cperl-label-offset . -4)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6389 (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
6390 ;;(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
6391 ;;(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
6392 ;;(cperl-merge-trailing-else . nil) ; ???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6393 )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6394
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6395 ("C++"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6396 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6397 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6398 (cperl-continued-brace-offset . -4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6399 (cperl-label-offset . -4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6400 (cperl-continued-statement-offset . 4)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6401 (cperl-extra-newline-before-brace . t)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6402 (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
6403 (cperl-merge-trailing-else . nil))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6404
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6405 ("Whitesmith"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6406 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6407 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6408 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6409 (cperl-label-offset . -4)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6410 (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
6411 ;;(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
6412 ;;(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
6413 ;;(cperl-merge-trailing-else . nil) ; ???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6414 )
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6415 ("Current"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6416 "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
6417 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
6418
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6419 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
6420
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6421 (defun cperl-set-style (style)
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
6422 "Set CPerl mode variables to use one of several different indentation styles.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6423 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
6424 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
6425 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
6426
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6427 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
6428 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
6429
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6430 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
6431 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
6432 (interactive
50859
25507c4ce520 (cperl-lineup): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50788
diff changeset
6433 (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
6434 cperl-style-alist)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6435 (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
6436 (or cperl-old-style
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6437 (setq cperl-old-style
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6438 (mapcar (function
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6439 (lambda (name)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6440 (cons name (eval name))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6441 cperl-styles-entries)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6442 (let ((style (cdr (assoc style cperl-style-alist))) setting str sym)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6443 (while style
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6444 (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
6445 (set (car setting) (cdr setting)))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6446
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6447 (defun cperl-set-style-back ()
63518
475955d58ad4 (cperl-set-style-back): Fix spelling in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 63460
diff changeset
6448 "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
6449 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6450 (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
6451 (let (setting)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6452 (while cperl-old-style
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6453 (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
6454 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
6455 (set (car setting) (cdr setting)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6456
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6457 (defun cperl-check-syntax ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6458 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6459 (require 'mode-compile)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6460 (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
6461 (eval '(mode-compile)))) ; Avoid a warning
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6462
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6463 (defun cperl-info-buffer (type)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6464 ;; Returns buffer with documentation. Creates if missing.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6465 ;; If TYPE, this vars buffer.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6466 ;; Special care is taken to not stomp over an existing info buffer
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6467 (let* ((bname (if type "*info-perl-var*" "*info-perl*"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6468 (info (get-buffer bname))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6469 (oldbuf (get-buffer "*info*")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6470 (if info info
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6471 (save-window-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6472 ;; Get Info running
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6473 (require 'info)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6474 (cond (oldbuf
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6475 (set-buffer oldbuf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6476 (rename-buffer "*info-perl-tmp*")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6477 (save-window-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6478 (info))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6479 (Info-find-node cperl-info-page (if type "perlvar" "perlfunc"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6480 (set-buffer "*info*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6481 (rename-buffer bname)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6482 (cond (oldbuf
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6483 (set-buffer "*info-perl-tmp*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6484 (rename-buffer "*info*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6485 (set-buffer bname)))
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
6486 (make-local-variable 'window-min-height)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6487 (setq window-min-height 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6488 (current-buffer)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6489
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6490 (defun cperl-word-at-point (&optional p)
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
6491 "Return the word at point or at P."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6492 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6493 (if p (goto-char p))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6494 (or (cperl-word-at-point-hard)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6495 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6496 (require 'etags)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6497 (funcall (or (and (boundp 'find-tag-default-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6498 find-tag-default-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6499 (get major-mode 'find-tag-default-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6500 ;; XEmacs 19.12 has `find-tag-default-hook'; it is
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6501 ;; automatically used within `find-tag-default':
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6502 'find-tag-default))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6503
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6504 (defun cperl-info-on-command (command)
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
6505 "Show documentation for Perl command COMMAND in other window.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6506 If perl-info buffer is shown in some frame, uses this frame.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6507 Customized by setting variables `cperl-shrink-wrap-info-frame',
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6508 `cperl-max-help-size'."
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6509 (interactive
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6510 (let* ((default (cperl-word-at-point))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6511 (read (read-string
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6512 (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
6513 default))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6514 (list (if (equal read "")
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6515 default
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6516 read))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6517
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6518 (let ((buffer (current-buffer))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6519 (cmd-desc (concat "^" (regexp-quote command) "[^a-zA-Z_0-9]")) ; "tr///"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6520 pos isvar height iniheight frheight buf win fr1 fr2 iniwin not-loner
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6521 max-height char-height buf-list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6522 (if (string-match "^-[a-zA-Z]$" command)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6523 (setq cmd-desc "^-X[ \t\n]"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6524 (setq isvar (string-match "^[$@%]" command)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6525 buf (cperl-info-buffer isvar)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6526 iniwin (selected-window)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6527 fr1 (window-frame iniwin))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6528 (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
6529 (goto-char (point-min))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6530 (or isvar
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6531 (progn (re-search-forward "^-X[ \t\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6532 (forward-line -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6533 (if (re-search-forward cmd-desc nil t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6534 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6535 ;; Go back to beginning of the group (ex, for qq)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6536 (if (re-search-backward "^[ \t\n\f]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6537 (forward-line 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6538 (beginning-of-line)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6539 ;; Get some of
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6540 (setq pos (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6541 buf-list (list buf "*info-perl-var*" "*info-perl*"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6542 (while (and (not win) buf-list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6543 (setq win (get-buffer-window (car buf-list) t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6544 (setq buf-list (cdr buf-list)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6545 (or (not win)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6546 (eq (window-buffer win) buf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6547 (set-window-buffer win buf))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6548 (and win (setq fr2 (window-frame win)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6549 (if (or (not fr2) (eq fr1 fr2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6550 (pop-to-buffer buf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6551 (special-display-popup-frame buf) ; Make it visible
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6552 (select-window win))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6553 (goto-char pos) ; Needed (?!).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6554 ;; Resize
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6555 (setq iniheight (window-height)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6556 frheight (frame-height)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6557 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
6558 (cond ((if not-loner cperl-max-help-size
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6559 cperl-shrink-wrap-info-frame)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6560 (setq height
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6561 (+ 2
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6562 (count-lines
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6563 pos
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6564 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6565 (if (re-search-forward
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6566 "^[ \t][^\n]*\n+\\([^ \t\n\f]\\|\\'\\)" nil t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6567 (match-beginning 0) (point-max)))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6568 max-height
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6569 (if not-loner
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6570 (/ (* (- frheight 3) cperl-max-help-size) 100)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6571 (setq char-height (frame-char-height))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6572 ;; Non-functioning under OS/2:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6573 (if (eq char-height 1) (setq char-height 18))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6574 ;; 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
6575 (- (/ (display-pixel-height) char-height) 4)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6576 (if (> height max-height) (setq height max-height))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6577 ;;(message "was %s doing %s" iniheight height)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6578 (if not-loner
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6579 (enlarge-window (- height iniheight))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6580 (set-frame-height (window-frame win) (1+ height)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6581 (set-window-start (selected-window) pos))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6582 (message "No entry for %s found." command))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6583 ;;(pop-to-buffer buffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6584 (select-window iniwin)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6585
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6586 (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
6587 "Show documentation for Perl command at point in other window."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6588 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6589 (cperl-info-on-command (cperl-word-at-point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6590
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6591 (defun cperl-imenu-info-imenu-search ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6592 (if (looking-at "^-X[ \t\n]") nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6593 (re-search-backward
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6594 "^\n\\([-a-zA-Z_]+\\)[ \t\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6595 (forward-line 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6596
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6597 (defun cperl-imenu-info-imenu-name ()
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6598 (buffer-substring
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6599 (match-beginning 1) (match-end 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6600
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6601 (defun cperl-imenu-on-info ()
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6602 "Shows imenu for Perl Info Buffer.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6603 Opens Perl Info buffer if needed."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6604 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6605 (let* ((buffer (current-buffer))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6606 imenu-create-index-function
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6607 imenu-prev-index-position-function
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6608 imenu-extract-index-name-function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6609 (index-item (save-restriction
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6610 (save-window-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6611 (set-buffer (cperl-info-buffer nil))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6612 (setq imenu-create-index-function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6613 'imenu-default-create-index-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6614 imenu-prev-index-position-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6615 'cperl-imenu-info-imenu-search
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6616 imenu-extract-index-name-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6617 'cperl-imenu-info-imenu-name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6618 (imenu-choose-buffer-index)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6619 (and index-item
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6620 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6621 (push-mark)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6622 (pop-to-buffer "*info-perl*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6623 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6624 ((markerp (cdr index-item))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6625 (goto-char (marker-position (cdr index-item))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6626 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6627 (goto-char (cdr index-item))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6628 (set-window-start (selected-window) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6629 (pop-to-buffer buffer)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6630
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6631 (defun cperl-lineup (beg end &optional step minshift)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6632 "Lineup construction in a region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6633 Beginning of region should be at the start of a construction.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6634 All first occurrences of this construction in the lines that are
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6635 partially contained in the region are lined up at the same column.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6636
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6637 MINSHIFT is the minimal amount of space to insert before the construction.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6638 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
6639 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
6640 \(or `cperl-indent-level', if `cperl-lineup-step' is nil).
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6641 Will not move the position at the start to the left."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6642 (interactive "r")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6643 (let (search col tcol seen b)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6644 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6645 (goto-char end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6646 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6647 (setq end (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6648 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6649 (skip-chars-forward " \t\f")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6650 (setq beg (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6651 (indent-region beg end nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6652 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6653 (setq col (current-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6654 (if (looking-at "[a-zA-Z0-9_]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6655 (if (looking-at "\\<[a-zA-Z0-9_]+\\>")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6656 (setq search
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6657 (concat "\\<"
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6658 (regexp-quote
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6659 (buffer-substring (match-beginning 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6660 (match-end 0))) "\\>"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6661 (error "Cannot line up in a middle of the word"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6662 (if (looking-at "$")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6663 (error "Cannot line up end of line"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6664 (setq search (regexp-quote (char-to-string (following-char)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6665 (setq step (or step cperl-lineup-step cperl-indent-level))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6666 (or minshift (setq minshift 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6667 (while (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6668 (beginning-of-line 2)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6669 (and (< (point) end)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6670 (re-search-forward search end t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6671 (goto-char (match-beginning 0))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6672 (setq tcol (current-column) seen t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6673 (if (> tcol col) (setq col tcol)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6674 (or seen
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6675 (error "The construction to line up occurred only once"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6676 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6677 (setq col (+ col minshift))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6678 (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
6679 (while
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6680 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6681 (cperl-make-indent col)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6682 (beginning-of-line 2)
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6683 (and (< (point) end)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6684 (re-search-forward search end t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6685 (goto-char (match-beginning 0)))))))) ; No body
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6686
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6687 (defun cperl-etags (&optional add all files) ;; NOT USED???
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6688 "Run etags with appropriate options for Perl files.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6689 If optional argument ALL is `recursive', will process Perl files
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6690 in subdirectories too."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6691 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6692 (let ((cmd "etags")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6693 (args '("-l" "none" "-r"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6694 ;; 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
6695 "/\\<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
6696 "-r"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6697 "/\\<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
6698 "-r"
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6699 "/\\<\\(package\\)[ \\t]*;/\\1;/"))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6700 res)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6701 (if add (setq args (cons "-a" args)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6702 (or files (setq files (list buffer-file-name)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6703 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6704 ((eq all 'recursive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6705 ;;(error "Not implemented: recursive")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6706 (setq args (append (list "-e"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6707 "sub wanted {push @ARGV, $File::Find::name if /\\.[pP][Llm]$/}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6708 use File::Find;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6709 find(\\&wanted, '.');
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6710 exec @ARGV;"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6711 cmd) args)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6712 cmd "perl"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6713 (all
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6714 ;;(error "Not implemented: all")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6715 (setq args (append (list "-e"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6716 "push @ARGV, <*.PL *.pl *.pm>;
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6717 exec @ARGV;"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6718 cmd) args)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6719 cmd "perl"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6720 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6721 (setq args (append args files))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6722 (setq res (apply 'call-process cmd nil nil nil args))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6723 (or (eq res 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6724 (message "etags returned \"%s\"" res))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6725
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6726 (defun cperl-toggle-auto-newline ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6727 "Toggle the state of `cperl-auto-newline'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6728 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6729 (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
6730 (message "Newlines will %sbe auto-inserted now."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6731 (if cperl-auto-newline "" "not ")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6732
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6733 (defun cperl-toggle-abbrev ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6734 "Toggle the state of automatic keyword expansion in CPerl mode."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6735 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6736 (abbrev-mode (if abbrev-mode 0 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6737 (message "Perl control structure will %sbe auto-inserted now."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6738 (if abbrev-mode "" "not ")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6739
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6740
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6741 (defun cperl-toggle-electric ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6742 "Toggle the state of parentheses doubling in CPerl mode."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6743 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6744 (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
6745 (message "Parentheses will %sbe auto-doubled now."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6746 (if (cperl-val 'cperl-electric-parens) "" "not ")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6747
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6748 (defun cperl-toggle-autohelp ()
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
6749 "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
6750 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
6751 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6752 (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
6753 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6754 (if cperl-lazy-installed
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
6755 (cperl-lazy-unstall)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6756 (cperl-lazy-install))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6757 (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
6758 (if cperl-lazy-installed "" "not ")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6759 (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
6760
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6761 (defun cperl-toggle-construct-fix ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6762 "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
6763 (interactive)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6764 (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
6765 (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
6766 nil
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6767 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6768 (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
6769 (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
6770
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6771 (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
6772 "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
6773 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
6774 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
6775
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6776 The message looks like this:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6777
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6778 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
6779
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6780 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
6781 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
6782 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
6783 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
6784 by CPerl."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6785 (interactive "P")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6786 (or arg
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
6787 (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
6788 (if backtrace 'backtrace 'message)) 0 1)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6789 (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
6790 (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
6791 (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
6792 (if (eq arg t) "dis" "en")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6793
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6794 ;;;; Tags file creation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6795
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6796 (defvar cperl-tmp-buffer " *cperl-tmp*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6797
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6798 (defun cperl-setup-tmp-buf ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6799 (set-buffer (get-buffer-create cperl-tmp-buffer))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6800 (set-syntax-table cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6801 (buffer-disable-undo)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6802 (auto-fill-mode 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6803 (if cperl-use-syntax-table-text-property-for-tags
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6804 (progn
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
6805 (make-local-variable 'parse-sexp-lookup-properties)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6806 ;; Do not introduce variable if not needed, we check it!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6807 (set 'parse-sexp-lookup-properties t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6808
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6809 (defun cperl-xsub-scan ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6810 (require 'imenu)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6811 (let ((index-alist '())
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6812 (prev-pos 0) index index1 name package prefix)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6813 (goto-char (point-min))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6814 ;; Search for the function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6815 (progn ;;save-match-data
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6816 (while (re-search-forward
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6817 "^\\([ \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
6818 nil t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6819 (cond
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6820 ((match-beginning 2) ; SECTION
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6821 (setq package (buffer-substring (match-beginning 2) (match-end 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6822 (goto-char (match-beginning 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6823 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6824 (forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6825 (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
6826 (setq prefix (buffer-substring (match-beginning 1) (match-end 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6827 (setq prefix nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6828 ((not package) nil) ; C language section
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6829 ((match-beginning 3) ; XSUB
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6830 (goto-char (1+ (match-beginning 3)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6831 (setq index (imenu-example--name-and-position))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6832 (setq name (buffer-substring (match-beginning 3) (match-end 3)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6833 (if (and prefix (string-match (concat "^" prefix) name))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6834 (setq name (substring name (length prefix))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6835 (cond ((string-match "::" name) nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6836 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6837 (setq index1 (cons (concat package "::" name) (cdr index)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6838 (push index1 index-alist)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6839 (setcar index name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6840 (push index index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6841 (t ; BOOT: section
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6842 ;; (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6843 (setq index (imenu-example--name-and-position))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6844 (setcar index (concat package "::BOOT:"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6845 (push index index-alist)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6846 index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6847
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6848 (defvar cperl-unreadable-ok nil)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6849
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6850 (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
6851 (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
6852 (cperl-pod-here-fontify nil) f file)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6853 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6854 (if b (set-buffer b)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6855 (cperl-setup-tmp-buf))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6856 (erase-buffer)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6857 (condition-case err
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6858 (setq file (car (insert-file-contents ifile)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6859 (error (if cperl-unreadable-ok nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6860 (if (y-or-n-p
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6861 (format "File %s unreadable. Continue? " ifile))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6862 (setq cperl-unreadable-ok t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6863 (error "Aborting: unreadable file %s" ifile)))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
6864 (if (not file)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6865 (message "Unreadable file %s" ifile)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6866 (message "Scanning file %s ..." file)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6867 (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
6868 (not xs))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6869 (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
6870 (cperl-find-pods-heres nil nil noninteractive)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6871 (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
6872 (if xs
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6873 (setq lst (cperl-xsub-scan))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6874 (setq ind (cperl-imenu--create-perl-index))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6875 (setq lst (cdr (assoc "+Unsorted List+..." ind))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6876 (setq lst
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6877 (mapcar
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6878 (function
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6879 (lambda (elt)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6880 (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
6881 (goto-char (cdr elt))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6882 (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
6883 (list (car elt)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6884 (point)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6885 (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
6886 (buffer-substring (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6887 (goto-char (cdr elt))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6888 ;; After name now...
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6889 (or (eolp) (forward-char 1))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6890 (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6891 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6892 (beginning-of-line)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6893 (point))))))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6894 lst))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6895 (erase-buffer)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6896 (while lst
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6897 (setq elt (car lst) lst (cdr lst))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6898 (if elt
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6899 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6900 (insert (elt elt 3)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6901 127
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6902 (if (string-match "^package " (car elt))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6903 (substring (car elt) 8)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6904 (car elt) )
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6905 1
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6906 (number-to-string (elt elt 2)) ; Line
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6907 ","
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6908 (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
6909 "\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6910 (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
6911 (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
6912 (elt elt 3)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6913 ;; 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
6914 (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
6915 (match-beginning 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6916 (match-end 1))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6917 (cdr elt))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6918 lst))))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6919 (setq pos (point))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6920 (goto-char 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6921 (setq rel file)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6922 ;; 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
6923 (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
6924 (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
6925 (setq rel (substring file (length topdir))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6926 (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
6927 (setq ret (buffer-substring 1 (point-max)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6928 (erase-buffer)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6929 (or noninteractive
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6930 (message "Scanning file %s finished" file))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6931 ret))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6932
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6933 (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
6934 "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
6935 Use as
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6936 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
6937 -f cperl-add-tags-recurse-noxs
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6938 "
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6939 (cperl-write-tags nil nil t t nil t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6940
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6941 (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
6942 "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
6943 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
6944 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
6945 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
6946 -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
6947 "
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
6948 (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
6949
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6950 (defun cperl-add-tags-recurse ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6951 "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
6952 Use as
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6953 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
6954 -f cperl-add-tags-recurse
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6955 "
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6956 (cperl-write-tags nil nil t t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6957
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6958 (defun cperl-write-tags (&optional file erase recurse dir inbuffer noxs topdir)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6959 ;; If INBUFFER, do not select buffer, and do not save
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6960 ;; 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
6961 (require 'etags)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6962 (if file nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6963 (setq file (if dir default-directory (buffer-file-name)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6964 (if (and (not dir) (buffer-modified-p)) (error "Save buffer first!")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6965 (or topdir
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6966 (setq topdir default-directory))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6967 (let ((tags-file-name "TAGS")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6968 (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
6969 xs rel tm)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6970 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6971 (cond (inbuffer nil) ; Already there
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6972 ((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
6973 (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
6974 (visit-tags-table-buffer)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6975 (visit-tags-table-buffer tags-file-name)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6976 (t (set-buffer (find-file-noselect tags-file-name))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6977 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6978 (dir
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6979 (cond ((eq erase 'ignore))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6980 (erase
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6981 (erase-buffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6982 (setq erase 'ignore)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
6983 (let ((files
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6984 (condition-case err
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
6985 (directory-files file t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6986 (if recurse nil cperl-scan-files-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6987 t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6988 (error
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6989 (if cperl-unreadable-ok nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6990 (if (y-or-n-p
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6991 (format "Directory %s unreadable. Continue? " file))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
6992 (setq cperl-unreadable-ok t
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
6993 tm nil) ; Return empty list
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6994 (error "Aborting: unreadable directory %s" file)))))))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
6995 (mapc (function
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
6996 (lambda (file)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
6997 (cond
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
6998 ((string-match cperl-noscan-files-regexp file)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
6999 nil)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7000 ((not (file-directory-p file))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7001 (if (string-match cperl-scan-files-regexp file)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7002 (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
7003 ((not recurse) nil)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7004 (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
7005 files)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7006 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7007 (setq xs (string-match "\\.xs$" file))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7008 (if (not (and xs noxs))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7009 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7010 (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
7011 (erase (erase-buffer))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7012 (t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7013 (goto-char 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7014 (setq rel file)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7015 ;; 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
7016 (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
7017 (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
7018 (setq rel (substring file (length topdir))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7019 (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
7020 (progn
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7021 (search-backward "\f\n")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7022 (delete-region (point)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7023 (save-excursion
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7024 (forward-char 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7025 (if (search-forward "\f\n"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7026 nil 'toend)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7027 (- (point) 2)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7028 (point-max)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7029 (goto-char (point-max)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7030 (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
7031 (if inbuffer nil ; Delegate to the caller
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7032 (save-buffer 0) ; No backup
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7033 (if (fboundp 'initialize-new-tags-table) ; Do we need something special in XEmacs?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7034 (initialize-new-tags-table))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7035
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7036 (defvar cperl-tags-hier-regexp-list
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7037 (concat
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7038 "^\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7039 "\\(package\\)\\>"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7040 "\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7041 "sub\\>[^\n]+::"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7042 "\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7043 "[a-zA-Z_][a-zA-Z_0-9:]*(\C-?[^\n]+::" ; XSUB?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7044 "\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7045 "[ \t]*BOOT:\C-?[^\n]+::" ; BOOT section
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7046 "\\)"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7047
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7048 (defvar cperl-hierarchy '(() ())
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
7049 "Global hierarchy of classes.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7050
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7051 (defun cperl-tags-hier-fill ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7052 ;; Suppose we are in a tag table cooked by cperl.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7053 (goto-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7054 (let (type pack name pos line chunk ord cons1 file str info fileind)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7055 (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
7056 (setq pos (match-beginning 0)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7057 pack (match-beginning 2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7058 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7059 (if (looking-at (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7060 "\\([^\n]+\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7061 "\C-?"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7062 "\\([^\n]+\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7063 "\C-a"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7064 "\\([0-9]+\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7065 ","
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7066 "\\([0-9]+\\)"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7067 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7068 (setq ;;str (buffer-substring (match-beginning 1) (match-end 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7069 name (buffer-substring (match-beginning 2) (match-end 2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7070 ;;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
7071 line (buffer-substring (match-beginning 3) (match-end 3))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7072 ord (if pack 1 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7073 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
7074 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
7075 ;; 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
7076 info (cperl-etags-snarf-tag file line))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7077 ;; Move back
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7078 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7079 ;; Make new member of hierarchy name ==> file ==> pos if needed
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7080 (if (setq cons1 (assoc name (nth ord cperl-hierarchy)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7081 ;; Name known
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7082 (setcdr cons1 (cons (cons fileind (vector file info))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7083 (cdr cons1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7084 ;; First occurrence of the name, start alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7085 (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
7086 (if pack
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7087 (setcar (cdr cperl-hierarchy)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7088 (cons cons1 (nth 1 cperl-hierarchy)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7089 (setcar cperl-hierarchy
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7090 (cons cons1 (car cperl-hierarchy)))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7091 (end-of-line))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7092
97422
6e551caf98f6 Add declarations for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 96459
diff changeset
7093 (declare-function x-popup-menu "xmenu.c" (position menu))
6e551caf98f6 Add declarations for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 96459
diff changeset
7094
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7095 (defun cperl-tags-hier-init (&optional update)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7096 "Show hierarchical menu of classes and methods.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7097 Finds info about classes by a scan of loaded TAGS files.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7098 Supposes that the TAGS files contain fully qualified function names.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7099 One may build such TAGS files from CPerl mode menu."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7100 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7101 (require 'etags)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7102 (require 'imenu)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7103 (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
7104 (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
7105 (or (nthcdr 2 elt)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7106 ;; Only in one file
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7107 (setcdr elt (cdr (nth 1 elt)))))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7108 pack name cons1 to l1 l2 l3 l4 b)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7109 ;; (setq cperl-hierarchy '(() () ())) ; Would write into '() later!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7110 (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
7111 (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
7112 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7113 (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
7114 ;; Does this work in XEmacs?
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7115 (call-interactively 'visit-tags-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7116 (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
7117 (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
7118 (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
7119 (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
7120 (call-interactively 'visit-tags-table))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7121 (mapc
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7122 (function
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7123 (lambda (tagsfile)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7124 (message "Updating list of classes... %s" tagsfile)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7125 (set-buffer (get-file-buffer tagsfile))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7126 (cperl-tags-hier-fill)))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7127 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
7128 (message "Updating list of classes... postprocessing..."))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7129 (mapc remover (car cperl-hierarchy))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7130 (mapc remover (nth 1 cperl-hierarchy))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7131 (setq to (list nil (cons "Packages: " (nth 1 cperl-hierarchy))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7132 (cons "Methods: " (car cperl-hierarchy))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7133 (cperl-tags-treeify to 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7134 (setcar (nthcdr 2 cperl-hierarchy)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7135 (cperl-menu-to-keymap (cons '("+++UPDATE+++" . -999) (cdr to))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7136 (message "Updating list of classes: done, requesting display...")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7137 ;;(cperl-imenu-addback (nth 2 cperl-hierarchy))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7138 ))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7139 (or (nth 2 cperl-hierarchy)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7140 (error "No items found"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7141 (setq update
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7142 ;;; (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
7143 (if (if (fboundp 'display-popup-menus-p)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7144 (let ((f 'display-popup-menus-p))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7145 (funcall f))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7146 window-system)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7147 (x-popup-menu t (nth 2 cperl-hierarchy))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7148 (require 'tmm)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7149 (tmm-prompt (nth 2 cperl-hierarchy))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7150 (if (and update (listp update))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7151 (progn (while (cdr update) (setq update (cdr update)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7152 (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
7153 (if (vectorp update)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7154 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7155 (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
7156 (cperl-etags-goto-tag-location (elt update 1))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7157 (if (eq update -999) (cperl-tags-hier-init t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7158
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7159 (defun cperl-tags-treeify (to level)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7160 ;; 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
7161 (let* ((regexp (concat "^\\(" (mapconcat
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7162 'identity
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7163 (make-list level "[_a-zA-Z0-9]+")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7164 "::")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7165 "\\)\\(::\\)?"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7166 (packages (cdr (nth 1 to)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7167 (methods (cdr (nth 2 to)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7168 l1 head tail cons1 cons2 ord writeto packs recurse
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7169 root-packages root-functions ms many_ms same_name ps
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7170 (move-deeper
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7171 (function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7172 (lambda (elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7173 (cond ((and (string-match regexp (car elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7174 (or (eq ord 1) (match-end 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7175 (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
7176 tail (if (match-end 2) (substring (car elt)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7177 (match-end 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7178 recurse t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7179 (if (setq cons1 (assoc head writeto)) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7180 ;; Need to init new head
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7181 (setcdr writeto (cons (list head (list "Packages: ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7182 (list "Methods: "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7183 (cdr writeto)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7184 (setq cons1 (nth 1 writeto)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7185 (setq cons2 (nth ord cons1)) ; Either packs or meths
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7186 (setcdr cons2 (cons elt (cdr cons2))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7187 ((eq ord 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7188 (setq root-functions (cons elt root-functions)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7189 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7190 (setq root-packages (cons elt root-packages))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7191 (setcdr to l1) ; Init to dynamic space
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7192 (setq writeto to)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7193 (setq ord 1)
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7194 (mapc move-deeper packages)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7195 (setq ord 2)
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7196 (mapc move-deeper methods)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7197 (if recurse
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7198 (mapc (function (lambda (elt)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7199 (cperl-tags-treeify elt (1+ level))))
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7200 (cdr to)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7201 ;;Now clean up leaders with one child only
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7202 (mapc (function (lambda (elt)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7203 (if (not (and (listp (cdr elt))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7204 (eq (length elt) 2))) nil
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7205 (setcar elt (car (nth 1 elt)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7206 (setcdr elt (cdr (nth 1 elt))))))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7207 (cdr to))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7208 ;; Sort the roots of subtrees
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7209 (if (default-value 'imenu-sort-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7210 (setcdr to
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7211 (sort (cdr to) (default-value 'imenu-sort-function))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7212 ;; Now add back functions removed from display
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7213 (mapc (function (lambda (elt)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7214 (setcdr to (cons elt (cdr to)))))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7215 (if (default-value 'imenu-sort-function)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7216 (nreverse
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7217 (sort root-functions (default-value 'imenu-sort-function)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7218 root-functions))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7219 ;; Now add back packages removed from display
85223
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7220 (mapc (function (lambda (elt)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7221 (setcdr to (cons (cons (concat "package " (car elt))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7222 (cdr elt))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7223 (cdr to)))))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7224 (if (default-value 'imenu-sort-function)
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7225 (nreverse
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7226 (sort root-packages (default-value 'imenu-sort-function)))
455aadb38992 (top level, cperl-imenu-addback)
Glenn Morris <rgm@gnu.org>
parents: 85114
diff changeset
7227 root-packages))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7228
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7229 ;;;(x-popup-menu t
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7230 ;;; '(keymap "Name1"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7231 ;;; ("Ret1" "aa")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7232 ;;; ("Head1" "ab"
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7233 ;;; keymap "Name2"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7234 ;;; ("Tail1" "x") ("Tail2" "y"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7235
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7236 (defun cperl-list-fold (list name limit)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7237 (let (list1 list2 elt1 (num 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7238 (if (<= (length list) limit) list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7239 (setq list1 nil list2 nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7240 (while list
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7241 (setq num (1+ num)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7242 elt1 (car list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7243 list (cdr list))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7244 (if (<= num imenu-max-items)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7245 (setq list2 (cons elt1 list2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7246 (setq list1 (cons (cons name
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7247 (nreverse list2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7248 list1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7249 list2 (list elt1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7250 num 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7251 (nreverse (cons (cons name
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7252 (nreverse list2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7253 list1)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7254
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7255 (defun cperl-menu-to-keymap (menu &optional name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7256 (let (list)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7257 (cons 'keymap
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7258 (mapcar
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7259 (function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7260 (lambda (elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7261 (cond ((listp (cdr elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7262 (setq list (cperl-list-fold
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7263 (cdr elt) (car elt) imenu-max-items))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7264 (cons nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7265 (cons (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7266 (cperl-menu-to-keymap list))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7267 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7268 (list (cdr elt) (car elt) t))))) ; t is needed in 19.34
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7269 (cperl-list-fold menu "Root" imenu-max-items)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7270
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7271
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7272 (defvar cperl-bad-style-regexp
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7273 (mapconcat 'identity
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7274 '("[^-\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
7275 "[-<>=+^&|]+[^- \t\n=+<>~]") ; sign+ char
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7276 "\\|")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7277 "Finds places such that insertion of a whitespace may help a lot.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7278
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7279 (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
7280 (mapconcat
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7281 'identity
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7282 '("[^-\t <>=+]\\(--\\|\\+\\+\\)" ; var-- var++
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7283 "[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
7284 "&[(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
7285 "<\\$?\\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
7286 "-[a-zA-Z][ \t]+[_$\"'`a-zA-Z]" ; -f file, -t STDIN
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7287 "-[0-9]" ; -5
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7288 "\\+\\+" ; ++var
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7289 "--" ; --var
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7290 ".->" ; a->b
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7291 "->" ; a SPACE ->b
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7292 "\\[-" ; a[-1]
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7293 "\\\\[&$@*\\\\]" ; \&func
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7294 "^=" ; =head
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7295 "\\$." ; $|
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7296 "<<[a-zA-Z_'\"`]" ; <<FOO, <<'FOO'
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7297 "||"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7298 "&&"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7299 "[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
7300 "-[a-zA-Z_0-9]+[ \t]*=>" ; -option => value
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7301 ;; Unaddressed trouble spots: = -abc, f(56, -abc) --- specialcased below
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7302 ;;"[*/+-|&<.]+="
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7303 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7304 "\\|")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7305 "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
7306 insertion of a whitespace will not help.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7307
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7308 (defvar found-bad)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7309
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7310 (defun cperl-find-bad-style ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7311 "Find places in the buffer where insertion of a whitespace may help.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7312 Prompts user for insertion of spaces.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7313 Currently it is tuned to C and Perl syntax."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7314 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7315 (let (found-bad (p (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7316 (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
7317 (goto-char (point-min))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7318 (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
7319 (lambda (arg) (insert " "))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7320 'cperl-next-bad-style
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7321 '("location" "locations" "insert a space into")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7322 '((?\C-r (lambda (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7323 (let ((buffer-quit-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7324 'exit-recursive-edit))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7325 (message "Exit with Esc Esc")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7326 (recursive-edit)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7327 t)) ; Consider acted upon
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7328 "edit, exit with Esc Esc")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7329 (?e (lambda (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7330 (let ((buffer-quit-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7331 'exit-recursive-edit))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7332 (message "Exit with Esc Esc")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7333 (recursive-edit)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7334 t)) ; Consider acted upon
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7335 "edit, exit with Esc Esc"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7336 t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7337 (if found-bad (goto-char found-bad)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7338 (goto-char p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7339 (message "No appropriate place found"))))
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-next-bad-style ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7342 (let (p (not-found t) (point (point)) found)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7343 (while (and not-found
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7344 (re-search-forward cperl-bad-style-regexp nil 'to-end))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7345 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7346 (goto-char (match-beginning 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7347 (if (or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7348 (looking-at cperl-not-bad-style-regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7349 ;; Check for a < -b and friends
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7350 (and (eq (following-char) ?\-)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7351 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7352 (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
7353 (memq (preceding-char) '(?\= ?\> ?\< ?\, ?\( ?\[ ?\{))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7354 ;; Now check for syntax type
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7355 (save-match-data
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7356 (setq found (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7357 (beginning-of-defun)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7358 (let ((pps (parse-partial-sexp (point) found)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7359 (or (nth 3 pps) (nth 4 pps) (nth 5 pps)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7360 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7361 (goto-char (1- p))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7362 (setq not-found nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7363 found-bad found)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7364 (not not-found)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7365
27248
ae566f9903df Replace ^F with ^L.
Gerd Moellmann <gerd@gnu.org>
parents: 26667
diff changeset
7366
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7367 ;;; Getting help
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7368 (defvar cperl-have-help-regexp
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7369 ;;(concat "\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7370 (mapconcat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7371 'identity
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7372 '("[$@%*&][0-9a-zA-Z_:]+\\([ \t]*[[{]\\)?" ; Usual variable
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7373 "[$@]\\^[a-zA-Z]" ; Special variable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7374 "[$@][^ \n\t]" ; Special variable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7375 "-[a-zA-Z]" ; File test
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7376 "\\\\[a-zA-Z0]" ; Special chars
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7377 "^=[a-z][a-zA-Z0-9_]*" ; POD sections
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7378 "[-!&*+,-./<=>?\\\\^|~]+" ; Operator
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7379 "[a-zA-Z_0-9:]+" ; symbol or number
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7380 "x="
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7381 "#!")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7382 ;;"\\)\\|\\("
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7383 "\\|")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7384 ;;"\\)"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7385 ;;)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7386 "Matches places in the buffer we can find help for.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7387
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7388 (defvar cperl-message-on-help-error t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7389 (defvar cperl-help-from-timer nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7390
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7391 (defun cperl-word-at-point-hard ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7392 ;; Does not save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7393 ;; Get to the something meaningful
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7394 (or (eobp) (eolp) (forward-char 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7395 (re-search-backward "[-a-zA-Z0-9_:!&*+,-./<=>?\\\\^|~$%@]"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7396 (save-excursion (beginning-of-line) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7397 'to-beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7398 ;; (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7399 ;; ((or (eobp) (looking-at "[][ \t\n{}();,]")) ; Not at a symbol
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7400 ;; (skip-chars-backward " \n\t\r({[]});,")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7401 ;; (or (bobp) (backward-char 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7402 ;; Try to backtrace
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7403 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7404 ((looking-at "[a-zA-Z0-9_:]") ; symbol
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7405 (skip-chars-backward "a-zA-Z0-9_:")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7406 (cond
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7407 ((and (eq (preceding-char) ?^) ; $^I
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7408 (eq (char-after (- (point) 2)) ?\$))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7409 (forward-char -2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7410 ((memq (preceding-char) (append "*$@%&\\" nil)) ; *glob
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7411 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7412 ((and (eq (preceding-char) ?\=)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7413 (eq (current-column) 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7414 (forward-char -1))) ; =head1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7415 (if (and (eq (preceding-char) ?\<)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7416 (looking-at "\\$?[a-zA-Z0-9_:]+>")) ; <FH>
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7417 (forward-char -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7418 ((and (looking-at "=") (eq (preceding-char) ?x)) ; x=
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7419 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7420 ((and (looking-at "\\^") (eq (preceding-char) ?\$)) ; $^I
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7421 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7422 ((looking-at "[-!&*+,-./<=>?\\\\^|~]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7423 (skip-chars-backward "-!&*+,-./<=>?\\\\^|~")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7424 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7425 ((and (eq (preceding-char) ?\$)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7426 (not (eq (char-after (- (point) 2)) ?\$))) ; $-
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7427 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7428 ((and (eq (following-char) ?\>)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7429 (string-match "[a-zA-Z0-9_]" (char-to-string (preceding-char)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7430 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7431 (forward-sexp -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7432 (and (eq (preceding-char) ?\<)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7433 (looking-at "\\$?[a-zA-Z0-9_:]+>")))) ; <FH>
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7434 (search-backward "<"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7435 ((and (eq (following-char) ?\$)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7436 (eq (preceding-char) ?\<)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7437 (looking-at "\\$?[a-zA-Z0-9_:]+>")) ; <$fh>
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7438 (forward-char -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7439 (if (looking-at cperl-have-help-regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7440 (buffer-substring (match-beginning 0) (match-end 0))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7441
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7442 (defun cperl-get-help ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7443 "Get one-line docs on the symbol at the point.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7444 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
7445 than a line. Your contribution to update/shorten it is appreciated."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7446 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7447 (save-match-data ; May be called "inside" query-replace
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7448 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7449 (let ((word (cperl-word-at-point-hard)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7450 (if word
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7451 (if (and cperl-help-from-timer ; Bail out if not in mainland
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7452 (not (string-match "^#!\\|\\\\\\|^=" word)) ; Show help even in comments/strings.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7453 (or (memq (get-text-property (point) 'face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7454 '(font-lock-comment-face font-lock-string-face))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7455 (memq (get-text-property (point) 'syntax-type)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7456 '(pod here-doc format))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7457 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7458 (cperl-describe-perl-symbol word))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7459 (if cperl-message-on-help-error
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7460 (message "Nothing found for %s..."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7461 (buffer-substring (point) (min (+ 5 (point)) (point-max))))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7462
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7463 ;;; Stolen from perl-descr.el by Johan Vromans:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7464
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7465 (defvar cperl-doc-buffer " *perl-doc*"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7466 "Where the documentation can be found.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7467
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7468 (defun cperl-describe-perl-symbol (val)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7469 "Display the documentation of symbol at point, a Perl operator."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7470 (let ((enable-recursive-minibuffers t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7471 args-file regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7472 (cond
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7473 ((string-match "^[&*][a-zA-Z_]" val)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7474 (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
7475 ((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
7476 (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
7477 ((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
7478 (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
7479 ((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
7480 (setq val "x="))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7481 ((string-match "^\\$[\C-a-\C-z]" val)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7482 (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
7483 ((string-match "^CORE::" val)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7484 (setq val "CORE::"))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7485 ((string-match "^SUPER::" val)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7486 (setq val "SUPER::"))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7487 ((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
7488 (setq val "<NAME>")))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7489 (setq regexp (concat "^"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7490 "\\([^a-zA-Z0-9_:]+[ \t]+\\)?"
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7491 (regexp-quote val)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7492 "\\([ \t([/]\\|$\\)"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7493
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7494 ;; get the buffer with the documentation text
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7495 (cperl-switch-to-doc-buffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7496
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7497 ;; lookup in the doc
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7498 (goto-char (point-min))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7499 (let ((case-fold-search nil))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7500 (list
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7501 (if (re-search-forward regexp (point-max) t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7502 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7503 (beginning-of-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7504 (let ((lnstart (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7505 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7506 (message "%s" (buffer-substring lnstart (point)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7507 (if cperl-message-on-help-error
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7508 (message "No definition for %s" val)))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7509
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
7510 (defvar cperl-short-docs 'please-ignore-this-line
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7511 ;; Perl4 version was written by Johan Vromans (jvromans@squirrel.nl)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7512 "# 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
7513 ... 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
7514 ! ... Logical negation.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7515 ... != ... Numeric inequality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7516 ... !~ ... Search pattern, substitution, or translation (negated).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7517 $! In numeric context: errno. In a string context: error string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7518 $\" 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
7519 $# The output format for printed numbers. Default is %.15g or close.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7520 $$ Process number of this script. Changes in the fork()ed child process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7521 $% The current page number of the currently selected output channel.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7522
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7523 The following variables are always local to the current block:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7524
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7525 $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
7526 $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
7527 $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
7528 $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
7529 $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
7530 $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
7531 $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
7532 $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
7533 $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
7534 $& The string matched by the last pattern match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7535 $' The string after what was matched by the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7536 $` The string before what was matched by the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7537
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7538 $( The real gid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7539 $) The effective gid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7540 $* Deprecated: Set to 1 to do multiline matching within a string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7541 $+ The last bracket matched by the last search pattern.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7542 $, The output field separator for the print operator.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7543 $- The number of lines left on the page.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7544 $. The current input line number of the last filehandle that was read.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7545 $/ 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
7546 $0 Name of the file containing the current perl script (read/write).
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7547 $: String may be broken after these characters to fill ^-lines in a format.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7548 $; Subscript separator for multi-dim array emulation. Default \"\\034\".
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7549 $< The real uid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7550 $= The page length of the current output channel. Default is 60 lines.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7551 $> The effective uid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7552 $? The status returned by the last ``, pipe close or `system'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7553 $@ The perl error message from the last eval or do @var{EXPR} command.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7554 $ARGV The name of the current file used with <> .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7555 $[ Deprecated: The index of the first element/char in an array/string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7556 $\\ The output record separator for the print operator.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7557 $] The perl version string as displayed with perl -v.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7558 $^ The name of the current top-of-page format.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7559 $^A The current value of the write() accumulator for format() lines.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7560 $^D The value of the perl debug (-D) flags.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7561 $^E Information about the last system error other than that provided by $!.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7562 $^F The highest system file descriptor, ordinarily 2.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7563 $^H The current set of syntax checks enabled by `use strict'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7564 $^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
7565 $^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
7566 $^M A buffer for emergency memory allocation when running out of memory.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7567 $^O The operating system name under which this copy of Perl was built.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7568 $^P Internal debugging flag.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7569 $^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
7570 $^W True if warnings are requested (perl -w flag).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7571 $^X The name under which perl was invoked (argv[0] in C-speech).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7572 $_ The default input and pattern-searching space.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7573 $| Auto-flush after write/print on current output channel? Default 0.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7574 $~ The name of the current report format.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7575 ... % ... Modulo division.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7576 ... %= ... Modulo division assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7577 %ENV Contains the current environment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7578 %INC List of files that have been require-d or do-ne.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7579 %SIG Used to set signal handlers for various signals.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7580 ... & ... Bitwise and.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7581 ... && ... Logical and.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7582 ... &&= ... Logical and assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7583 ... &= ... Bitwise and assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7584 ... * ... Multiplication.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7585 ... ** ... Exponentiation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7586 *NAME Glob: all objects refered by NAME. *NAM1 = *NAM2 aliases NAM1 to NAM2.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7587 &NAME(arg0, ...) Subroutine call. Arguments go to @_.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7588 ... + ... Addition. +EXPR Makes EXPR into scalar context.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7589 ++ Auto-increment (magical on strings). ++EXPR EXPR++
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7590 ... += ... Addition assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7591 , Comma operator.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7592 ... - ... Subtraction.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7593 -- Auto-decrement (NOT magical on strings). --EXPR EXPR--
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7594 ... -= ... Subtraction assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7595 -A Access time in days since script started.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7596 -B File is a non-text (binary) file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7597 -C Inode change time in days since script started.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7598 -M Age in days since script started.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7599 -O File is owned by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7600 -R File is readable by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7601 -S File is a socket .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7602 -T File is a text file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7603 -W File is writable by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7604 -X File is executable by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7605 -b File is a block special file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7606 -c File is a character special file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7607 -d File is a directory.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7608 -e File exists .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7609 -f File is a plain file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7610 -g File has setgid bit set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7611 -k File has sticky bit set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7612 -l File is a symbolic link.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7613 -o File is owned by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7614 -p File is a named pipe (FIFO).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7615 -r File is readable by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7616 -s File has non-zero size.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7617 -t Tests if filehandle (STDIN by default) is opened to a tty.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7618 -u File has setuid bit set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7619 -w File is writable by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7620 -x File is executable by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7621 -z File has zero size.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7622 . Concatenate strings.
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
7623 .. Range (list context); flip/flop (scalar context) operator.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7624 .= Concatenate assignment strings
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7625 ... / ... Division. /PATTERN/ioxsmg Pattern match
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7626 ... /= ... Division assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7627 /PATTERN/ioxsmg Pattern match.
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
7628 ... < ... Numeric less than. <pattern> Glob. See <NAME>, <> as well.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7629 <NAME> Reads line from filehandle NAME (a bareword or dollar-bareword).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7630 <pattern> Glob (Unless pattern is bareword/dollar-bareword - see <NAME>).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7631 <> Reads line from union of files in @ARGV (= command line) and STDIN.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7632 ... << ... Bitwise shift left. << start of HERE-DOCUMENT.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7633 ... <= ... Numeric less than or equal to.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7634 ... <=> ... Numeric compare.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7635 ... = ... Assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7636 ... == ... Numeric equality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7637 ... =~ ... Search pattern, substitution, or translation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7638 ... > ... Numeric greater than.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7639 ... >= ... Numeric greater than or equal to.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7640 ... >> ... Bitwise shift right.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7641 ... >>= ... Bitwise shift right assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7642 ... ? ... : ... Condition=if-then-else operator. ?PAT? One-time pattern match.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7643 ?PATTERN? One-time pattern match.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7644 @ARGV Command line arguments (not including the command name - see $0).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7645 @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
7646 @_ 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
7647 \\ 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
7648 \\0 Octal char, e.g. \\033.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7649 \\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
7650 \\L Lowercase until \\E . See also \\l, lc.
7293b63aa3ba (cperl-short-docs): Fix quoting
Andreas Schwab <schwab@suse.de>
parents: 68773
diff changeset
7651 \\U Upcase until \\E . See also \\u, uc.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7652 \\Q Quote metacharacters until \\E . See also quotemeta.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7653 \\a Alarm character (octal 007).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7654 \\b Backspace character (octal 010).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7655 \\c Control character, e.g. \\c[ .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7656 \\e Escape character (octal 033).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7657 \\f Formfeed character (octal 014).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7658 \\l Lowercase the next character. See also \\L and \\u, lcfirst.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7659 \\n Newline character (octal 012 on most systems).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7660 \\r Return character (octal 015 on most systems).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7661 \\t Tab character (octal 011).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7662 \\u Upcase the next character. See also \\U and \\l, ucfirst.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7663 \\x Hex character, e.g. \\x1b.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7664 ... ^ ... Bitwise exclusive or.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7665 __END__ Ends program source.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7666 __DATA__ Ends program source.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7667 __FILE__ Current (source) filename.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7668 __LINE__ Current line in current source.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7669 __PACKAGE__ Current package.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7670 ARGV Default multi-file input filehandle. <ARGV> is a synonym for <>.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7671 ARGVOUT Output filehandle with -i flag.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7672 BEGIN { ... } Immediately executed (during compilation) piece of code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7673 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
7674 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
7675 INIT { ... } Pseudo-subroutine executed before the script starts running.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7676 DATA Input filehandle for what follows after __END__ or __DATA__.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7677 accept(NEWSOCKET,GENERICSOCKET)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7678 alarm(SECONDS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7679 atan2(X,Y)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7680 bind(SOCKET,NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7681 binmode(FILEHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7682 caller[(LEVEL)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7683 chdir(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7684 chmod(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7685 chop[(LIST|VAR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7686 chown(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7687 chroot(FILENAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7688 close(FILEHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7689 closedir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7690 ... cmp ... String compare.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7691 connect(SOCKET,NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7692 continue of { block } continue { block }. Is executed after `next' or at end.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7693 cos(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7694 crypt(PLAINTEXT,SALT)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7695 dbmclose(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7696 dbmopen(%HASH,DBNAME,MODE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7697 defined(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7698 delete($HASH{KEY})
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7699 die(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7700 do { ... }|SUBR while|until EXPR executes at least once
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7701 do(EXPR|SUBR([LIST])) (with while|until executes at least once)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7702 dump LABEL
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7703 each(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7704 endgrent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7705 endhostent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7706 endnetent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7707 endprotoent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7708 endpwent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7709 endservent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7710 eof[([FILEHANDLE])]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7711 ... eq ... String equality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7712 eval(EXPR) or eval { BLOCK }
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7713 exec([TRUENAME] ARGV0, ARGVs) or exec(SHELL_COMMAND_LINE)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7714 exit(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7715 exp(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7716 fcntl(FILEHANDLE,FUNCTION,SCALAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7717 fileno(FILEHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7718 flock(FILEHANDLE,OPERATION)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7719 for (EXPR;EXPR;EXPR) { ... }
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7720 foreach [VAR] (@ARRAY) { ... }
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7721 fork
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7722 ... ge ... String greater than or equal.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7723 getc[(FILEHANDLE)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7724 getgrent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7725 getgrgid(GID)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7726 getgrnam(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7727 gethostbyaddr(ADDR,ADDRTYPE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7728 gethostbyname(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7729 gethostent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7730 getlogin
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7731 getnetbyaddr(ADDR,ADDRTYPE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7732 getnetbyname(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7733 getnetent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7734 getpeername(SOCKET)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7735 getpgrp(PID)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7736 getppid
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7737 getpriority(WHICH,WHO)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7738 getprotobyname(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7739 getprotobynumber(NUMBER)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7740 getprotoent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7741 getpwent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7742 getpwnam(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7743 getpwuid(UID)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7744 getservbyname(NAME,PROTO)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7745 getservbyport(PORT,PROTO)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7746 getservent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7747 getsockname(SOCKET)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7748 getsockopt(SOCKET,LEVEL,OPTNAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7749 gmtime(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7750 goto LABEL
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7751 ... gt ... String greater than.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7752 hex(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7753 if (EXPR) { ... } [ elsif (EXPR) { ... } ... ] [ else { ... } ] or EXPR if EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7754 index(STR,SUBSTR[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7755 int(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7756 ioctl(FILEHANDLE,FUNCTION,SCALAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7757 join(EXPR,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7758 keys(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7759 kill(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7760 last [LABEL]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7761 ... le ... String less than or equal.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7762 length(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7763 link(OLDFILE,NEWFILE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7764 listen(SOCKET,QUEUESIZE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7765 local(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7766 localtime(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7767 log(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7768 lstat(EXPR|FILEHANDLE|VAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7769 ... lt ... String less than.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7770 m/PATTERN/iogsmx
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7771 mkdir(FILENAME,MODE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7772 msgctl(ID,CMD,ARG)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7773 msgget(KEY,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7774 msgrcv(ID,VAR,SIZE,TYPE.FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7775 msgsnd(ID,MSG,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7776 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
7777 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
7778 ... ne ... String inequality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7779 next [LABEL]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7780 oct(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7781 open(FILEHANDLE[,EXPR])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7782 opendir(DIRHANDLE,EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7783 ord(EXPR) ASCII value of the first char of the string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7784 pack(TEMPLATE,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7785 package NAME Introduces package context.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7786 pipe(READHANDLE,WRITEHANDLE) Create a pair of filehandles on ends of a pipe.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7787 pop(ARRAY)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7788 print [FILEHANDLE] [(LIST)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7789 printf [FILEHANDLE] (FORMAT,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7790 push(ARRAY,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7791 q/STRING/ Synonym for 'STRING'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7792 qq/STRING/ Synonym for \"STRING\"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7793 qx/STRING/ Synonym for `STRING`
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7794 rand[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7795 read(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7796 readdir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7797 readlink(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7798 recv(SOCKET,SCALAR,LEN,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7799 redo [LABEL]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7800 rename(OLDNAME,NEWNAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7801 require [FILENAME | PERL_VERSION]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7802 reset[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7803 return(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7804 reverse(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7805 rewinddir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7806 rindex(STR,SUBSTR[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7807 rmdir(FILENAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7808 s/PATTERN/REPLACEMENT/gieoxsm
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7809 scalar(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7810 seek(FILEHANDLE,POSITION,WHENCE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7811 seekdir(DIRHANDLE,POS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7812 select(FILEHANDLE | RBITS,WBITS,EBITS,TIMEOUT)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7813 semctl(ID,SEMNUM,CMD,ARG)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7814 semget(KEY,NSEMS,SIZE,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7815 semop(KEY,...)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7816 send(SOCKET,MSG,FLAGS[,TO])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7817 setgrent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7818 sethostent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7819 setnetent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7820 setpgrp(PID,PGRP)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7821 setpriority(WHICH,WHO,PRIORITY)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7822 setprotoent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7823 setpwent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7824 setservent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7825 setsockopt(SOCKET,LEVEL,OPTNAME,OPTVAL)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7826 shift[(ARRAY)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7827 shmctl(ID,CMD,ARG)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7828 shmget(KEY,SIZE,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7829 shmread(ID,VAR,POS,SIZE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7830 shmwrite(ID,STRING,POS,SIZE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7831 shutdown(SOCKET,HOW)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7832 sin(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7833 sleep[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7834 socket(SOCKET,DOMAIN,TYPE,PROTOCOL)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7835 socketpair(SOCKET1,SOCKET2,DOMAIN,TYPE,PROTOCOL)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7836 sort [SUBROUTINE] (LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7837 splice(ARRAY,OFFSET[,LENGTH[,LIST]])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7838 split[(/PATTERN/[,EXPR[,LIMIT]])]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7839 sprintf(FORMAT,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7840 sqrt(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7841 srand(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7842 stat(EXPR|FILEHANDLE|VAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7843 study[(SCALAR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7844 sub [NAME [(format)]] { BODY } sub NAME [(format)]; sub [(format)] {...}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7845 substr(EXPR,OFFSET[,LEN])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7846 symlink(OLDFILE,NEWFILE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7847 syscall(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7848 sysread(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7849 system([TRUENAME] ARGV0 [,ARGV]) or system(SHELL_COMMAND_LINE)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7850 syswrite(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7851 tell[(FILEHANDLE)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7852 telldir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7853 time
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7854 times
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7855 tr/SEARCHLIST/REPLACEMENTLIST/cds
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7856 truncate(FILE|EXPR,LENGTH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7857 umask[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7858 undef[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7859 unless (EXPR) { ... } [ else { ... } ] or EXPR unless EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7860 unlink(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7861 unpack(TEMPLATE,EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7862 unshift(ARRAY,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7863 until (EXPR) { ... } EXPR until EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7864 utime(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7865 values(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7866 vec(EXPR,OFFSET,BITS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7867 wait
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7868 waitpid(PID,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7869 wantarray Returns true if the sub/eval is called in list context.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7870 warn(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7871 while (EXPR) { ... } EXPR while EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7872 write[(EXPR|FILEHANDLE)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7873 ... x ... Repeat string or array.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7874 x= ... Repetition assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7875 y/SEARCHLIST/REPLACEMENTLIST/
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7876 ... | ... Bitwise or.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7877 ... || ... Logical or.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7878 ~ ... Unary bitwise complement.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7879 #! OS interpreter indicator. If contains `perl', used for options, and -x.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7880 AUTOLOAD {...} Shorthand for `sub AUTOLOAD {...}'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7881 CORE:: Prefix to access builtin function if imported sub obscures it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7882 SUPER:: Prefix to lookup for a method in @ISA classes.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7883 DESTROY Shorthand for `sub DESTROY {...}'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7884 ... EQ ... Obsolete synonym of `eq'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7885 ... GE ... Obsolete synonym of `ge'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7886 ... GT ... Obsolete synonym of `gt'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7887 ... LE ... Obsolete synonym of `le'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7888 ... LT ... Obsolete synonym of `lt'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7889 ... NE ... Obsolete synonym of `ne'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7890 abs [ EXPR ] absolute value
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7891 ... and ... Low-precedence synonym for &&.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7892 bless REFERENCE [, PACKAGE] Makes reference into an object of a package.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7893 chomp [LIST] Strips $/ off LIST/$_. Returns count. Special if $/ eq ''!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7894 chr Converts a number to char with the same ordinal.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7895 else Part of if/unless {BLOCK} elsif {BLOCK} else {BLOCK}.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7896 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
7897 exists $HASH{KEY} True if the key exists.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7898 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
7899 formline PICTURE, LIST Backdoor into \"format\" processing.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7900 glob EXPR Synonym of <EXPR>.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7901 lc [ EXPR ] Returns lowercased EXPR.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7902 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
7903 grep EXPR,LIST or grep {BLOCK} LIST Filters LIST via EXPR/BLOCK.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7904 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
7905 no PACKAGE [SYMBOL1, ...] Partial reverse for `use'. Runs `unimport' method.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7906 not ... Low-precedence synonym for ! - negation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7907 ... or ... Low-precedence synonym for ||.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7908 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
7909 quotemeta [ EXPR ] Quote regexp metacharacters.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7910 qw/WORD1 .../ Synonym of split('', 'WORD1 ...')
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7911 readline FH Synonym of <FH>.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7912 readpipe CMD Synonym of `CMD`.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7913 ref [ EXPR ] Type of EXPR when dereferenced.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7914 sysopen FH, FILENAME, MODE [, PERM] (MODE is numeric, see Fcntl.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7915 tie VAR, PACKAGE, LIST Hide an object behind a simple Perl variable.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7916 tied Returns internal object for a tied data.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7917 uc [ EXPR ] Returns upcased EXPR.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7918 ucfirst [ EXPR ] Returns EXPR with upcased first letter.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7919 untie VAR Unlink an object from a simple Perl variable.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7920 use PACKAGE [SYMBOL1, ...] Compile-time `require' with consequent `import'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7921 ... xor ... Low-precedence synonym for exclusive or.
71304
7293b63aa3ba (cperl-short-docs): Fix quoting
Andreas Schwab <schwab@suse.de>
parents: 68773
diff changeset
7922 prototype \\&SUB Returns prototype of the function given a reference.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7923 =head1 Top-level heading.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7924 =head2 Second-level heading.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7925 =head3 Third-level heading (is there such?).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7926 =over [ NUMBER ] Start list.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7927 =item [ TITLE ] Start new item in the list.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7928 =back End list.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7929 =cut Switch from POD to Perl.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7930 =pod Switch from Perl to POD.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7931 ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7932
57823
d77a1264b555 (cperl-switch-to-doc-buffer): Don't use interactive-p.
Richard M. Stallman <rms@gnu.org>
parents: 56377
diff changeset
7933 (defun cperl-switch-to-doc-buffer (&optional interactive)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7934 "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
7935 (interactive "p")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7936 (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
7937 (if interactive
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7938 (switch-to-buffer-other-window buf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7939 (set-buffer buf))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7940 (if (= (buffer-size) 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7941 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7942 (insert (documentation-property 'cperl-short-docs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7943 'variable-documentation))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7944 (setq buffer-read-only t)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7945
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7946 (defun cperl-beautify-regexp-piece (b e embed level)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7947 ;; b is before the starting delimiter, e before the ending
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7948 ;; 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
7949 ;; 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
7950 ;; 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
7951 ;; 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
7952 ;; 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
7953 (let (s c tmp (m (make-marker)) (m1 (make-marker)) c1 spaces inline code pos)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7954 (if (not embed)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7955 (goto-char (1+ b))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7956 (goto-char b)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7957 (cond ((looking-at "(\\?\\\\#") ; (?#) wrongly commented when //x-ing
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7958 (forward-char 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7959 (delete-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7960 (forward-char 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7961 ((looking-at "(\\?[^a-zA-Z]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7962 (forward-char 3))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7963 ((looking-at "(\\?") ; (?i)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7964 (forward-char 2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7965 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7966 (forward-char 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7967 (setq c (if embed (current-indentation) (1- (current-column)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7968 c1 (+ c (or cperl-regexp-indent-step cperl-indent-level)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7969 (or (looking-at "[ \t]*[\n#]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7970 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7971 (insert "\n")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7972 (goto-char e)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7973 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7974 (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
7975 (progn ; Something before the ending delimiter
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7976 (goto-char e)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7977 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7978 (insert "\n")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7979 (cperl-make-indent c)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7980 (set-marker e (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7981 (goto-char b)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7982 (end-of-line 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7983 (while (< (point) (marker-position e))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7984 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7985 (setq s (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7986 inline t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7987 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7988 (delete-region s (point))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
7989 (cperl-make-indent c1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7990 (while (and
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7991 inline
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7992 (looking-at
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7993 (concat "\\([a-zA-Z0-9]+[^*+{?]\\)" ; 1 word
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7994 "\\|" ; Embedded variable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7995 "\\$\\([a-zA-Z0-9_]+\\([[{]\\)?\\|[^\n \t)|]\\)" ; 2 3
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7996 "\\|" ; $ ^
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7997 "[$^]"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7998 "\\|" ; simple-code simple-code*?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7999 "\\(\\\\.\\|[^][()#|*+?\n]\\)\\([*+{?]\\??\\)?" ; 4 5
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8000 "\\|" ; Class
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8001 "\\(\\[\\)" ; 6
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8002 "\\|" ; Grouping
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8003 "\\((\\(\\?\\)?\\)" ; 7 8
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8004 "\\|" ; |
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8005 "\\(|\\)"))) ; 9
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8006 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8007 (setq spaces t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8008 (cond ((match-beginning 1) ; Alphanum word + junk
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8009 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8010 ((or (match-beginning 3) ; $ab[12]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8011 (and (match-beginning 5) ; X* X+ X{2,3}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8012 (eq (preceding-char) ?\{)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8013 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8014 (forward-sexp 1))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8015 ((and ; [], already syntaxified
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8016 (match-beginning 6)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8017 cperl-regexp-scan
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8018 cperl-use-syntax-table-text-property)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8019 (forward-char -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8020 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8021 (or (eq (preceding-char) ?\])
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8022 (error "[]-group not terminated"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8023 (re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8024 "\\=\\([*+?]\\|{[0-9]+\\(,[0-9]*\\)?}\\)\\??" e t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8025 ((match-beginning 6) ; []
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8026 (setq tmp (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8027 (if (looking-at "\\^?\\]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8028 (goto-char (match-end 0)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8029 ;; XXXX POSIX classes?!
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8030 (while (and (not pos)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8031 (re-search-forward "\\[:\\|\\]" e t))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8032 (if (eq (preceding-char) ?:)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8033 (or (re-search-forward ":\\]" e t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8034 (error "[:POSIX:]-group in []-group not terminated"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8035 (setq pos t)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8036 (or (eq (preceding-char) ?\])
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8037 (error "[]-group not terminated"))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8038 (re-search-forward
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8039 "\\=\\([*+?]\\|{[0-9]+\\(,[0-9]*\\)?}\\)\\??" e t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8040 ((match-beginning 7) ; ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8041 (goto-char (match-beginning 0))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8042 (setq pos (current-column))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8043 (or (eq pos c1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8044 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8045 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8046 (insert "\n")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8047 (cperl-make-indent c1)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8048 (setq tmp (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8049 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8050 ;; (or (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8051 ;; (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8052 ;; (goto-char tmp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8053 ;; (error "()-group not terminated")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8054 (set-marker m (1- (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8055 (set-marker m1 (point))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8056 (if (= level 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8057 (if (progn ; indent rigidly if multiline
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
8058 ;; 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
8059 ;; 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
8060 ;; to insertion of "\n" and " "
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8061 (goto-char tmp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8062 (search-forward "\n" m1 t))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8063 (indent-rigidly (point) m1 (- c1 pos)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8064 (setq level (1- level))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8065 (cond
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8066 ((not (match-beginning 8))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8067 (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
8068 ((eq (char-after (+ 2 tmp)) ?\{) ; Code
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8069 t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8070 ((eq (char-after (+ 2 tmp)) ?\() ; Conditional
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8071 (goto-char (+ 2 tmp))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8072 (forward-sexp 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8073 (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
8074 ((eq (char-after (+ 2 tmp)) ?<) ; Lookbehind
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8075 (goto-char (+ 3 tmp))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8076 (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
8077 (t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8078 (cperl-beautify-regexp-piece tmp m t level))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8079 (goto-char m1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8080 (cond ((looking-at "[*+?]\\??")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8081 (goto-char (match-end 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8082 ((eq (following-char) ?\{)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8083 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8084 (if (eq (following-char) ?\?)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8085 (forward-char))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8086 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8087 (setq spaces nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8088 (if (looking-at "[#\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8089 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8090 (or (eolp) (indent-for-comment))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8091 (beginning-of-line 2))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8092 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8093 (insert "\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8094 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8095 (setq inline nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8096 ((match-beginning 9) ; |
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 (setq tmp (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8099 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8100 (if (re-search-forward "[^ \t]" tmp t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8101 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8102 (goto-char tmp)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8103 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8104 (insert "\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8105 ;; first at line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8106 (delete-region (point) tmp))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8107 (cperl-make-indent c)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8108 (forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8109 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8110 (setq spaces nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8111 (if (looking-at "[#\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8112 (beginning-of-line 2)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8113 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8114 (insert "\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8115 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8116 (setq inline nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8117 (or (looking-at "[ \t\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8118 (not spaces)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8119 (insert " "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8120 (skip-chars-forward " \t"))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8121 (or (looking-at "[#\n]")
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8122 (error "Unknown code `%s' in a regexp"
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8123 (buffer-substring (point) (1+ (point)))))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8124 (and inline (end-of-line 2)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8125 ;; Special-case the last line of group
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8126 (if (and (>= (point) (marker-position e))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8127 (/= (current-indentation) c))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8128 (progn
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8129 (beginning-of-line)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8130 (cperl-make-indent c)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8131
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8132 (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
8133 ;; Returns position of the start
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8134 ;; XXX this is called too often! Need to cache the result!
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8135 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8136 (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
8137 (error "I need to have a regexp marked!"))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8138 ;; Find the start
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8139 (if (looking-at "\\s|")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8140 nil ; good already
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8141 (if (looking-at "\\([smy]\\|qr\\)\\s|")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8142 (forward-char 1)
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8143 (re-search-backward "\\s|"))) ; Assume it is scanned already.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8144 ;;(forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8145 (let ((b (point)) (e (make-marker)) have-x delim (c (current-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8146 (sub-p (eq (preceding-char) ?s)) s)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8147 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8148 (set-marker e (1- (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8149 (setq delim (preceding-char))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8150 (if (and sub-p (eq delim (char-after (- (point) 2))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8151 (error "Possible s/blah// - do not know how to deal with"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8152 (if sub-p (forward-sexp 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8153 (if (looking-at "\\sw*x")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8154 (setq have-x t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8155 (insert "x"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8156 ;; Protect fragile " ", "#"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8157 (if have-x nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8158 (goto-char (1+ b))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8159 (while (re-search-forward "\\(\\=\\|[^\\\\]\\)\\(\\\\\\\\\\)*[ \t\n#]" e t) ; Need to include (?#) too?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8160 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8161 (insert "\\")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8162 (forward-char 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8163 b)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8164
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8165 (defun cperl-beautify-regexp (&optional deep)
46024
267399555cd1 Many trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 44446
diff changeset
8166 "Do it. (Experimental, may change semantics, recheck the result.)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8167 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
8168 (interactive "P")
49516
774eed0b5c78 (cperl-beautify-level, cperl-beautify-regexp): Fix use of
Juanma Barranquero <lekktu@gmail.com>
parents: 49304
diff changeset
8169 (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
8170 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8171 (goto-char (cperl-make-regexp-x))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8172 (let ((b (point)) (e (make-marker)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8173 (forward-sexp 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8174 (set-marker e (1- (point)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8175 (cperl-beautify-regexp-piece b e nil deep))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8176
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8177 (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
8178 "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
8179 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
8180 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8181 (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
8182 (while (not done)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8183 (or (eq (following-char) ?\()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8184 (search-backward "(" (1+ limit) t)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8185 (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
8186 (setq done
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8187 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8188 (skip-chars-backward "\\")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8189 (looking-at "\\(\\\\\\\\\\)*(")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8190 (or done (forward-char -1)))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8191
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8192 (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
8193 "Find an enclosing group in regexp and contract it.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8194 \(Experimental, may change semantics, recheck the result.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8195 We suppose that the regexp is scanned already."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8196 (interactive)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8197 ;; (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
8198 (cperl-regext-to-level-start)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8199 (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
8200 (forward-sexp 1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8201 (set-marker e (1- (point)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8202 (goto-char b)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8203 (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
8204 (cond
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8205 ((match-beginning 1) ; #-comment
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8206 (or c (setq c (current-indentation)))
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8207 (beginning-of-line 2) ; Skip
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8208 (cperl-make-indent c))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8209 (t
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8210 (delete-char -1)
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8211 (just-one-space))))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8212
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8213 (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
8214 "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
8215 \(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
8216 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
8217 (interactive)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8218 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8219 (condition-case nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8220 (cperl-regext-to-level-start)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8221 (error ; We are outside outermost group
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8222 (goto-char (cperl-make-regexp-x))))
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8223 (let ((b (point)) (e (make-marker)) s c)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8224 (forward-sexp 1)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8225 (set-marker e (1- (point)))
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8226 (goto-char (1+ b))
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
8227 (while (re-search-forward "\\(\\\\\\\\\\)\\|(" e t)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49516
diff changeset
8228 (cond
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8229 ((match-beginning 1) ; Skip
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8230 nil)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8231 (t ; Group
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8232 (cperl-contract-level)))))))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8233
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8234 (defun cperl-beautify-level (&optional deep)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8235 "Find an enclosing group in regexp and beautify it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8236 \(Experimental, may change semantics, recheck the result.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8237 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
8238 (interactive "P")
49516
774eed0b5c78 (cperl-beautify-level, cperl-beautify-regexp): Fix use of
Juanma Barranquero <lekktu@gmail.com>
parents: 49304
diff changeset
8239 (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
8240 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8241 (cperl-regext-to-level-start)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8242 (let ((b (point)) (e (make-marker)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8243 (forward-sexp 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8244 (set-marker e (1- (point)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8245 (cperl-beautify-regexp-piece b e nil deep))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8246
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8247 (defun cperl-invert-if-unless-modifiers ()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8248 "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
8249 \(Unfinished.)"
80057
1db7c78912f4 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
8250 (interactive) ;
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8251 (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
8252 (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
8253 (and (= (char-syntax (preceding-char)) ?w)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8254 (forward-sexp -1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8255 (setq pre-if (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8256 (cperl-backward-to-start-of-expr)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8257 (setq pre-B (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8258 (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
8259 (cperl-forward-to-end-of-expr)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8260 (setq post-A (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8261 (goto-char pre-if)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8262 (or (looking-at w-rex)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8263 ;; Find the position
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8264 (progn (goto-char post-A)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8265 (while (and
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8266 (not (looking-at w-rex))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8267 (> (point) pre-B))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8268 (forward-sexp -1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8269 (setq pre-if (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8270 (or (looking-at w-rex)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8271 (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
8272 ;; 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
8273 (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
8274 ;; First, simple part: find code boundaries
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8275 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8276 (setq post-if (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8277 (forward-sexp -2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8278 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8279 (setq post-B (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8280 (cperl-backward-to-start-of-expr)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8281 (setq pre-B (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8282 (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
8283 (goto-char pre-if)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8284 (forward-sexp 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8285 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8286 ;; 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
8287 (skip-chars-backward "$@%#")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8288 (setq pre-A (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8289 (cperl-forward-to-end-of-expr)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8290 (setq post-A (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8291 (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
8292 ;; 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
8293 (skip-chars-forward " \t;")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8294 (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
8295 (insert "\n" B ";\n}")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8296 (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
8297 (delete-region pre-if post-if)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8298 (delete-region pre-B post-B)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8299 (goto-char pre-B)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8300 (insert if-string " (" A ") {")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8301 (setq post-B (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8302 (if (looking-at "[ \t]+$")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8303 (delete-horizontal-space)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8304 (if (looking-at "[ \t]*#")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8305 (cperl-indent-for-comment)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8306 (just-one-space)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8307 (forward-line 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8308 (if (looking-at "[ \t]*$")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8309 (progn ; delete line
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8310 (delete-horizontal-space)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8311 (delete-region (point) (1+ (point)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8312 (cperl-indent-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8313 (goto-char (1- post-B))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8314 (forward-sexp 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8315 (cperl-indent-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8316 (goto-char pre-B)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8317
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8318 (defun cperl-invert-if-unless ()
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8319 "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
8320 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
8321 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
8322 the appropriate statement modifier."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8323 (interactive)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8324 (and (= (char-syntax (preceding-char)) ?w)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8325 (forward-sexp -1))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8326 (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
8327 (let ((pre-if (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8328 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
8329 (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
8330 (forward-sexp 2)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8331 (setq post-A (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8332 (forward-sexp -1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8333 (setq pre-A (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8334 (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
8335 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8336 (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8337 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8338 (forward-sexp 2)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8339 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8340 (eq (following-char) ?\{ ))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8341 (error nil)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8342 (if is-block
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8343 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8344 (goto-char post-A)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8345 (forward-sexp 1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8346 (setq post-B (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8347 (forward-sexp -1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8348 (setq pre-B (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8349 (if (and (eq (following-char) ?\{ )
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8350 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8351 (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
8352 (eq (preceding-char) ?\) )))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8353 (if (condition-case nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8354 (progn
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8355 (goto-char post-B)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8356 (forward-sexp 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8357 (forward-sexp -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8358 (looking-at "\\<els\\(e\\|if\\)\\>"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8359 (error nil))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8360 (error
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8361 "`%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
8362 (goto-char (1- post-B))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8363 (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
8364 (if (eq (preceding-char) ?\;)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8365 (forward-char -1))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8366 (setq end-B-code (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8367 (goto-char pre-B)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8368 (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
8369 (setq p (match-beginning 0)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8370 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
8371 state (parse-partial-sexp pre-B p))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8372 (or (nth 3 state)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8373 (nth 4 state)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8374 (nth 5 state)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8375 (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
8376 (goto-char (match-end 0)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8377 ;; Finally got it
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8378 (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
8379 (skip-chars-forward " \t\n")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8380 (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
8381 (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
8382 (or (looking-at ";?[ \t\n]*}")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8383 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8384 (skip-chars-forward "; \t\n")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8385 (setq B-comment
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8386 (buffer-substring (point) (1- post-B)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8387 (and (equal B "")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8388 (setq B "1"))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8389 (goto-char (1- post-A))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8390 (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
8391 (or (looking-at "[ \t\n]*)")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8392 (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
8393 (setq p (point))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8394 (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
8395 (skip-chars-forward " \t\n")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8396 (setq A (buffer-substring (point) p))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8397 (delete-region pre-B post-B)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8398 (delete-region pre-A post-A)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8399 (goto-char pre-if)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8400 (insert B " ")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8401 (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
8402 (just-one-space)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8403 (forward-word 1)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8404 (setq pre-A (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8405 (insert " " A ";")
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8406 (delete-horizontal-space)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8407 (setq post-B (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8408 (if (looking-at "#")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8409 (indent-for-comment))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8410 (goto-char post-B)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8411 (forward-char -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8412 (delete-horizontal-space)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8413 (goto-char pre-A)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8414 (just-one-space)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8415 (goto-char pre-if)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8416 (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
8417 (while (<= (point) (marker-position pre-A))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8418 (cperl-indent-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8419 (forward-line 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8420 (goto-char (marker-position pre-A))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8421 (if B-comment
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8422 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8423 (forward-line -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8424 (indent-for-comment)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8425 (goto-char (marker-position pre-A)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8426 (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
8427 ;; (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
8428 (forward-sexp -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8429 (cperl-invert-if-unless-modifiers)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8430 ;;(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
8431 (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
8432
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8433 ;;; By Anthony Foiani <afoiani@uswest.com>
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8434 ;;; Getting help on modules in C-h f ?
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8435 ;;; This is a modified version of `man'.
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8436 ;;; 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
8437 ;;;###autoload
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8438 (defun cperl-perldoc (word)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8439 "Run `perldoc' on WORD."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8440 (interactive
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8441 (list (let* ((default-entry (cperl-word-at-point))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8442 (input (read-string
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8443 (format "perldoc entry%s: "
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8444 (if (string= default-entry "")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8445 ""
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8446 (format " (default %s)" default-entry))))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8447 (if (string= input "")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8448 (if (string= default-entry "")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8449 (error "No perldoc args given")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8450 default-entry)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8451 input))))
41309
8c4c4027c7bd (cperl-perldoc): Require man before binding `manual-program'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39836
diff changeset
8452 (require 'man)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8453 (let* ((case-fold-search nil)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8454 (is-func (and
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8455 (string-match "^[a-z]+$" word)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8456 (string-match (concat "^" word "\\>")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8457 (documentation-property
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8458 'cperl-short-docs
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8459 'variable-documentation))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8460 (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
8461 (cond
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
8462 ((featurep 'xemacs)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8463 (let ((Manual-program "perldoc")
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8464 (Manual-switches (if is-func (list "-f"))))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8465 (manual-entry word)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8466 (t
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8467 (Man-getpage-in-background word)))))
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8468
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8469 ;;;###autoload
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8470 (defun cperl-perldoc-at-point ()
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8471 "Run a `perldoc' on the word around point."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8472 (interactive)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8473 (cperl-perldoc (cperl-word-at-point)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8474
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8475 (defcustom pod2man-program "pod2man"
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8476 "*File name for `pod2man'."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8477 :type 'file
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8478 :group 'cperl)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8479
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8480 ;;; 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
8481 (defun cperl-pod-to-manpage ()
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8482 "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
8483 (interactive)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8484 (require 'man)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8485 (let* ((pod2man-args (concat buffer-file-name " | nroff -man "))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8486 (bufname (concat "Man " buffer-file-name))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8487 (buffer (generate-new-buffer bufname)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8488 (save-excursion
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8489 (set-buffer buffer)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8490 (let ((process-environment (copy-sequence process-environment)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8491 ;; Prevent any attempt to use display terminal fanciness.
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8492 (setenv "TERM" "dumb")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8493 (set-process-sentinel
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8494 (start-process pod2man-program buffer "sh" "-c"
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8495 (format (cperl-pod2man-build-command) pod2man-args))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8496 'Man-bgproc-sentinel)))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8497
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8498 ;;; Updated version by him too
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8499 (defun cperl-build-manpage ()
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8500 "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
8501 (interactive)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8502 (require 'man)
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8503 (cond
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
8504 ((featurep 'xemacs)
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8505 (let ((Manual-program "perldoc"))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8506 (manual-entry buffer-file-name)))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8507 (t
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8508 (let* ((manual-program "perldoc"))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8509 (Man-getpage-in-background buffer-file-name)))))
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8510
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8511 (defun cperl-pod2man-build-command ()
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8512 "Builds the entire background manpage and cleaning command."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8513 (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
8514 (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
8515 (while (and flist (car flist))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8516 (let ((pcom (car (car flist)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8517 (pargs (cdr (car flist))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8518 (setq command
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8519 (concat command " | " pcom " "
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8520 (mapconcat '(lambda (phrase)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8521 (if (not (stringp phrase))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8522 (error "Malformed Man-filter-list"))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8523 phrase)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8524 pargs " ")))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8525 (setq flist (cdr flist))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
8526 command))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8527
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8528
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8529 (defun cperl-next-interpolated-REx-1 ()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8530 "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
8531 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
8532
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8533 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
8534 (interactive "")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8535 (cperl-next-interpolated-REx 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8536
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8537 (defun cperl-next-interpolated-REx-0 ()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8538 "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
8539 (interactive "")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8540 (cperl-next-interpolated-REx 0))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8541
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8542 (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
8543 "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
8544 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
8545 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
8546
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8547 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
8548 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
8549
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8550 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
8551 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
8552 (interactive "P")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8553 (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
8554 (or beg (setq beg (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8555 (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
8556 (let (pp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8557 (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
8558 (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
8559 (cperl-map-pods-heres
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8560 (function (lambda (s e p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8561 (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
8562 t
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8563 (setq pp s)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8564 nil))) ; nil stops
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8565 'REx-interpolated beg limit)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8566 (if pp (goto-char pp)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8567 (message "No more interpolated REx"))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8568
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8569 ;;; Initial version contributed by Trey Belew
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8570 (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
8571 "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
8572 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
8573 (interactive "")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8574 (cperl-pod-spell t beg end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8575
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8576 (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
8577 "Spell-check POD documentation.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8578 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
8579 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
8580 (interactive "P")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8581 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8582 (let (beg end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8583 (if (cperl-mark-active)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8584 (setq beg (min (mark) (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8585 end (max (mark) (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8586 (setq beg (point-min)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8587 end (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8588 (cperl-map-pods-heres (function
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8589 (lambda (s e p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8590 (if do-heres
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8591 (setq e (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8592 (goto-char e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8593 (forward-line -1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8594 (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8595 (ispell-region s e)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8596 t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8597 (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
8598 beg end))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8599
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8600 (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
8601 "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
8602 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
8603 function returns nil."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8604 (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
8605 (or prop (setq prop 'in-pod))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8606 (or s (setq s (point-min)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8607 (or end (setq end (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8608 (cperl-update-syntaxification end end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8609 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8610 (goto-char (setq pos s))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8611 (while (and cont (< pos end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8612 (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
8613 (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
8614 (and has-prop
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8615 (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
8616 (setq pos posend)))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8617
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8618 ;;; Based on code by Masatake YAMATO:
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8619 (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
8620 "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
8621 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
8622 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
8623 (or pos (setq pos (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8624 (cperl-update-syntaxification pos pos)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8625 (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
8626 (and pod
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8627 (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
8628 (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
8629 (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
8630 (cons b (or e (point-max))))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8631
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8632 (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
8633 "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
8634 POS defaults to the point."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8635 (interactive "d")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8636 (or pos (setq pos (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8637 (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
8638 (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
8639 (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
8640 (message
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8641 "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
8642
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8643 (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
8644 "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
8645 POS defaults to the point."
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8646 (interactive "d")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8647 (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
8648 (if p
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8649 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8650 (goto-char (car p))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8651 (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
8652 (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
8653
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8654 (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
8655 "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
8656 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
8657 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
8658
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8659 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
8660 (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
8661 (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
8662 (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
8663 (cdr (or (assq face '((bold . "B<")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8664 (italic . "I<")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8665 (bold-italic . "B<I<")
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8666 (underline . "C<")))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8667 (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
8668 face))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8669
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8670 (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
8671 "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
8672 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
8673 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
8674 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
8675 *Messages* buffer.
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8676
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8677 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
8678 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
8679 (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
8680 (or l (setq l 1))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8681 (or step (setq step 500))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8682 (or lim (setq lim 40))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8683 (let* ((timems (function (lambda ()
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8684 (let ((tt (current-time)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8685 (+ (* 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
8686 (tt (funcall timems)) (c 0) delta tot)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8687 (goto-line l)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8688 (cperl-mode)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8689 (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
8690 (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
8691 (while (and (< c lim) (not (eobp)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8692 (forward-line step)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8693 (setq l (+ l step))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8694 (setq c (1+ c))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8695 (cperl-update-syntaxification (point) (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8696 (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
8697 (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
8698 tot))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8699
85762
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
8700 (defvar font-lock-cache-position)
29e75576e47f * calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85223
diff changeset
8701
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8702 (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
8703 "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
8704 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
8705 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
8706 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
8707 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
8708 (interactive
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8709 "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
8710 (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
8711 (let ((pos (if (> window-size 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8712 (point-min)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8713 (point-max)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8714 p)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8715 (goto-char pos)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8716 (normal-mode)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8717 ;; Why needed??? With older font-locks???
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8718 (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
8719 (while (if (> window-size 0)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8720 (< pos (point-max))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8721 (> pos (point-min)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8722 (setq p (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8723 (forward-line window-size)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8724 (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8725 (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
8726 (setq pos p))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8727
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8728
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8729 (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
8730 (defun cperl-lazy-unstall ()) ; Avoid a warning
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8731
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8732 (if (fboundp 'run-with-idle-timer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8733 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8734 (defvar cperl-help-shown nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8735 "Non-nil means that the help was already shown now.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8736
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8737 (defvar cperl-lazy-installed nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8738 "Non-nil means that the lazy-help handlers are installed now.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8739
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8740 (defun cperl-lazy-install ()
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8741 "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
8742 Delay of auto-help controlled by `cperl-lazy-help-time'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8743 (interactive)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8744 (make-local-variable 'cperl-help-shown)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8745 (if (and (cperl-val 'cperl-lazy-help-time)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8746 (not cperl-lazy-installed))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8747 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8748 (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
8749 (run-with-idle-timer
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8750 (cperl-val 'cperl-lazy-help-time 1000000 5)
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8751 t
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8752 'cperl-get-help-defer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8753 (setq cperl-lazy-installed t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8754
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8755 (defun cperl-lazy-unstall ()
49919
249621b2dae5 Merge changes from CPerl-5.0.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49918
diff changeset
8756 "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
8757 Delay of auto-help controlled by `cperl-lazy-help-time'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8758 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8759 (remove-hook 'post-command-hook 'cperl-lazy-hook)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8760 (cancel-function-timers 'cperl-get-help-defer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8761 (setq cperl-lazy-installed nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8762
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8763 (defun cperl-lazy-hook ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8764 (setq cperl-help-shown nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8765
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8766 (defun cperl-get-help-defer ()
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8767 (if (not (memq major-mode '(perl-mode cperl-mode))) nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8768 (let ((cperl-message-on-help-error nil) (cperl-help-from-timer t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8769 (cperl-get-help)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8770 (setq cperl-help-shown t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8771 (cperl-lazy-install)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8772
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8773
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8774 ;;; Plug for wrong font-lock:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8775
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8776 (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
8777 (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
8778 (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
8779 before-change-functions after-change-functions
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8780 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
8781 (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
8782 (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
8783 (set-buffer-modified-p nil))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8784
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8785 (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
8786 "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
8787 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
8788 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
8789 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
8790 (save-excursion
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8791 (goto-char beg)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8792 (while (and beg
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8793 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8794 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8795 (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
8796 'multiline)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8797 (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
8798 (goto-char beg)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8799 (setq beg (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8800 (goto-char end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8801 (while (and end
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8802 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8803 (or (bolp) (condition-case nil
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8804 (forward-line 1)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8805 (error nil)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8806 (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
8807 'multiline)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8808 (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
8809 (goto-char end))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8810 (setq end (point)))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8811 (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
8812
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8813 (defvar cperl-d-l nil)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8814 (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
8815 ;; Some vars for debugging only
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
8816 ;; (message "Syntaxifying...")
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8817 (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
8818 (istate (car cperl-syntax-state))
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8819 start from-start edebug-backtrace-buffer)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8820 (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
8821 (progn
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8822 (require 'edebug)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8823 (let ((f 'edebug-backtrace))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8824 (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
8825 (or cperl-syntax-done-to
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8826 (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
8827 from-start t))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8828 (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
8829 (not from-start))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8830 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
8831 ;; 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
8832 (min cperl-syntax-done-to (point))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8833 (goto-char start)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8834 (beginning-of-line)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8835 (setq start (point))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8836 (and cperl-syntaxify-unwind
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8837 (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
8838 start (point)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8839 (and (> end start)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8840 (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
8841 (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
8842 (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
8843 (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
8844 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
8845 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
8846 nil)) ; Do not iterate
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
8847
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8848 (defun cperl-fontify-update (end)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8849 (let ((pos (point-min)) prop posend)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8850 (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
8851 (while (< pos end)
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8852 (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
8853 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
8854 (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
8855 (setq pos posend)))
49918
c5956f47d1f6 Merge changes from CPerl-4.35.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49850
diff changeset
8856 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
8857
73331
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8858 (defun cperl-fontify-update-bad (end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8859 ;; 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
8860 ;; 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
8861 (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
8862 (if prop
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8863 (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
8864 (cperl-1+ pos) 'cperl-postpone)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8865 (point-min))))
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8866 (while (< pos end)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8867 (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
8868 (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
8869 (setq pos posend)
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8870 (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
8871 nil) ; Do not iterate
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8872
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8873 ;; 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
8874 (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
8875 ;; 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
8876 ;; 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
8877 (if cperl-syntax-done-to
f21883dcffa9 Merge from upstream, upto version 5.22.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73171
diff changeset
8878 (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
8879
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8880 (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
8881 (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
8882 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
8883 (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
8884 (< 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
8885 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8886 (save-excursion
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8887 (goto-char from)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8888 (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
8889
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
8890 (defvar cperl-version
78750
c727abfbb05e Merge upstream 5.23.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
8891 (let ((v "Revision: 5.23"))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
8892 (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
8893 (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
8894 "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
8895
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8896 (provide 'cperl-mode)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8897
93975
1e3a407766b9 Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92148
diff changeset
8898 ;; arch-tag: 42e5b19b-e187-4537-929f-1a7408980ce6
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8899 ;;; cperl-mode.el ends here