annotate lisp/progmodes/perl-mode.el @ 108006:452f0cc5f879

Remove references to (default-)direction-reversed.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 21 Apr 2010 01:05:30 +0200
parents 1d1d5d9bd884
children b10051866f51 376148b31b5e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
789
71d052f72ac1 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 475
diff changeset
1 ;;; perl-mode.el --- Perl code editing commands for GNU Emacs
71d052f72ac1 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 475
diff changeset
2
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
3 ;; Copyright (C) 1990, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106334
diff changeset
4 ;; 2008, 2009, 2010 Free Software Foundation, Inc.
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
5
789
71d052f72ac1 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 475
diff changeset
6 ;; Author: William F. Mann
11370
d1dc644021a4 (perl-comment-indent): Make extra space only when
Richard M. Stallman <rms@gnu.org>
parents: 10938
diff changeset
7 ;; Maintainer: FSF
789
71d052f72ac1 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 475
diff changeset
8 ;; Adapted-By: ESR
814
38b2499cb3e9 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 792
diff changeset
9 ;; Keywords: languages
789
71d052f72ac1 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 475
diff changeset
10
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 ;; Adapted from C code editing commands 'c-mode.el', Copyright 1987 by the
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 ;; Free Software Foundation, under terms of its General Public License.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13
882
bff32d8ecc5e entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
14 ;; This file is part of GNU Emacs.
bff32d8ecc5e entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
15
94673
52b7a8c22af5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93621
diff changeset
16 ;; GNU Emacs is free software: you can redistribute it and/or modify
882
bff32d8ecc5e entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
17 ;; 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: 93621
diff changeset
18 ;; 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: 93621
diff changeset
19 ;; (at your option) any later version.
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20
882
bff32d8ecc5e entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
21 ;; GNU Emacs is distributed in the hope that it will be useful,
bff32d8ecc5e entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
22 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
bff32d8ecc5e entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
23 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bff32d8ecc5e entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
24 ;; GNU General Public License for more details.
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25
882
bff32d8ecc5e entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
26 ;; 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: 93621
diff changeset
27 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28
789
71d052f72ac1 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 475
diff changeset
29 ;;; Commentary:
71d052f72ac1 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 475
diff changeset
30
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31 ;; To enter perl-mode automatically, add (autoload 'perl-mode "perl-mode")
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 ;; to your .emacs file and change the first line of your perl script to:
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 ;; #!/usr/bin/perl -- # -*-Perl-*-
14040
187735b53d52 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 12677
diff changeset
34 ;; With arguments to perl:
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 ;; #!/usr/bin/perl -P- # -*-Perl-*-
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 ;; To handle files included with do 'filename.pl';, add something like
9060
7364babe18d2 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 8551
diff changeset
37 ;; (setq auto-mode-alist (append (list (cons "\\.pl\\'" 'perl-mode))
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 ;; auto-mode-alist))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 ;; to your .emacs file; otherwise the .pl suffix defaults to prolog-mode.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 ;; This code is based on the 18.53 version c-mode.el, with extensive
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 ;; rewriting. Most of the features of c-mode survived intact.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44 ;; I added a new feature which adds functionality to TAB; it is controlled
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 ;; by the variable perl-tab-to-comment. With it enabled, TAB does the
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 ;; first thing it can from the following list: change the indentation;
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47 ;; move past leading white space; delete an empty comment; reindent a
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 ;; comment; move to end of line; create an empty comment; tell you that
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 ;; the line ends in a quoted string, or has a # which should be a \#.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 ;; If your machine is slow, you may want to remove some of the bindings
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
52 ;; to perl-electric-terminator. I changed the indenting defaults to be
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 ;; what Larry Wall uses in perl/lib, but left in all the options.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 ;; I also tuned a few things: comments and labels starting in column
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
56 ;; zero are left there by perl-indent-exp; perl-beginning-of-function
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 ;; goes back to the first open brace/paren in column zero, the open brace
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
58 ;; in 'sub ... {', or the equal sign in 'format ... ='; perl-indent-exp
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 ;; (meta-^q) indents from the current line through the close of the next
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 ;; brace/paren, so you don't need to start exactly at a brace or paren.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62 ;; It may be good style to put a set of redundant braces around your
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63 ;; main program. This will let you reindent it with meta-^q.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64
792
45d748a65f24 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 789
diff changeset
65 ;; Known problems (these are all caused by limitations in the Emacs Lisp
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 ;; parsing routine (parse-partial-sexp), which was not designed for such
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67 ;; a rich language; writing a more suitable parser would be a big job):
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
68 ;; 2) The globbing syntax <pattern> is not recognized, so special
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
69 ;; characters in the pattern string must be backslashed.
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
70 ;; 3) The << quoting operators are not recognized; see below.
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
71 ;; 5) To make '$' work correctly, $' is not recognized as a variable.
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
72 ;; Use "$'" or $POSTMATCH instead.
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
73 ;;
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
74 ;; If you don't use font-lock, additional problems will appear:
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 2307
diff changeset
75 ;; 1) Regular expression delimiters do not act as quotes, so special
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
76 ;; characters such as `'"#:;[](){} may need to be backslashed
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
77 ;; in regular expressions and in both parts of s/// and tr///.
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
78 ;; 4) The q and qq quoting operators are not recognized; see below.
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
79 ;; 5) To make variables such a $' and $#array work, perl-mode treats
38014
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
80 ;; $ just like backslash, so '$' is not treated correctly.
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81 ;; 6) Unfortunately, treating $ like \ makes ${var} be treated as an
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82 ;; unmatched }. See below.
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
83 ;; 7) When ' (quote) is used as a package name separator, perl-mode
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
84 ;; doesn't understand, and thinks it is seeing a quoted string.
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
86 ;; Here are some ugly tricks to bypass some of these problems: the perl
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
87 ;; expression /`/ (that's a back-tick) usually evaluates harmlessly,
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88 ;; but will trick perl-mode into starting a quoted string, which
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89 ;; can be ended with another /`/. Assuming you have no embedded
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90 ;; back-ticks, this can used to help solve problem 3:
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91 ;;
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92 ;; /`/; $ugly = q?"'$?; /`/;
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93 ;;
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
94 ;; The same trick can be used for problem 6 as in:
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
95 ;; /{/; while (<${glob_me}>)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
96 ;; but a simpler solution is to add a space between the $ and the {:
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
97 ;; while (<$ {glob_me}>)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48268
diff changeset
98 ;;
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
99 ;; Problem 7 is even worse, but this 'fix' does work :-(
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
100 ;; $DB'stop#'
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101 ;; [$DB'line#'
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102 ;; ] =~ s/;9$//;
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
103
789
71d052f72ac1 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 475
diff changeset
104 ;;; Code:
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
105
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
106 (eval-when-compile (require 'cl))
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
107
65237
33613253f37e (font-lock-comment-face, font-lock-doc-face, font-lock-string-face):
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
108 (defvar font-lock-comment-face)
33613253f37e (font-lock-comment-face, font-lock-doc-face, font-lock-string-face):
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
109 (defvar font-lock-doc-face)
33613253f37e (font-lock-comment-face, font-lock-doc-face, font-lock-string-face):
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
110 (defvar font-lock-string-face)
33613253f37e (font-lock-comment-face, font-lock-doc-face, font-lock-string-face):
Juanma Barranquero <lekktu@gmail.com>
parents: 64699
diff changeset
111
20960
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
112 (defgroup perl nil
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
113 "Major mode for editing Perl code."
66963
a11fdee52c05 Add :link (custom-group-link font-lock-faces) to defgroup.
Juri Linkov <juri@jurta.org>
parents: 66638
diff changeset
114 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
20960
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
115 :prefix "perl-"
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
116 :group 'languages)
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
117
42896
b97054e2d931 (perl-mode-abbrev-table): Restore definition.
Richard M. Stallman <rms@gnu.org>
parents: 41346
diff changeset
118 (defvar perl-mode-abbrev-table nil
b97054e2d931 (perl-mode-abbrev-table): Restore definition.
Richard M. Stallman <rms@gnu.org>
parents: 41346
diff changeset
119 "Abbrev table in use in perl-mode buffers.")
b97054e2d931 (perl-mode-abbrev-table): Restore definition.
Richard M. Stallman <rms@gnu.org>
parents: 41346
diff changeset
120 (define-abbrev-table 'perl-mode-abbrev-table ())
b97054e2d931 (perl-mode-abbrev-table): Restore definition.
Richard M. Stallman <rms@gnu.org>
parents: 41346
diff changeset
121
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
122 (defvar perl-mode-map
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
123 (let ((map (make-sparse-keymap)))
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
124 (define-key map "{" 'perl-electric-terminator)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
125 (define-key map "}" 'perl-electric-terminator)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
126 (define-key map ";" 'perl-electric-terminator)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
127 (define-key map ":" 'perl-electric-terminator)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
128 (define-key map "\e\C-a" 'perl-beginning-of-function)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
129 (define-key map "\e\C-e" 'perl-end-of-function)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
130 (define-key map "\e\C-h" 'perl-mark-function)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
131 (define-key map "\e\C-q" 'perl-indent-exp)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
132 (define-key map "\177" 'backward-delete-char-untabify)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
133 (define-key map "\t" 'perl-indent-command)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
134 map)
38014
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
135 "Keymap used in Perl mode.")
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137 (autoload 'c-macro-expand "cmacexp"
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 "Display the result of expanding all C macros occurring in the region.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139 The expansion is entirely correct because it uses the C preprocessor."
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140 t)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
142 (defvar perl-mode-syntax-table
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
143 (let ((st (make-syntax-table (standard-syntax-table))))
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
144 (modify-syntax-entry ?\n ">" st)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
145 (modify-syntax-entry ?# "<" st)
47955
db56d4bb5e01 (perl-mode-syntax-table): Change $ back to just "/" instead of "/ p".
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47469
diff changeset
146 ;; `$' is also a prefix char so I was tempted to say "/ p",
db56d4bb5e01 (perl-mode-syntax-table): Change $ back to just "/" instead of "/ p".
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47469
diff changeset
147 ;; but the `p' thingy basically overrides the `/' :-( --stef
db56d4bb5e01 (perl-mode-syntax-table): Change $ back to just "/" instead of "/ p".
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47469
diff changeset
148 (modify-syntax-entry ?$ "/" st)
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
149 (modify-syntax-entry ?% ". p" st)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
150 (modify-syntax-entry ?@ ". p" st)
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
151 (modify-syntax-entry ?& "." st)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
152 (modify-syntax-entry ?\' "\"" st)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
153 (modify-syntax-entry ?* "." st)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
154 (modify-syntax-entry ?+ "." st)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
155 (modify-syntax-entry ?- "." st)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
156 (modify-syntax-entry ?/ "." st)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
157 (modify-syntax-entry ?< "." st)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
158 (modify-syntax-entry ?= "." st)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
159 (modify-syntax-entry ?> "." st)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
160 (modify-syntax-entry ?\\ "\\" st)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
161 (modify-syntax-entry ?` "\"" st)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
162 (modify-syntax-entry ?| "." st)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
163 st)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
164 "Syntax table in use in `perl-mode' buffers.")
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
165
12677
1504d644c6bc (perl-imenu-generic-expression) New variable.
Richard M. Stallman <rms@gnu.org>
parents: 11370
diff changeset
166 (defvar perl-imenu-generic-expression
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
167 '(;; Functions
60300
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
168 (nil "^sub\\s-+\\([-A-Za-z0-9+_:]+\\)" 1)
12677
1504d644c6bc (perl-imenu-generic-expression) New variable.
Richard M. Stallman <rms@gnu.org>
parents: 11370
diff changeset
169 ;;Variables
60300
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
170 ("Variables" "^\\([$@%][-A-Za-z0-9+_:]+\\)\\s-*=" 1)
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
171 ("Packages" "^package\\s-+\\([-A-Za-z0-9+_:]+\\);" 1)
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
172 ("Doc sections" "^=head[0-9][ \t]+\\(.*\\)" 1))
12677
1504d644c6bc (perl-imenu-generic-expression) New variable.
Richard M. Stallman <rms@gnu.org>
parents: 11370
diff changeset
173 "Imenu generic expression for Perl mode. See `imenu-generic-expression'.")
1504d644c6bc (perl-imenu-generic-expression) New variable.
Richard M. Stallman <rms@gnu.org>
parents: 11370
diff changeset
174
14363
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
175 ;; Regexps updated with help from Tom Tromey <tromey@cambric.colorado.edu> and
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
176 ;; Jim Campbell <jec@murzim.ca.boeing.com>.
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
177
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
178 (defconst perl-font-lock-keywords-1
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
179 '(;; What is this for?
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
180 ;;("\\(--- .* ---\\|=== .* ===\\)" . font-lock-string-face)
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
181 ;;
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
182 ;; Fontify preprocessor statements as we do in `c-font-lock-keywords'.
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
183 ;; Ilya Zakharevich <ilya@math.ohio-state.edu> thinks this is a bad idea.
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
184 ;; ("^#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
185 ;; ("^#[ \t]*define[ \t]+\\(\\sw+\\)(" 1 font-lock-function-name-face)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
186 ;; ("^#[ \t]*if\\>"
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
187 ;; ("\\<\\(defined\\)\\>[ \t]*(?\\(\\sw+\\)?" nil nil
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
188 ;; (1 font-lock-constant-face) (2 font-lock-variable-name-face nil t)))
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
189 ;; ("^#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?"
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
190 ;; (1 font-lock-constant-face) (2 font-lock-variable-name-face nil t))
14363
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
191 ;;
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
192 ;; Fontify function and package names in declarations.
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
193 ("\\<\\(package\\|sub\\)\\>[ \t]*\\(\\sw+\\)?"
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
194 (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
195 ("\\<\\(import\\|no\\|require\\|use\\)\\>[ \t]*\\(\\sw+\\)?"
20953
f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20459
diff changeset
196 (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)))
14363
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
197 "Subdued level highlighting for Perl mode.")
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
198
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
199 (defconst perl-font-lock-keywords-2
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
200 (append perl-font-lock-keywords-1
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
201 (list
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
202 ;;
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
203 ;; Fontify keywords, except those fontified otherwise.
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
204 (concat "\\<"
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
205 (regexp-opt '("if" "until" "while" "elsif" "else" "unless"
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
206 "do" "dump" "for" "foreach" "exit" "die"
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
207 "BEGIN" "END" "return" "exec" "eval") t)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
208 "\\>")
14363
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
209 ;;
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
210 ;; Fontify local and my keywords as types.
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
211 '("\\<\\(local\\|my\\)\\>" . font-lock-type-face)
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
212 ;;
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
213 ;; Fontify function, variable and file name references.
60825
cd1a709e8af3 (perl-font-lock-keywords-2):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60762
diff changeset
214 '("&\\(\\sw+\\(::\\sw+\\)*\\)" 1 font-lock-function-name-face)
14363
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
215 ;; Additionally underline non-scalar variables. Maybe this is a bad idea.
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
216 ;;'("[$@%*][#{]?\\(\\sw+\\)" 1 font-lock-variable-name-face)
60825
cd1a709e8af3 (perl-font-lock-keywords-2):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60762
diff changeset
217 '("[$*]{?\\(\\sw+\\(::\\sw+\\)*\\)" 1 font-lock-variable-name-face)
cd1a709e8af3 (perl-font-lock-keywords-2):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60762
diff changeset
218 '("\\([@%]\\|\\$#\\)\\(\\sw+\\(::\\sw+\\)*\\)"
14363
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
219 (2 (cons font-lock-variable-name-face '(underline))))
20953
f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20459
diff changeset
220 '("<\\(\\sw+\\)>" 1 font-lock-constant-face)
14363
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
221 ;;
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
222 ;; Fontify keywords with/and labels as we do in `c++-font-lock-keywords'.
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
223 '("\\<\\(continue\\|goto\\|last\\|next\\|redo\\)\\>[ \t]*\\(\\sw+\\)?"
20953
f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20459
diff changeset
224 (1 font-lock-keyword-face) (2 font-lock-constant-face nil t))
f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20459
diff changeset
225 '("^[ \t]*\\(\\sw+\\)[ \t]*:[^:]" 1 font-lock-constant-face)))
14363
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
226 "Gaudy level highlighting for Perl mode.")
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
227
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
228 (defvar perl-font-lock-keywords perl-font-lock-keywords-1
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
229 "Default expressions to highlight in Perl mode.")
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
230
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
231 (defvar perl-quote-like-pairs
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
232 '((?\( . ?\)) (?\[ . ?\]) (?\{ . ?\}) (?\< . ?\>)))
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
233
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
234 ;; FIXME: handle here-docs and regexps.
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
235 ;; <<EOF <<"EOF" <<'EOF' (no space)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
236 ;; see `man perlop'
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
237 ;; ?...?
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
238 ;; /.../
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
239 ;; m [...]
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
240 ;; m /.../
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
241 ;; q /.../ = '...'
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
242 ;; qq /.../ = "..."
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
243 ;; qx /.../ = `...`
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
244 ;; qr /.../ = precompiled regexp =~=~ m/.../
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
245 ;; qw /.../
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
246 ;; s /.../.../
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
247 ;; s <...> /.../
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
248 ;; s '...'...'
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
249 ;; tr /.../.../
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
250 ;; y /.../.../
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
251 ;;
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
252 ;; <file*glob>
38014
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
253 (defvar perl-font-lock-syntactic-keywords
66638
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
254 ;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)")
95506
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
255 `(;; Turn POD into b-style comments
66638
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
256 ("^\\(=\\)\\sw" (1 "< b"))
38014
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
257 ("^=cut[ \t]*\\(\n\\)" (1 "> b"))
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
258 ;; Catch ${ so that ${var} doesn't screw up indentation.
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
259 ;; This also catches $' to handle 'foo$', although it should really
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
260 ;; check that it occurs inside a '..' string.
47955
db56d4bb5e01 (perl-mode-syntax-table): Change $ back to just "/" instead of "/ p".
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47469
diff changeset
261 ("\\(\\$\\)[{']" (1 ". p"))
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
262 ;; Handle funny names like $DB'stop.
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
263 ("\\$ ?{?^?[_a-zA-Z][_a-zA-Z0-9]*\\('\\)[_a-zA-Z]" (1 "_"))
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
264 ;; format statements
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
265 ("^[ \t]*format.*=[ \t]*\\(\n\\)" (1 '(7)))
93621
755f65f1ae15 (perl-font-lock-syntactic-keywords): Recognize `sub ($$)'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
266 ;; Funny things in `sub' arg-specs like `sub myfun ($)' or `sub ($)'.
79514
4ad6fcfba45b (perl-font-lock-syntactic-keywords): Don't match "sub { (...) ... }".
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
267 ;; Be careful not to match "sub { (...) ... }".
93621
755f65f1ae15 (perl-font-lock-syntactic-keywords): Recognize `sub ($$)'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
268 ("\\<sub\\(?:[[:space:]]+[^{}[:punct:][:space:]]+\\)?[[:space:]]*(\\([^)]+\\))"
79514
4ad6fcfba45b (perl-font-lock-syntactic-keywords): Don't match "sub { (...) ... }".
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78660
diff changeset
269 1 '(1))
95506
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
270 ;; Regexp and funny quotes. Distinguishing a / that starts a regexp
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
271 ;; match from the division operator is ...interesting.
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
272 ;; Basically, / is a regexp match if it's preceded by an infix operator
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
273 ;; (or some similar separator), or by one of the special keywords
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
274 ;; corresponding to builtin functions that can take their first arg
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
275 ;; without parentheses. Of course, that presume we're looking at the
106323
233d17a2b6f0 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101593
diff changeset
276 ;; *opening* slash. We can afford to mis-match the closing ones
233d17a2b6f0 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101593
diff changeset
277 ;; here, because they will be re-treated separately later in
95506
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
278 ;; perl-font-lock-special-syntactic-constructs.
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
279 (,(concat "\\(?:\\(?:\\(?:^\\|[^$@&%[:word:]]\\)"
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
280 (regexp-opt '("split" "if" "unless" "until" "while" "split"
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
281 "grep" "map" "not" "or" "and"))
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
282 "\\)\\|[?:.,;=!~({[]\\|\\(^\\)\\)[ \t\n]*\\(/\\)")
78571
fd7a34f481ad (perl-font-lock-syntactic-keywords): Correctly match / regexp matchers
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78234
diff changeset
283 (2 (if (and (match-end 1)
fd7a34f481ad (perl-font-lock-syntactic-keywords): Correctly match / regexp matchers
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78234
diff changeset
284 (save-excursion
fd7a34f481ad (perl-font-lock-syntactic-keywords): Correctly match / regexp matchers
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78234
diff changeset
285 (goto-char (match-end 1))
95506
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
286 ;; Not 100% correct since we haven't finished setting up
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
287 ;; the syntax-table before point, but better than nothing.
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
288 (forward-comment (- (point-max)))
313549362857 (perl-font-lock-syntactic-keywords): Try to be
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94673
diff changeset
289 (put-text-property (point) (match-end 2)
106334
359e597e3e01 Fix references to jit-lock properties.
Juanma Barranquero <lekktu@gmail.com>
parents: 106323
diff changeset
290 'jit-lock-defer-multiline t)
78571
fd7a34f481ad (perl-font-lock-syntactic-keywords): Correctly match / regexp matchers
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78234
diff changeset
291 (not (memq (char-before)
fd7a34f481ad (perl-font-lock-syntactic-keywords): Correctly match / regexp matchers
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78234
diff changeset
292 '(?? ?: ?. ?, ?\; ?= ?! ?~ ?\( ?\[)))))
fd7a34f481ad (perl-font-lock-syntactic-keywords): Correctly match / regexp matchers
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78234
diff changeset
293 nil ;; A division sign instead of a regexp-match.
fd7a34f481ad (perl-font-lock-syntactic-keywords): Correctly match / regexp matchers
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78234
diff changeset
294 '(7))))
65358
c136332c98dd (perl-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65237
diff changeset
295 ("\\(^\\|[?:.,;=!~({[ \t]\\)\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)"
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
296 ;; Nasty cases:
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
297 ;; /foo/m $a->m $#m $m @m %m
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
298 ;; \s (appears often in regexps).
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
299 ;; -s file
65358
c136332c98dd (perl-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65237
diff changeset
300 (3 (if (assoc (char-after (match-beginning 3))
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
301 perl-quote-like-pairs)
51163
5635fb18b7d6 (perl-font-lock-syntactic-keywords): Match more cases of /.../ patterns.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51054
diff changeset
302 '(15) '(7))))
66638
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
303 ;; Find and mark the end of funny quotes and format statements.
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
304 (perl-font-lock-special-syntactic-constructs)
51163
5635fb18b7d6 (perl-font-lock-syntactic-keywords): Match more cases of /.../ patterns.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51054
diff changeset
305 ))
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
306
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
307 (defvar perl-empty-syntax-table
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
308 (let ((st (copy-syntax-table)))
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
309 ;; Make all chars be of punctuation syntax.
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
310 (dotimes (i 256) (aset st i '(1)))
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
311 (modify-syntax-entry ?\\ "\\" st)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
312 st)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
313 "Syntax table used internally for processing quote-like operators.")
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
314
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
315 (defun perl-quote-syntax-table (char)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
316 (let ((close (cdr (assq char perl-quote-like-pairs)))
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
317 (st (copy-syntax-table perl-empty-syntax-table)))
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
318 (if (not close)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
319 (modify-syntax-entry char "\"" st)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
320 (modify-syntax-entry char "(" st)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
321 (modify-syntax-entry close ")" st))
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
322 st))
38014
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
323
66638
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
324 (defun perl-font-lock-special-syntactic-constructs (limit)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
325 ;; We used to do all this in a font-lock-syntactic-face-function, which
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
326 ;; did not work correctly because sometimes some parts of the buffer are
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
327 ;; treated with font-lock-syntactic-keywords but not with
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
328 ;; font-lock-syntactic-face-function (mostly because of
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
329 ;; font-lock-syntactically-fontified). That meant that some syntax-table
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
330 ;; properties were missing. So now we do the parse-partial-sexp loop
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
331 ;; ourselves directly from font-lock-syntactic-keywords, so we're sure
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
332 ;; it's done when necessary.
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
333 (let ((state (syntax-ppss))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
334 char)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
335 (while (< (point) limit)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
336 (cond
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
337 ((or (null (setq char (nth 3 state)))
90261
7beb78bc1f8e Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-97
Miles Bader <miles@gnu.org>
parents: 90227 66963
diff changeset
338 (and (characterp char) (eq (char-syntax (nth 3 state)) ?\")))
66638
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
339 ;; Normal text, or comment, or docstring, or normal string.
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
340 nil)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
341 ((eq (nth 3 state) ?\n)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
342 ;; A `format' command.
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
343 (save-excursion
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
344 (when (and (re-search-forward "^\\s *\\.\\s *$" nil t)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
345 (not (eobp)))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
346 (put-text-property (point) (1+ (point)) 'syntax-table '(7)))))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
347 (t
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
348 ;; This is regexp like quote thingy.
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
349 (setq char (char-after (nth 8 state)))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
350 (save-excursion
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
351 (let ((twoargs (save-excursion
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
352 (goto-char (nth 8 state))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
353 (skip-syntax-backward " ")
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
354 (skip-syntax-backward "w")
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
355 (member (buffer-substring
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
356 (point) (progn (forward-word 1) (point)))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
357 '("tr" "s" "y"))))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
358 (close (cdr (assq char perl-quote-like-pairs)))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
359 (pos (point))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
360 (st (perl-quote-syntax-table char)))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
361 (if (not close)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
362 ;; The closing char is the same as the opening char.
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
363 (with-syntax-table st
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
364 (parse-partial-sexp (point) (point-max)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
365 nil nil state 'syntax-table)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
366 (when twoargs
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
367 (parse-partial-sexp (point) (point-max)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
368 nil nil state 'syntax-table)))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
369 ;; The open/close chars are matched like () [] {} and <>.
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
370 (let ((parse-sexp-lookup-properties nil))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
371 (condition-case err
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
372 (progn
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
373 (with-syntax-table st
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
374 (goto-char (nth 8 state)) (forward-sexp 1))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
375 (when twoargs
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
376 (save-excursion
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
377 ;; Skip whitespace and make sure that font-lock will
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
378 ;; refontify the second part in the proper context.
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
379 (put-text-property
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
380 (point) (progn (forward-comment (point-max)) (point))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
381 'font-lock-multiline t)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
382 ;;
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
383 (unless
106323
233d17a2b6f0 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101593
diff changeset
384 (or (eobp)
233d17a2b6f0 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101593
diff changeset
385 (save-excursion
233d17a2b6f0 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101593
diff changeset
386 (with-syntax-table
233d17a2b6f0 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101593
diff changeset
387 (perl-quote-syntax-table (char-after))
233d17a2b6f0 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101593
diff changeset
388 (forward-sexp 1))
233d17a2b6f0 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101593
diff changeset
389 (put-text-property pos (line-end-position)
106334
359e597e3e01 Fix references to jit-lock properties.
Juanma Barranquero <lekktu@gmail.com>
parents: 106323
diff changeset
390 'jit-lock-defer-multiline t)
106323
233d17a2b6f0 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101593
diff changeset
391 (looking-at "\\s-*\\sw*e")))
66638
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
392 (put-text-property (point) (1+ (point))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
393 'syntax-table
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
394 (if (assoc (char-after)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
395 perl-quote-like-pairs)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
396 '(15) '(7)))))))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
397 ;; The arg(s) is not terminated, so it extends until EOB.
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
398 (scan-error (goto-char (point-max))))))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
399 ;; Point is now right after the arg(s).
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
400 ;; Erase any syntactic marks within the quoted text.
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
401 (put-text-property pos (1- (point)) 'syntax-table nil)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
402 (when (eq (char-before (1- (point))) ?$)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
403 (put-text-property (- (point) 2) (1- (point))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
404 'syntax-table '(1)))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
405 (put-text-property (1- (point)) (point)
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
406 'syntax-table (if close '(15) '(7)))))))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
407
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
408 (setq state (parse-partial-sexp (point) limit nil nil state
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
409 'syntax-table))))
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
410 ;; Tell font-lock that this needs not further processing.
4ac8c6441408 (perl-font-lock-special-syntactic-constructs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65358
diff changeset
411 nil)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48268
diff changeset
412
9386
17dfca2d42e2 (perl-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9060
diff changeset
413
20960
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
414 (defcustom perl-indent-level 4
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
415 "*Indentation of Perl statements with respect to containing block."
62531
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
416 :type 'integer
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
417 :group 'perl)
78660
ccfc1f1f4817 * progmodes/cperl-mode.el (cperl-indent-level): Autoload the
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78571
diff changeset
418
79553
f81c00b9c0ff * progmodes/perl-mode.el (perl-continued-statement-offset)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79514
diff changeset
419 ;; 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: 78571
diff changeset
420 ;; 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: 78571
diff changeset
421 ;; 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: 79514
diff changeset
422 ;; 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: 78571
diff changeset
423 ;; 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: 78571
diff changeset
424 ;;;###autoload(put 'perl-indent-level 'safe-local-variable 'integerp)
79553
f81c00b9c0ff * progmodes/perl-mode.el (perl-continued-statement-offset)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79514
diff changeset
425 ;;;###autoload(put 'perl-continued-statement-offset 'safe-local-variable 'integerp)
f81c00b9c0ff * progmodes/perl-mode.el (perl-continued-statement-offset)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79514
diff changeset
426 ;;;###autoload(put 'perl-continued-brace-offset 'safe-local-variable 'integerp)
f81c00b9c0ff * progmodes/perl-mode.el (perl-continued-statement-offset)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79514
diff changeset
427 ;;;###autoload(put 'perl-brace-offset 'safe-local-variable 'integerp)
f81c00b9c0ff * progmodes/perl-mode.el (perl-continued-statement-offset)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79514
diff changeset
428 ;;;###autoload(put 'perl-brace-imaginary-offset 'safe-local-variable 'integerp)
f81c00b9c0ff * progmodes/perl-mode.el (perl-continued-statement-offset)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 79514
diff changeset
429 ;;;###autoload(put 'perl-label-offset 'safe-local-variable 'integerp)
78660
ccfc1f1f4817 * progmodes/cperl-mode.el (cperl-indent-level): Autoload the
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78571
diff changeset
430
20960
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
431 (defcustom perl-continued-statement-offset 4
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
432 "*Extra indent for lines not starting new statements."
62531
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
433 :type 'integer
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
434 :group 'perl)
20960
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
435 (defcustom perl-continued-brace-offset -4
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
436 "*Extra indent for substatements that start with open-braces.
20960
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
437 This is in addition to `perl-continued-statement-offset'."
62531
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
438 :type 'integer
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
439 :group 'perl)
20960
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
440 (defcustom perl-brace-offset 0
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
441 "*Extra indentation for braces, compared with other text in same context."
62531
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
442 :type 'integer
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
443 :group 'perl)
20960
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
444 (defcustom perl-brace-imaginary-offset 0
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
445 "*Imagined indentation of an open brace that actually follows a statement."
62531
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
446 :type 'integer
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
447 :group 'perl)
20960
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
448 (defcustom perl-label-offset -2
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
449 "*Offset of Perl label lines relative to usual indentation."
62531
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
450 :type 'integer
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
451 :group 'perl)
39569
9d258703ad61 (perl-indent-continued-arguments): New var.
Gerd Moellmann <gerd@gnu.org>
parents: 38014
diff changeset
452 (defcustom perl-indent-continued-arguments nil
9d258703ad61 (perl-indent-continued-arguments): New var.
Gerd Moellmann <gerd@gnu.org>
parents: 38014
diff changeset
453 "*If non-nil offset of argument lines relative to usual indentation.
9d258703ad61 (perl-indent-continued-arguments): New var.
Gerd Moellmann <gerd@gnu.org>
parents: 38014
diff changeset
454 If nil, continued arguments are aligned with the first argument."
62531
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
455 :type '(choice integer (const nil))
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
456 :group 'perl)
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
457
51054
cd2cb7e0cc7e (perl-tab-always-indent): Default to tab-always-indent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49598
diff changeset
458 (defcustom perl-tab-always-indent tab-always-indent
cd2cb7e0cc7e (perl-tab-always-indent): Default to tab-always-indent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49598
diff changeset
459 "Non-nil means TAB in Perl mode always indents the current line.
5589
608926d1bd70 Change defconsts to defvars. Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 4455
diff changeset
460 Otherwise it inserts a tab character if you type it past the first
20960
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
461 nonwhite character on the line."
62531
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
462 :type 'boolean
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
463 :group 'perl)
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
464
10807
50f00b298a2d (perl-tab-to-comment): Default is nil.
Richard M. Stallman <rms@gnu.org>
parents: 9480
diff changeset
465 ;; I changed the default to nil for consistency with general Emacs
50f00b298a2d (perl-tab-to-comment): Default is nil.
Richard M. Stallman <rms@gnu.org>
parents: 9480
diff changeset
466 ;; conventions -- rms.
20960
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
467 (defcustom perl-tab-to-comment nil
5589
608926d1bd70 Change defconsts to defvars. Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 4455
diff changeset
468 "*Non-nil means TAB moves to eol or makes a comment in some cases.
608926d1bd70 Change defconsts to defvars. Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 4455
diff changeset
469 For lines which don't need indenting, TAB either indents an
608926d1bd70 Change defconsts to defvars. Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 4455
diff changeset
470 existing comment, moves to end-of-line, or if at end-of-line already,
20960
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
471 create a new comment."
62531
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
472 :type 'boolean
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
473 :group 'perl)
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
474
59328
7f974399bee1 (perl-nochange, perl-calculate-indent):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59249
diff changeset
475 (defcustom perl-nochange ";?#\\|\f\\|\\s(\\|\\(\\w\\|\\s_\\)+:[^:]"
20960
2f9b7d0689a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
476 "*Lines starting with this regular expression are not auto-indented."
62531
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
477 :type 'regexp
c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents: 60825
diff changeset
478 :group 'perl)
60300
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
479
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
480 ;; Outline support
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
481
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
482 (defvar perl-outline-regexp
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
483 (concat (mapconcat 'cadr perl-imenu-generic-expression "\\|")
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
484 "\\|^=cut\\>"))
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
485
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
486 (defun perl-outline-level ()
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
487 (cond
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
488 ((looking-at "package\\s-") 0)
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
489 ((looking-at "sub\\s-") 1)
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
490 ((looking-at "=head[0-9]") (- (char-before (match-end 0)) ?0))
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
491 ((looking-at "=cut") 1)
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
492 (t 3)))
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
493
60693
0dab980fb0b7 (perl-mode-hook): Defvar it.
Richard M. Stallman <rms@gnu.org>
parents: 60300
diff changeset
494 (defvar perl-mode-hook nil
0dab980fb0b7 (perl-mode-hook): Defvar it.
Richard M. Stallman <rms@gnu.org>
parents: 60300
diff changeset
495 "Normal hook to run when entering Perl mode.")
0dab980fb0b7 (perl-mode-hook): Defvar it.
Richard M. Stallman <rms@gnu.org>
parents: 60300
diff changeset
496
21857
a22711be4750 (perl-mode): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 20960
diff changeset
497 ;;;###autoload
41346
42d60301f16a (perl-mode): Don't use define-derived-mode.
Richard M. Stallman <rms@gnu.org>
parents: 40539
diff changeset
498 (defun perl-mode ()
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
499 "Major mode for editing Perl code.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
500 Expression and list commands understand all Perl brackets.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
501 Tab indents for Perl code.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
502 Comments are delimited with # ... \\n.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
503 Paragraphs are separated by blank lines only.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
504 Delete converts tabs to spaces as it moves back.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
505 \\{perl-mode-map}
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
506 Variables controlling indentation style:
39569
9d258703ad61 (perl-indent-continued-arguments): New var.
Gerd Moellmann <gerd@gnu.org>
parents: 38014
diff changeset
507 `perl-tab-always-indent'
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
508 Non-nil means TAB in Perl mode should always indent the current line,
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
509 regardless of where in the line point is when the TAB command is used.
39569
9d258703ad61 (perl-indent-continued-arguments): New var.
Gerd Moellmann <gerd@gnu.org>
parents: 38014
diff changeset
510 `perl-tab-to-comment'
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
511 Non-nil means that for lines which don't need indenting, TAB will
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48268
diff changeset
512 either delete an empty comment, indent an existing comment, move
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
513 to end-of-line, or if at end-of-line already, create a new comment.
39569
9d258703ad61 (perl-indent-continued-arguments): New var.
Gerd Moellmann <gerd@gnu.org>
parents: 38014
diff changeset
514 `perl-nochange'
5589
608926d1bd70 Change defconsts to defvars. Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 4455
diff changeset
515 Lines starting with this regular expression are not auto-indented.
39569
9d258703ad61 (perl-indent-continued-arguments): New var.
Gerd Moellmann <gerd@gnu.org>
parents: 38014
diff changeset
516 `perl-indent-level'
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
517 Indentation of Perl statements within surrounding block.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
518 The surrounding block's indentation is the indentation
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
519 of the line on which the open-brace appears.
39569
9d258703ad61 (perl-indent-continued-arguments): New var.
Gerd Moellmann <gerd@gnu.org>
parents: 38014
diff changeset
520 `perl-continued-statement-offset'
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
521 Extra indentation given to a substatement, such as the
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
522 then-clause of an if or body of a while.
39569
9d258703ad61 (perl-indent-continued-arguments): New var.
Gerd Moellmann <gerd@gnu.org>
parents: 38014
diff changeset
523 `perl-continued-brace-offset'
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
524 Extra indentation given to a brace that starts a substatement.
5589
608926d1bd70 Change defconsts to defvars. Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 4455
diff changeset
525 This is in addition to `perl-continued-statement-offset'.
39569
9d258703ad61 (perl-indent-continued-arguments): New var.
Gerd Moellmann <gerd@gnu.org>
parents: 38014
diff changeset
526 `perl-brace-offset'
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
527 Extra indentation for line if it starts with an open brace.
39569
9d258703ad61 (perl-indent-continued-arguments): New var.
Gerd Moellmann <gerd@gnu.org>
parents: 38014
diff changeset
528 `perl-brace-imaginary-offset'
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
529 An open brace following other text is treated as if it were
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
530 this far to the right of the start of its line.
39569
9d258703ad61 (perl-indent-continued-arguments): New var.
Gerd Moellmann <gerd@gnu.org>
parents: 38014
diff changeset
531 `perl-label-offset'
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
532 Extra indentation for line that is a label.
39569
9d258703ad61 (perl-indent-continued-arguments): New var.
Gerd Moellmann <gerd@gnu.org>
parents: 38014
diff changeset
533 `perl-indent-continued-arguments'
9d258703ad61 (perl-indent-continued-arguments): New var.
Gerd Moellmann <gerd@gnu.org>
parents: 38014
diff changeset
534 Offset of argument lines relative to usual indentation.
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
535
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
536 Various indentation styles: K&R BSD BLK GNU LW
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
537 perl-indent-level 5 8 0 2 4
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
538 perl-continued-statement-offset 5 8 4 2 4
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
539 perl-continued-brace-offset 0 0 0 0 -4
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
540 perl-brace-offset -5 -8 0 0 0
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
541 perl-brace-imaginary-offset 0 0 4 0 0
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
542 perl-label-offset -5 -8 -2 -2 -2
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
543
5589
608926d1bd70 Change defconsts to defvars. Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 4455
diff changeset
544 Turning on Perl mode runs the normal hook `perl-mode-hook'."
41346
42d60301f16a (perl-mode): Don't use define-derived-mode.
Richard M. Stallman <rms@gnu.org>
parents: 40539
diff changeset
545 (interactive)
42d60301f16a (perl-mode): Don't use define-derived-mode.
Richard M. Stallman <rms@gnu.org>
parents: 40539
diff changeset
546 (kill-all-local-variables)
42d60301f16a (perl-mode): Don't use define-derived-mode.
Richard M. Stallman <rms@gnu.org>
parents: 40539
diff changeset
547 (use-local-map perl-mode-map)
42d60301f16a (perl-mode): Don't use define-derived-mode.
Richard M. Stallman <rms@gnu.org>
parents: 40539
diff changeset
548 (setq major-mode 'perl-mode)
42d60301f16a (perl-mode): Don't use define-derived-mode.
Richard M. Stallman <rms@gnu.org>
parents: 40539
diff changeset
549 (setq mode-name "Perl")
42d60301f16a (perl-mode): Don't use define-derived-mode.
Richard M. Stallman <rms@gnu.org>
parents: 40539
diff changeset
550 (setq local-abbrev-table perl-mode-abbrev-table)
42d60301f16a (perl-mode): Don't use define-derived-mode.
Richard M. Stallman <rms@gnu.org>
parents: 40539
diff changeset
551 (set-syntax-table perl-mode-syntax-table)
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
552 (make-local-variable 'paragraph-start)
10889
de7673bb5d19 (perl-mode): Remove ^ from paragraph-start & paragraph-separate.
Boris Goldowsky <boris@gnu.org>
parents: 10807
diff changeset
553 (setq paragraph-start (concat "$\\|" page-delimiter))
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
554 (make-local-variable 'paragraph-separate)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
555 (setq paragraph-separate paragraph-start)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
556 (make-local-variable 'paragraph-ignore-fill-prefix)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
557 (setq paragraph-ignore-fill-prefix t)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
558 (make-local-variable 'indent-line-function)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
559 (setq indent-line-function 'perl-indent-line)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
560 (make-local-variable 'require-final-newline)
59249
ccfc48223233 (perl-mode): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
561 (setq require-final-newline mode-require-final-newline)
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
562 (make-local-variable 'comment-start)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
563 (setq comment-start "# ")
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
564 (make-local-variable 'comment-end)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
565 (setq comment-end "")
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
566 (make-local-variable 'comment-start-skip)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
567 (setq comment-start-skip "\\(^\\|\\s-\\);?#+ *")
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 882
diff changeset
568 (make-local-variable 'comment-indent-function)
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 882
diff changeset
569 (setq comment-indent-function 'perl-comment-indent)
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
570 (make-local-variable 'parse-sexp-ignore-comments)
5922
79d326d2da22 (perl-mode): Set parse-sexp-ignore-comments.
Richard M. Stallman <rms@gnu.org>
parents: 5589
diff changeset
571 (setq parse-sexp-ignore-comments t)
14363
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
572 ;; Tell font-lock.el how to handle Perl.
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
573 (setq font-lock-defaults '((perl-font-lock-keywords
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
574 perl-font-lock-keywords-1
754031d2354f Support for Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
575 perl-font-lock-keywords-2)
38014
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
576 nil nil ((?\_ . "w")) nil
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
577 (font-lock-syntactic-keywords
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
578 . perl-font-lock-syntactic-keywords)
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
579 (parse-sexp-lookup-properties . t)))
12677
1504d644c6bc (perl-imenu-generic-expression) New variable.
Richard M. Stallman <rms@gnu.org>
parents: 11370
diff changeset
580 ;; Tell imenu how to handle Perl.
60300
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
581 (set (make-local-variable 'imenu-generic-expression)
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
582 perl-imenu-generic-expression)
41346
42d60301f16a (perl-mode): Don't use define-derived-mode.
Richard M. Stallman <rms@gnu.org>
parents: 40539
diff changeset
583 (setq imenu-case-fold-search nil)
60300
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
584 ;; Setup outline-minor-mode.
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
585 (set (make-local-variable 'outline-regexp) perl-outline-regexp)
8da4bb4a512f (perl-imenu-generic-expression): Add entries for perldoc sections.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59328
diff changeset
586 (set (make-local-variable 'outline-level) 'perl-outline-level)
60693
0dab980fb0b7 (perl-mode-hook): Defvar it.
Richard M. Stallman <rms@gnu.org>
parents: 60300
diff changeset
587 (run-mode-hooks 'perl-mode-hook))
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
588
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
589 ;; This is used by indent-for-comment
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
590 ;; to decide how much to indent a comment in Perl code
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
591 ;; based on its context.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
592 (defun perl-comment-indent ()
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
593 (if (and (bolp) (not (eolp)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
594 0 ;Existing comment at bol stays there.
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
595 comment-column))
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
596
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
597 (defalias 'electric-perl-terminator 'perl-electric-terminator)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
598 (defun perl-electric-terminator (arg)
5589
608926d1bd70 Change defconsts to defvars. Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 4455
diff changeset
599 "Insert character and adjust indentation.
608926d1bd70 Change defconsts to defvars. Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 4455
diff changeset
600 If at end-of-line, and not in a comment or a quote, correct the's indentation."
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
601 (interactive "P")
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
602 (let ((insertpos (point)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
603 (and (not arg) ; decide whether to indent
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
604 (eolp)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
605 (save-excursion
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
606 (beginning-of-line)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
607 (and (not ; eliminate comments quickly
16472
dbfab9e8b6d8 (electric-perl-terminator, perl-indent-command):
Richard M. Stallman <rms@gnu.org>
parents: 16358
diff changeset
608 (and comment-start-skip
dbfab9e8b6d8 (electric-perl-terminator, perl-indent-command):
Richard M. Stallman <rms@gnu.org>
parents: 16358
diff changeset
609 (re-search-forward comment-start-skip insertpos t)) )
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
610 (or (/= last-command-event ?:)
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
611 ;; Colon is special only after a label ....
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
612 (looking-at "\\s-*\\(\\w\\|\\s_\\)+$"))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48268
diff changeset
613 (let ((pps (parse-partial-sexp
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
614 (perl-beginning-of-function) insertpos)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
615 (not (or (nth 3 pps) (nth 4 pps) (nth 5 pps))))))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
616 (progn ; must insert, indent, delete
101002
3b3c7e10cd97 Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
617 (insert-char last-command-event 1)
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
618 (perl-indent-line)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
619 (delete-char -1))))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
620 (self-insert-command (prefix-numeric-value arg)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
621
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
622 ;; not used anymore, but may be useful someday:
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
623 ;;(defun perl-inside-parens-p ()
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
624 ;; (condition-case ()
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
625 ;; (save-excursion
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
626 ;; (save-restriction
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
627 ;; (narrow-to-region (point)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
628 ;; (perl-beginning-of-function))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
629 ;; (goto-char (point-max))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
630 ;; (= (char-after (or (scan-lists (point) -1 1) (point-min))) ?\()))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
631 ;; (error nil)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
632
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
633 (defun perl-indent-command (&optional arg)
101593
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
634 "Indent Perl code in the active region or current line.
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
635 In Transient Mark mode, when the region is active, reindent the region.
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
636 Otherwise, with a prefix argument, reindent the current line
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
637 unconditionally.
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
638
101593
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
639 Otherwise, if `perl-tab-always-indent' is nil and point is not in
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
640 the indentation area at the beginning of the line, insert a tab.
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
641
101593
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
642 Otherwise, indent the current line. If point was within the
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
643 indentation area, it is moved to the end of the indentation area.
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
644 If the line was already indented properly and point was not
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
645 within the indentation area, and if `perl-tab-to-comment' is
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
646 non-nil (the default), then do the first possible action from the
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
647 following list:
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
648
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
649 1) delete an empty comment
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
650 2) move forward to start of comment, indenting if necessary
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
651 3) move forward to end of line
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
652 4) create an empty comment
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
653 5) move backward to start of comment, indenting if necessary."
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
654 (interactive "P")
101593
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
655 (cond ((use-region-p) ; indent the active region
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
656 (indent-region (region-beginning) (region-end)))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
657 (arg
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
658 (perl-indent-line "\f")) ; just indent this line
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
659 ((and (not perl-tab-always-indent)
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
660 (> (current-column) (current-indentation)))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
661 (insert-tab))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
662 (t
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
663 (let* ((oldpnt (point))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
664 (lsexp (progn (beginning-of-line) (point)))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
665 (bof (perl-beginning-of-function))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
666 (delta (progn
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
667 (goto-char oldpnt)
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
668 (perl-indent-line "\f\\|;?#" bof))))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
669 (and perl-tab-to-comment
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
670 (= oldpnt (point)) ; done if point moved
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
671 (if (listp delta) ; if line starts in a quoted string
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
672 (setq lsexp (or (nth 2 delta) bof))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
673 (= delta 0)) ; done if indenting occurred
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
674 (let ((eol (progn (end-of-line) (point)))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
675 state)
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
676 (cond ((= (char-after bof) ?=)
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
677 (if (= oldpnt eol)
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
678 (message "In a format statement")))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
679 ((progn (setq state (parse-partial-sexp lsexp eol))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
680 (nth 3 state))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
681 (if (= oldpnt eol) ; already at eol in a string
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
682 (message "In a string which starts with a %c."
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
683 (nth 3 state))))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
684 ((not (nth 4 state))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
685 (if (= oldpnt eol) ; no comment, create one?
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
686 (indent-for-comment)))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
687 ((progn (beginning-of-line)
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
688 (and comment-start-skip
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
689 (re-search-forward
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
690 comment-start-skip eol 'move)))
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
691 (if (eolp)
101593
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
692 (progn ; delete existing comment
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
693 (goto-char (match-beginning 0))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
694 (skip-chars-backward " \t")
77377
4d2d90c19454 (perl-indent-command): Use delete-region instead of kill-region.
Chong Yidong <cyd@stupidchicken.com>
parents: 77262
diff changeset
695 (delete-region (point) eol))
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
696 (if (or (< oldpnt (point)) (= oldpnt eol))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
697 (indent-for-comment) ; indent existing comment
101593
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
698 (end-of-line))))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
699 ((/= oldpnt eol)
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
700 (end-of-line))
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
701 (t
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
702 (message "Use backslash to quote # characters.")
101593
84cb9ad20593 (perl-indent-line-command): Call indent-region if region is active.
Chong Yidong <cyd@stupidchicken.com>
parents: 101002
diff changeset
703 (ding t)))))))))
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
704
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
705 (defun perl-indent-line (&optional nochange parse-start)
5589
608926d1bd70 Change defconsts to defvars. Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 4455
diff changeset
706 "Indent current line as Perl code.
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48268
diff changeset
707 Return the amount the indentation
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
708 changed by, or (parse-state) if line starts in a quoted string."
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
709 (let ((case-fold-search nil)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
710 (pos (- (point-max) (point)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
711 (bof (or parse-start (save-excursion (perl-beginning-of-function))))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
712 beg indent shift-amt)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
713 (beginning-of-line)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
714 (setq beg (point))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
715 (setq shift-amt
40539
901d871219d0 (perl-indent-line): Use `eq' to compare output of `char-after'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39569
diff changeset
716 (cond ((eq (char-after bof) ?=) 0)
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
717 ((listp (setq indent (perl-calculate-indent bof))) indent)
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
718 ((looking-at (or nochange perl-nochange)) 0)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
719 (t
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
720 (skip-chars-forward " \t\f")
60762
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
721 (setq indent (perl-indent-new-calculate nil indent bof))
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
722 (- indent (current-column)))))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
723 (skip-chars-forward " \t\f")
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
724 (if (and (numberp shift-amt) (/= 0 shift-amt))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
725 (progn (delete-region beg (point))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
726 (indent-to indent)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
727 ;; If initial point was within line's indentation,
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
728 ;; position after the indentation. Else stay at same point in text.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
729 (if (> (- (point-max) pos) (point))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
730 (goto-char (- (point-max) pos)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
731 shift-amt))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
732
38014
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
733 (defun perl-continuation-line-p (limit)
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
734 "Move to end of previous line and return non-nil if continued."
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
735 ;; Statement level. Is it a continuation or a new statement?
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
736 ;; Find previous non-comment character.
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
737 (perl-backward-to-noncomment)
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
738 ;; Back up over label lines, since they don't
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
739 ;; affect whether our line is a continuation.
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
740 (while (or (eq (preceding-char) ?\,)
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
741 (and (eq (preceding-char) ?:)
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
742 (memq (char-syntax (char-after (- (point) 2)))
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
743 '(?w ?_))))
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
744 (if (eq (preceding-char) ?\,)
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
745 (perl-backward-to-start-of-continued-exp limit)
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
746 (beginning-of-line))
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
747 (perl-backward-to-noncomment))
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
748 ;; Now we get the answer.
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
749 (not (memq (preceding-char) '(?\; ?\} ?\{))))
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
750
48268
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
751 (defun perl-hanging-paren-p ()
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
752 "Non-nil if we are right after a hanging parenthesis-like char."
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
753 (and (looking-at "[ \t]*$")
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
754 (save-excursion
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
755 (skip-syntax-backward " (") (not (bolp)))))
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
756
60762
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
757 (defun perl-indent-new-calculate (&optional virtual default parse-start)
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
758 (or
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
759 (and virtual (save-excursion (skip-chars-backward " \t") (bolp))
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
760 (current-column))
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
761 (and (looking-at "\\(\\w\\|\\s_\\)+:[^:]")
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
762 (max 1 (+ (or default (perl-calculate-indent parse-start))
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
763 perl-label-offset)))
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
764 (and (= (char-syntax (following-char)) ?\))
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
765 (save-excursion
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
766 (forward-char 1)
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
767 (forward-sexp -1)
69948
6b919f4beee5 (perl-indent-new-calculate): Recompute parse-start after jumping backward by
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68773
diff changeset
768 (perl-indent-new-calculate
6b919f4beee5 (perl-indent-new-calculate): Recompute parse-start after jumping backward by
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68773
diff changeset
769 ;; Recalculate the parsing-start, since we may have jumped
6b919f4beee5 (perl-indent-new-calculate): Recompute parse-start after jumping backward by
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68773
diff changeset
770 ;; dangerously close (typically in the case of nested functions).
6b919f4beee5 (perl-indent-new-calculate): Recompute parse-start after jumping backward by
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68773
diff changeset
771 'virtual nil (save-excursion (perl-beginning-of-function)))))
60762
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
772 (and (and (= (following-char) ?{)
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
773 (save-excursion (forward-char) (perl-hanging-paren-p)))
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
774 (+ (or default (perl-calculate-indent parse-start))
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
775 perl-brace-offset))
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
776 (or default (perl-calculate-indent parse-start))))
9d474a03949a (perl-indent-new-calculate): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60761
diff changeset
777
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
778 (defun perl-calculate-indent (&optional parse-start)
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
779 "Return appropriate indentation for current line as Perl code.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
780 In usual case returns an integer: the column to indent to.
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
781 Returns (parse-state) if line starts inside a string.
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
782 Optional argument PARSE-START should be the position of `beginning-of-defun'."
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
783 (save-excursion
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
784 (let ((indent-point (point))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
785 (case-fold-search nil)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
786 (colon-line-end 0)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
787 state containing-sexp)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
788 (if parse-start ;used to avoid searching
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
789 (goto-char parse-start)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
790 (perl-beginning-of-function))
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
791 ;; We might be now looking at a local function that has nothing to
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
792 ;; do with us because `indent-point' is past it. In this case
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
793 ;; look further back up for another `perl-beginning-of-function'.
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
794 (while (and (looking-at "{")
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
795 (save-excursion
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
796 (beginning-of-line)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
797 (looking-at "\\s-+sub\\>"))
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
798 (> indent-point (save-excursion (forward-sexp 1) (point))))
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
799 (perl-beginning-of-function))
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
800 (while (< (point) indent-point) ;repeat until right sexp
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
801 (setq state (parse-partial-sexp (point) indent-point 0))
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
802 ;; state = (depth_in_parens innermost_containing_list
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
803 ;; last_complete_sexp string_terminator_or_nil inside_commentp
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
804 ;; following_quotep minimum_paren-depth_this_scan)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
805 ;; Parsing stops if depth in parentheses becomes equal to third arg.
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
806 (setq containing-sexp (nth 1 state)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
807 (cond ((nth 3 state) state) ; In a quoted string?
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
808 ((null containing-sexp) ; Line is at top level.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
809 (skip-chars-forward " \t\f")
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
810 (if (= (following-char) ?{)
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
811 0 ; move to beginning of line if it starts a function body
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
812 ;; indent a little if this is a continuation line
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
813 (perl-backward-to-noncomment)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
814 (if (or (bobp)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
815 (memq (preceding-char) '(?\; ?\})))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
816 0 perl-continued-statement-offset)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
817 ((/= (char-after containing-sexp) ?{)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
818 ;; line is expression, not statement:
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
819 ;; indent to just after the surrounding open.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
820 (goto-char (1+ containing-sexp))
48268
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
821 (if (perl-hanging-paren-p)
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
822 ;; We're indenting an arg of a call like:
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
823 ;; $a = foobarlongnamefun (
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
824 ;; arg1
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
825 ;; arg2
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
826 ;; );
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
827 (progn
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
828 (skip-syntax-backward "(")
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
829 (condition-case err
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
830 (while (save-excursion
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
831 (skip-syntax-backward " ") (not (bolp)))
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
832 (forward-sexp -1))
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
833 (scan-error nil))
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
834 (+ (current-column) perl-indent-level))
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
835 (if perl-indent-continued-arguments
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
836 (+ perl-indent-continued-arguments (current-indentation))
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
837 (skip-chars-forward " \t")
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
838 (current-column))))
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
839 (t
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
840 ;; Statement level. Is it a continuation or a new statement?
38014
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
841 (if (perl-continuation-line-p containing-sexp)
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
842 ;; This line is continuation of preceding line's statement;
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
843 ;; indent perl-continued-statement-offset more than the
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
844 ;; previous line of the statement.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
845 (progn
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
846 (perl-backward-to-start-of-continued-exp containing-sexp)
38014
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
847 (+ (if (save-excursion
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
848 (perl-continuation-line-p containing-sexp))
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
849 ;; If the continued line is itself a continuation
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
850 ;; line, then align, otherwise add an offset.
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
851 0 perl-continued-statement-offset)
8c5d188dc01b (perl-font-lock-syntactic-keywords): New var, to recognize ${ $' and PODs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37893
diff changeset
852 (current-column)
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
853 (if (save-excursion (goto-char indent-point)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
854 (looking-at "[ \t]*{"))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
855 perl-continued-brace-offset 0)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
856 ;; This line starts a new statement.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
857 ;; Position at last unclosed open.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
858 (goto-char containing-sexp)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
859 (or
48268
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
860 ;; Is line first statement after an open-brace?
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
861 ;; If no, find that first statement and indent like it.
3177076ca9a1 (perl-hanging-paren-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47955
diff changeset
862 (save-excursion
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
863 (forward-char 1)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
864 ;; Skip over comments and labels following openbrace.
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
865 (while (progn
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
866 (skip-chars-forward " \t\f\n")
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
867 (cond ((looking-at ";?#")
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
868 (forward-line 1) t)
59328
7f974399bee1 (perl-nochange, perl-calculate-indent):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59249
diff changeset
869 ((looking-at "\\(\\w\\|\\s_\\)+:[^:]")
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
870 (save-excursion
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
871 (end-of-line)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
872 (setq colon-line-end (point)))
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
873 (search-forward ":")))))
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
874 ;; The first following code counts
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
875 ;; if it is before the line we want to indent.
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
876 (and (< (point) indent-point)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
877 (if (> colon-line-end (point))
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
878 (- (current-indentation) perl-label-offset)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
879 (current-column))))
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
880 ;; If no previous statement,
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
881 ;; indent it relative to line brace is on.
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
882 ;; For open paren in column zero, don't let statement
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
883 ;; start there too. If perl-indent-level is zero,
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
884 ;; use perl-brace-offset + perl-continued-statement-offset
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
885 ;; For open-braces not the first thing in a line,
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
886 ;; add in perl-brace-imaginary-offset.
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
887 (+ (if (and (bolp) (zerop perl-indent-level))
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
888 (+ perl-brace-offset perl-continued-statement-offset)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
889 perl-indent-level)
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
890 ;; Move back over whitespace before the openbrace.
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
891 ;; If openbrace is not first nonwhite thing on the line,
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
892 ;; add the perl-brace-imaginary-offset.
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
893 (progn (skip-chars-backward " \t")
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
894 (if (bolp) 0 perl-brace-imaginary-offset))
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
895 ;; If the openbrace is preceded by a parenthesized exp,
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
896 ;; move to the beginning of that;
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
897 ;; possibly a different line
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
898 (progn
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
899 (if (eq (preceding-char) ?\))
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
900 (forward-sexp -1))
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
901 ;; Get initial indentation of the line we are on.
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
902 (current-indentation))))))))))
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
903
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
904 (defun perl-backward-to-noncomment ()
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
905 "Move point backward to after the first non-white-space, skipping comments."
47469
531c20e5755b (perl-mode-syntax-table): Mark $, % and @
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42896
diff changeset
906 (interactive)
39569
9d258703ad61 (perl-indent-continued-arguments): New var.
Gerd Moellmann <gerd@gnu.org>
parents: 38014
diff changeset
907 (forward-comment (- (point-max))))
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
908
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
909 (defun perl-backward-to-start-of-continued-exp (lim)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
910 (if (= (preceding-char) ?\))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
911 (forward-sexp -1))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
912 (beginning-of-line)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
913 (if (<= (point) lim)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
914 (goto-char (1+ lim)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
915 (skip-chars-forward " \t\f"))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
916
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
917 ;; note: this may be slower than the c-mode version, but I can understand it.
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
918 (defalias 'indent-perl-exp 'perl-indent-exp)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
919 (defun perl-indent-exp ()
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
920 "Indent each line of the Perl grouping following point."
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
921 (interactive)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
922 (let* ((case-fold-search nil)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
923 (oldpnt (point-marker))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
924 (bof-mark (save-excursion
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
925 (end-of-line 2)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
926 (perl-beginning-of-function)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
927 (point-marker)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
928 eol last-mark lsexp-mark delta)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
929 (if (= (char-after (marker-position bof-mark)) ?=)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
930 (message "Can't indent a format statement")
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
931 (message "Indenting Perl expression...")
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
932 (save-excursion (end-of-line) (setq eol (point)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
933 (save-excursion ; locate matching close paren
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
934 (while (and (not (eobp)) (<= (point) eol))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
935 (parse-partial-sexp (point) (point-max) 0))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
936 (setq last-mark (point-marker)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
937 (setq lsexp-mark bof-mark)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
938 (beginning-of-line)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
939 (while (< (point) (marker-position last-mark))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
940 (setq delta (perl-indent-line nil (marker-position bof-mark)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
941 (if (numberp delta) ; unquoted start-of-line?
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48268
diff changeset
942 (progn
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
943 (if (eolp)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
944 (delete-horizontal-space))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
945 (setq lsexp-mark (point-marker))))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
946 (end-of-line)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
947 (setq eol (point))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
948 (if (nth 4 (parse-partial-sexp (marker-position lsexp-mark) eol))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
949 (progn ; line ends in a comment
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
950 (beginning-of-line)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
951 (if (or (not (looking-at "\\s-*;?#"))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
952 (listp delta)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
953 (and (/= 0 delta)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
954 (= (- (current-indentation) delta) comment-column)))
16472
dbfab9e8b6d8 (electric-perl-terminator, perl-indent-command):
Richard M. Stallman <rms@gnu.org>
parents: 16358
diff changeset
955 (if (and comment-start-skip
dbfab9e8b6d8 (electric-perl-terminator, perl-indent-command):
Richard M. Stallman <rms@gnu.org>
parents: 16358
diff changeset
956 (re-search-forward comment-start-skip eol t))
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
957 (indent-for-comment))))) ; indent existing comment
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
958 (forward-line 1))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
959 (goto-char (marker-position oldpnt))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
960 (message "Indenting Perl expression...done"))))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
961
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
962 (defun perl-beginning-of-function (&optional arg)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
963 "Move backward to next beginning-of-function, or as far as possible.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
964 With argument, repeat that many times; negative args move forward.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
965 Returns new value of point in all cases."
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
966 (interactive "p")
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
967 (or arg (setq arg 1))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
968 (if (< arg 0) (forward-char 1))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
969 (and (/= arg 0)
70376
64d64506f4b1 (perl-beginning-of-function): Skip anonymous subs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69948
diff changeset
970 (re-search-backward
64d64506f4b1 (perl-beginning-of-function): Skip anonymous subs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69948
diff changeset
971 "^\\s(\\|^\\s-*sub\\b[ \t\n]*\\_<[^{]+{\\|^\\s-*format\\b[^=]*=\\|^\\."
64d64506f4b1 (perl-beginning-of-function): Skip anonymous subs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69948
diff changeset
972 nil 'move arg)
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
973 (goto-char (1- (match-end 0))))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
974 (point))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
975
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
976 ;; note: this routine is adapted directly from emacs lisp.el, end-of-defun;
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
977 ;; no bugs have been removed :-)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
978 (defun perl-end-of-function (&optional arg)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
979 "Move forward to next end-of-function.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
980 The end of a function is found by moving forward from the beginning of one.
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
981 With argument, repeat that many times; negative args move backward."
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
982 (interactive "p")
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
983 (or arg (setq arg 1))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
984 (let ((first t))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
985 (while (and (> arg 0) (< (point) (point-max)))
51054
cd2cb7e0cc7e (perl-tab-always-indent): Default to tab-always-indent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49598
diff changeset
986 (let ((pos (point)))
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
987 (while (progn
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
988 (if (and first
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
989 (progn
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
990 (forward-char 1)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
991 (perl-beginning-of-function 1)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
992 (not (bobp))))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
993 nil
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
994 (or (bobp) (forward-char -1))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
995 (perl-beginning-of-function -1))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
996 (setq first nil)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
997 (forward-list 1)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
998 (skip-chars-forward " \t")
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
999 (if (looking-at "[#\n]")
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1000 (forward-line 1))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1001 (<= (point) pos))))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1002 (setq arg (1- arg)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1003 (while (< arg 0)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1004 (let ((pos (point)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1005 (perl-beginning-of-function 1)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1006 (forward-sexp 1)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1007 (forward-line 1)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1008 (if (>= (point) pos)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1009 (if (progn (perl-beginning-of-function 2) (not (bobp)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1010 (progn
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1011 (forward-list 1)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1012 (skip-chars-forward " \t")
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1013 (if (looking-at "[#\n]")
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1014 (forward-line 1)))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1015 (goto-char (point-min)))))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1016 (setq arg (1+ arg)))))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1017
37893
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
1018 (defalias 'mark-perl-function 'perl-mark-function)
e0beb50b7def (perl-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31985
diff changeset
1019 (defun perl-mark-function ()
475
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1020 "Put mark at end of Perl function, point at beginning."
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1021 (interactive)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1022 (push-mark (point))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1023 (perl-end-of-function)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1024 (push-mark (point))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1025 (perl-beginning-of-function)
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1026 (backward-paragraph))
fb215f87f4a9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1027
16358
8b36369ba4de Add `provide' call.
Richard M. Stallman <rms@gnu.org>
parents: 14633
diff changeset
1028 (provide 'perl-mode)
8b36369ba4de Add `provide' call.
Richard M. Stallman <rms@gnu.org>
parents: 14633
diff changeset
1029
59328
7f974399bee1 (perl-nochange, perl-calculate-indent):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59249
diff changeset
1030 ;; arch-tag: 8c7ff68d-15f3-46a2-ade2-b7c41f176826
16358
8b36369ba4de Add `provide' call.
Richard M. Stallman <rms@gnu.org>
parents: 14633
diff changeset
1031 ;;; perl-mode.el ends here