annotate lisp/progmodes/cperl-mode.el @ 40620:e1d4047f44bd

*** empty log message ***
author Pavel Janík <Pavel@Janik.cz>
date Thu, 01 Nov 2001 14:24:02 +0000
parents c2db8c1499cb
children 8c4c4027c7bd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1 ;;; cperl-mode.el --- Perl code editing commands for Emacs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3 ;; Copyright (C) 1985, 86, 87, 91, 92, 93, 94, 95, 96, 1997
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4 ;; Free Software Foundation, Inc.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6 ;; Author: Ilya Zakharevich and Bob Olson
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7 ;; Maintainer: Ilya Zakharevich <ilya@math.ohio-state.edu>
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8 ;; Keywords: languages, Perl
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14 ;; the Free Software Foundation; either version 2, or (at your option)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15 ;; any later version.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
21
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
25 ;; Boston, MA 02111-1307, USA.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27 ;;; Corrections made by Ilya Zakharevich ilya@math.mps.ohio-state.edu
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
28
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
29 ;;; Commentary:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31 ;;; You can either fine-tune the bells and whistles of this mode or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
32 ;;; bulk enable them by putting
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
33
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
34 ;; (setq cperl-hairy t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
35
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
36 ;;; in your .emacs file. (Emacs rulers do not consider it politically
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37 ;;; correct to make whistles enabled by default.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
38
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
39 ;;; DO NOT FORGET to read micro-docs (available from `Perl' menu) <<<<<<
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
40 ;;; or as help on variables `cperl-tips', `cperl-problems', <<<<<<
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
41 ;;; `cperl-non-problems', `cperl-praise', `cperl-speed'. <<<<<<
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
42
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
43 ;;; The mode information (on C-h m) provides some customization help.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
44 ;;; If you use font-lock feature of this mode, it is advisable to use
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
45 ;;; either lazy-lock-mode or fast-lock-mode. I prefer lazy-lock.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
46
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
47 ;;; Faces used now: three faces for first-class and second-class keywords
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
48 ;;; and control flow words, one for each: comments, string, labels,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
49 ;;; functions definitions and packages, arrays, hashes, and variable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
50 ;;; definitions. If you do not see all these faces, your font-lock does
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
51 ;;; not define them, so you need to define them manually.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
52
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
53 ;;; into your .emacs file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
54
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
55 ;;;; This mode supports font-lock, imenu and mode-compile. In the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
56 ;;;; hairy version font-lock is on, but you should activate imenu
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
57 ;;;; yourself (note that mode-compile is not standard yet). Well, you
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
58 ;;;; can use imenu from keyboard anyway (M-x imenu), but it is better
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
59 ;;;; to bind it like that:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
60
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
61 ;; (define-key global-map [M-S-down-mouse-3] 'imenu)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
62
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
63 ;;; Code:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
64
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
65 ;; Some macros are needed for `defcustom'
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
66 (eval-when-compile
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
67 (require 'font-lock)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
68 (defvar msb-menu-cond)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
69 (defvar gud-perldb-history)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
70 (defvar font-lock-background-mode) ; not in Emacs
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
71 (defvar font-lock-display-type) ; ditto
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
72 (defconst cperl-xemacs-p (string-match "XEmacs\\|Lucid" emacs-version))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
73 (defmacro cperl-is-face (arg) ; Takes quoted arg
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
74 (cond ((fboundp 'find-face)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
75 `(find-face ,arg))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
76 (;;(and (fboundp 'face-list)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
77 ;; (face-list))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
78 (fboundp 'face-list)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
79 `(member ,arg (and (fboundp 'face-list)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
80 (face-list))))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
81 (t
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
82 `(boundp ,arg))))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
83 (defmacro cperl-make-face (arg descr) ; Takes unquoted arg
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
84 (cond ((fboundp 'make-face)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
85 `(make-face (quote ,arg)))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
86 (t
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
87 `(defconst ,arg (quote ,arg) ,descr))))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
88 (defmacro cperl-force-face (arg descr) ; Takes unquoted arg
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
89 `(progn
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
90 (or (cperl-is-face (quote ,arg))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
91 (cperl-make-face ,arg ,descr))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
92 (or (boundp (quote ,arg)) ; We use unquoted variants too
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
93 (defconst ,arg (quote ,arg) ,descr))))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
94 (if cperl-xemacs-p
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
95 (defmacro cperl-etags-snarf-tag (file line)
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
96 `(progn
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
97 (beginning-of-line 2)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
98 (list ,file ,line)))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
99 (defmacro cperl-etags-snarf-tag (file line)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
100 `(etags-snarf-tag)))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
101 (if cperl-xemacs-p
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
102 (defmacro cperl-etags-goto-tag-location (elt)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
103 ;;(progn
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
104 ;; (switch-to-buffer (get-file-buffer (elt (, elt) 0)))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
105 ;; (set-buffer (get-file-buffer (elt (, elt) 0)))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
106 ;; Probably will not work due to some save-excursion???
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
107 ;; Or save-file-position?
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
108 ;; (message "Did I get to line %s?" (elt (, elt) 1))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
109 `(goto-line (string-to-int (elt ,elt 1))))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
110 ;;)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
111 (defmacro cperl-etags-goto-tag-location (elt)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
112 `(etags-goto-tag-location ,elt)))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
113 (autoload 'tmm-prompt "tmm"))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
114
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
115 (defun cperl-choose-color (&rest list)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
116 (let (answer)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
117 (while list
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
118 (or answer
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
119 (if (or (x-color-defined-p (car list))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
120 (null (cdr list)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
121 (setq answer (car list))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
122 (setq list (cdr list)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
123 answer))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
124
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
125 (defgroup cperl nil
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
126 "Major mode for editing Perl code."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
127 :prefix "cperl-"
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
128 :group 'languages
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
129 :version "20.3")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
130
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
131 (defgroup cperl-indentation-details nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
132 "Indentation."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
133 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
134 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
135
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
136 (defgroup cperl-affected-by-hairy nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
137 "Variables affected by `cperl-hairy'."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
138 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
139 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
140
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
141 (defgroup cperl-autoinsert-details nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
142 "Auto-insert tuneup."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
143 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
144 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
145
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
146 (defgroup cperl-faces nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
147 "Fontification colors."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
148 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
149 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
150
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
151 (defgroup cperl-speed nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
152 "Speed vs. validity tuneup."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
153 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
154 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
155
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
156 (defgroup cperl-help-system nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
157 "Help system tuneup."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
158 :prefix "cperl-"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
159 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
160
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
161
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
162 (defcustom cperl-extra-newline-before-brace nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
163 "*Non-nil means that if, elsif, while, until, else, for, foreach
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
164 and do constructs look like:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
165
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
166 if ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
167 {
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
168 }
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
169
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
170 instead of:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
171
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
172 if () {
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
173 }
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
174 "
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
175 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
176 :group 'cperl-autoinsert-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
177
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
178 (defcustom cperl-extra-newline-before-brace-multiline
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
179 cperl-extra-newline-before-brace
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
180 "*Non-nil means the same as `cperl-extra-newline-before-brace', but
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
181 for constructs with multiline if/unless/while/until/for/foreach condition."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
182 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
183 :group 'cperl-autoinsert-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
184
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
185 (defcustom cperl-indent-level 2
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
186 "*Indentation of CPerl statements with respect to containing block."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
187 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
188 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
189
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
190 (defcustom cperl-lineup-step nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
191 "*`cperl-lineup' will always lineup at multiple of this number.
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
192 If nil, the value of `cperl-indent-level' will be used."
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
193 :type '(choice (const nil) integer)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
194 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
195
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
196 (defcustom cperl-brace-imaginary-offset 0
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
197 "*Imagined indentation of a Perl open brace that actually follows a statement.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
198 An open brace following other text is treated as if it were this far
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
199 to the right of the start of its line."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
200 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
201 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
202
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
203 (defcustom cperl-brace-offset 0
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
204 "*Extra indentation for braces, compared with other text in same context."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
205 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
206 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
207 (defcustom cperl-label-offset -2
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
208 "*Offset of CPerl label lines relative to usual indentation."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
209 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
210 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
211 (defcustom cperl-min-label-indent 1
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
212 "*Minimal offset of CPerl label lines."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
213 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
214 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
215 (defcustom cperl-continued-statement-offset 2
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
216 "*Extra indent for lines not starting new statements."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
217 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
218 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
219 (defcustom cperl-continued-brace-offset 0
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
220 "*Extra indent for substatements that start with open-braces.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
221 This is in addition to cperl-continued-statement-offset."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
222 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
223 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
224 (defcustom cperl-close-paren-offset -1
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
225 "*Extra indent for substatements that start with close-parenthesis."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
226 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
227 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
228
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
229 (defcustom cperl-auto-newline nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
230 "*Non-nil means automatically newline before and after braces,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
231 and after colons and semicolons, inserted in CPerl code. The following
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
232 \\[cperl-electric-backspace] will remove the inserted whitespace.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
233 Insertion after colons requires both this variable and
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
234 `cperl-auto-newline-after-colon' set."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
235 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
236 :group 'cperl-autoinsert-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
237
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
238 (defcustom cperl-autoindent-on-semi nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
239 "*Non-nil means automatically indent after insertion of (semi)colon.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
240 Active if `cperl-auto-newline' is false."
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
241 :type 'boolean
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
242 :group 'cperl-autoinsert-details)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
243
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
244 (defcustom cperl-auto-newline-after-colon nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
245 "*Non-nil means automatically newline even after colons.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
246 Subject to `cperl-auto-newline' setting."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
247 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
248 :group 'cperl-autoinsert-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
249
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
250 (defcustom cperl-tab-always-indent t
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
251 "*Non-nil means TAB in CPerl mode should always reindent the current line,
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
252 regardless of where in the line point is when the TAB command is used."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
253 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
254 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
255
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
256 (defcustom cperl-font-lock nil
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
257 "*Non-nil (and non-null) means CPerl buffers will use `font-lock-mode'.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
258 Can be overwritten by `cperl-hairy' if nil."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
259 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
260 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
261
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
262 (defcustom cperl-electric-lbrace-space nil
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
263 "*Non-nil (and non-null) means { after $ should be preceded by ` '.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
264 Can be overwritten by `cperl-hairy' if nil."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
265 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
266 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
267
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
268 (defcustom cperl-electric-parens-string "({[]})<"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
269 "*String of parentheses that should be electric in CPerl.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
270 Closing ones are electric only if the region is highlighted."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
271 :type 'string
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
272 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
273
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
274 (defcustom cperl-electric-parens nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
275 "*Non-nil (and non-null) means parentheses should be electric in CPerl.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
276 Can be overwritten by `cperl-hairy' if nil."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
277 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
278 :group 'cperl-affected-by-hairy)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
279
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
280 (defvar zmacs-regions) ; Avoid warning
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
281
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
282 (defcustom cperl-electric-parens-mark
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
283 (and window-system
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
284 (or (and (boundp 'transient-mark-mode) ; For Emacs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
285 transient-mark-mode)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
286 (and (boundp 'zmacs-regions) ; For XEmacs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
287 zmacs-regions)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
288 "*Not-nil means that electric parens look for active mark.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
289 Default is yes if there is visual feedback on mark."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
290 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
291 :group 'cperl-autoinsert-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
292
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
293 (defcustom cperl-electric-linefeed nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
294 "*If true, LFD should be hairy in CPerl, otherwise C-c LFD is hairy.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
295 In any case these two mean plain and hairy linefeeds together.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
296 Can be overwritten by `cperl-hairy' if nil."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
297 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
298 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
299
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
300 (defcustom cperl-electric-keywords nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
301 "*Not-nil (and non-null) means keywords are electric in CPerl.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
302 Can be overwritten by `cperl-hairy' if nil."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
303 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
304 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
305
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
306 (defcustom cperl-hairy nil
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
307 "*Not-nil means most of the bells and whistles are enabled in CPerl.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
308 Affects: `cperl-font-lock', `cperl-electric-lbrace-space',
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
309 `cperl-electric-parens', `cperl-electric-linefeed', `cperl-electric-keywords',
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
310 `cperl-info-on-command-no-prompt', `cperl-clobber-lisp-bindings',
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
311 `cperl-lazy-help-time'."
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
312 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
313 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
314
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
315 (defcustom cperl-comment-column 32
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
316 "*Column to put comments in CPerl (use \\[cperl-indent] to lineup with code)."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
317 :type 'integer
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
318 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
319
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
320 (defcustom cperl-vc-header-alist '((SCCS "$sccs = '%W\%' ;")
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
321 (RCS "$rcs = ' $Id\$ ' ;"))
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
322 "*What to use as `vc-header-alist' in CPerl."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
323 :type '(repeat (list symbol string))
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
324 :group 'cperl)
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
325
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
326 (defcustom cperl-clobber-mode-lists
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
327 (not
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
328 (and
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
329 (boundp 'interpreter-mode-alist)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
330 (assoc "miniperl" interpreter-mode-alist)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
331 (assoc "\\.\\([pP][Llm]\\|al\\)$" auto-mode-alist)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
332 "*Whether to install us into `interpreter-' and `extension' mode lists."
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
333 :type 'boolean
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
334 :group 'cperl)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
335
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
336 (defcustom cperl-info-on-command-no-prompt nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
337 "*Not-nil (and non-null) means not to prompt on C-h f.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
338 The opposite behaviour is always available if prefixed with C-c.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
339 Can be overwritten by `cperl-hairy' if nil."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
340 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
341 :group 'cperl-affected-by-hairy)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
342
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
343 (defcustom cperl-clobber-lisp-bindings nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
344 "*Not-nil (and non-null) means not overwrite C-h f.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
345 The function is available on \\[cperl-info-on-command], \\[cperl-get-help].
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
346 Can be overwritten by `cperl-hairy' if nil."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
347 :type '(choice (const null) boolean)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
348 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
349
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
350 (defcustom cperl-lazy-help-time nil
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
351 "*Not-nil (and non-null) means to show lazy help after given idle time.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
352 Can be overwritten by `cperl-hairy' to be 5 sec if nil."
23270
fe5ca8d66639 (cperl-lazy-help-time): Fix customize
Andreas Schwab <schwab@suse.de>
parents: 22409
diff changeset
353 :type '(choice (const null) (const nil) integer)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
354 :group 'cperl-affected-by-hairy)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
355
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
356 (defcustom cperl-pod-face 'font-lock-comment-face
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
357 "*Face for pod highlighting."
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
358 :type 'face
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
359 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
360
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
361 (defcustom cperl-pod-head-face 'font-lock-variable-name-face
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
362 "*Face for pod highlighting.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
363 Font for POD headers."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
364 :type 'face
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
365 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
366
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
367 (defcustom cperl-here-face 'font-lock-string-face
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
368 "*Face for here-docs highlighting."
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
369 :type 'face
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
370 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
371
35013
587807c5e8e6 (cperl-invalid-face): Don't double-quote
Dave Love <fx@gnu.org>
parents: 32880
diff changeset
372 (defcustom cperl-invalid-face 'underline
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
373 "*Face for highlighting trailing whitespace."
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
374 :type 'face
35013
587807c5e8e6 (cperl-invalid-face): Don't double-quote
Dave Love <fx@gnu.org>
parents: 32880
diff changeset
375 :version "21.1"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
376 :group 'cperl-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
377
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
378 (defcustom cperl-pod-here-fontify '(featurep 'font-lock)
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
379 "*Not-nil after evaluation means to highlight pod and here-docs sections."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
380 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
381 :group 'cperl-faces)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
382
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
383 (defcustom cperl-fontify-m-as-s t
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
384 "*Not-nil means highlight 1arg regular expressions operators same as 2arg."
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
385 :type 'boolean
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
386 :group 'cperl-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
387
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
388 (defcustom cperl-highlight-variables-indiscriminately nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
389 "*Non-nil means perform additional highlighting on variables.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
390 Currently only changes how scalar variables are highlighted.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
391 Note that that variable is only read at initialization time for
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
392 the variable `cperl-font-lock-keywords-2', so changing it after you've
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
393 entered `cperl-mode' the first time will have no effect."
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
394 :type 'boolean
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
395 :group 'cperl)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
396
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
397 (defcustom cperl-pod-here-scan t
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
398 "*Not-nil means look for pod and here-docs sections during startup.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
399 You can always make lookup from menu or using \\[cperl-find-pods-heres]."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
400 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
401 :group 'cperl-speed)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
402
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
403 (defcustom cperl-regexp-scan t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
404 "*Not-nil means make marking of regular expression more thorough.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
405 Effective only with `cperl-pod-here-scan'. Not implemented yet."
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
406 :type 'boolean
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
407 :group 'cperl-speed)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
408
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
409 (defcustom cperl-imenu-addback nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
410 "*Not-nil means add backreferences to generated `imenu's.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
411 May require patched `imenu' and `imenu-go'. Obsolete."
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
412 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
413 :group 'cperl-help-system)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
414
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
415 (defcustom cperl-max-help-size 66
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
416 "*Non-nil means shrink-wrapping of info-buffer allowed up to these percents."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
417 :type '(choice integer (const nil))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
418 :group 'cperl-help-system)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
419
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
420 (defcustom cperl-shrink-wrap-info-frame t
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
421 "*Non-nil means shrink-wrapping of info-buffer-frame allowed."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
422 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
423 :group 'cperl-help-system)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
424
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
425 (defcustom cperl-info-page "perl"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
426 "*Name of the info page containing perl docs.
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
427 Older version of this page was called `perl5', newer `perl'."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
428 :type 'string
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
429 :group 'cperl-help-system)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
430
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
431 (defcustom cperl-use-syntax-table-text-property
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
432 (boundp 'parse-sexp-lookup-properties)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
433 "*Non-nil means CPerl sets up and uses `syntax-table' text property."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
434 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
435 :group 'cperl-speed)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
436
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
437 (defcustom cperl-use-syntax-table-text-property-for-tags
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
438 cperl-use-syntax-table-text-property
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
439 "*Non-nil means: set up and use `syntax-table' text property generating TAGS."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
440 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
441 :group 'cperl-speed)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
442
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
443 (defcustom cperl-scan-files-regexp "\\.\\([pP][Llm]\\|xs\\)$"
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
444 "*Regexp to match files to scan when generating TAGS."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
445 :type 'regexp
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
446 :group 'cperl)
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
447
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
448 (defcustom cperl-noscan-files-regexp "/\\(\\.\\.?\\|SCCS\\|RCS\\|blib\\)$"
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
449 "*Regexp to match files/dirs to skip when generating TAGS."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
450 :type 'regexp
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
451 :group 'cperl)
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
452
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
453 (defcustom cperl-regexp-indent-step nil
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
454 "*Indentation used when beautifying regexps.
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
455 If nil, the value of `cperl-indent-level' will be used."
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
456 :type '(choice integer (const nil))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
457 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
458
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
459 (defcustom cperl-indent-left-aligned-comments t
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
460 "*Non-nil means that the comment starting in leftmost column should indent."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
461 :type 'boolean
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
462 :group 'cperl-indentation-details)
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
463
26667
a11929b241ab (cperl-under-as-char): Make nil the default value.
Richard M. Stallman <rms@gnu.org>
parents: 26455
diff changeset
464 (defcustom cperl-under-as-char nil
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
465 "*Non-nil means that the _ (underline) should be treated as word char."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
466 :type 'boolean
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
467 :group 'cperl)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
468
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
469 (defcustom cperl-extra-perl-args ""
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
470 "*Extra arguments to use when starting Perl.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
471 Currently used with `cperl-check-syntax' only."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
472 :type 'string
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
473 :group 'cperl)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
474
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
475 (defcustom cperl-message-electric-keyword t
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
476 "*Non-nil means that the `cperl-electric-keyword' prints a help message."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
477 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
478 :group 'cperl-help-system)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
479
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
480 (defcustom cperl-indent-region-fix-constructs 1
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
481 "*Amount of space to insert between `}' and `else' or `elsif'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
482 in `cperl-indent-region'. Set to nil to leave as is. Values other
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
483 than 1 and nil will probably not work."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
484 :type '(choice (const nil) (const 1))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
485 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
486
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
487 (defcustom cperl-break-one-line-blocks-when-indent t
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
488 "*Non-nil means that one-line if/unless/while/until/for/foreach BLOCKs
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
489 need to be reformated into multiline ones when indenting a region."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
490 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
491 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
492
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
493 (defcustom cperl-fix-hanging-brace-when-indent t
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
494 "*Non-nil means that BLOCK-end `}' may be put on a separate line
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
495 when indenting a region.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
496 Braces followed by else/elsif/while/until are excepted."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
497 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
498 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
499
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
500 (defcustom cperl-merge-trailing-else t
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
501 "*Non-nil means that BLOCK-end `}' followed by else/elsif/continue
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
502 may be merged to be on the same line when indenting a region."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
503 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
504 :group 'cperl-indentation-details)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
505
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
506 (defcustom cperl-indent-parens-as-block nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
507 "*Non-nil means that non-block ()-, {}- and []-groups are indented as blocks,
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
508 but for trailing \",\" inside the group, which won't increase indentation.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
509 One should tune up `cperl-close-paren-offset' as well."
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
510 :type 'boolean
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
511 :group 'cperl-indentation-details)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
512
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
513 (defcustom cperl-syntaxify-by-font-lock
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
514 (and window-system
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
515 (boundp 'parse-sexp-lookup-properties))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
516 "*Non-nil means that CPerl uses `font-lock's routines for syntaxification."
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
517 :type '(choice (const message) boolean)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
518 :group 'cperl-speed)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
519
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
520 (defcustom cperl-syntaxify-unwind
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
521 t
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
522 "*Non-nil means that CPerl unwinds to a start of along construction
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
523 when syntaxifying a chunk of buffer."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
524 :type 'boolean
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
525 :group 'cperl-speed)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
526
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
527 (defcustom cperl-ps-print-face-properties
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
528 '((font-lock-keyword-face nil nil bold shadow)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
529 (font-lock-variable-name-face nil nil bold)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
530 (font-lock-function-name-face nil nil bold italic box)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
531 (font-lock-constant-face nil "LightGray" bold)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
532 (cperl-array-face nil "LightGray" bold underline)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
533 (cperl-hash-face nil "LightGray" bold italic underline)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
534 (font-lock-comment-face nil "LightGray" italic)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
535 (font-lock-string-face nil nil italic underline)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
536 (cperl-nonoverridable-face nil nil italic underline)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
537 (font-lock-type-face nil nil underline)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
538 (underline nil "LightGray" strikeout))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
539 "List given as an argument to `ps-extend-face-list' in `cperl-ps-print'."
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
540 :type '(repeat (cons symbol
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
541 (cons (choice (const nil) string)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
542 (cons (choice (const nil) string)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
543 (repeat symbol)))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
544 :group 'cperl-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
545
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
546 (if window-system
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
547 (progn
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
548 (defvar cperl-dark-background
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
549 (cperl-choose-color "navy" "os2blue" "darkgreen"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
550 (defvar cperl-dark-foreground
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
551 (cperl-choose-color "orchid1" "orange"))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
552
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
553 (defface cperl-nonoverridable-face
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
554 `((((class grayscale) (background light))
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
555 (:background "Gray90" :italic t :underline t))
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
556 (((class grayscale) (background dark))
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
557 (:foreground "Gray80" :italic t :underline t :bold t))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
558 (((class color) (background light))
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
559 (:foreground "chartreuse3"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
560 (((class color) (background dark))
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
561 (:foreground ,cperl-dark-foreground))
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
562 (t (:bold t :underline t)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
563 "Font Lock mode face used to highlight array names."
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
564 :group 'cperl-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
565
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
566 (defface cperl-array-face
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
567 `((((class grayscale) (background light))
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
568 (:background "Gray90" :bold t))
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
569 (((class grayscale) (background dark))
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
570 (:foreground "Gray80" :bold t))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
571 (((class color) (background light))
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
572 (:foreground "Blue" :background "lightyellow2" :bold t))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
573 (((class color) (background dark))
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
574 (:foreground "yellow" :background ,cperl-dark-background :bold t))
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
575 (t (:bold t)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
576 "Font Lock mode face used to highlight array names."
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
577 :group 'cperl-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
578
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
579 (defface cperl-hash-face
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
580 `((((class grayscale) (background light))
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
581 (:background "Gray90" :bold t :italic t))
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
582 (((class grayscale) (background dark))
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
583 (:foreground "Gray80" :bold t :italic t))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
584 (((class color) (background light))
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
585 (:foreground "Red" :background "lightyellow2" :bold t :italic t))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
586 (((class color) (background dark))
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
587 (:foreground "Red" :background ,cperl-dark-background :bold t :italic t))
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
588 (t (:bold t :italic t)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
589 "Font Lock mode face used to highlight hash names."
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
590 :group 'cperl-faces)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
591
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
592
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
593
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
594 ;;; Short extra-docs.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
595
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
596 (defvar cperl-tips 'please-ignore-this-line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
597 "Get newest version of this package from
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
598 ftp://ftp.math.ohio-state.edu/pub/users/ilya/emacs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
599 and/or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
600 ftp://ftp.math.ohio-state.edu/pub/users/ilya/perl
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
601 Subdirectory `cperl-mode' may contain yet newer development releases and/or
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
602 patches to related files.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
603
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
604 For best results apply to an older Emacs the patches from
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
605 ftp://ftp.math.ohio-state.edu/pub/users/ilya/cperl-mode/patches
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
606 \(this upgrades syntax-parsing abilities of RMS Emaxen v19.34 and
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
607 v20.2 up to the level of RMS Emacs v20.3 - a must for a good Perl
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
608 mode.) You will not get much from XEmacs, it's syntax abilities are
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
609 too primitive.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
610
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
611 Get support packages choose-color.el (or font-lock-extra.el before
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
612 19.30), imenu-go.el from the same place. \(Look for other files there
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
613 too... ;-). Get a patch for imenu.el in 19.29. Note that for 19.30 and
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
614 later you should use choose-color.el *instead* of font-lock-extra.el
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
615 \(and you will not get smart highlighting in C :-().
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
616
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
617 Note that to enable Compile choices in the menu you need to install
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
618 mode-compile.el.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
619
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
620 If your Emacs does not default to `cperl-mode' on Perl files, and you
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
621 want it to: put the following into your .emacs file:
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
622
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
623 (defalias 'perl-mode 'cperl-mode)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
624
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
625 Get perl5-info from
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
626 $CPAN/doc/manual/info/perl-info.tar.gz
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
627 older version was on
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
628 http://www.metronet.com:70/9/perlinfo/perl5/manual/perl5-info.tar.gz
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
629
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
630 If you use imenu-go, run imenu on perl5-info buffer (you can do it
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
631 from Perl menu). If many files are related, generate TAGS files from
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
632 Tools/Tags submenu in Perl menu.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
633
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
634 If some class structure is too complicated, use Tools/Hierarchy-view
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
635 from Perl menu, or hierarchic view of imenu. The second one uses the
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
636 current buffer only, the first one requires generation of TAGS from
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
637 Perl/Tools/Tags menu beforehand.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
638
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
639 Run Perl/Tools/Insert-spaces-if-needed to fix your lazy typing.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
640
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
641 Switch auto-help on/off with Perl/Tools/Auto-help.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
642
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
643 Though with contemporary Emaxen CPerl mode should maintain the correct
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
644 parsing of Perl even when editing, sometimes it may be lost. Fix this by
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
645
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
646 \\[normal-mode]
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
647
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
648 In cases of more severe confusion sometimes it is helpful to do
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
649
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
650 \\[load-library] cperl-mode RET
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
651 \\[normal-mode]
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
652
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
653 Before reporting (non-)problems look in the problem section of online
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
654 micro-docs on what I know about CPerl problems.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
655
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
656 (defvar cperl-problems 'please-ignore-this-line
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
657 "Some faces will not be shown on some versions of Emacs unless you
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
658 install choose-color.el, available from
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
659 ftp://ftp.math.ohio-state.edu/pub/users/ilya/emacs/
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
660
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
661 `fill-paragraph' on a comment may leave the point behind the
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
662 paragraph. Parsing of lines with several <<EOF is not implemented
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
663 yet.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
664
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
665 Emacs had a _very_ restricted syntax parsing engine until RMS's Emacs
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
666 20.1. Most problems below are corrected starting from this version of
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
667 Emacs, and all of them should go with RMS's version 20.3. (Or apply
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
668 patches to Emacs 19.33/34 - see tips.) XEmacs is very backward in
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
669 this respect.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
670
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
671 Note that even with newer Emacsen in some very rare cases the details
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
672 of interaction of `font-lock' and syntaxification may be not cleaned
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
673 up yet. You may get slightly different colors basing on the order of
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
674 fontification and syntaxification. Say, the initial faces is correct,
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
675 but editing the buffer breaks this.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
676
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
677 Even with older Emacsen CPerl mode tries to corrects some Emacs
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
678 misunderstandings, however, for efficiency reasons the degree of
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
679 correction is different for different operations. The partially
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
680 corrected problems are: POD sections, here-documents, regexps. The
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
681 operations are: highlighting, indentation, electric keywords, electric
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
682 braces.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
683
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
684 This may be confusing, since the regexp s#//#/#\; may be highlighted
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
685 as a comment, but it will be recognized as a regexp by the indentation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
686 code. Or the opposite case, when a pod section is highlighted, but
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
687 may break the indentation of the following code (though indentation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
688 should work if the balance of delimiters is not broken by POD).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
689
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
690 The main trick (to make $ a \"backslash\") makes constructions like
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
691 ${aaa} look like unbalanced braces. The only trick I can think of is
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
692 to insert it as $ {aaa} (legal in perl5, not in perl4).
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
693
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
694 Similar problems arise in regexps, when /(\\s|$)/ should be rewritten
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
695 as /($|\\s)/. Note that such a transposition is not always possible.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
696
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
697 The solution is to upgrade your Emacs or patch an older one. Note
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
698 that RMS's 20.2 has some bugs related to `syntax-table' text
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
699 properties. Patches are available on the main CPerl download site,
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
700 and on CPAN.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
701
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
702 If these bugs cannot be fixed on your machine (say, you have an inferior
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
703 environment and cannot recompile), you may still disable all the fancy stuff
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
704 via `cperl-use-syntax-table-text-property'." )
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
705
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
706 (defvar cperl-non-problems 'please-ignore-this-line
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
707 "As you know from `problems' section, Perl syntax is too hard for CPerl on
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
708 older Emacsen. Here is what you can do if you cannot upgrade, or if
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
709 you want to switch off these capabilities on RMS Emacs 20.2 (+patches) or 20.3
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
710 or better. Please skip this docs if you run a capable Emacs already.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
711
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
712 Most of the time, if you write your own code, you may find an equivalent
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
713 \(and almost as readable) expression (what is discussed below is usually
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
714 not relevant on newer Emacsen, since they can do it automatically).
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
715
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
716 Try to help CPerl: add comments with embedded quotes to fix CPerl
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
717 misunderstandings about the end of quotation:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
718
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
719 $a='500$'; # ';
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
720
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
721 You won't need it too often. The reason: $ \"quotes\" the following
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
722 character (this saves a life a lot of times in CPerl), thus due to
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
723 Emacs parsing rules it does not consider tick (i.e., ' ) after a
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
724 dollar as a closing one, but as a usual character. This is usually
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
725 correct, but not in the above context.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
726
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
727 Even with older Emacsen the indentation code is pretty wise. The only
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
728 drawback is that it relied on Emacs parsing to find matching
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
729 parentheses. And Emacs *could not* match parentheses in Perl 100%
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
730 correctly. So
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
731 1 if s#//#/#;
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
732 would not break indentation, but
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
733 1 if ( s#//#/# );
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
734 would. Upgrade.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
735
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
736 By similar reasons
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
737 s\"abc\"def\";
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
738 could confuse CPerl a lot.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
739
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
740 If you still get wrong indentation in situation that you think the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
741 code should be able to parse, try:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
742
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
743 a) Check what Emacs thinks about balance of your parentheses.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
744 b) Supply the code to me (IZ).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
745
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
746 Pods were treated _very_ rudimentally. Here-documents were not
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
747 treated at all (except highlighting and inhibiting indentation). Upgrade.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
748
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
749 To speed up coloring the following compromises exist:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
750 a) sub in $mypackage::sub may be highlighted.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
751 b) -z in [a-z] may be highlighted.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
752 c) if your regexp contains a keyword (like \"s\"), it may be highlighted.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
753
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
754
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
755 Imenu in 19.31 is broken. Set `imenu-use-keymap-menu' to t, and remove
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
756 `car' before `imenu-choose-buffer-index' in `imenu'.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
757 `imenu-add-to-menubar' in 20.2 is broken.
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
758
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
759 A lot of things on XEmacs may be broken too, judging by bug reports I
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
760 receive. Note that some releases of XEmacs are better than the others
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
761 as far as bugs reports I see are concerned.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
762
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
763 (defvar cperl-praise 'please-ignore-this-line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
764 "RMS asked me to list good things about CPerl. Here they go:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
765
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
766 0) It uses the newest `syntax-table' property ;-);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
767
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
768 1) It does 99% of Perl syntax correct (as opposed to 80-90% in Perl
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
769 mode - but the latter number may have improved too in last years) even
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
770 with old Emaxen which do not support `syntax-table' property.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
771
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
772 When using `syntax-table' property for syntax assist hints, it should
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
773 handle 99.995% of lines correct - or somesuch. It automatically
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
774 updates syntax assist hints when you edit your script.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
775
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
776 2) It is generally believed to be \"the most user-friendly Emacs
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
777 package\" whatever it may mean (I doubt that the people who say similar
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
778 things tried _all_ the rest of Emacs ;-), but this was not a lonely
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
779 voice);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
780
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
781 3) Everything is customizable, one-by-one or in a big sweep;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
782
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
783 4) It has many easily-accessable \"tools\":
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
784 a) Can run program, check syntax, start debugger;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
785 b) Can lineup vertically \"middles\" of rows, like `=' in
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
786 a = b;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
787 cc = d;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
788 c) Can insert spaces where this impoves readability (in one
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
789 interactive sweep over the buffer);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
790 d) Has support for imenu, including:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
791 1) Separate unordered list of \"interesting places\";
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
792 2) Separate TOC of POD sections;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
793 3) Separate list of packages;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
794 4) Hierarchical view of methods in (sub)packages;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
795 5) and functions (by the full name - with package);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
796 e) Has an interface to INFO docs for Perl; The interface is
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
797 very flexible, including shrink-wrapping of
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
798 documentation buffer/frame;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
799 f) Has a builtin list of one-line explanations for perl constructs.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
800 g) Can show these explanations if you stay long enough at the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
801 corresponding place (or on demand);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
802 h) Has an enhanced fontification (using 3 or 4 additional faces
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
803 comparing to font-lock - basically, different
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
804 namespaces in Perl have different colors);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
805 i) Can construct TAGS basing on its knowledge of Perl syntax,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
806 the standard menu has 6 different way to generate
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
807 TAGS (if \"by directory\", .xs files - with C-language
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
808 bindings - are included in the scan);
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
809 j) Can build a hierarchical view of classes (via imenu) basing
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
810 on generated TAGS file;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
811 k) Has electric parentheses, electric newlines, uses Abbrev
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
812 for electric logical constructs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
813 while () {}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
814 with different styles of expansion (context sensitive
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
815 to be not so bothering). Electric parentheses behave
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
816 \"as they should\" in a presence of a visible region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
817 l) Changes msb.el \"on the fly\" to insert a group \"Perl files\";
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
818 m) Can convert from
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
819 if (A) { B }
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
820 to
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
821 B if A;
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
822
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
823 n) Highlights (by user-choice) either 3-delimiters constructs
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
824 (such as tr/a/b/), or regular expressions and `y/tr';
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
825 o) Highlights trailing whitespace;
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
826 p) Is able to manipulate Perl Regular Expressions to ease
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
827 conversion to a more readable form.
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
828
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
829 5) The indentation engine was very smart, but most of tricks may be
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
830 not needed anymore with the support for `syntax-table' property. Has
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
831 progress indicator for indentation (with `imenu' loaded).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
832
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
833 6) Indent-region improves inline-comments as well; also corrects
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
834 whitespace *inside* the conditional/loop constructs.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
835
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
836 7) Fill-paragraph correctly handles multi-line comments;
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
837
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
838 8) Can switch to different indentation styles by one command, and restore
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
839 the settings present before the switch.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
840
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
841 9) When doing indentation of control constructs, may correct
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
842 line-breaks/spacing between elements of the construct.
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
843
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
844 10) Uses a linear-time algorith for indentation of regions (on Emaxen with
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
845 capable syntax engines).
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
846 ")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
847
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
848 (defvar cperl-speed 'please-ignore-this-line
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
849 "This is an incomplete compendium of what is available in other parts
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
850 of CPerl documentation. (Please inform me if I skept anything.)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
851
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
852 There is a perception that CPerl is slower than alternatives. This part
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
853 of documentation is designed to overcome this misconception.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
854
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
855 *By default* CPerl tries to enable the most comfortable settings.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
856 From most points of view, correctly working package is infinitely more
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
857 comfortable than a non-correctly working one, thus by default CPerl
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
858 prefers correctness over speed. Below is the guide how to change
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
859 settings if your preferences are different.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
860
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
861 A) Speed of loading the file. When loading file, CPerl may perform a
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
862 scan which indicates places which cannot be parsed by primitive Emacs
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
863 syntax-parsing routines, and marks them up so that either
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
864
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
865 A1) CPerl may work around these deficiencies (for big chunks, mostly
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
866 PODs and HERE-documents), or
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
867 A2) On capable Emaxen CPerl will use improved syntax-handlings
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
868 which reads mark-up hints directly.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
869
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
870 The scan in case A2 is much more comprehensive, thus may be slower.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
871
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
872 User can disable syntax-engine-helping scan of A2 by setting
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
873 `cperl-use-syntax-table-text-property'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
874 variable to nil (if it is set to t).
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
875
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
876 One can disable the scan altogether (both A1 and A2) by setting
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
877 `cperl-pod-here-scan'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
878 to nil.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
879
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
880 B) Speed of editing operations.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
881
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
882 One can add a (minor) speedup to editing operations by setting
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
883 `cperl-use-syntax-table-text-property'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
884 variable to nil (if it is set to t). This will disable
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
885 syntax-engine-helping scan, thus will make many more Perl
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
886 constructs be wrongly recognized by CPerl, thus may lead to
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
887 wrongly matched parentheses, wrong indentation, etc.
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
888
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
889 One can unset `cperl-syntaxify-unwind'. This might speed up editing
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
890 of, say, long POD sections.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
891 ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
892
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
893 (defvar cperl-tips-faces 'please-ignore-this-line
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
894 "CPerl mode uses following faces for highlighting:
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
895
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
896 `cperl-array-face' Array names
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
897 `cperl-hash-face' Hash names
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
898 `font-lock-comment-face' Comments, PODs and whatever is considered
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
899 syntaxically to be not code
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
900 `font-lock-constant-face' HERE-doc delimiters, labels, delimiters of
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
901 2-arg operators s/y/tr/ or of RExen,
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
902 `font-lock-function-name-face' Special-cased m// and s//foo/, _ as
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
903 a target of a file tests, file tests,
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
904 subroutine names at the moment of definition
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
905 (except those conflicting with Perl operators),
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
906 package names (when recognized), format names
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
907 `font-lock-keyword-face' Control flow switch constructs, declarators
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
908 `cperl-nonoverridable-face' Non-overridable keywords, modifiers of RExen
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
909 `font-lock-string-face' Strings, qw() constructs, RExen, POD sections,
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
910 literal parts and the terminator of formats
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
911 and whatever is syntaxically considered
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
912 as string literals
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
913 `font-lock-type-face' Overridable keywords
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
914 `font-lock-variable-name-face' Variable declarations, indirect array and
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
915 hash names, POD headers/item names
32422
50345ac8da59 (cperl-tips-faces): Doc fix.
Dave Love <fx@gnu.org>
parents: 32384
diff changeset
916 `cperl-invalid-face' Trailing whitespace
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
917
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
918 Note that in several situations the highlighting tries to inform about
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
919 possible confusion, such as different colors for function names in
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
920 declarations depending on what they (do not) override, or special cases
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
921 m// and s/// which do not do what one would expect them to do.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
922
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
923 Help with best setup of these faces for printout requested (for each of
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
924 the faces: please specify bold, italic, underline, shadow and box.)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
925
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
926 \(Not finished.)")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
927
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
928
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
929
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
930 ;;; Portability stuff:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
931
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
932 (defconst cperl-xemacs-p (string-match "XEmacs\\|Lucid" emacs-version))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
933
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
934 (defmacro cperl-define-key (emacs-key definition &optional xemacs-key)
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
935 `(define-key cperl-mode-map
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
936 ,(if xemacs-key
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
937 `(if cperl-xemacs-p ,xemacs-key ,emacs-key)
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
938 emacs-key)
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 24836
diff changeset
939 ,definition))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
940
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
941 (defvar cperl-del-back-ch
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
942 (car (append (where-is-internal 'delete-backward-char)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
943 (where-is-internal 'backward-delete-char-untabify)))
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
944 "Character generated by key bound to `delete-backward-char'.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
945
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
946 (and (vectorp cperl-del-back-ch) (= (length cperl-del-back-ch) 1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
947 (setq cperl-del-back-ch (aref cperl-del-back-ch 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
948
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
949 (defun cperl-mark-active () (mark)) ; Avoid undefined warning
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
950 (if cperl-xemacs-p
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
951 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
952 ;; "Active regions" are on: use region only if active
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
953 ;; "Active regions" are off: use region unconditionally
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
954 (defun cperl-use-region-p ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
955 (if zmacs-regions (mark) t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
956 (defun cperl-use-region-p ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
957 (if transient-mark-mode mark-active t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
958 (defun cperl-mark-active () mark-active))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
959
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
960 (defsubst cperl-enable-font-lock ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
961 (or cperl-xemacs-p window-system))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
962
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
963 (defun cperl-putback-char (c) ; Emacs 19
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
964 (set 'unread-command-events (list c))) ; Avoid undefined warning
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
965
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
966 (if (boundp 'unread-command-events)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
967 (if cperl-xemacs-p
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
968 (defun cperl-putback-char (c) ; XEmacs >= 19.12
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
969 (setq unread-command-events (list (eval '(character-to-event c))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
970 (defun cperl-putback-char (c) ; XEmacs <= 19.11
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
971 (set 'unread-command-event (eval '(character-to-event c))))) ; Avoid warnings
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
972
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
973 (or (fboundp 'uncomment-region)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
974 (defun uncomment-region (beg end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
975 (interactive "r")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
976 (comment-region beg end -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
977
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
978 (defvar cperl-do-not-fontify
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
979 (if (string< emacs-version "19.30")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
980 'fontified
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
981 'lazy-lock)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
982 "Text property which inhibits refontification.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
983
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
984 (defsubst cperl-put-do-not-fontify (from to &optional post)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
985 ;; If POST, do not do it with postponed fontification
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
986 (if (and post cperl-syntaxify-by-font-lock)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
987 nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
988 (put-text-property (max (point-min) (1- from))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
989 to cperl-do-not-fontify t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
990
20961
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
991 (defcustom cperl-mode-hook nil
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
992 "Hook run by `cperl-mode'."
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
993 :type 'hook
79530a618cd3 Commented out line 471 (miniperl entry in interpreter-mode-alist)
Stephen Eglen <stephen@gnu.org>
parents: 20953
diff changeset
994 :group 'cperl)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
995
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
996 (defvar cperl-syntax-state nil)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
997 (defvar cperl-syntax-done-to nil)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
998 (defvar cperl-emacs-can-parse (> (length (save-excursion
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
999 (parse-partial-sexp 1 1))) 9))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1000
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1001 ;; Make customization possible "in reverse"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1002 (defsubst cperl-val (symbol &optional default hairy)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1003 (cond
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1004 ((eq (symbol-value symbol) 'null) default)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1005 (cperl-hairy (or hairy t))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1006 (t (symbol-value symbol))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1007
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1008 ;;; Probably it is too late to set these guys already, but it can help later:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1009
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1010 ;;;(and cperl-clobber-mode-lists
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1011 ;;;(setq auto-mode-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1012 ;;; (append '(("\\.\\([pP][Llm]\\|al\\)$" . perl-mode)) auto-mode-alist ))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1013 ;;;(and (boundp 'interpreter-mode-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1014 ;;; (setq interpreter-mode-alist (append interpreter-mode-alist
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1015 ;;; '(("miniperl" . perl-mode))))))
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1016 (eval-when-compile
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1017 (condition-case nil
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1018 (require 'imenu)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1019 (error nil))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1020 (condition-case nil
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1021 (require 'easymenu)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1022 (error nil))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1023 (condition-case nil
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1024 (require 'etags)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1025 (error nil))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1026 (condition-case nil
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1027 (require 'timer)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1028 (error nil))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1029 (condition-case nil
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1030 (require 'man)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1031 (error nil))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1032 (condition-case nil
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1033 (require 'info)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1034 (error nil))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1035 (if (fboundp 'ps-extend-face-list)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1036 (defmacro cperl-ps-extend-face-list (arg)
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1037 `(ps-extend-face-list ,arg))
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1038 (defmacro cperl-ps-extend-face-list (arg)
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 37569
diff changeset
1039 `(error "This version of Emacs has no `ps-extend-face-list'")))
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1040 ;; Calling `cperl-enable-font-lock' below doesn't compile on XEmacs,
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1041 ;; macros instead of defsubsts don't work on Emacs, so we do the
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1042 ;; expansion manually. Any other suggestions?
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1043 (require 'cl))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1044
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1045 (defvar cperl-mode-abbrev-table nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1046 "Abbrev table in use in Cperl-mode buffers.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1047
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1048 (add-hook 'edit-var-mode-alist '(perl-mode (regexp . "^cperl-")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1049
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1050 (defvar cperl-mode-map () "Keymap used in CPerl mode.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1051
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1052 (if cperl-mode-map nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1053 (setq cperl-mode-map (make-sparse-keymap))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1054 (cperl-define-key "{" 'cperl-electric-lbrace)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1055 (cperl-define-key "[" 'cperl-electric-paren)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1056 (cperl-define-key "(" 'cperl-electric-paren)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1057 (cperl-define-key "<" 'cperl-electric-paren)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1058 (cperl-define-key "}" 'cperl-electric-brace)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1059 (cperl-define-key "]" 'cperl-electric-rparen)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1060 (cperl-define-key ")" 'cperl-electric-rparen)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1061 (cperl-define-key ";" 'cperl-electric-semi)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1062 (cperl-define-key ":" 'cperl-electric-terminator)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1063 (cperl-define-key "\C-j" 'newline-and-indent)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1064 (cperl-define-key "\C-c\C-j" 'cperl-linefeed)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1065 (cperl-define-key "\C-c\C-t" 'cperl-invert-if-unless)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1066 (cperl-define-key "\C-c\C-a" 'cperl-toggle-auto-newline)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1067 (cperl-define-key "\C-c\C-k" 'cperl-toggle-abbrev)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1068 (cperl-define-key "\C-c\C-w" 'cperl-toggle-construct-fix)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1069 (cperl-define-key "\C-c\C-f" 'auto-fill-mode)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1070 (cperl-define-key "\C-c\C-e" 'cperl-toggle-electric)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1071 (cperl-define-key "\C-c\C-ha" 'cperl-toggle-autohelp)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1072 (cperl-define-key "\e\C-q" 'cperl-indent-exp) ; Usually not bound
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1073 (cperl-define-key [?\C-\M-\|] 'cperl-lineup
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1074 [(control meta |)])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1075 ;;(cperl-define-key "\M-q" 'cperl-fill-paragraph)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1076 ;;(cperl-define-key "\e;" 'cperl-indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1077 (cperl-define-key "\177" 'cperl-electric-backspace)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1078 (cperl-define-key "\t" 'cperl-indent-command)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1079 ;; don't clobber the backspace binding:
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1080 (cperl-define-key "\C-c\C-hF" 'cperl-info-on-command
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1081 [(control c) (control h) F])
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1082 (if (cperl-val 'cperl-clobber-lisp-bindings)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1083 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1084 (cperl-define-key "\C-hf"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1085 ;;(concat (char-to-string help-char) "f") ; does not work
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1086 'cperl-info-on-command
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1087 [(control h) f])
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1088 (cperl-define-key "\C-hv"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1089 ;;(concat (char-to-string help-char) "v") ; does not work
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1090 'cperl-get-help
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1091 [(control h) v])
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1092 (cperl-define-key "\C-c\C-hf"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1093 ;;(concat (char-to-string help-char) "f") ; does not work
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1094 (key-binding "\C-hf")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1095 [(control c) (control h) f])
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1096 (cperl-define-key "\C-c\C-hv"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1097 ;;(concat (char-to-string help-char) "v") ; does not work
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1098 (key-binding "\C-hv")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1099 [(control c) (control h) v]))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1100 (cperl-define-key "\C-c\C-hf" 'cperl-info-on-current-command
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1101 [(control c) (control h) f])
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1102 (cperl-define-key "\C-c\C-hv"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1103 ;;(concat (char-to-string help-char) "v") ; does not work
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1104 'cperl-get-help
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1105 [(control c) (control h) v]))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1106 (if (and cperl-xemacs-p
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1107 (<= emacs-minor-version 11) (<= emacs-major-version 19))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1108 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1109 ;; substitute-key-definition is usefulness-deenhanced...
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1110 (cperl-define-key "\M-q" 'cperl-fill-paragraph)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1111 (cperl-define-key "\e;" 'cperl-indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1112 (cperl-define-key "\e\C-\\" 'cperl-indent-region))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1113 (substitute-key-definition
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1114 'indent-sexp 'cperl-indent-exp
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1115 cperl-mode-map global-map)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1116 (substitute-key-definition
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1117 'fill-paragraph 'cperl-fill-paragraph
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1118 cperl-mode-map global-map)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1119 (substitute-key-definition
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1120 'indent-region 'cperl-indent-region
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1121 cperl-mode-map global-map)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1122 (substitute-key-definition
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1123 'indent-for-comment 'cperl-indent-for-comment
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1124 cperl-mode-map global-map)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1125
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1126 (defvar cperl-menu)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1127 (defvar cperl-lazy-installed)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1128 (defvar cperl-old-style nil)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1129 (condition-case nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1130 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1131 (require 'easymenu)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1132 (easy-menu-define cperl-menu cperl-mode-map "Menu for CPerl mode"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1133 '("Perl"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1134 ["Beginning of function" beginning-of-defun t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1135 ["End of function" end-of-defun t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1136 ["Mark function" mark-defun t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1137 ["Indent expression" cperl-indent-exp t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1138 ["Fill paragraph/comment" cperl-fill-paragraph t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1139 "----"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1140 ["Line up a construction" cperl-lineup (cperl-use-region-p)]
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1141 ["Invert if/unless/while etc" cperl-invert-if-unless t]
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1142 ("Regexp"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1143 ["Beautify" cperl-beautify-regexp
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1144 cperl-use-syntax-table-text-property]
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1145 ["Beautify one level deep" (cperl-beautify-regexp 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1146 cperl-use-syntax-table-text-property]
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1147 ["Beautify a group" cperl-beautify-level
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1148 cperl-use-syntax-table-text-property]
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1149 ["Beautify a group one level deep" (cperl-beautify-level 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1150 cperl-use-syntax-table-text-property]
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1151 ["Contract a group" cperl-contract-level
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1152 cperl-use-syntax-table-text-property]
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1153 ["Contract groups" cperl-contract-levels
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1154 cperl-use-syntax-table-text-property])
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1155 ["Refresh \"hard\" constructions" cperl-find-pods-heres t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1156 "----"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1157 ["Indent region" cperl-indent-region (cperl-use-region-p)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1158 ["Comment region" cperl-comment-region (cperl-use-region-p)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1159 ["Uncomment region" cperl-uncomment-region (cperl-use-region-p)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1160 "----"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1161 ["Run" mode-compile (fboundp 'mode-compile)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1162 ["Kill" mode-compile-kill (and (fboundp 'mode-compile-kill)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1163 (get-buffer "*compilation*"))]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1164 ["Next error" next-error (get-buffer "*compilation*")]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1165 ["Check syntax" cperl-check-syntax (fboundp 'mode-compile)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1166 "----"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1167 ["Debugger" cperl-db t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1168 "----"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1169 ("Tools"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1170 ["Imenu" imenu (fboundp 'imenu)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1171 ["Insert spaces if needed" cperl-find-bad-style t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1172 ["Class Hierarchy from TAGS" cperl-tags-hier-init t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1173 ;;["Update classes" (cperl-tags-hier-init t) tags-table-list]
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1174 ["CPerl pretty print (exprmntl)" cperl-ps-print
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1175 (fboundp 'ps-extend-face-list)]
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1176 ["Imenu on info" cperl-imenu-on-info (featurep 'imenu)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1177 ("Tags"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1178 ;;; ["Create tags for current file" cperl-etags t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1179 ;;; ["Add tags for current file" (cperl-etags t) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1180 ;;; ["Create tags for Perl files in directory" (cperl-etags nil t) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1181 ;;; ["Add tags for Perl files in directory" (cperl-etags t t) t]
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1182 ;;; ["Create tags for Perl files in (sub)directories"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1183 ;;; (cperl-etags nil 'recursive) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1184 ;;; ["Add tags for Perl files in (sub)directories"
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1185 ;;; (cperl-etags t 'recursive) t])
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1186 ;;;; cperl-write-tags (&optional file erase recurse dir inbuffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1187 ["Create tags for current file" (cperl-write-tags nil t) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1188 ["Add tags for current file" (cperl-write-tags) t]
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1189 ["Create tags for Perl files in directory"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1190 (cperl-write-tags nil t nil t) t]
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1191 ["Add tags for Perl files in directory"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1192 (cperl-write-tags nil nil nil t) t]
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1193 ["Create tags for Perl files in (sub)directories"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1194 (cperl-write-tags nil t t t) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1195 ["Add tags for Perl files in (sub)directories"
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1196 (cperl-write-tags nil nil t t) t]))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1197 ("Perl docs"
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1198 ["Define word at point" imenu-go-find-at-position
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1199 (fboundp 'imenu-go-find-at-position)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1200 ["Help on function" cperl-info-on-command t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1201 ["Help on function at point" cperl-info-on-current-command t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1202 ["Help on symbol at point" cperl-get-help t]
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1203 ["Perldoc" cperl-perldoc t]
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1204 ["Perldoc on word at point" cperl-perldoc-at-point t]
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1205 ["View manpage of POD in this file" cperl-pod-to-manpage t]
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1206 ["Auto-help on" cperl-lazy-install
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1207 (and (fboundp 'run-with-idle-timer)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1208 (not cperl-lazy-installed))]
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1209 ["Auto-help off" (eval '(cperl-lazy-unstall))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1210 (and (fboundp 'run-with-idle-timer)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1211 cperl-lazy-installed)])
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1212 ("Toggle..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1213 ["Auto newline" cperl-toggle-auto-newline t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1214 ["Electric parens" cperl-toggle-electric t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1215 ["Electric keywords" cperl-toggle-abbrev t]
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1216 ["Fix whitespace on indent" cperl-toggle-construct-fix t]
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1217 ["Auto fill" auto-fill-mode t])
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1218 ("Indent styles..."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1219 ["CPerl" (cperl-set-style "CPerl") t]
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1220 ["PerlStyle" (cperl-set-style "PerlStyle") t]
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1221 ["GNU" (cperl-set-style "GNU") t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1222 ["C++" (cperl-set-style "C++") t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1223 ["FSF" (cperl-set-style "FSF") t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1224 ["BSD" (cperl-set-style "BSD") t]
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1225 ["Whitesmith" (cperl-set-style "Whitesmith") t]
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1226 ["Current" (cperl-set-style "Current") t]
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1227 ["Memorized" (cperl-set-style-back) cperl-old-style])
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1228 ("Micro-docs"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1229 ["Tips" (describe-variable 'cperl-tips) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1230 ["Problems" (describe-variable 'cperl-problems) t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1231 ["Non-problems" (describe-variable 'cperl-non-problems) t]
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1232 ["Speed" (describe-variable 'cperl-speed) t]
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1233 ["Praise" (describe-variable 'cperl-praise) t]
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1234 ["Faces" (describe-variable 'cperl-tips-faces) t]
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1235 ["CPerl mode" (describe-function 'cperl-mode) t]
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1236 ["CPerl version"
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1237 (message "The version of master-file for this CPerl is %s"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1238 cperl-version) t]))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1239 (error nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1240
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1241 (autoload 'c-macro-expand "cmacexp"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1242 "Display the result of expanding all C macros occurring in the region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1243 The expansion is entirely correct because it uses the C preprocessor."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1244 t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1245
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1246 (defvar cperl-mode-syntax-table nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1247 "Syntax table in use in Cperl-mode buffers.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1248
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1249 (defvar cperl-string-syntax-table nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1250 "Syntax table in use in Cperl-mode string-like chunks.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1251
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1252 (if cperl-mode-syntax-table
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1253 ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1254 (setq cperl-mode-syntax-table (make-syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1255 (modify-syntax-entry ?\\ "\\" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1256 (modify-syntax-entry ?/ "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1257 (modify-syntax-entry ?* "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1258 (modify-syntax-entry ?+ "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1259 (modify-syntax-entry ?- "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1260 (modify-syntax-entry ?= "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1261 (modify-syntax-entry ?% "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1262 (modify-syntax-entry ?< "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1263 (modify-syntax-entry ?> "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1264 (modify-syntax-entry ?& "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1265 (modify-syntax-entry ?$ "\\" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1266 (modify-syntax-entry ?\n ">" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1267 (modify-syntax-entry ?# "<" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1268 (modify-syntax-entry ?' "\"" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1269 (modify-syntax-entry ?` "\"" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1270 (if cperl-under-as-char
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1271 (modify-syntax-entry ?_ "w" cperl-mode-syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1272 (modify-syntax-entry ?: "_" cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1273 (modify-syntax-entry ?| "." cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1274 (setq cperl-string-syntax-table (copy-syntax-table cperl-mode-syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1275 (modify-syntax-entry ?$ "." cperl-string-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1276 (modify-syntax-entry ?# "." cperl-string-syntax-table) ; (?# comment )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1277 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1278
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1279
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1280
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1281 (defvar cperl-faces-init nil)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1282 ;; Fix for msb.el
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1283 (defvar cperl-msb-fixed nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1284 ;;;###autoload
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1285 (defun cperl-mode ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1286 "Major mode for editing Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1287 Expression and list commands understand all C brackets.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1288 Tab indents for Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1289 Paragraphs are separated by blank lines only.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1290 Delete converts tabs to spaces as it moves back.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1291
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1292 Various characters in Perl almost always come in pairs: {}, (), [],
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1293 sometimes <>. When the user types the first, she gets the second as
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1294 well, with optional special formatting done on {}. (Disabled by
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1295 default.) You can always quote (with \\[quoted-insert]) the left
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1296 \"paren\" to avoid the expansion. The processing of < is special,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1297 since most the time you mean \"less\". Cperl mode tries to guess
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1298 whether you want to type pair <>, and inserts is if it
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1299 appropriate. You can set `cperl-electric-parens-string' to the string that
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1300 contains the parenths from the above list you want to be electrical.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1301 Electricity of parenths is controlled by `cperl-electric-parens'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1302 You may also set `cperl-electric-parens-mark' to have electric parens
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1303 look for active mark and \"embrace\" a region if possible.'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1304
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1305 CPerl mode provides expansion of the Perl control constructs:
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1306
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1307 if, else, elsif, unless, while, until, continue, do,
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1308 for, foreach, formy and foreachmy.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1309
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1310 and POD directives (Disabled by default, see `cperl-electric-keywords'.)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1311
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1312 The user types the keyword immediately followed by a space, which
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1313 causes the construct to be expanded, and the point is positioned where
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1314 she is most likely to want to be. eg. when the user types a space
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1315 following \"if\" the following appears in the buffer: if () { or if ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1316 } { } and the cursor is between the parentheses. The user can then
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1317 type some boolean expression within the parens. Having done that,
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1318 typing \\[cperl-linefeed] places you - appropriately indented - on a
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1319 new line between the braces (if you typed \\[cperl-linefeed] in a POD
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1320 directive line, then appropriate number of new lines is inserted).
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1321
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1322 If CPerl decides that you want to insert \"English\" style construct like
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1323
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1324 bite if angry;
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1325
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1326 it will not do any expansion. See also help on variable
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1327 `cperl-extra-newline-before-brace'. (Note that one can switch the
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1328 help message on expansion by setting `cperl-message-electric-keyword'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1329 to nil.)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1330
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1331 \\[cperl-linefeed] is a convenience replacement for typing carriage
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1332 return. It places you in the next line with proper indentation, or if
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1333 you type it inside the inline block of control construct, like
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1334
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1335 foreach (@lines) {print; print}
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1336
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1337 and you are on a boundary of a statement inside braces, it will
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1338 transform the construct into a multiline and will place you into an
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1339 appropriately indented blank line. If you need a usual
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1340 `newline-and-indent' behaviour, it is on \\[newline-and-indent],
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1341 see documentation on `cperl-electric-linefeed'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1342
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1343 Use \\[cperl-invert-if-unless] to change a construction of the form
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1344
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1345 if (A) { B }
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1346
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1347 into
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1348
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1349 B if A;
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1350
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1351 \\{cperl-mode-map}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1352
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1353 Setting the variable `cperl-font-lock' to t switches on font-lock-mode
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1354 \(even with older Emacsen), `cperl-electric-lbrace-space' to t switches
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1355 on electric space between $ and {, `cperl-electric-parens-string' is
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1356 the string that contains parentheses that should be electric in CPerl
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1357 \(see also `cperl-electric-parens-mark' and `cperl-electric-parens'),
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1358 setting `cperl-electric-keywords' enables electric expansion of
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1359 control structures in CPerl. `cperl-electric-linefeed' governs which
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1360 one of two linefeed behavior is preferable. You can enable all these
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1361 options simultaneously (recommended mode of use) by setting
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1362 `cperl-hairy' to t. In this case you can switch separate options off
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1363 by setting them to `null'. Note that one may undo the extra
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1364 whitespace inserted by semis and braces in `auto-newline'-mode by
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1365 consequent \\[cperl-electric-backspace].
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1366
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1367 If your site has perl5 documentation in info format, you can use commands
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1368 \\[cperl-info-on-current-command] and \\[cperl-info-on-command] to access it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1369 These keys run commands `cperl-info-on-current-command' and
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1370 `cperl-info-on-command', which one is which is controlled by variable
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1371 `cperl-info-on-command-no-prompt' and `cperl-clobber-lisp-bindings'
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1372 \(in turn affected by `cperl-hairy').
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1373
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1374 Even if you have no info-format documentation, short one-liner-style
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1375 help is available on \\[cperl-get-help], and one can run perldoc or
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1376 man via menu.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1377
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1378 It is possible to show this help automatically after some idle time.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1379 This is regulated by variable `cperl-lazy-help-time'. Default with
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1380 `cperl-hairy' (if the value of `cperl-lazy-help-time' is nil) is 5
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1381 secs idle time . It is also possible to switch this on/off from the
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1382 menu, or via \\[cperl-toggle-autohelp]. Requires `run-with-idle-timer'.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1383
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1384 Use \\[cperl-lineup] to vertically lineup some construction - put the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1385 beginning of the region at the start of construction, and make region
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1386 span the needed amount of lines.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1387
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1388 Variables `cperl-pod-here-scan', `cperl-pod-here-fontify',
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1389 `cperl-pod-face', `cperl-pod-head-face' control processing of pod and
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1390 here-docs sections. With capable Emaxen results of scan are used
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1391 for indentation too, otherwise they are used for highlighting only.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1392
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1393 Variables controlling indentation style:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1394 `cperl-tab-always-indent'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1395 Non-nil means TAB in CPerl mode should always reindent the current line,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1396 regardless of where in the line point is when the TAB command is used.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1397 `cperl-indent-left-aligned-comments'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1398 Non-nil means that the comment starting in leftmost column should indent.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1399 `cperl-auto-newline'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1400 Non-nil means automatically newline before and after braces,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1401 and after colons and semicolons, inserted in Perl code. The following
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1402 \\[cperl-electric-backspace] will remove the inserted whitespace.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1403 Insertion after colons requires both this variable and
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1404 `cperl-auto-newline-after-colon' set.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1405 `cperl-auto-newline-after-colon'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1406 Non-nil means automatically newline even after colons.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1407 Subject to `cperl-auto-newline' setting.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1408 `cperl-indent-level'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1409 Indentation of Perl statements within surrounding block.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1410 The surrounding block's indentation is the indentation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1411 of the line on which the open-brace appears.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1412 `cperl-continued-statement-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1413 Extra indentation given to a substatement, such as the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1414 then-clause of an if, or body of a while, or just a statement continuation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1415 `cperl-continued-brace-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1416 Extra indentation given to a brace that starts a substatement.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1417 This is in addition to `cperl-continued-statement-offset'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1418 `cperl-brace-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1419 Extra indentation for line if it starts with an open brace.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1420 `cperl-brace-imaginary-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1421 An open brace following other text is treated as if it the line started
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1422 this far to the right of the actual line indentation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1423 `cperl-label-offset'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1424 Extra indentation for line that is a label.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1425 `cperl-min-label-indent'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1426 Minimal indentation for line that is a label.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1427
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1428 Settings for K&R and BSD indentation styles are
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1429 `cperl-indent-level' 5 8
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1430 `cperl-continued-statement-offset' 5 8
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1431 `cperl-brace-offset' -5 -8
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1432 `cperl-label-offset' -5 -8
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1433
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1434 CPerl knows several indentation styles, and may bulk set the
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1435 corresponding variables. Use \\[cperl-set-style] to do this. Use
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1436 \\[cperl-set-style-back] to restore the memorized preexisting values
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1437 \(both available from menu).
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1438
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1439 If `cperl-indent-level' is 0, the statement after opening brace in
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1440 column 0 is indented on
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1441 `cperl-brace-offset'+`cperl-continued-statement-offset'.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1442
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1443 Turning on CPerl mode calls the hooks in the variable `cperl-mode-hook'
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1444 with no args.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1445
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1446 DO NOT FORGET to read micro-docs (available from `Perl' menu)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1447 or as help on variables `cperl-tips', `cperl-problems',
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1448 `cperl-non-problems', `cperl-praise', `cperl-speed'."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1449 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1450 (kill-all-local-variables)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1451 (use-local-map cperl-mode-map)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1452 (if (cperl-val 'cperl-electric-linefeed)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1453 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1454 (local-set-key "\C-J" 'cperl-linefeed)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1455 (local-set-key "\C-C\C-J" 'newline-and-indent)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1456 (if (and
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1457 (cperl-val 'cperl-clobber-lisp-bindings)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1458 (cperl-val 'cperl-info-on-command-no-prompt))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1459 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1460 ;; don't clobber the backspace binding:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1461 (cperl-define-key "\C-hf" 'cperl-info-on-current-command [(control h) f])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1462 (cperl-define-key "\C-c\C-hf" 'cperl-info-on-command
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1463 [(control c) (control h) f])))
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
1464 (setq major-mode 'cperl-mode)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1465 (setq mode-name "CPerl")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1466 (if (not cperl-mode-abbrev-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1467 (let ((prev-a-c abbrevs-changed))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1468 (define-abbrev-table 'cperl-mode-abbrev-table '(
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1469 ("if" "if" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1470 ("elsif" "elsif" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1471 ("while" "while" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1472 ("until" "until" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1473 ("unless" "unless" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1474 ("else" "else" cperl-electric-else 0)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1475 ("continue" "continue" cperl-electric-else 0)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1476 ("for" "for" cperl-electric-keyword 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1477 ("foreach" "foreach" cperl-electric-keyword 0)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1478 ("formy" "formy" cperl-electric-keyword 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1479 ("foreachmy" "foreachmy" cperl-electric-keyword 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1480 ("do" "do" cperl-electric-keyword 0)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1481 ("=pod" "=pod" cperl-electric-pod 0)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1482 ("=over" "=over" cperl-electric-pod 0)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1483 ("=head1" "=head1" cperl-electric-pod 0)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1484 ("=head2" "=head2" cperl-electric-pod 0)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1485 ("pod" "pod" cperl-electric-pod 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1486 ("over" "over" cperl-electric-pod 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1487 ("head1" "head1" cperl-electric-pod 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1488 ("head2" "head2" cperl-electric-pod 0)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1489 (setq abbrevs-changed prev-a-c)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1490 (setq local-abbrev-table cperl-mode-abbrev-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1491 (abbrev-mode (if (cperl-val 'cperl-electric-keywords) 1 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1492 (set-syntax-table cperl-mode-syntax-table)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1493 (make-local-variable 'outline-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1494 ;; (setq outline-regexp imenu-example--function-name-regexp-perl)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1495 (setq outline-regexp cperl-outline-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1496 (make-local-variable 'outline-level)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1497 (setq outline-level 'cperl-outline-level)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1498 (make-local-variable 'paragraph-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1499 (setq paragraph-start (concat "^$\\|" page-delimiter))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1500 (make-local-variable 'paragraph-separate)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1501 (setq paragraph-separate paragraph-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1502 (make-local-variable 'paragraph-ignore-fill-prefix)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1503 (setq paragraph-ignore-fill-prefix t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1504 (make-local-variable 'indent-line-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1505 (setq indent-line-function 'cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1506 (make-local-variable 'require-final-newline)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1507 (setq require-final-newline t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1508 (make-local-variable 'comment-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1509 (setq comment-start "# ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1510 (make-local-variable 'comment-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1511 (setq comment-end "")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1512 (make-local-variable 'comment-column)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1513 (setq comment-column cperl-comment-column)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1514 (make-local-variable 'comment-start-skip)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1515 (setq comment-start-skip "#+ *")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1516 (make-local-variable 'defun-prompt-regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1517 (setq defun-prompt-regexp "^[ \t]*sub[ \t]+\\([^ \t\n{(;]+\\)[ \t]*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1518 (make-local-variable 'comment-indent-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1519 (setq comment-indent-function 'cperl-comment-indent)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1520 (make-local-variable 'parse-sexp-ignore-comments)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1521 (setq parse-sexp-ignore-comments t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1522 (make-local-variable 'indent-region-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1523 (setq indent-region-function 'cperl-indent-region)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1524 ;;(setq auto-fill-function 'cperl-do-auto-fill) ; Need to switch on and off!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1525 (make-local-variable 'imenu-create-index-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1526 (setq imenu-create-index-function
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1527 (function cperl-imenu--create-perl-index))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1528 (make-local-variable 'imenu-sort-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1529 (setq imenu-sort-function nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1530 (make-local-variable 'vc-header-alist)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1531 (set 'vc-header-alist cperl-vc-header-alist) ; Avoid warning
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1532 (make-local-variable 'font-lock-defaults)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1533 (setq font-lock-defaults
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1534 (cond
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1535 ((string< emacs-version "19.30")
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
1536 '(cperl-font-lock-keywords-2))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1537 ((string< emacs-version "19.33") ; Which one to use?
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
1538 '((cperl-font-lock-keywords
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
1539 cperl-font-lock-keywords-1
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
1540 cperl-font-lock-keywords-2)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1541 (t
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1542 '((cperl-load-font-lock-keywords
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1543 cperl-load-font-lock-keywords-1
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1544 cperl-load-font-lock-keywords-2)))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1545 (make-local-variable 'cperl-syntax-state)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1546 (if cperl-use-syntax-table-text-property
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1547 (progn
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
1548 (make-local-variable 'parse-sexp-lookup-properties)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1549 ;; Do not introduce variable if not needed, we check it!
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1550 (set 'parse-sexp-lookup-properties t)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1551 ;; Fix broken font-lock:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1552 (or (boundp 'font-lock-unfontify-region-function)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1553 (set 'font-lock-unfontify-region-function
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1554 'font-lock-default-unfontify-region))
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
1555 (make-local-variable 'font-lock-unfontify-region-function)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1556 (set 'font-lock-unfontify-region-function
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1557 'cperl-font-lock-unfontify-region-function)
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
1558 (make-local-variable 'cperl-syntax-done-to)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1559 ;; Another bug: unless font-lock-syntactic-keywords, font-lock
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1560 ;; ignores syntax-table text-property. (t) is a hack
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1561 ;; to make font-lock think that font-lock-syntactic-keywords
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1562 ;; are defined
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
1563 (make-local-variable 'font-lock-syntactic-keywords)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1564 (setq font-lock-syntactic-keywords
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1565 (if cperl-syntaxify-by-font-lock
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1566 '(t (cperl-fontify-syntaxically))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1567 '(t)))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1568 (make-local-variable 'cperl-old-style)
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
1569 (set (make-local-variable 'normal-auto-fill-function)
32880
4092dea6659b (cperl-mode): Set
Dave Love <fx@gnu.org>
parents: 32422
diff changeset
1570 #'cperl-do-auto-fill)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1571 (if (cperl-enable-font-lock)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1572 (if (cperl-val 'cperl-font-lock)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1573 (progn (or cperl-faces-init (cperl-init-faces))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1574 (font-lock-mode 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1575 (and (boundp 'msb-menu-cond)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1576 (not cperl-msb-fixed)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1577 (cperl-msb-fix))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1578 (if (featurep 'easymenu)
22392
7300e6ab99d2 (cperl-problems): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 22391
diff changeset
1579 (easy-menu-add cperl-menu)) ; A NOP in Emacs.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1580 (run-hooks 'cperl-mode-hook)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1581 ;; After hooks since fontification will break this
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1582 (if cperl-pod-here-scan
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1583 (or ;;(and (boundp 'font-lock-mode)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1584 ;; (eval 'font-lock-mode) ; Avoid warning
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1585 ;; (boundp 'font-lock-hot-pass) ; Newer font-lock
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1586 cperl-syntaxify-by-font-lock ;;)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1587 (progn (or cperl-faces-init (cperl-init-faces-weak))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1588 (cperl-find-pods-heres)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1589
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1590 ;; Fix for perldb - make default reasonable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1591 (defun cperl-db ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1592 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1593 (require 'gud)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1594 (perldb (read-from-minibuffer "Run perldb (like this): "
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1595 (if (consp gud-perldb-history)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1596 (car gud-perldb-history)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1597 (concat "perl " ;;(file-name-nondirectory
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1598 ;; I have problems
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1599 ;; in OS/2
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1600 ;; otherwise
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1601 (buffer-file-name)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1602 nil nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1603 '(gud-perldb-history . 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1604
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1605 (defun cperl-msb-fix ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1606 ;; Adds perl files to msb menu, supposes that msb is already loaded
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1607 (setq cperl-msb-fixed t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1608 (let* ((l (length msb-menu-cond))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1609 (last (nth (1- l) msb-menu-cond))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1610 (precdr (nthcdr (- l 2) msb-menu-cond)) ; cdr of this is last
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1611 (handle (1- (nth 1 last))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1612 (setcdr precdr (list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1613 (list
36602
4bcc2745d610 (cperl-msb-fix, cperl-get-help-defer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36601
diff changeset
1614 '(memq major-mode '(cperl-mode perl-mode))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1615 handle
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1616 "Perl Files (%d)")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1617 last))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1618
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1619 ;; This is used by indent-for-comment
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1620 ;; to decide how much to indent a comment in CPerl code
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1621 ;; based on its context. Do fallback if comment is found wrong.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1622
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1623 (defvar cperl-wrong-comment)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1624 (defvar cperl-st-cfence '(14)) ; Comment-fence
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1625 (defvar cperl-st-sfence '(15)) ; String-fence
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1626 (defvar cperl-st-punct '(1))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1627 (defvar cperl-st-word '(2))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1628 (defvar cperl-st-bra '(4 . ?\>))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1629 (defvar cperl-st-ket '(5 . ?\<))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1630
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1631
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1632 (defun cperl-comment-indent ()
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1633 (let ((p (point)) (c (current-column)) was phony)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1634 (if (looking-at "^#") 0 ; Existing comment at bol stays there.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1635 ;; Wrong comment found
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1636 (save-excursion
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1637 (setq was (cperl-to-comment-or-eol)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1638 phony (eq (get-text-property (point) 'syntax-table)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1639 cperl-st-cfence))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1640 (if phony
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1641 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1642 (re-search-forward "#\\|$") ; Hmm, what about embedded #?
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1643 (if (eq (preceding-char) ?\#)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1644 (forward-char -1))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1645 (setq was nil)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1646 (if (= (point) p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1647 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1648 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1649 (max (1+ (current-column)) ; Else indent at comment column
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1650 comment-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1651 (if was nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1652 (insert comment-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1653 (backward-char (length comment-start)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1654 (setq cperl-wrong-comment t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1655 (indent-to comment-column 1) ; Indent minimum 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1656 c))))) ; except leave at least one space.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1657
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1658 ;;;(defun cperl-comment-indent-fallback ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1659 ;;; "Is called if the standard comment-search procedure fails.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1660 ;;;Point is at start of real comment."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1661 ;;; (let ((c (current-column)) target cnt prevc)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1662 ;;; (if (= c comment-column) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1663 ;;; (setq cnt (skip-chars-backward "[ \t]"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1664 ;;; (setq target (max (1+ (setq prevc
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1665 ;;; (current-column))) ; Else indent at comment column
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1666 ;;; comment-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1667 ;;; (if (= c comment-column) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1668 ;;; (delete-backward-char cnt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1669 ;;; (while (< prevc target)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1670 ;;; (insert "\t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1671 ;;; (setq prevc (current-column)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1672 ;;; (if (> prevc target) (progn (delete-char -1) (setq prevc (current-column))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1673 ;;; (while (< prevc target)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1674 ;;; (insert " ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1675 ;;; (setq prevc (current-column)))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1676
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1677 (defun cperl-indent-for-comment ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1678 "Substitute for `indent-for-comment' in CPerl."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1679 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1680 (let (cperl-wrong-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1681 (indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1682 (if cperl-wrong-comment
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1683 (progn (cperl-to-comment-or-eol)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1684 (forward-char (length comment-start))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1685
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1686 (defun cperl-comment-region (b e arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1687 "Comment or uncomment each line in the region in CPerl mode.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1688 See `comment-region'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1689 (interactive "r\np")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1690 (let ((comment-start "#"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1691 (comment-region b e arg)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1692
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1693 (defun cperl-uncomment-region (b e arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1694 "Uncomment or comment each line in the region in CPerl mode.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1695 See `comment-region'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1696 (interactive "r\np")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1697 (let ((comment-start "#"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1698 (comment-region b e (- arg))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1699
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1700 (defvar cperl-brace-recursing nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1701
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1702 (defun cperl-electric-brace (arg &optional only-before)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1703 "Insert character and correct line's indentation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1704 If ONLY-BEFORE and `cperl-auto-newline', will insert newline before the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1705 place (even in empty line), but not after. If after \")\" and the inserted
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1706 char is \"{\", insert extra newline before only if
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1707 `cperl-extra-newline-before-brace'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1708 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1709 (let (insertpos
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1710 (other-end (if (and cperl-electric-parens-mark
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1711 (cperl-mark-active)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1712 (< (mark) (point)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1713 (mark)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1714 nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1715 (if (and other-end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1716 (not cperl-brace-recursing)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1717 (cperl-val 'cperl-electric-parens)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1718 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1719 ;; Need to insert a matching pair
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1720 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1721 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1722 (setq insertpos (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1723 (goto-char other-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1724 (setq last-command-char ?\{)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1725 (cperl-electric-lbrace arg insertpos))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1726 (forward-char 1))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1727 ;: Check whether we close something "usual" with `}'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1728 (if (and (eq last-command-char ?\})
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1729 (not
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1730 (condition-case nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1731 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1732 (up-list (- (prefix-numeric-value arg)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1733 ;;(cperl-after-block-p (point-min))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1734 (cperl-after-expr-p nil "{;)"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1735 (error nil))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1736 ;; Just insert the guy
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1737 (self-insert-command (prefix-numeric-value arg))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1738 (if (and (not arg) ; No args, end (of empty line or auto)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1739 (eolp)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1740 (or (and (null only-before)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1741 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1742 (skip-chars-backward " \t")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1743 (bolp)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1744 (and (eq last-command-char ?\{) ; Do not insert newline
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1745 ;; if after ")" and `cperl-extra-newline-before-brace'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1746 ;; is nil, do not insert extra newline.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1747 (not cperl-extra-newline-before-brace)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1748 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1749 (skip-chars-backward " \t")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1750 (eq (preceding-char) ?\))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1751 (if cperl-auto-newline
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1752 (progn (cperl-indent-line) (newline) t) nil)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1753 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1754 (self-insert-command (prefix-numeric-value arg))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1755 (cperl-indent-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1756 (if cperl-auto-newline
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1757 (setq insertpos (1- (point))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1758 (if (and cperl-auto-newline (null only-before))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1759 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1760 (newline)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1761 (cperl-indent-line)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1762 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1763 (if insertpos (progn (goto-char insertpos)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1764 (search-forward (make-string
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1765 1 last-command-char))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1766 (setq insertpos (1- (point)))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1767 (delete-char -1))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1768 (if insertpos
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1769 (save-excursion
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1770 (goto-char insertpos)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1771 (self-insert-command (prefix-numeric-value arg)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1772 (self-insert-command (prefix-numeric-value arg)))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1773
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1774 (defun cperl-electric-lbrace (arg &optional end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1775 "Insert character, correct line's indentation, correct quoting by space."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1776 (interactive "P")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1777 (let (pos after
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1778 (cperl-brace-recursing t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1779 (cperl-auto-newline cperl-auto-newline)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1780 (other-end (or end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1781 (if (and cperl-electric-parens-mark
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1782 (cperl-mark-active)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1783 (> (mark) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1784 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1785 (goto-char (mark))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1786 (point-marker))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1787 nil))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1788 (and (cperl-val 'cperl-electric-lbrace-space)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1789 (eq (preceding-char) ?$)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1790 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1791 (skip-chars-backward "$")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1792 (looking-at "\\(\\$\\$\\)*\\$\\([^\\$]\\|$\\)"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1793 (insert ?\ ))
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
1794 ;; Check whether we are in comment
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1795 (if (and
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
1796 (save-excursion
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
1797 (beginning-of-line)
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
1798 (not (looking-at "[ \t]*#")))
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
1799 (cperl-after-expr-p nil "{;)"))
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
1800 nil
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
1801 (setq cperl-auto-newline nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1802 (cperl-electric-brace arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1803 (and (cperl-val 'cperl-electric-parens)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1804 (eq last-command-char ?{)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1805 (memq last-command-char
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1806 (append cperl-electric-parens-string nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1807 (or (if other-end (goto-char (marker-position other-end)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1808 t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1809 (setq last-command-char ?} pos (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1810 (progn (cperl-electric-brace arg t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1811 (goto-char pos)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1812
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1813 (defun cperl-electric-paren (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1814 "Insert a matching pair of parentheses."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1815 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1816 (let ((beg (save-excursion (beginning-of-line) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1817 (other-end (if (and cperl-electric-parens-mark
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1818 (cperl-mark-active)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1819 (> (mark) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1820 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1821 (goto-char (mark))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1822 (point-marker))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1823 nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1824 (if (and (cperl-val 'cperl-electric-parens)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1825 (memq last-command-char
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1826 (append cperl-electric-parens-string nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1827 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1828 ;;(not (save-excursion (search-backward "#" beg t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1829 (if (eq last-command-char ?<)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1830 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1831 (and abbrev-mode ; later it is too late, may be after `for'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1832 (expand-abbrev))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1833 (cperl-after-expr-p nil "{;(,:="))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1834 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1835 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1836 (self-insert-command (prefix-numeric-value arg))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1837 (if other-end (goto-char (marker-position other-end)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1838 (insert (make-string
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1839 (prefix-numeric-value arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1840 (cdr (assoc last-command-char '((?{ .?})
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1841 (?[ . ?])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1842 (?( . ?))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1843 (?< . ?>))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1844 (forward-char (- (prefix-numeric-value arg))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1845 (self-insert-command (prefix-numeric-value arg)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1846
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1847 (defun cperl-electric-rparen (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1848 "Insert a matching pair of parentheses if marking is active.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1849 If not, or if we are not at the end of marking range, would self-insert."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1850 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1851 (let ((beg (save-excursion (beginning-of-line) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1852 (other-end (if (and cperl-electric-parens-mark
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1853 (cperl-val 'cperl-electric-parens)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1854 (memq last-command-char
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1855 (append cperl-electric-parens-string nil))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1856 (cperl-mark-active)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1857 (< (mark) (point)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1858 (mark)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1859 nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1860 p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1861 (if (and other-end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1862 (cperl-val 'cperl-electric-parens)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1863 (memq last-command-char '( ?\) ?\] ?\} ?\> ))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1864 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1865 ;;(not (save-excursion (search-backward "#" beg t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1866 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1867 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1868 (self-insert-command (prefix-numeric-value arg))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1869 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1870 (if other-end (goto-char other-end))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1871 (insert (make-string
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1872 (prefix-numeric-value arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1873 (cdr (assoc last-command-char '((?\} . ?\{)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1874 (?\] . ?\[)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1875 (?\) . ?\()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1876 (?\> . ?\<))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1877 (goto-char (1+ p)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1878 (self-insert-command (prefix-numeric-value arg)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1879
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1880 (defun cperl-electric-keyword ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1881 "Insert a construction appropriate after a keyword.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1882 Help message may be switched off by setting `cperl-message-electric-keyword'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1883 to nil."
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1884 (let ((beg (save-excursion (beginning-of-line) (point)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1885 (dollar (and (eq last-command-char ?$)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1886 (eq this-command 'self-insert-command)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1887 (delete (and (memq last-command-char '(?\ ?\n ?\t ?\f))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1888 (memq this-command '(self-insert-command newline))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1889 my do)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1890 (and (save-excursion
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1891 (condition-case nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1892 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1893 (backward-sexp 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1894 (setq do (looking-at "do\\>")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1895 (error nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1896 (cperl-after-expr-p nil "{;:"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1897 (save-excursion
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1898 (not
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1899 (re-search-backward
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1900 "[#\"'`]\\|\\<q\\(\\|[wqxr]\\)\\>"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1901 beg t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1902 (save-excursion (or (not (re-search-backward "^=" nil t))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1903 (or
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1904 (looking-at "=cut")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1905 (and cperl-use-syntax-table-text-property
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1906 (not (eq (get-text-property (point)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1907 'syntax-type)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1908 'pod))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1909 (progn
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1910 (and (eq (preceding-char) ?y)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1911 (progn ; "foreachmy"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1912 (forward-char -2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1913 (insert " ")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1914 (forward-char 2)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1915 (setq my t dollar t
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1916 delete
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1917 (memq this-command '(self-insert-command newline)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1918 (and dollar (insert " $"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1919 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1920 ;;(insert " () {\n}")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1921 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1922 (cperl-extra-newline-before-brace
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1923 (insert (if do "\n" " ()\n"))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1924 (insert "{")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1925 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1926 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1927 (cperl-indent-line)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1928 (insert "\n}")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1929 (and do (insert " while ();")))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1930 (t
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1931 (insert (if do " {\n} while ();" " () {\n}")))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1932 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1933 (or (looking-at "[ \t]\\|$") (insert " "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1934 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1935 (if dollar (progn (search-backward "$")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1936 (if my
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1937 (forward-char 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1938 (delete-char 1)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1939 (search-backward ")"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1940 (if delete
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1941 (cperl-putback-char cperl-del-back-ch))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1942 (if cperl-message-electric-keyword
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1943 (message "Precede char by C-q to avoid expansion"))))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1944
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1945 (defun cperl-ensure-newlines (n &optional pos)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1946 "Make sure there are N newlines after the point."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1947 (or pos (setq pos (point)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1948 (if (looking-at "\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1949 (forward-char 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1950 (insert "\n"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1951 (if (> n 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1952 (cperl-ensure-newlines (1- n) pos)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1953 (goto-char pos)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1954
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1955 (defun cperl-electric-pod ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1956 "Insert a POD chunk appropriate after a =POD directive."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1957 (let ((delete (and (memq last-command-char '(?\ ?\n ?\t ?\f))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1958 (memq this-command '(self-insert-command newline))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1959 head1 notlast name p really-delete over)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1960 (and (save-excursion
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1961 (forward-word -1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1962 (and
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1963 (eq (preceding-char) ?=)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1964 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1965 (setq head1 (looking-at "head1\\>[ \t]*$"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1966 (setq over (and (looking-at "over\\>[ \t]*$")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1967 (not (looking-at "over[ \t]*\n\n\n*=item\\>"))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1968 (forward-char -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1969 (bolp))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
1970 (or
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
1971 (get-text-property (point) 'in-pod)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1972 (cperl-after-expr-p nil "{;:")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1973 (and (re-search-backward
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1974 ;; "\\(\\`\n?\\|\n\n\\)=\\sw+"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1975 "\\(\\`\n?\\|^\n\\)=\\sw+"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1976 (point-min) t)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1977 (not (or
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1978 (looking-at "=cut")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1979 (and cperl-use-syntax-table-text-property
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1980 (not (eq (get-text-property (point) 'syntax-type)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1981 'pod)))))))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1982 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1983 (save-excursion
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1984 (setq notlast (re-search-forward "^\n=" nil t)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1985 (or notlast
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1986 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1987 (insert "\n\n=cut")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1988 (cperl-ensure-newlines 2)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1989 (forward-word -2)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1990 (if (and head1
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1991 (not
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1992 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1993 (forward-char -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1994 (re-search-backward "\\(\\`\n?\\|\n\n\\)=head1\\>"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1995 nil t)))) ; Only one
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1996 (progn
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
1997 (forward-word 1)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1998 (setq name (file-name-sans-extension
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
1999 (file-name-nondirectory (buffer-file-name)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2000 p (point))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2001 (insert " NAME\n\n" name
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
2002 " - \n\n=head1 SYNOPSIS\n\n\n\n"
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2003 "=head1 DESCRIPTION")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2004 (cperl-ensure-newlines 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2005 (goto-char p)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2006 (forward-word 2)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2007 (end-of-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2008 (setq really-delete t))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2009 (forward-word 1))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2010 (if over
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2011 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2012 (setq p (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2013 (insert "\n\n=item \n\n\n\n"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2014 "=back")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2015 (cperl-ensure-newlines 2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2016 (goto-char p)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2017 (forward-word 1)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2018 (end-of-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2019 (setq really-delete t)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2020 (if (and delete really-delete)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2021 (cperl-putback-char cperl-del-back-ch))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2022
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2023 (defun cperl-electric-else ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2024 "Insert a construction appropriate after a keyword.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2025 Help message may be switched off by setting `cperl-message-electric-keyword'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2026 to nil."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2027 (let ((beg (save-excursion (beginning-of-line) (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2028 (and (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2029 (backward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2030 (cperl-after-expr-p nil "{;:"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2031 (save-excursion
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2032 (not
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2033 (re-search-backward
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2034 "[#\"'`]\\|\\<q\\(\\|[wqxr]\\)\\>"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2035 beg t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2036 (save-excursion (or (not (re-search-backward "^=" nil t))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2037 (looking-at "=cut")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2038 (and cperl-use-syntax-table-text-property
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2039 (not (eq (get-text-property (point)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2040 'syntax-type)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2041 'pod)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2042 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2043 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2044 ;;(insert " {\n\n}")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2045 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2046 (cperl-extra-newline-before-brace
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2047 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2048 (insert "{")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2049 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2050 (insert "\n\n}"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2051 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2052 (insert " {\n\n}"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2053 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2054 (or (looking-at "[ \t]\\|$") (insert " "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2055 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2056 (forward-line -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2057 (cperl-indent-line)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2058 (cperl-putback-char cperl-del-back-ch)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2059 (setq this-command 'cperl-electric-else)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2060 (if cperl-message-electric-keyword
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2061 (message "Precede char by C-q to avoid expansion"))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2062
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2063 (defun cperl-linefeed ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2064 "Go to end of line, open a new line and indent appropriately.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2065 If in POD, insert appropriate lines."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2066 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2067 (let ((beg (save-excursion (beginning-of-line) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2068 (end (save-excursion (end-of-line) (point)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2069 (pos (point)) start over cut res)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2070 (if (and ; Check if we need to split:
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2071 ; i.e., on a boundary and inside "{...}"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2072 (save-excursion (cperl-to-comment-or-eol)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2073 (>= (point) pos)) ; Not in a comment
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2074 (or (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2075 (skip-chars-backward " \t" beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2076 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2077 (looking-at "[;{]")) ; After { or ; + spaces
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2078 (looking-at "[ \t]*}") ; Before }
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2079 (re-search-forward "\\=[ \t]*;" end t)) ; Before spaces + ;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2080 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2081 (and
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2082 (eq (car (parse-partial-sexp pos end -1)) -1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2083 ; Leave the level of parens
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2084 (looking-at "[,; \t]*\\($\\|#\\)") ; Comma to allow anon subr
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2085 ; Are at end
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2086 (cperl-after-block-p (point-min))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2087 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2088 (backward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2089 (setq start (point-marker))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2090 (<= start pos))))) ; Redundant? Are after the
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2091 ; start of parens group.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2092 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2093 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2094 (or (memq (preceding-char) (append ";{" nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2095 (insert ";"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2096 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2097 (forward-line -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2098 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2099 (goto-char start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2100 (or (looking-at "{[ \t]*$") ; If there is a statement
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2101 ; before, move it to separate line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2102 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2103 (forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2104 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2105 (cperl-indent-line)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2106 (forward-line 1) ; We are on the target line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2107 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2108 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2109 (or (looking-at "[ \t]*}[,; \t]*$") ; If there is a statement
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2110 ; after, move it to separate line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2111 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2112 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2113 (search-backward "}" beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2114 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2115 (or (memq (preceding-char) (append ";{" nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2116 (insert ";"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2117 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2118 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2119 (forward-line -1)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2120 (forward-line -1) ; We are on the line before target
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2121 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2122 (newline-and-indent))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2123 (end-of-line) ; else - no splitting
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2124 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2125 ((and (looking-at "\n[ \t]*{$")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2126 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2127 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2128 (eq (preceding-char) ?\)))) ; Probably if () {} group
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2129 ; with an extra newline.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2130 (forward-line 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2131 (cperl-indent-line))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2132 ((save-excursion ; In POD header
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2133 (forward-paragraph -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2134 ;; (re-search-backward "\\(\\`\n?\\|\n\n\\)=head1\\b")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2135 ;; We are after \n now, so look for the rest
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2136 (if (looking-at "\\(\\`\n?\\|\n\\)=\\sw+")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2137 (progn
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2138 (setq cut (looking-at "\\(\\`\n?\\|\n\\)=cut\\>"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2139 (setq over (looking-at "\\(\\`\n?\\|\n\\)=over\\>"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2140 t)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2141 (if (and over
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2142 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2143 (forward-paragraph -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2144 (forward-word 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2145 (setq pos (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2146 (setq cut (buffer-substring (point)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2147 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2148 (end-of-line)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2149 (point))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2150 (delete-char (- (save-excursion (end-of-line) (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2151 (point)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2152 (setq res (expand-abbrev))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2153 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2154 (goto-char pos)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2155 (insert cut))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2156 res))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2157 nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2158 (cperl-ensure-newlines (if cut 2 4))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2159 (forward-line 2)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2160 ((get-text-property (point) 'in-pod) ; In POD section
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2161 (cperl-ensure-newlines 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2162 (forward-line 2))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2163 ((looking-at "\n[ \t]*$") ; Next line is empty - use it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2164 (forward-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2165 (cperl-indent-line))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2166 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2167 (newline-and-indent))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2168
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2169 (defun cperl-electric-semi (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2170 "Insert character and correct line's indentation."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2171 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2172 (if cperl-auto-newline
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2173 (cperl-electric-terminator arg)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2174 (self-insert-command (prefix-numeric-value arg))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2175 (if cperl-autoindent-on-semi
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2176 (cperl-indent-line))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2177
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2178 (defun cperl-electric-terminator (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2179 "Insert character and correct line's indentation."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2180 (interactive "P")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2181 (let (insertpos (end (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2182 (auto (and cperl-auto-newline
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2183 (or (not (eq last-command-char ?:))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2184 cperl-auto-newline-after-colon))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2185 (if (and ;;(not arg)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2186 (eolp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2187 (not (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2188 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2189 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2190 (or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2191 ;; Ignore in comment lines
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2192 (= (following-char) ?#)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2193 ;; Colon is special only after a label
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2194 ;; So quickly rule out most other uses of colon
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2195 ;; and do no indentation for them.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2196 (and (eq last-command-char ?:)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2197 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2198 (forward-word 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2199 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2200 (and (< (point) end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2201 (progn (goto-char (- end 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2202 (not (looking-at ":"))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2203 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2204 (beginning-of-defun)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2205 (let ((pps (parse-partial-sexp (point) end)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2206 (or (nth 3 pps) (nth 4 pps) (nth 5 pps))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2207 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2208 (self-insert-command (prefix-numeric-value arg))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2209 ;;(forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2210 (if auto (setq insertpos (point-marker)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2211 ;;(forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2212 (cperl-indent-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2213 (if auto
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2214 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2215 (newline)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2216 (cperl-indent-line)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2217 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2218 (if insertpos (goto-char (1- (marker-position insertpos)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2219 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2220 (delete-char 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2221 (if insertpos
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2222 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2223 (goto-char insertpos)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2224 (self-insert-command (prefix-numeric-value arg)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2225 (self-insert-command (prefix-numeric-value arg)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2226
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2227 (defun cperl-electric-backspace (arg)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2228 "Backspace-untabify, or remove the whitespace around the point inserted
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2229 by an electric key."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2230 (interactive "p")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2231 (if (and cperl-auto-newline
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2232 (memq last-command '(cperl-electric-semi
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2233 cperl-electric-terminator
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2234 cperl-electric-lbrace))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2235 (memq (preceding-char) '(?\ ?\t ?\n)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2236 (let (p)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2237 (if (eq last-command 'cperl-electric-lbrace)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2238 (skip-chars-forward " \t\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2239 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2240 (skip-chars-backward " \t\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2241 (delete-region (point) p))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2242 (and (eq last-command 'cperl-electric-else)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2243 ;; We are removing the whitespace *inside* cperl-electric-else
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2244 (setq this-command 'cperl-electric-else-really))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2245 (if (and cperl-auto-newline
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2246 (eq last-command 'cperl-electric-else-really)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2247 (memq (preceding-char) '(?\ ?\t ?\n)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2248 (let (p)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2249 (skip-chars-forward " \t\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2250 (setq p (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2251 (skip-chars-backward " \t\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2252 (delete-region (point) p))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2253 (backward-delete-char-untabify arg))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2254
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2255 (defun cperl-inside-parens-p ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2256 (condition-case ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2257 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2258 (save-restriction
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2259 (narrow-to-region (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2260 (progn (beginning-of-defun) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2261 (goto-char (point-max))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2262 (= (char-after (or (scan-lists (point) -1 1) (point-min))) ?\()))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2263 (error nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2264
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2265 (defun cperl-indent-command (&optional whole-exp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2266 "Indent current line as Perl code, or in some cases insert a tab character.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2267 If `cperl-tab-always-indent' is non-nil (the default), always indent current
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2268 line. Otherwise, indent the current line only if point is at the left margin
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2269 or in the line's indentation; otherwise insert a tab.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2270
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2271 A numeric argument, regardless of its value,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2272 means indent rigidly all the lines of the expression starting after point
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2273 so that this line becomes properly indented.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2274 The relative indentation among the lines of the expression are preserved."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2275 (interactive "P")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2276 (cperl-update-syntaxification (point) (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2277 (if whole-exp
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2278 ;; If arg, always indent this line as Perl
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2279 ;; and shift remaining lines of expression the same amount.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2280 (let ((shift-amt (cperl-indent-line))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2281 beg end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2282 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2283 (if cperl-tab-always-indent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2284 (beginning-of-line))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2285 (setq beg (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2286 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2287 (setq end (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2288 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2289 (forward-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2290 (setq beg (point)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2291 (if (and shift-amt (> end beg))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2292 (indent-code-rigidly beg end shift-amt "#")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2293 (if (and (not cperl-tab-always-indent)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2294 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2295 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2296 (not (bolp))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2297 (insert-tab)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2298 (cperl-indent-line))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2299
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2300 (defun cperl-indent-line (&optional parse-data)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2301 "Indent current line as Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2302 Return the amount the indentation changed by."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2303 (let (indent i beg shift-amt
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2304 (case-fold-search nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2305 (pos (- (point-max) (point))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2306 (setq indent (cperl-calculate-indent parse-data)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2307 i indent)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2308 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2309 (setq beg (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2310 (cond ((or (eq indent nil) (eq indent t))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2311 (setq indent (current-indentation) i nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2312 ;;((eq indent t) ; Never?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2313 ;; (setq indent (cperl-calculate-indent-within-comment)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2314 ;;((looking-at "[ \t]*#")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2315 ;; (setq indent 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2316 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2317 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2318 (if (listp indent) (setq indent (car indent)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2319 (cond ((looking-at "[A-Za-z_][A-Za-z_0-9]*:[^:]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2320 (and (> indent 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2321 (setq indent (max cperl-min-label-indent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2322 (+ indent cperl-label-offset)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2323 ((= (following-char) ?})
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2324 (setq indent (- indent cperl-indent-level)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2325 ((memq (following-char) '(?\) ?\])) ; To line up with opening paren.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2326 (setq indent (+ indent cperl-close-paren-offset)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2327 ((= (following-char) ?{)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2328 (setq indent (+ indent cperl-brace-offset))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2329 (skip-chars-forward " \t")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2330 (setq shift-amt (and i (- indent (current-column))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2331 (if (or (not shift-amt)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2332 (zerop shift-amt))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2333 (if (> (- (point-max) pos) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2334 (goto-char (- (point-max) pos)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2335 (delete-region beg (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2336 (indent-to indent)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2337 ;; If initial point was within line's indentation,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2338 ;; position after the indentation. Else stay at same point in text.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2339 (if (> (- (point-max) pos) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2340 (goto-char (- (point-max) pos))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2341 shift-amt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2342
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2343 (defun cperl-after-label ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2344 ;; Returns true if the point is after label. Does not do save-excursion.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2345 (and (eq (preceding-char) ?:)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2346 (memq (char-syntax (char-after (- (point) 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2347 '(?w ?_))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2348 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2349 (backward-sexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2350 (looking-at "[a-zA-Z_][a-zA-Z0-9_]*:[^:]"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2351
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2352 (defun cperl-get-state (&optional parse-start start-state)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2353 ;; returns list (START STATE DEPTH PRESTART),
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2354 ;; START is a good place to start parsing, or equal to
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2355 ;; PARSE-START if preset,
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2356 ;; STATE is what is returned by `parse-partial-sexp'.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2357 ;; DEPTH is true is we are immediately after end of block
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2358 ;; which contains START.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2359 ;; PRESTART is the position basing on which START was found.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2360 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2361 (let ((start-point (point)) depth state start prestart)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2362 (if (and parse-start
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2363 (<= parse-start start-point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2364 (goto-char parse-start)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2365 (beginning-of-defun)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2366 (setq start-state nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2367 (setq prestart (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2368 (if start-state nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2369 ;; Try to go out, if sub is not on the outermost level
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2370 (while (< (point) start-point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2371 (setq start (point) parse-start start depth nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2372 state (parse-partial-sexp start start-point -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2373 (if (> (car state) -1) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2374 ;; The current line could start like }}}, so the indentation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2375 ;; corresponds to a different level than what we reached
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2376 (setq depth t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2377 (beginning-of-line 2))) ; Go to the next line.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2378 (if start (goto-char start))) ; Not at the start of file
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2379 (setq start (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2380 (or state (setq state (parse-partial-sexp start start-point -1 nil start-state)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2381 (list start state depth prestart))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2382
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2383 (defun cperl-block-p () ; Do not C-M-q ! One string contains ";" !
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2384 ;; Positions is before ?\{. Checks whether it starts a block.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2385 ;; No save-excursion!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2386 (cperl-backward-to-noncomment (point-min))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2387 (or (memq (preceding-char) (append ";){}$@&%\C-@" nil)) ; Or label! \C-@ at bobp
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2388 ; Label may be mixed up with `$blah :'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2389 (save-excursion (cperl-after-label))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2390 (and (memq (char-syntax (preceding-char)) '(?w ?_))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2391 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2392 (backward-sexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2393 ;; Need take into account `bless', `return', `tr',...
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2394 (or (and (looking-at "[a-zA-Z0-9_:]+[ \t\n\f]*[{#]") ; Method call syntax
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2395 (not (looking-at "\\(bless\\|return\\|q[wqrx]?\\|tr\\|[smy]\\)\\>")))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2396 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2397 (skip-chars-backward " \t\n\f")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2398 (and (memq (char-syntax (preceding-char)) '(?w ?_))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2399 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2400 (backward-sexp)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2401 (looking-at
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2402 "sub[ \t]+[a-zA-Z0-9_:]+[ \t\n\f]*\\(([^()]*)[ \t\n\f]*\\)?[#{]")))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2403
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2404 (defvar cperl-look-for-prop '((pod in-pod) (here-doc-delim here-doc-group)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2405
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2406 (defun cperl-calculate-indent (&optional parse-data) ; was parse-start
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2407 "Return appropriate indentation for current line as Perl code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2408 In usual case returns an integer: the column to indent to.
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2409 Returns nil if line starts inside a string, t if in a comment.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2410
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2411 Will not correct the indentation for labels, but will correct it for braces
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2412 and closing parentheses and brackets.."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2413 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2414 (if (or
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2415 (and (memq (get-text-property (point) 'syntax-type)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2416 '(pod here-doc here-doc-delim format))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2417 (not (get-text-property (point) 'indentable)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2418 ;; before start of POD - whitespace found since do not have 'pod!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2419 (and (looking-at "[ \t]*\n=")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2420 (error "Spaces before pod section!"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2421 (and (not cperl-indent-left-aligned-comments)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2422 (looking-at "^#")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2423 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2424 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2425 (let ((indent-point (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2426 (char-after (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2427 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2428 (following-char)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2429 (in-pod (get-text-property (point) 'in-pod))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2430 (pre-indent-point (point))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2431 p prop look-prop is-block delim)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2432 (cond
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2433 (in-pod
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2434 ;; In the verbatim part, probably code example. What to do???
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2435 )
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2436 (t
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2437 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2438 ;; Not in pod
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2439 (cperl-backward-to-noncomment nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2440 (setq p (max (point-min) (1- (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2441 prop (get-text-property p 'syntax-type)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2442 look-prop (or (nth 1 (assoc prop cperl-look-for-prop))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2443 'syntax-type))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2444 (if (memq prop '(pod here-doc format here-doc-delim))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2445 (progn
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2446 (goto-char (or (previous-single-property-change p look-prop)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2447 (point-min)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2448 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2449 (setq pre-indent-point (point)))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2450 (goto-char pre-indent-point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2451 (let* ((case-fold-search nil)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2452 (s-s (cperl-get-state (car parse-data) (nth 1 parse-data)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2453 (start (or (nth 2 parse-data)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2454 (nth 0 s-s)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2455 (state (nth 1 s-s))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2456 (containing-sexp (car (cdr state)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2457 old-indent)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2458 (if (and
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2459 ;;containing-sexp ;; We are buggy at toplevel :-(
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2460 parse-data)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2461 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2462 (setcar parse-data pre-indent-point)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2463 (setcar (cdr parse-data) state)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2464 (or (nth 2 parse-data)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2465 (setcar (cddr parse-data) start))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2466 ;; Before this point: end of statement
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2467 (setq old-indent (nth 3 parse-data))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2468 (cond ((get-text-property (point) 'indentable)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2469 ;; indent to just after the surrounding open,
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2470 ;; skip blanks if we do not close the expression.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2471 (goto-char (1+ (previous-single-property-change (point) 'indentable)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2472 (or (memq char-after (append ")]}" nil))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2473 (looking-at "[ \t]*\\(#\\|$\\)")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2474 (skip-chars-forward " \t"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2475 (current-column))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2476 ((or (nth 3 state) (nth 4 state))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2477 ;; return nil or t if should not change this line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2478 (nth 4 state))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2479 ;; XXXX Do we need to special-case this?
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2480 ((null containing-sexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2481 ;; Line is at top level. May be data or function definition,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2482 ;; or may be function argument declaration.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2483 ;; Indent like the previous top level line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2484 ;; unless that ends in a closeparen without semicolon,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2485 ;; in which case this line is the first argument decl.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2486 (skip-chars-forward " \t")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2487 (+ (save-excursion
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2488 (goto-char start)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2489 (- (current-indentation)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2490 (if (nth 2 s-s) cperl-indent-level 0)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2491 (if (= char-after ?{) cperl-continued-brace-offset 0)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2492 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2493 (cperl-backward-to-noncomment (or old-indent (point-min)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2494 ;; Look at previous line that's at column 0
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2495 ;; to determine whether we are in top-level decls
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2496 ;; or function's arg decls. Set basic-indent accordingly.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2497 ;; Now add a little if this is a continuation line.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2498 (if (or (bobp)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2499 (eq (point) old-indent) ; old-indent was at comment
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2500 (eq (preceding-char) ?\;)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2501 ;; Had ?\) too
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2502 (and (eq (preceding-char) ?\})
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2503 (cperl-after-block-and-statement-beg
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2504 (point-min))) ; Was start - too close
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2505 (memq char-after (append ")]}" nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2506 (and (eq (preceding-char) ?\:) ; label
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2507 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2508 (forward-sexp -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2509 (skip-chars-backward " \t")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2510 (looking-at "[ \t]*[a-zA-Z_][a-zA-Z_0-9]*[ \t]*:"))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2511 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2512 (if (and parse-data
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2513 (not (eq char-after ?\C-j)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2514 (setcdr (cddr parse-data)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2515 (list pre-indent-point)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2516 0)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2517 cperl-continued-statement-offset))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2518 ((not
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2519 (or (setq is-block
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2520 (and (setq delim (= (char-after containing-sexp) ?{))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2521 (save-excursion ; Is it a hash?
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2522 (goto-char containing-sexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2523 (cperl-block-p))))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2524 cperl-indent-parens-as-block))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2525 ;; group is an expression, not a block:
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2526 ;; indent to just after the surrounding open parens,
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2527 ;; skip blanks if we do not close the expression.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2528 (goto-char (1+ containing-sexp))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2529 (or (memq char-after (append ")]}" nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2530 (looking-at "[ \t]*\\(#\\|$\\)")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2531 (skip-chars-forward " \t"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2532 (current-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2533 ((progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2534 ;; Containing-expr starts with \{. Check whether it is a hash.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2535 (goto-char containing-sexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2536 (not (cperl-block-p)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2537 (goto-char (1+ containing-sexp))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2538 (or (memq char-after
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2539 (append (if delim "}" ")]}") nil))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2540 (looking-at "[ \t]*\\(#\\|$\\)")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2541 (skip-chars-forward " \t"))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2542 (+ (current-column)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2543 (if (and delim
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2544 (eq char-after ?\}))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2545 ;; Correct indentation of trailing ?\}
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2546 (+ cperl-indent-level cperl-close-paren-offset)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2547 0)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2548 ;;; ((and (/= (char-after containing-sexp) ?{)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2549 ;;; (not cperl-indent-parens-as-block))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2550 ;;; ;; line is expression, not statement:
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2551 ;;; ;; indent to just after the surrounding open,
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2552 ;;; ;; skip blanks if we do not close the expression.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2553 ;;; (goto-char (1+ containing-sexp))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2554 ;;; (or (memq char-after (append ")]}" nil))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2555 ;;; (looking-at "[ \t]*\\(#\\|$\\)")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2556 ;;; (skip-chars-forward " \t"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2557 ;;; (current-column))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2558 ;;; ((progn
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2559 ;;; ;; Containing-expr starts with \{. Check whether it is a hash.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2560 ;;; (goto-char containing-sexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2561 ;;; (and (not (cperl-block-p))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2562 ;;; (not cperl-indent-parens-as-block)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2563 ;;; (goto-char (1+ containing-sexp))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2564 ;;; (or (eq char-after ?\})
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2565 ;;; (looking-at "[ \t]*\\(#\\|$\\)")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2566 ;;; (skip-chars-forward " \t"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2567 ;;; (+ (current-column) ; Correct indentation of trailing ?\}
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2568 ;;; (if (eq char-after ?\}) (+ cperl-indent-level
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2569 ;;; cperl-close-paren-offset)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2570 ;;; 0)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2571 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2572 ;; Statement level. Is it a continuation or a new statement?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2573 ;; Find previous non-comment character.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2574 (goto-char pre-indent-point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2575 (cperl-backward-to-noncomment containing-sexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2576 ;; Back up over label lines, since they don't
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2577 ;; affect whether our line is a continuation.
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2578 ;; (Had \, too)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2579 (while ;;(or (eq (preceding-char) ?\,)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2580 (and (eq (preceding-char) ?:)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2581 (or;;(eq (char-after (- (point) 2)) ?\') ; ????
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2582 (memq (char-syntax (char-after (- (point) 2)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2583 '(?w ?_))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2584 ;;)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2585 (if (eq (preceding-char) ?\,)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2586 ;; Will go to beginning of line, essentially.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2587 ;; Will ignore embedded sexpr XXXX.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2588 (cperl-backward-to-start-of-continued-exp containing-sexp))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2589 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2590 (cperl-backward-to-noncomment containing-sexp))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2591 ;; Now we get the answer.
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2592 (if (not (or (eq (1- (point)) containing-sexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2593 (memq (preceding-char)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2594 (append (if is-block " ;{" " ,;{") '(nil)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2595 (and (eq (preceding-char) ?\})
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2596 (cperl-after-block-and-statement-beg
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2597 containing-sexp))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2598 ;; This line is continuation of preceding line's statement;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2599 ;; indent `cperl-continued-statement-offset' more than the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2600 ;; previous line of the statement.
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2601 ;;
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2602 ;; There might be a label on this line, just
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2603 ;; consider it bad style and ignore it.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2604 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2605 (cperl-backward-to-start-of-continued-exp containing-sexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2606 (+ (if (memq char-after (append "}])" nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2607 0 ; Closing parenth
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2608 cperl-continued-statement-offset)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2609 (if (or is-block
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2610 (not delim)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2611 (not (eq char-after ?\})))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2612 0
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2613 ;; Now it is a hash reference
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2614 (+ cperl-indent-level cperl-close-paren-offset))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2615 (if (looking-at "\\w+[ \t]*:")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2616 (if (> (current-indentation) cperl-min-label-indent)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2617 (- (current-indentation) cperl-label-offset)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2618 ;; Do not move `parse-data', this should
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2619 ;; be quick anyway (this comment comes
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2620 ;;from different location):
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2621 (cperl-calculate-indent))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2622 (current-column))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2623 (if (eq char-after ?\{)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2624 cperl-continued-brace-offset 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2625 ;; This line starts a new statement.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2626 ;; Position following last unclosed open.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2627 (goto-char containing-sexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2628 ;; Is line first statement after an open-brace?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2629 (or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2630 ;; If no, find that first statement and indent like
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2631 ;; it. If the first statement begins with label, do
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2632 ;; not believe when the indentation of the label is too
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2633 ;; small.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2634 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2635 (forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2636 (setq old-indent (current-indentation))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2637 (let ((colon-line-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2638 (while (progn (skip-chars-forward " \t\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2639 (looking-at "#\\|[a-zA-Z0-9_$]*:[^:]"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2640 ;; Skip over comments and labels following openbrace.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2641 (cond ((= (following-char) ?\#)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2642 (forward-line 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2643 ;; label:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2644 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2645 (save-excursion (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2646 (setq colon-line-end (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2647 (search-forward ":"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2648 ;; The first following code counts
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2649 ;; if it is before the line we want to indent.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2650 (and (< (point) indent-point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2651 (if (> colon-line-end (point)) ; After label
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2652 (if (> (current-indentation)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2653 cperl-min-label-indent)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2654 (- (current-indentation) cperl-label-offset)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2655 ;; Do not believe: `max' is involved
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2656 (+ old-indent cperl-indent-level))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2657 (current-column)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2658 ;; If no previous statement,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2659 ;; indent it relative to line brace is on.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2660 ;; For open brace in column zero, don't let statement
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2661 ;; start there too. If cperl-indent-level is zero,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2662 ;; use cperl-brace-offset + cperl-continued-statement-offset instead.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2663 ;; For open-braces not the first thing in a line,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2664 ;; add in cperl-brace-imaginary-offset.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2665
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2666 ;; If first thing on a line: ?????
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2667 (+ (if (and (bolp) (zerop cperl-indent-level))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2668 (+ cperl-brace-offset cperl-continued-statement-offset)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2669 cperl-indent-level)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2670 (if (or is-block
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2671 (not delim)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2672 (not (eq char-after ?\})))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2673 0
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2674 ;; Now it is a hash reference
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2675 (+ cperl-indent-level cperl-close-paren-offset))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2676 ;; Move back over whitespace before the openbrace.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2677 ;; If openbrace is not first nonwhite thing on the line,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2678 ;; add the cperl-brace-imaginary-offset.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2679 (progn (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2680 (if (bolp) 0 cperl-brace-imaginary-offset))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2681 ;; If the openbrace is preceded by a parenthesized exp,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2682 ;; move to the beginning of that;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2683 ;; possibly a different line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2684 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2685 (if (eq (preceding-char) ?\))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2686 (forward-sexp -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2687 ;; In the case it starts a subroutine, indent with
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2688 ;; respect to `sub', not with respect to the the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2689 ;; first thing on the line, say in the case of
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2690 ;; anonymous sub in a hash.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2691 ;;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2692 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2693 (if (and (eq (preceding-char) ?b)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2694 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2695 (forward-sexp -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2696 (looking-at "sub\\>"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2697 (setq old-indent
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2698 (nth 1
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2699 (parse-partial-sexp
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2700 (save-excursion (beginning-of-line) (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2701 (point)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2702 (progn (goto-char (1+ old-indent))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2703 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2704 (current-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2705 ;; Get initial indentation of the line we are on.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2706 ;; If line starts with label, calculate label indentation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2707 (if (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2708 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2709 (looking-at "[ \t]*[a-zA-Z_][a-zA-Z_0-9]*:[^:]"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2710 (if (> (current-indentation) cperl-min-label-indent)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2711 (- (current-indentation) cperl-label-offset)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2712 ;; Do not move `parse-data', this should
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2713 ;; be quick anyway:
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2714 (cperl-calculate-indent))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2715 (current-indentation))))))))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2716
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2717 (defvar cperl-indent-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2718 '((string nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2719 (comment nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2720 (toplevel 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2721 (toplevel-after-parenth 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2722 (toplevel-continued 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2723 (expression 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2724 "Alist of indentation rules for CPerl mode.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2725 The values mean:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2726 nil: do not indent;
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2727 number: add this amount of indentation.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2728
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2729 Not finished, not used.")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2730
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2731 (defun cperl-where-am-i (&optional parse-start start-state)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2732 ;; Unfinished
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2733 "Return a list of lists ((TYPE POS)...) of good points before the point.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2734 POS may be nil if it is hard to find, say, when TYPE is `string' or `comment'.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2735
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
2736 Not finished, not used."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2737 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2738 (let* ((start-point (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2739 (s-s (cperl-get-state))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2740 (start (nth 0 s-s))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2741 (state (nth 1 s-s))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2742 (prestart (nth 3 s-s))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2743 (containing-sexp (car (cdr state)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2744 (case-fold-search nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2745 (res (list (list 'parse-start start) (list 'parse-prestart prestart))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2746 (cond ((nth 3 state) ; In string
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2747 (setq res (cons (list 'string nil (nth 3 state)) res))) ; What started string
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2748 ((nth 4 state) ; In comment
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2749 (setq res (cons '(comment) res)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2750 ((null containing-sexp)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2751 ;; Line is at top level.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2752 ;; Indent like the previous top level line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2753 ;; unless that ends in a closeparen without semicolon,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2754 ;; in which case this line is the first argument decl.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2755 (cperl-backward-to-noncomment (or parse-start (point-min)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2756 ;;(skip-chars-backward " \t\f\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2757 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2758 ((or (bobp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2759 (memq (preceding-char) (append ";}" nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2760 (setq res (cons (list 'toplevel start) res)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2761 ((eq (preceding-char) ?\) )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2762 (setq res (cons (list 'toplevel-after-parenth start) res)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2763 (t
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2764 (setq res (cons (list 'toplevel-continued start) res)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2765 ((/= (char-after containing-sexp) ?{)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2766 ;; line is expression, not statement:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2767 ;; indent to just after the surrounding open.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2768 ;; skip blanks if we do not close the expression.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2769 (setq res (cons (list 'expression-blanks
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2770 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2771 (goto-char (1+ containing-sexp))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2772 (or (looking-at "[ \t]*\\(#\\|$\\)")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2773 (skip-chars-forward " \t"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2774 (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2775 (cons (list 'expression containing-sexp) res))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2776 ((progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2777 ;; Containing-expr starts with \{. Check whether it is a hash.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2778 (goto-char containing-sexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2779 (not (cperl-block-p)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2780 (setq res (cons (list 'expression-blanks
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2781 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2782 (goto-char (1+ containing-sexp))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2783 (or (looking-at "[ \t]*\\(#\\|$\\)")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2784 (skip-chars-forward " \t"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2785 (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2786 (cons (list 'expression containing-sexp) res))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2787 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2788 ;; Statement level.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2789 (setq res (cons (list 'in-block containing-sexp) res))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2790 ;; Is it a continuation or a new statement?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2791 ;; Find previous non-comment character.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2792 (cperl-backward-to-noncomment containing-sexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2793 ;; Back up over label lines, since they don't
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2794 ;; affect whether our line is a continuation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2795 ;; Back up comma-delimited lines too ?????
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2796 (while (or (eq (preceding-char) ?\,)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2797 (save-excursion (cperl-after-label)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2798 (if (eq (preceding-char) ?\,)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2799 ;; Will go to beginning of line, essentially
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2800 ;; Will ignore embedded sexpr XXXX.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2801 (cperl-backward-to-start-of-continued-exp containing-sexp))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2802 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2803 (cperl-backward-to-noncomment containing-sexp))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2804 ;; Now we get the answer.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2805 (if (not (memq (preceding-char) (append ";}{" '(nil)))) ; Was ?\,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2806 ;; This line is continuation of preceding line's statement.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2807 (list (list 'statement-continued containing-sexp))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2808 ;; This line starts a new statement.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2809 ;; Position following last unclosed open.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2810 (goto-char containing-sexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2811 ;; Is line first statement after an open-brace?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2812 (or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2813 ;; If no, find that first statement and indent like
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2814 ;; it. If the first statement begins with label, do
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2815 ;; not believe when the indentation of the label is too
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2816 ;; small.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2817 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2818 (forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2819 (let ((colon-line-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2820 (while (progn (skip-chars-forward " \t\n" start-point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2821 (and (< (point) start-point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2822 (looking-at
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2823 "#\\|[a-zA-Z_][a-zA-Z0-9_]*:[^:]")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2824 ;; Skip over comments and labels following openbrace.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2825 (cond ((= (following-char) ?\#)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2826 ;;(forward-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2827 (end-of-line))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2828 ;; label:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2829 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2830 (save-excursion (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2831 (setq colon-line-end (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2832 (search-forward ":"))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2833 ;; Now at the point, after label, or at start
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2834 ;; of first statement in the block.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2835 (and (< (point) start-point)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2836 (if (> colon-line-end (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2837 ;; Before statement after label
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2838 (if (> (current-indentation)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2839 cperl-min-label-indent)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2840 (list (list 'label-in-block (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2841 ;; Do not believe: `max' is involved
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2842 (list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2843 (list 'label-in-block-min-indent (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2844 ;; Before statement
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2845 (list 'statement-in-block (point))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2846 ;; If no previous statement,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2847 ;; indent it relative to line brace is on.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2848 ;; For open brace in column zero, don't let statement
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2849 ;; start there too. If cperl-indent-level is zero,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2850 ;; use cperl-brace-offset + cperl-continued-statement-offset instead.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2851 ;; For open-braces not the first thing in a line,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2852 ;; add in cperl-brace-imaginary-offset.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2853
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2854 ;; If first thing on a line: ?????
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2855 (+ (if (and (bolp) (zerop cperl-indent-level))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2856 (+ cperl-brace-offset cperl-continued-statement-offset)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2857 cperl-indent-level)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2858 ;; Move back over whitespace before the openbrace.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2859 ;; If openbrace is not first nonwhite thing on the line,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2860 ;; add the cperl-brace-imaginary-offset.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2861 (progn (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2862 (if (bolp) 0 cperl-brace-imaginary-offset))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2863 ;; If the openbrace is preceded by a parenthesized exp,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2864 ;; move to the beginning of that;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2865 ;; possibly a different line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2866 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2867 (if (eq (preceding-char) ?\))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2868 (forward-sexp -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2869 ;; Get initial indentation of the line we are on.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2870 ;; If line starts with label, calculate label indentation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2871 (if (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2872 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2873 (looking-at "[ \t]*[a-zA-Z_][a-zA-Z_0-9]*:[^:]"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2874 (if (> (current-indentation) cperl-min-label-indent)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2875 (- (current-indentation) cperl-label-offset)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2876 (cperl-calculate-indent))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2877 (current-indentation))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2878 res)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2879
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2880 (defun cperl-calculate-indent-within-comment ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2881 "Return the indentation amount for line, assuming that
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2882 the current line is to be regarded as part of a block comment."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2883 (let (end star-start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2884 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2885 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2886 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2887 (setq end (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2888 (and (= (following-char) ?#)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2889 (forward-line -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2890 (cperl-to-comment-or-eol)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2891 (setq end (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2892 (goto-char end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2893 (current-column))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2894
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2895
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2896 (defun cperl-to-comment-or-eol ()
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
2897 "Go to position before comment on the current line, or to end of line.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2898 Returns true if comment is found."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2899 (let (state stop-in cpoint (lim (progn (end-of-line) (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2900 (beginning-of-line)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2901 (if (or
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2902 (eq (get-text-property (point) 'syntax-type) 'pod)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2903 (re-search-forward "\\=[ \t]*\\(#\\|$\\)" lim t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2904 (if (eq (preceding-char) ?\#) (progn (backward-char 1) t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2905 ;; Else
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2906 (while (not stop-in)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2907 (setq state (parse-partial-sexp (point) lim nil nil nil t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2908 ; stop at comment
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2909 ;; If fails (beginning-of-line inside sexp), then contains not-comment
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2910 (if (nth 4 state) ; After `#';
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2911 ; (nth 2 state) can be
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2912 ; beginning of m,s,qq and so
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2913 ; on
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2914 (if (nth 2 state)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2915 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2916 (setq cpoint (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2917 (goto-char (nth 2 state))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2918 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2919 ((looking-at "\\(s\\|tr\\)\\>")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2920 (or (re-search-forward
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2921 "\\=\\w+[ \t]*#\\([^\n\\\\#]\\|\\\\[\\\\#]\\)*#\\([^\n\\\\#]\\|\\\\[\\\\#]\\)*"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2922 lim 'move)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2923 (setq stop-in t)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2924 ((looking-at "\\(m\\|q\\([qxwr]\\)?\\)\\>")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2925 (or (re-search-forward
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2926 "\\=\\w+[ \t]*#\\([^\n\\\\#]\\|\\\\[\\\\#]\\)*#"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2927 lim 'move)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2928 (setq stop-in t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2929 (t ; It was fair comment
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2930 (setq stop-in t) ; Finish
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2931 (goto-char (1- cpoint)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2932 (setq stop-in t) ; Finish
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2933 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2934 (setq stop-in t)) ; Finish
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2935 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2936 (nth 4 state))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2937
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2938 (defsubst cperl-1- (p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2939 (max (point-min) (1- p)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2940
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2941 (defsubst cperl-1+ (p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2942 (min (point-max) (1+ p)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2943
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2944 (defsubst cperl-modify-syntax-type (at how)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2945 (if (< at (point-max))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2946 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2947 (put-text-property at (1+ at) 'syntax-table how)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2948 (put-text-property at (1+ at) 'rear-nonsticky t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2949
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2950 (defun cperl-protect-defun-start (s e)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2951 ;; C code looks for "^\\s(" to skip comment backward in "hard" situations
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2952 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2953 (goto-char s)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2954 (while (re-search-forward "^\\s(" e 'to-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2955 (put-text-property (1- (point)) (point) 'syntax-table cperl-st-punct))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2956
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2957 (defun cperl-commentify (bb e string &optional noface)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2958 (if cperl-use-syntax-table-text-property
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2959 (if (eq noface 'n) ; Only immediate
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2960 nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2961 ;; We suppose that e is _after_ the end of construction, as after eol.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2962 (setq string (if string cperl-st-sfence cperl-st-cfence))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2963 (if (> bb (- e 2))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2964 ;; one-char string/comment?!
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2965 (cperl-modify-syntax-type bb cperl-st-punct)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2966 (cperl-modify-syntax-type bb string)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2967 (cperl-modify-syntax-type (1- e) string))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2968 (if (and (eq string cperl-st-sfence) (> (- e 2) bb))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2969 (put-text-property (1+ bb) (1- e)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2970 'syntax-table cperl-string-syntax-table))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2971 (cperl-protect-defun-start bb e))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2972 ;; Fontify
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2973 (or noface
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2974 (not cperl-pod-here-fontify)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2975 (put-text-property bb e 'face (if string 'font-lock-string-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2976 'font-lock-comment-face)))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2977
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2978 (defvar cperl-starters '(( ?\( . ?\) )
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2979 ( ?\[ . ?\] )
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2980 ( ?\{ . ?\} )
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2981 ( ?\< . ?\> )))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2982
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2983 (defun cperl-forward-re (lim end is-2arg set-st st-l err-l argument
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2984 &optional ostart oend)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2985 ;; Works *before* syntax recognition is done
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2986 ;; May modify syntax-type text property if the situation is too hard
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
2987 (let (b starter ender st i i2 go-forward reset-st)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2988 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2989 ;; ender means matching-char matcher.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
2990 (setq b (point)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2991 starter (if (eobp) 0 (char-after b))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
2992 ender (cdr (assoc starter cperl-starters)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2993 ;; What if starter == ?\\ ????
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2994 (if set-st
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2995 (if (car st-l)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2996 (setq st (car st-l))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2997 (setcar st-l (make-syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2998 (setq i 0 st (car st-l))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2999 (while (< i 256)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3000 (modify-syntax-entry i "." st)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3001 (setq i (1+ i)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3002 (modify-syntax-entry ?\\ "\\" st)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3003 (setq set-st t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3004 ;; Whether we have an intermediate point
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3005 (setq i nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3006 ;; Prepare the syntax table:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3007 (and set-st
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3008 (if (not ender) ; m/blah/, s/x//, s/x/y/
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3009 (modify-syntax-entry starter "$" st)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3010 (modify-syntax-entry starter (concat "(" (list ender)) st)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3011 (modify-syntax-entry ender (concat ")" (list starter)) st)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3012 (condition-case bb
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3013 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3014 ;; We use `$' syntax class to find matching stuff, but $$
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3015 ;; is recognized the same as $, so we need to check this manually.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3016 (if (and (eq starter (char-after (cperl-1+ b)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3017 (not ender))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3018 ;; $ has TeXish matching rules, so $$ equiv $...
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3019 (forward-char 2)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3020 (setq reset-st (syntax-table))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3021 (set-syntax-table st)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3022 (forward-sexp 1)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3023 (if (<= (point) (1+ b))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3024 (error "Unfinished regular expression"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3025 (set-syntax-table reset-st)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3026 (setq reset-st nil)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3027 ;; Now the problem is with m;blah;;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3028 (and (not ender)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3029 (eq (preceding-char)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3030 (char-after (- (point) 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3031 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3032 (forward-char -2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3033 (= 0 (% (skip-chars-backward "\\\\") 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3034 (forward-char -1)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3035 ;; Now we are after the first part.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3036 (and is-2arg ; Have trailing part
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3037 (not ender)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3038 (eq (following-char) starter) ; Empty trailing part
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3039 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3040 (or (eq (char-syntax (following-char)) ?.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3041 ;; Make trailing letter into punctuation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3042 (cperl-modify-syntax-type (point) cperl-st-punct))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3043 (setq is-2arg nil go-forward t))) ; Ignore the tail
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3044 (if is-2arg ; Not number => have second part
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3045 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3046 (setq i (point) i2 i)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3047 (if ender
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3048 (if (memq (following-char) '(?\ ?\t ?\n ?\f))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3049 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3050 (if (looking-at "[ \t\n\f]+\\(#[^\n]*\n[ \t\n\f]*\\)+")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3051 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3052 (skip-chars-forward " \t\n\f"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3053 (setq i2 (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3054 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3055 (modify-syntax-entry starter (if (eq starter ?\\) "\\" ".") st)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3056 (if ender (modify-syntax-entry ender "." st))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3057 (setq set-st nil)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3058 (setq ender (cperl-forward-re lim end nil t st-l err-l
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3059 argument starter ender)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3060 ender (nth 2 ender)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3061 (error (goto-char lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3062 (setq set-st nil)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3063 (if reset-st
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3064 (set-syntax-table reset-st))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3065 (or end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3066 (message
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3067 "End of `%s%s%c ... %c' string/RE not found: %s"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3068 argument
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3069 (if ostart (format "%c ... %c" ostart (or oend ostart)) "")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3070 starter (or ender starter) bb)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3071 (or (car err-l) (setcar err-l b)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3072 (if set-st
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3073 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3074 (modify-syntax-entry starter (if (eq starter ?\\) "\\" ".") st)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3075 (if ender (modify-syntax-entry ender "." st))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3076 ;; i: have 2 args, after end of the first arg
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3077 ;; i2: start of the second arg, if any (before delim iff `ender').
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3078 ;; ender: the last arg bounded by parens-like chars, the second one of them
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3079 ;; starter: the starting delimiter of the first arg
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3080 ;; go-forward: has 2 args, and the second part is empty
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3081 (list i i2 ender starter go-forward)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3082
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3083 (defsubst cperl-postpone-fontification (b e type val &optional now)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3084 ;; Do after syntactic fontification?
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3085 (if cperl-syntaxify-by-font-lock
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3086 (or now (put-text-property b e 'cperl-postpone (cons type val)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3087 (put-text-property b e type val)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3088
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3089 ;;; Here is how the global structures (those which cannot be
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3090 ;;; recognized locally) are marked:
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3091 ;; a) PODs:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3092 ;; Start-to-end is marked `in-pod' ==> t
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3093 ;; Each non-literal part is marked `syntax-type' ==> `pod'
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3094 ;; Each literal part is marked `syntax-type' ==> `in-pod'
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3095 ;; b) HEREs:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3096 ;; Start-to-end is marked `here-doc-group' ==> t
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3097 ;; The body is marked `syntax-type' ==> `here-doc'
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3098 ;; The delimiter is marked `syntax-type' ==> `here-doc-delim'
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3099 ;; c) FORMATs:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3100 ;; After-initial-line--to-end is marked `syntax-type' ==> `format'
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3101 ;; d) 'Q'uoted string:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3102 ;; part between markers inclusive is marked `syntax-type' ==> `string'
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3103 ;; part between `q' and the first marker is marked `syntax-type' ==> `prestring'
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3104
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3105 (defun cperl-unwind-to-safe (before &optional end)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3106 ;; if BEFORE, go to the previous start-of-line on each step of unwinding
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3107 (let ((pos (point)) opos)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3108 (setq opos pos)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3109 (while (and pos (get-text-property pos 'syntax-type))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3110 (setq pos (previous-single-property-change pos 'syntax-type))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3111 (if pos
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3112 (if before
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3113 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3114 (goto-char (cperl-1- pos))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3115 (beginning-of-line)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3116 (setq pos (point)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3117 (goto-char (setq pos (cperl-1- pos))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3118 ;; Up to the start
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3119 (goto-char (point-min))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3120 ;; Skip empty lines
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3121 (and (looking-at "\n*=")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3122 (/= 0 (skip-chars-backward "\n"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3123 (forward-char))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3124 (setq pos (point))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3125 (if end
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3126 ;; Do the same for end, going small steps
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3127 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3128 (while (and end (get-text-property end 'syntax-type))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3129 (setq pos end
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3130 end (next-single-property-change end 'syntax-type)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3131 (or end pos)))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3132
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3133 (defvar cperl-nonoverridable-face)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3134 (defvar font-lock-function-name-face)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3135 (defvar font-lock-comment-face)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3136
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3137 (defun cperl-find-pods-heres (&optional min max non-inter end ignore-max)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3138 "Scans the buffer for hard-to-parse Perl constructions.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3139 If `cperl-pod-here-fontify' is not-nil after evaluation, will fontify
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3140 the sections using `cperl-pod-head-face', `cperl-pod-face',
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3141 `cperl-here-face'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3142 (interactive)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3143 (or min (setq min (point-min)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3144 cperl-syntax-state nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3145 cperl-syntax-done-to min))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3146 (or max (setq max (point-max)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3147 (let* (face head-face here-face b e bb tag qtag b1 e1 argument i c tail tb
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3148 is-REx is-x-REx REx-comment-start REx-comment-end was-comment i2
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3149 (cperl-pod-here-fontify (eval cperl-pod-here-fontify)) go tmpend
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3150 (case-fold-search nil) (inhibit-read-only t) (buffer-undo-list t)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3151 (modified (buffer-modified-p))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3152 (after-change-functions nil)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3153 (use-syntax-state (and cperl-syntax-state
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3154 (>= min (car cperl-syntax-state))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3155 (state-point (if use-syntax-state
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3156 (car cperl-syntax-state)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3157 (point-min)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3158 (state (if use-syntax-state
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3159 (cdr cperl-syntax-state)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3160 ;; (st-l '(nil)) (err-l '(nil)) ; Would overwrite - propagates from a function call to a function call!
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3161 (st-l (list nil)) (err-l (list nil))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3162 ;; Somehow font-lock may be not loaded yet...
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3163 (font-lock-string-face (if (boundp 'font-lock-string-face)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3164 font-lock-string-face
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3165 'font-lock-string-face))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3166 (font-lock-constant-face (if (boundp 'font-lock-constant-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3167 font-lock-constant-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3168 'font-lock-constant-face))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3169 (font-lock-function-name-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3170 (if (boundp 'font-lock-function-name-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3171 font-lock-function-name-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3172 'font-lock-function-name-face))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3173 (font-lock-comment-face
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3174 (if (boundp 'font-lock-comment-face)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3175 font-lock-comment-face
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3176 'font-lock-comment-face))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3177 (cperl-nonoverridable-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3178 (if (boundp 'cperl-nonoverridable-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3179 cperl-nonoverridable-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3180 'cperl-nonoverridable-face))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3181 (stop-point (if ignore-max
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3182 (point-max)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3183 max))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3184 (search
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3185 (concat
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3186 "\\(\\`\n?\\|^\n\\)="
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3187 "\\|"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3188 ;; One extra () before this:
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3189 "<<"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3190 "\\(" ; 1 + 1
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3191 ;; First variant "BLAH" or just ``.
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3192 "[ \t]*" ; Yes, whitespace is allowed!
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3193 "\\([\"'`]\\)" ; 2 + 1 = 3
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3194 "\\([^\"'`\n]*\\)" ; 3 + 1
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3195 "\\3"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3196 "\\|"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3197 ;; Second variant: Identifier or \ID or empty
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3198 "\\\\?\\(\\([a-zA-Z_][a-zA-Z_0-9]*\\)?\\)" ; 4 + 1, 5 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3199 ;; Do not have <<= or << 30 or <<30 or << $blah.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3200 ;; "\\([^= \t0-9$@%&]\\|[ \t]+[^ \t\n0-9$@%&]\\)" ; 6 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3201 "\\(\\)" ; To preserve count of pars :-( 6 + 1
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3202 "\\)"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3203 "\\|"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3204 ;; 1+6 extra () before this:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3205 "^[ \t]*\\(format\\)[ \t]*\\([a-zA-Z0-9_]+\\)?[ \t]*=[ \t]*$"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3206 (if cperl-use-syntax-table-text-property
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3207 (concat
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3208 "\\|"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3209 ;; 1+6+2=9 extra () before this:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3210 "\\<\\(q[wxqr]?\\|[msy]\\|tr\\)\\>"
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3211 "\\|"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3212 ;; 1+6+2+1=10 extra () before this:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3213 "\\([?/<]\\)" ; /blah/ or ?blah? or <file*glob>
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3214 "\\|"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3215 ;; 1+6+2+1+1=11 extra () before this:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3216 "\\<sub\\>[ \t]*\\([a-zA-Z_:'0-9]+[ \t]*\\)?\\(([^()]*)\\)"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3217 "\\|"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3218 ;; 1+6+2+1+1+2=13 extra () before this:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3219 "\\$\\(['{]\\)"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3220 "\\|"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3221 ;; 1+6+2+1+1+2+1=14 extra () before this:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3222 "\\(\\<sub[ \t\n\f]+\\|[&*$@%]\\)[a-zA-Z0-9_]*'"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3223 ;; 1+6+2+1+1+2+1+1=15 extra () before this:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3224 "\\|"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3225 "__\\(END\\|DATA\\)__"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3226 ;; 1+6+2+1+1+2+1+1+1=16 extra () before this:
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3227 "\\|"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3228 "\\\\\\(['`\"]\\)"
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3229 )
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3230 ""))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3231 (unwind-protect
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3232 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3233 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3234 (or non-inter
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3235 (message "Scanning for \"hard\" Perl constructions..."))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3236 (and cperl-pod-here-fontify
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3237 ;; We had evals here, do not know why...
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3238 (setq face cperl-pod-face
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3239 head-face cperl-pod-head-face
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3240 here-face cperl-here-face))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3241 (remove-text-properties min max
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3242 '(syntax-type t in-pod t syntax-table t
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3243 cperl-postpone t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3244 syntax-subtype t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3245 rear-nonsticky t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3246 indentable t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3247 ;; Need to remove face as well...
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3248 (goto-char min)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3249 (and (eq system-type 'emx)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3250 (looking-at "extproc[ \t]") ; Analogue of #!
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3251 (cperl-commentify min
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3252 (save-excursion (end-of-line) (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3253 nil))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3254 (while (and
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3255 (< (point) max)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3256 (re-search-forward search max t))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3257 (setq tmpend nil) ; Valid for most cases
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3258 (cond
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3259 ((match-beginning 1) ; POD section
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3260 ;; "\\(\\`\n?\\|^\n\\)="
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3261 (if (looking-at "cut\\>")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3262 (if ignore-max
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3263 nil ; Doing a chunk only
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3264 (message "=cut is not preceded by a POD section")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3265 (or (car err-l) (setcar err-l (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3266 (beginning-of-line)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3267
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3268 (setq b (point)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3269 bb b
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3270 tb (match-beginning 0)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3271 b1 nil) ; error condition
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3272 ;; We do not search to max, since we may be called from
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3273 ;; some hook of fontification, and max is random
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3274 (or (re-search-forward "^\n=cut\\>" stop-point 'toend)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3275 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3276 (goto-char b)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3277 (if (re-search-forward "\n=cut\\>" stop-point 'toend)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3278 (progn
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3279 (message "=cut is not preceded by an empty line")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3280 (setq b1 t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3281 (or (car err-l) (setcar err-l b))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3282 (beginning-of-line 2) ; An empty line after =cut is not POD!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3283 (setq e (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3284 (and (> e max)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3285 (progn
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3286 (remove-text-properties
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3287 max e '(syntax-type t in-pod t syntax-table t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3288 cperl-postpone t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3289 syntax-subtype t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3290 rear-nonsticky t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3291 indentable t))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3292 (setq tmpend tb)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3293 (put-text-property b e 'in-pod t)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3294 (put-text-property b e 'syntax-type 'in-pod)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3295 (goto-char b)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3296 (while (re-search-forward "\n\n[ \t]" e t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3297 ;; We start 'pod 1 char earlier to include the preceding line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3298 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3299 (put-text-property (cperl-1- b) (point) 'syntax-type 'pod)
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3300 (cperl-put-do-not-fontify b (point) t)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3301 ;; mark the non-literal parts as PODs
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3302 (if cperl-pod-here-fontify
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3303 (cperl-postpone-fontification b (point) 'face face t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3304 (re-search-forward "\n\n[^ \t\f\n]" e 'toend)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3305 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3306 (setq b (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3307 (put-text-property (cperl-1- (point)) e 'syntax-type 'pod)
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3308 (cperl-put-do-not-fontify (point) e t)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3309 (if cperl-pod-here-fontify
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3310 (progn
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3311 ;; mark the non-literal parts as PODs
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3312 (cperl-postpone-fontification (point) e 'face face t)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3313 (goto-char bb)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3314 (if (looking-at
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3315 "=[a-zA-Z0-9_]+\\>[ \t]*\\(\\(\n?[^\n]\\)+\\)$")
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3316 ;; mark the headers
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3317 (cperl-postpone-fontification
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3318 (match-beginning 1) (match-end 1)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3319 'face head-face))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3320 (while (re-search-forward
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3321 ;; One paragraph
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3322 "^\n=[a-zA-Z0-9_]+\\>[ \t]*\\(\\(\n?[^\n]\\)+\\)$"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3323 e 'toend)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3324 ;; mark the headers
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3325 (cperl-postpone-fontification
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3326 (match-beginning 1) (match-end 1)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
3327 'face head-face))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3328 (cperl-commentify bb e nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3329 (goto-char e)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3330 (or (eq e (point-max))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3331 (forward-char -1)))) ; Prepare for immediate pod start.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3332 ;; Here document
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3333 ;; We do only one here-per-line
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3334 ;; ;; One extra () before this:
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3335 ;;"<<"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3336 ;; "\\(" ; 1 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3337 ;; ;; First variant "BLAH" or just ``.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3338 ;; "\\([\"'`]\\)" ; 2 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3339 ;; "\\([^\"'`\n]*\\)" ; 3 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3340 ;; "\\3"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3341 ;; "\\|"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3342 ;; ;; Second variant: Identifier or \ID or empty
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3343 ;; "\\\\?\\(\\([a-zA-Z_][a-zA-Z_0-9]*\\)?\\)" ; 4 + 1, 5 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3344 ;; ;; Do not have <<= or << 30 or <<30 or << $blah.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3345 ;; ;; "\\([^= \t0-9$@%&]\\|[ \t]+[^ \t\n0-9$@%&]\\)" ; 6 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3346 ;; "\\(\\)" ; To preserve count of pars :-( 6 + 1
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3347 ;; "\\)"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3348 ((match-beginning 2) ; 1 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3349 ;; Abort in comment:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3350 (setq b (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3351 (setq state (parse-partial-sexp state-point b nil nil state)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3352 state-point b
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3353 tb (match-beginning 0)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3354 i (or (nth 3 state) (nth 4 state)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3355 (if i
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3356 (setq c t)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3357 (setq c (and
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3358 (match-beginning 5)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3359 (not (match-beginning 6)) ; Empty
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3360 (looking-at
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3361 "[ \t]*[=0-9$@%&(]"))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3362 (if c ; Not here-doc
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3363 nil ; Skip it.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3364 (if (match-beginning 5) ;4 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3365 (setq b1 (match-beginning 5) ; 4 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3366 e1 (match-end 5)) ; 4 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3367 (setq b1 (match-beginning 4) ; 3 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3368 e1 (match-end 4))) ; 3 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3369 (setq tag (buffer-substring b1 e1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3370 qtag (regexp-quote tag))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3371 (cond (cperl-pod-here-fontify
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3372 ;; Highlight the starting delimiter
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3373 (cperl-postpone-fontification b1 e1 'face font-lock-constant-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3374 (cperl-put-do-not-fontify b1 e1 t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3375 (forward-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3376 (setq b (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3377 ;; We do not search to max, since we may be called from
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3378 ;; some hook of fontification, and max is random
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3379 (cond ((re-search-forward (concat "^" qtag "$")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3380 stop-point 'toend)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3381 (if cperl-pod-here-fontify
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3382 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3383 ;; Highlight the ending delimiter
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3384 (cperl-postpone-fontification (match-beginning 0) (match-end 0)
20953
f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20323
diff changeset
3385 'face font-lock-constant-face)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3386 (cperl-put-do-not-fontify b (match-end 0) t)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3387 ;; Highlight the HERE-DOC
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3388 (cperl-postpone-fontification b (match-beginning 0)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3389 'face here-face)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3390 (setq e1 (cperl-1+ (match-end 0)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3391 (put-text-property b (match-beginning 0)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3392 'syntax-type 'here-doc)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3393 (put-text-property (match-beginning 0) e1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3394 'syntax-type 'here-doc-delim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3395 (put-text-property b e1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3396 'here-doc-group t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3397 (cperl-commentify b e1 nil)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3398 (cperl-put-do-not-fontify b (match-end 0) t)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3399 (if (> e1 max)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3400 (setq tmpend tb)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3401 (t (message "End of here-document `%s' not found." tag)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3402 (or (car err-l) (setcar err-l b))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3403 ;; format
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3404 ((match-beginning 8)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3405 ;; 1+6=7 extra () before this:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3406 ;;"^[ \t]*\\(format\\)[ \t]*\\([a-zA-Z0-9_]+\\)?[ \t]*=[ \t]*$"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3407 (setq b (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3408 name (if (match-beginning 8) ; 7 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3409 (buffer-substring (match-beginning 8) ; 7 + 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3410 (match-end 8)) ; 7 + 1
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3411 "")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3412 tb (match-beginning 0))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3413 (setq argument nil)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3414 (if cperl-pod-here-fontify
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3415 (while (and (eq (forward-line) 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3416 (not (looking-at "^[.;]$")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3417 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3418 ((looking-at "^#")) ; Skip comments
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3419 ((and argument ; Skip argument multi-lines
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3420 (looking-at "^[ \t]*{"))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3421 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3422 (setq argument nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3423 (argument ; Skip argument lines
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3424 (setq argument nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3425 (t ; Format line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3426 (setq b1 (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3427 (setq argument (looking-at "^[^\n]*[@^]"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3428 (end-of-line)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3429 ;; Highlight the format line
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3430 (cperl-postpone-fontification b1 (point)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3431 'face font-lock-string-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3432 (cperl-commentify b1 (point) nil)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3433 (cperl-put-do-not-fontify b1 (point) t))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3434 ;; We do not search to max, since we may be called from
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3435 ;; some hook of fontification, and max is random
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3436 (re-search-forward "^[.;]$" stop-point 'toend))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3437 (beginning-of-line)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3438 (if (looking-at "^\\.$") ; ";" is not supported yet
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3439 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3440 ;; Highlight the ending delimiter
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3441 (cperl-postpone-fontification (point) (+ (point) 2)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3442 'face font-lock-string-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3443 (cperl-commentify (point) (+ (point) 2) nil)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3444 (cperl-put-do-not-fontify (point) (+ (point) 2) t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3445 (message "End of format `%s' not found." name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3446 (or (car err-l) (setcar err-l b)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3447 (forward-line)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3448 (if (> (point) max)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3449 (setq tmpend tb))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3450 (put-text-property b (point) 'syntax-type 'format))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3451 ;; Regexp:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3452 ((or (match-beginning 10) (match-beginning 11))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3453 ;; 1+6+2=9 extra () before this:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3454 ;; "\\<\\(q[wxqr]?\\|[msy]\\|tr\\)\\>"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3455 ;; "\\|"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3456 ;; "\\([?/<]\\)" ; /blah/ or ?blah? or <file*glob>
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3457 (setq b1 (if (match-beginning 10) 10 11)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3458 argument (buffer-substring
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3459 (match-beginning b1) (match-end b1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3460 b (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3461 i b
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3462 c (char-after (match-beginning b1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3463 bb (char-after (1- (match-beginning b1))) ; tmp holder
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3464 ;; bb == "Not a stringy"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3465 bb (if (eq b1 10) ; user variables/whatever
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3466 (or
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3467 (memq bb '(?\$ ?\@ ?\% ?\* ?\#)) ; $#y
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3468 (and (eq bb ?-) (eq c ?s)) ; -s file test
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3469 (and (eq bb ?\&)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3470 (not (eq (char-after ; &&m/blah/
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3471 (- (match-beginning b1) 2))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3472 ?\&))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3473 ;; <file> or <$file>
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3474 (and (eq c ?\<)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3475 ;; Do not stringify <FH>, <$fh> :
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3476 (save-match-data
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3477 (looking-at
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3478 "\\$?\\([_a-zA-Z:][_a-zA-Z0-9:]*\\)?>"))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3479 tb (match-beginning 0))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3480 (goto-char (match-beginning b1))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3481 (cperl-backward-to-noncomment (point-min))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3482 (or bb
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3483 (if (eq b1 11) ; bare /blah/ or ?blah? or <foo>
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3484 (setq argument ""
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3485 bb ; Not a regexp?
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3486 (progn
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3487 (not
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3488 ;; What is below: regexp-p?
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3489 (and
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3490 (or (memq (preceding-char)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3491 (append (if (memq c '(?\? ?\<))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3492 ;; $a++ ? 1 : 2
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3493 "~{(=|&*!,;:"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3494 "~{(=|&+-*!,;:") nil))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3495 (and (eq (preceding-char) ?\})
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3496 (cperl-after-block-p (point-min)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3497 (and (eq (char-syntax (preceding-char)) ?w)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3498 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3499 (forward-sexp -1)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3500 ;; After these keywords `/' starts a RE. One should add all the
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3501 ;; functions/builtins which expect an argument, but ...
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3502 (if (eq (preceding-char) ?-)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3503 ;; -d ?foo? is a RE
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3504 (looking-at "[a-zA-Z]\\>")
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
3505 (and
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
3506 (not (memq (preceding-char)
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
3507 '(?$ ?@ ?& ?%)))
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
3508 (looking-at
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
3509 "\\(while\\|if\\|unless\\|until\\|and\\|or\\|not\\|xor\\|split\\|grep\\|map\\|print\\)\\>")))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3510 (and (eq (preceding-char) ?.)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3511 (eq (char-after (- (point) 2)) ?.))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3512 (bobp))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3513 ;; m|blah| ? foo : bar;
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3514 (not
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3515 (and (eq c ?\?)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3516 cperl-use-syntax-table-text-property
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3517 (not (bobp))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3518 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3519 (forward-char -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3520 (looking-at "\\s|")))))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3521 b (1- b))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3522 ;; s y tr m
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3523 ;; Check for $a->y
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3524 (if (and (eq (preceding-char) ?>)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3525 (eq (char-after (- (point) 2)) ?-))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3526 ;; Not a regexp
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3527 (setq bb t))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3528 (or bb (setq state (parse-partial-sexp
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3529 state-point b nil nil state)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3530 state-point b))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3531 (goto-char b)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3532 (if (or bb (nth 3 state) (nth 4 state))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3533 (goto-char i)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3534 ;; Skip whitespace and comments...
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3535 (if (looking-at "[ \t\n\f]+\\(#[^\n]*\n[ \t\n\f]*\\)+")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3536 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3537 (skip-chars-forward " \t\n\f"))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3538 (if (> (point) b)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3539 (put-text-property b (point) 'syntax-type 'prestring))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3540 ;; qtag means two-arg matcher, may be reset to
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3541 ;; 2 or 3 later if some special quoting is needed.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3542 ;; e1 means matching-char matcher.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3543 (setq b (point)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3544 ;; has 2 args
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3545 i2 (string-match "^\\([sy]\\|tr\\)$" argument)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3546 ;; We do not search to max, since we may be called from
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3547 ;; some hook of fontification, and max is random
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3548 i (cperl-forward-re stop-point end
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3549 i2
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3550 t st-l err-l argument)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3551 ;; Note that if `go', then it is considered as 1-arg
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3552 b1 (nth 1 i) ; start of the second part
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3553 tag (nth 2 i) ; ender-char, true if second part
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3554 ; is with matching chars []
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3555 go (nth 4 i) ; There is a 1-char part after the end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3556 i (car i) ; intermediate point
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3557 e1 (point) ; end
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3558 ;; Before end of the second part if non-matching: ///
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3559 tail (if (and i (not tag))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3560 (1- e1))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3561 e (if i i e1) ; end of the first part
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3562 qtag nil ; need to preserve backslashitis
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3563 is-x-REx nil) ; REx has //x modifier
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3564 ;; Commenting \\ is dangerous, what about ( ?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3565 (and i tail
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3566 (eq (char-after i) ?\\)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3567 (setq qtag t))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3568 (if (looking-at "\\sw*x") ; qr//x
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3569 (setq is-x-REx t))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3570 (if (null i)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3571 ;; Considered as 1arg form
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3572 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3573 (cperl-commentify b (point) t)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3574 (put-text-property b (point) 'syntax-type 'string)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3575 (if (or is-x-REx
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3576 ;; ignore other text properties:
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3577 (string-match "^qw$" argument))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3578 (put-text-property b (point) 'indentable t))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3579 (and go
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3580 (setq e1 (cperl-1+ e1))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3581 (or (eobp)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3582 (forward-char 1))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3583 (cperl-commentify b i t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3584 (if (looking-at "\\sw*e") ; s///e
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3585 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3586 (and
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3587 ;; silent:
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3588 (cperl-find-pods-heres b1 (1- (point)) t end)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3589 ;; Error
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3590 (goto-char (1+ max)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3591 (if (and tag (eq (preceding-char) ?\>))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3592 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3593 (cperl-modify-syntax-type (1- (point)) cperl-st-ket)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3594 (cperl-modify-syntax-type i cperl-st-bra)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3595 (put-text-property b i 'syntax-type 'string)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3596 (if is-x-REx
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3597 (put-text-property b i 'indentable t)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3598 (cperl-commentify b1 (point) t)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3599 (put-text-property b (point) 'syntax-type 'string)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3600 (if is-x-REx
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3601 (put-text-property b i 'indentable t))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3602 (if qtag
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3603 (cperl-modify-syntax-type (1+ i) cperl-st-punct))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3604 (setq tail nil)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3605 ;; Now: tail: if the second part is non-matching without ///e
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3606 (if (eq (char-syntax (following-char)) ?w)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3607 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3608 (forward-word 1) ; skip modifiers s///s
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3609 (if tail (cperl-commentify tail (point) t))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3610 (cperl-postpone-fontification
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3611 e1 (point) 'face 'cperl-nonoverridable-face)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3612 ;; Check whether it is m// which means "previous match"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3613 ;; and highlight differently
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3614 (setq is-REx
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3615 (and (string-match "^\\([sm]?\\|qr\\)$" argument)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3616 (or (not (= (length argument) 0))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3617 (not (eq c ?\<)))))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3618 (if (and is-REx
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3619 (eq e (+ 2 b))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3620 ;; split // *is* using zero-pattern
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3621 (save-excursion
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3622 (condition-case nil
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3623 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3624 (goto-char tb)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3625 (forward-sexp -1)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3626 (not (looking-at "split\\>")))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3627 (error t))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3628 (cperl-postpone-fontification
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3629 b e 'face font-lock-function-name-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3630 (if (or i2 ; Has 2 args
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3631 (and cperl-fontify-m-as-s
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3632 (or
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3633 (string-match "^\\(m\\|qr\\)$" argument)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3634 (and (eq 0 (length argument))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3635 (not (eq ?\< (char-after b)))))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3636 (progn
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3637 (cperl-postpone-fontification
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3638 b (cperl-1+ b) 'face font-lock-constant-face)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3639 (cperl-postpone-fontification
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3640 (1- e) e 'face font-lock-constant-face)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3641 (if (and is-REx cperl-regexp-scan)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3642 ;; Process RExen better
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3643 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3644 (goto-char (1+ b))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3645 (while
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3646 (and (< (point) e)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3647 (re-search-forward
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3648 (if is-x-REx
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3649 (if (eq (char-after b) ?\#)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3650 "\\((\\?\\\\#\\)\\|\\(\\\\#\\)"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3651 "\\((\\?#\\)\\|\\(#\\)")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3652 (if (eq (char-after b) ?\#)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3653 "\\((\\?\\\\#\\)"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3654 "\\((\\?#\\)"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3655 (1- e) 'to-end))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3656 (goto-char (match-beginning 0))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3657 (setq REx-comment-start (point)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3658 was-comment t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3659 (if (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3660 (and
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3661 ;; XXX not working if outside delimiter is #
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3662 (eq (preceding-char) ?\\)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3663 (= (% (skip-chars-backward "$\\\\") 2) -1)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3664 ;; Not a comment, avoid loop:
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3665 (progn (setq was-comment nil)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3666 (forward-char 1))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3667 (if (match-beginning 2)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3668 (progn
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3669 (beginning-of-line 2)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3670 (if (> (point) e)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3671 (goto-char (1- e))))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3672 ;; Works also if the outside delimiters are ().
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3673 (or (search-forward ")" (1- e) 'toend)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3674 (message
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3675 "Couldn't find end of (?#...)-comment in a REx, pos=%s"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3676 REx-comment-start))))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3677 (if (>= (point) e)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3678 (goto-char (1- e)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3679 (if was-comment
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3680 (progn
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3681 (setq REx-comment-end (point))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3682 (cperl-commentify
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3683 REx-comment-start REx-comment-end nil)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3684 (cperl-postpone-fontification
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3685 REx-comment-start REx-comment-end
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3686 'face font-lock-comment-face))))))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3687 (if (and is-REx is-x-REx)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3688 (put-text-property (1+ b) (1- e)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3689 'syntax-subtype 'x-REx)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3690 (if i2
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3691 (progn
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3692 (cperl-postpone-fontification
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3693 (1- e1) e1 'face font-lock-constant-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3694 (if (assoc (char-after b) cperl-starters)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3695 (cperl-postpone-fontification
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3696 b1 (1+ b1) 'face font-lock-constant-face))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3697 (if (> (point) max)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3698 (setq tmpend tb))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3699 ((match-beginning 13) ; sub with prototypes
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3700 (setq b (match-beginning 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3701 (if (memq (char-after (1- b))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3702 '(?\$ ?\@ ?\% ?\& ?\*))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3703 nil
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3704 (setq state (parse-partial-sexp
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3705 state-point b nil nil state)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3706 state-point b)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3707 (if (or (nth 3 state) (nth 4 state))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3708 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3709 ;; Mark as string
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3710 (cperl-commentify (match-beginning 13) (match-end 13) t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3711 (goto-char (match-end 0))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3712 ;; 1+6+2+1+1+2=13 extra () before this:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3713 ;; "\\$\\(['{]\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3714 ((and (match-beginning 14)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3715 (eq (preceding-char) ?\')) ; $'
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3716 (setq b (1- (point))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3717 state (parse-partial-sexp
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3718 state-point (1- b) nil nil state)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3719 state-point (1- b))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3720 (if (nth 3 state) ; in string
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3721 (cperl-modify-syntax-type (1- b) cperl-st-punct))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3722 (goto-char (1+ b)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3723 ;; 1+6+2+1+1+2=13 extra () before this:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3724 ;; "\\$\\(['{]\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3725 ((match-beginning 14) ; ${
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3726 (setq bb (match-beginning 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3727 (cperl-modify-syntax-type bb cperl-st-punct))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3728 ;; 1+6+2+1+1+2+1=14 extra () before this:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3729 ;; "\\(\\<sub[ \t\n\f]+\\|[&*$@%]\\)[a-zA-Z0-9_]*'")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3730 ((match-beginning 15) ; old $abc'efg syntax
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3731 (setq bb (match-end 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3732 b (match-beginning 0)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3733 state (parse-partial-sexp
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3734 state-point b nil nil state)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3735 state-point b)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3736 (if (nth 3 state) ; in string
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3737 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3738 (put-text-property (1- bb) bb 'syntax-table cperl-st-word))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3739 (goto-char bb))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3740 ;; 1+6+2+1+1+2+1+1=15 extra () before this:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3741 ;; "__\\(END\\|DATA\\)__"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3742 ((match-beginning 16) ; __END__, __DATA__
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3743 (setq bb (match-end 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3744 b (match-beginning 0)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3745 state (parse-partial-sexp
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3746 state-point b nil nil state)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3747 state-point b)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3748 (if (or (nth 3 state) (nth 4 state))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3749 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3750 ;; (put-text-property b (1+ bb) 'syntax-type 'pod) ; Cheat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3751 (cperl-commentify b bb nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3752 (setq end t))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3753 (goto-char bb))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3754 ((match-beginning 17) ; "\\\\\\(['`\"]\\)"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3755 (setq bb (match-end 0)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3756 b (match-beginning 0))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3757 (goto-char b)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3758 (skip-chars-backward "\\\\")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3759 ;;;(setq i2 (= (% (skip-chars-backward "\\\\") 2) -1))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3760 (setq state (parse-partial-sexp
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3761 state-point b nil nil state)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3762 state-point b)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3763 (if (or (nth 3 state) (nth 4 state) )
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3764 nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3765 (cperl-modify-syntax-type b cperl-st-punct))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3766 (goto-char bb))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3767 (t (error "Error in regexp of the sniffer")))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3768 (if (> (point) stop-point)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3769 (progn
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3770 (if end
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3771 (message "Garbage after __END__/__DATA__ ignored")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3772 (message "Unbalanced syntax found while scanning")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3773 (or (car err-l) (setcar err-l b)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3774 (goto-char stop-point))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3775 (setq cperl-syntax-state (cons state-point state)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3776 cperl-syntax-done-to (or tmpend (max (point) max))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3777 (if (car err-l) (goto-char (car err-l))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3778 (or non-inter
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3779 (message "Scanning for \"hard\" Perl constructions... done"))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3780 (and (buffer-modified-p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3781 (not modified)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3782 (set-buffer-modified-p nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3783 (set-syntax-table cperl-mode-syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3784 (car err-l)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3785
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3786 (defun cperl-backward-to-noncomment (lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3787 ;; Stops at lim or after non-whitespace that is not in comment
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3788 (let (stop p pr)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3789 (while (and (not stop) (> (point) (or lim 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3790 (skip-chars-backward " \t\n\f" lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3791 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3792 (beginning-of-line)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3793 (if (memq (setq pr (get-text-property (point) 'syntax-type))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3794 '(pod here-doc here-doc-delim))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3795 (cperl-unwind-to-safe nil)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3796 (if (or (looking-at "^[ \t]*\\(#\\|$\\)")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3797 (progn (cperl-to-comment-or-eol) (bolp)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3798 nil ; Only comment, skip
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3799 ;; Else
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3800 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3801 (if (< p (point)) (goto-char p))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3802 (setq stop t))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3803
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3804 (defun cperl-after-block-p (lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3805 ;; We suppose that the preceding char is }.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3806 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3807 (condition-case nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3808 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3809 (forward-sexp -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3810 (cperl-backward-to-noncomment lim)
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
3811 (or (eq (point) lim)
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
3812 (eq (preceding-char) ?\) ) ; if () {} sub f () {}
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3813 (if (eq (char-syntax (preceding-char)) ?w) ; else {}
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3814 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3815 (forward-sexp -1)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3816 (or (looking-at "\\(else\\|grep\\|map\\|BEGIN\\|END\\|CHECK\\|INIT\\)\\>")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3817 ;; sub f {}
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3818 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3819 (cperl-backward-to-noncomment lim)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3820 (and (eq (char-syntax (preceding-char)) ?w)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3821 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3822 (forward-sexp -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3823 (looking-at "sub\\>"))))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3824 (cperl-after-expr-p lim))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3825 (error nil))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3826
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3827 (defun cperl-after-expr-p (&optional lim chars test)
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
3828 "Return true if the position is good for start of expression.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3829 TEST is the expression to evaluate at the found position. If absent,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3830 CHARS is a string that contains good characters to have before us (however,
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3831 `}' is treated \"smartly\" if it is not in the list)."
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3832 (let (stop p
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3833 (lim (or lim (point-min))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3834 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3835 (while (and (not stop) (> (point) lim))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3836 (skip-chars-backward " \t\n\f" lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3837 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3838 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3839 (if (looking-at "^[ \t]*\\(#\\|$\\)") nil ; Only comment, skip
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3840 ;; Else: last iteration, or a label
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3841 (cperl-to-comment-or-eol)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3842 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3843 (if (< p (point)) (goto-char p))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3844 (setq p (point))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3845 (if (and (eq (preceding-char) ?:)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3846 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3847 (forward-char -1)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3848 (skip-chars-backward " \t\n\f" lim)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3849 (eq (char-syntax (preceding-char)) ?w)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3850 (forward-sexp -1) ; Possibly label. Skip it
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3851 (goto-char p)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3852 (setq stop t))))
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
3853 (or (bobp) ; ???? Needed
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
3854 (eq (point) lim)
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
3855 (looking-at "[ \t]*__\\(END\\|DATA\\)__") ; After this anything goes
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3856 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3857 (if test (eval test)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3858 (or (memq (preceding-char) (append (or chars "{;") nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3859 (and (eq (preceding-char) ?\})
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3860 (cperl-after-block-p lim)))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3861
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3862 (defun cperl-backward-to-start-of-continued-exp (lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3863 (if (memq (preceding-char) (append ")]}\"'`" nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3864 (forward-sexp -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3865 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3866 (if (<= (point) lim)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3867 (goto-char (1+ lim)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3868 (skip-chars-forward " \t"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3869
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3870 (defun cperl-after-block-and-statement-beg (lim)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3871 ;; We assume that we are after ?\}
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3872 (and
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3873 (cperl-after-block-p lim)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3874 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3875 (forward-sexp -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3876 (cperl-backward-to-noncomment (point-min))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3877 (or (bobp)
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
3878 (eq (point) lim)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3879 (not (= (char-syntax (preceding-char)) ?w))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3880 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3881 (forward-sexp -1)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3882 (not
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3883 (looking-at
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3884 "\\(map\\|grep\\|printf?\\|system\\|exec\\|tr\\|s\\)\\>")))))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3885
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3886
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3887 (defun cperl-indent-exp ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3888 "Simple variant of indentation of continued-sexp.
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3889
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3890 Will not indent comment if it starts at `comment-indent' or looks like
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3891 continuation of the comment on the previous line.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3892
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3893 If `cperl-indent-region-fix-constructs', will improve spacing on
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3894 conditional/loop constructs."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3895 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3896 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3897 (let ((tmp-end (progn (end-of-line) (point))) top done)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3898 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3899 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3900 (while (null done)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3901 (setq top (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3902 (while (= (nth 0 (parse-partial-sexp (point) tmp-end
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3903 -1)) -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3904 (setq top (point))) ; Get the outermost parenths in line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3905 (goto-char top)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3906 (while (< (point) tmp-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3907 (parse-partial-sexp (point) tmp-end nil t) ; To start-sexp or eol
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3908 (or (eolp) (forward-sexp 1)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3909 (if (> (point) tmp-end)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3910 (save-excursion
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3911 (end-of-line)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3912 (setq tmp-end (point)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3913 (setq done t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3914 (goto-char tmp-end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3915 (setq tmp-end (point-marker)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3916 (if cperl-indent-region-fix-constructs
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3917 (cperl-fix-line-spacing tmp-end))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3918 (cperl-indent-region (point) tmp-end))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3919
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3920 (defun cperl-fix-line-spacing (&optional end parse-data)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3921 "Improve whitespace in a conditional/loop construct.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3922 Returns some position at the last line."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3923 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3924 (or end
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3925 (setq end (point-max)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3926 (let (p pp ml have-brace ret
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3927 (ee (save-excursion (end-of-line) (point)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3928 (cperl-indent-region-fix-constructs
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3929 (or cperl-indent-region-fix-constructs 1)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3930 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3931 (beginning-of-line)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3932 (setq ret (point))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3933 ;; }? continue
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3934 ;; blah; }
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3935 (if (not
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3936 (or (looking-at "[ \t]*\\(els\\(e\\|if\\)\\|continue\\|if\\|while\\|for\\(each\\)?\\|until\\)")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3937 (setq have-brace (save-excursion (search-forward "}" ee t)))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3938 nil ; Do not need to do anything
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3939 ;; Looking at:
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3940 ;; }
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3941 ;; else
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3942 (if (and cperl-merge-trailing-else
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3943 (looking-at
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3944 "[ \t]*}[ \t]*\n[ \t\n]*\\(els\\(e\\|if\\)\\|continue\\)\\>"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3945 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3946 (search-forward "}")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3947 (setq p (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3948 (skip-chars-forward " \t\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3949 (delete-region p (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3950 (insert (make-string cperl-indent-region-fix-constructs ?\ ))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3951 (beginning-of-line)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3952 ;; Looking at:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3953 ;; } else
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3954 (if (looking-at "[ \t]*}\\(\t*\\|[ \t][ \t]+\\)\\<\\(els\\(e\\|if\\)\\|continue\\)\\>")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3955 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3956 (search-forward "}")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3957 (delete-horizontal-space)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3958 (insert (make-string cperl-indent-region-fix-constructs ?\ ))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3959 (beginning-of-line)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3960 ;; Looking at:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3961 ;; else {
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
3962 (if (looking-at
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
3963 "[ \t]*}?[ \t]*\\<\\(\\els\\(e\\|if\\)\\|continue\\|unless\\|if\\|while\\|for\\(each\\)?\\|until\\)\\>\\(\t*\\|[ \t][ \t]+\\)[^ \t\n#]")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3964 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3965 (forward-word 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3966 (delete-horizontal-space)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3967 (insert (make-string cperl-indent-region-fix-constructs ?\ ))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3968 (beginning-of-line)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3969 ;; Looking at:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3970 ;; foreach my $var
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3971 (if (looking-at
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3972 "[ \t]*\\<for\\(each\\)?[ \t]+\\(my\\|local\\|our\\)\\(\t*\\|[ \t][ \t]+\\)[^ \t\n]")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3973 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3974 (forward-word 2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3975 (delete-horizontal-space)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3976 (insert (make-string cperl-indent-region-fix-constructs ?\ ))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3977 (beginning-of-line)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3978 ;; Looking at:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3979 ;; foreach my $var (
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3980 (if (looking-at
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3981 "[ \t]*\\<for\\(each\\)?[ \t]+\\(my\\|local\\|our\\)[ \t]*\\$[_a-zA-Z0-9]+\\(\t*\\|[ \t][ \t]+\\)[^ \t\n#]")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3982 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3983 (forward-word 3)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3984 (delete-horizontal-space)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3985 (insert
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3986 (make-string cperl-indent-region-fix-constructs ?\ ))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3987 (beginning-of-line)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3988 ;; Looking at:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3989 ;; } foreach my $var () {
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3990 (if (looking-at
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
3991 "[ \t]*\\(}[ \t]*\\)?\\<\\(\\els\\(e\\|if\\)\\|continue\\|if\\|unless\\|while\\|for\\(each\\)?\\(\\([ t]+\\(my\\|local\\|our\\)\\)?[ \t]*\\$[_a-zA-Z0-9]+\\)?\\|until\\)\\>\\([ \t]*(\\|[ \t\n]*{\\)\\|[ \t]*{")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3992 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3993 (setq ml (match-beginning 8))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3994 (re-search-forward "[({]")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3995 (forward-char -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3996 (setq p (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3997 (if (eq (following-char) ?\( )
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3998 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
3999 (forward-sexp 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4000 (setq pp (point)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4001 ;; after `else' or nothing
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4002 (if ml ; after `else'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4003 (skip-chars-backward " \t\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4004 (beginning-of-line))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4005 (setq pp nil))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4006 ;; Now after the sexp before the brace
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4007 ;; Multiline expr should be special
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4008 (setq ml (and pp (save-excursion (goto-char p)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4009 (search-forward "\n" pp t))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4010 (if (and (or (not pp) (< pp end))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4011 (looking-at "[ \t\n]*{"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4012 (progn
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4013 (cond
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4014 ((bolp) ; Were before `{', no if/else/etc
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4015 nil)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4016 ((looking-at "\\(\t*\\| [ \t]+\\){")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4017 (delete-horizontal-space)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4018 (if (if ml
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4019 cperl-extra-newline-before-brace-multiline
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4020 cperl-extra-newline-before-brace)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4021 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4022 (delete-horizontal-space)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4023 (insert "\n")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4024 (setq ret (point))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4025 (if (cperl-indent-line parse-data)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4026 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4027 (cperl-fix-line-spacing end parse-data)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4028 (setq ret (point)))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4029 (insert
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4030 (make-string cperl-indent-region-fix-constructs ?\ ))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4031 ((and (looking-at "[ \t]*\n")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4032 (not (if ml
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4033 cperl-extra-newline-before-brace-multiline
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4034 cperl-extra-newline-before-brace)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4035 (setq pp (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4036 (skip-chars-forward " \t\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4037 (delete-region pp (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4038 (insert
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4039 (make-string cperl-indent-region-fix-constructs ?\ ))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4040 ;; Now we are before `{'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4041 (if (looking-at "[ \t\n]*{[ \t]*[^ \t\n#]")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4042 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4043 (skip-chars-forward " \t\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4044 (setq pp (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4045 (forward-sexp 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4046 (setq p (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4047 (goto-char pp)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4048 (setq ml (search-forward "\n" p t))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4049 (if (or cperl-break-one-line-blocks-when-indent ml)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4050 ;; not good: multi-line BLOCK
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4051 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4052 (goto-char (1+ pp))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4053 (delete-horizontal-space)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4054 (insert "\n")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4055 (setq ret (point))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4056 (if (cperl-indent-line parse-data)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4057 (setq ret (cperl-fix-line-spacing end parse-data)))))))))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4058 (beginning-of-line)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4059 (setq p (point) pp (save-excursion (end-of-line) (point))) ; May be different from ee.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4060 ;; Now check whether there is a hanging `}'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4061 ;; Looking at:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4062 ;; } blah
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4063 (if (and
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4064 cperl-fix-hanging-brace-when-indent
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4065 have-brace
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4066 (not (looking-at "[ \t]*}[ \t]*\\(\\<\\(els\\(if\\|e\\)\\|continue\\|while\\|until\\)\\>\\|$\\|#\\)"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4067 (condition-case nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4068 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4069 (up-list 1)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4070 (if (and (<= (point) pp)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4071 (eq (preceding-char) ?\} )
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4072 (cperl-after-block-and-statement-beg (point-min)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4073 t
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4074 (goto-char p)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4075 nil))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4076 (error nil)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4077 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4078 (forward-char -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4079 (skip-chars-backward " \t")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4080 (if (bolp)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4081 ;; `}' was the first thing on the line, insert NL *after* it.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4082 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4083 (cperl-indent-line parse-data)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4084 (search-forward "}")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4085 (delete-horizontal-space)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4086 (insert "\n"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4087 (delete-horizontal-space)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4088 (or (eq (preceding-char) ?\;)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4089 (bolp)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4090 (and (eq (preceding-char) ?\} )
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4091 (cperl-after-block-p (point-min)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4092 (insert ";"))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4093 (insert "\n")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4094 (setq ret (point)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4095 (if (cperl-indent-line parse-data)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4096 (setq ret (cperl-fix-line-spacing end parse-data)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4097 (beginning-of-line)))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4098 ret))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4099
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4100 (defvar cperl-update-start) ; Do not need to make them local
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4101 (defvar cperl-update-end)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4102 (defun cperl-delay-update-hook (beg end old-len)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4103 (setq cperl-update-start (min beg (or cperl-update-start (point-max))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4104 (setq cperl-update-end (max end (or cperl-update-end (point-min)))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4105
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4106 (defun cperl-indent-region (start end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4107 "Simple variant of indentation of region in CPerl mode.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4108 Should be slow. Will not indent comment if it starts at `comment-indent'
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4109 or looks like continuation of the comment on the previous line.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4110 Indents all the lines whose first character is between START and END
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4111 inclusive.
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4112
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4113 If `cperl-indent-region-fix-constructs', will improve spacing on
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4114 conditional/loop constructs."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4115 (interactive "r")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4116 (cperl-update-syntaxification end end)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4117 (save-excursion
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4118 (let (cperl-update-start cperl-update-end (h-a-c after-change-functions))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4119 (let (st comm old-comm-indent new-comm-indent p pp i empty
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4120 (indent-info (if cperl-emacs-can-parse
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4121 (list nil nil nil) ; Cannot use '(), since will modify
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4122 nil))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4123 after-change-functions ; Speed it up!
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4124 (pm 0) (imenu-scanning-message "Indenting... (%3d%%)"))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4125 (if h-a-c (add-hook 'after-change-functions 'cperl-delay-update-hook))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4126 (goto-char start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4127 (setq old-comm-indent (and (cperl-to-comment-or-eol)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4128 (current-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4129 new-comm-indent old-comm-indent)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4130 (goto-char start)
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
4131 (setq end (set-marker (make-marker) end)) ; indentation changes pos
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4132 (or (bolp) (beginning-of-line 2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4133 (or (fboundp 'imenu-progress-message)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4134 (message "Indenting... For feedback load `imenu'..."))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4135 (while (and (<= (point) end) (not (eobp))) ; bol to check start
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4136 (and (fboundp 'imenu-progress-message)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4137 (imenu-progress-message
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4138 pm (/ (* 100 (- (point) start)) (- end start -1))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4139 (setq st (point))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4140 (if (or
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4141 (setq empty (looking-at "[ \t]*\n"))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4142 (and (setq comm (looking-at "[ \t]*#"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4143 (or (eq (current-indentation) (or old-comm-indent
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4144 comment-column))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4145 (setq old-comm-indent nil))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4146 (if (and old-comm-indent
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4147 (not empty)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4148 (= (current-indentation) old-comm-indent)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4149 (not (eq (get-text-property (point) 'syntax-type) 'pod))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4150 (not (eq (get-text-property (point) 'syntax-table)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4151 cperl-st-cfence)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4152 (let ((comment-column new-comm-indent))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4153 (indent-for-comment)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4154 (progn
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4155 (setq i (cperl-indent-line indent-info))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4156 (or comm
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4157 (not i)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4158 (progn
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4159 (if cperl-indent-region-fix-constructs
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4160 (goto-char (cperl-fix-line-spacing end indent-info)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4161 (if (setq old-comm-indent
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4162 (and (cperl-to-comment-or-eol)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4163 (not (memq (get-text-property (point)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4164 'syntax-type)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4165 '(pod here-doc)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4166 (not (eq (get-text-property (point)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4167 'syntax-table)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4168 cperl-st-cfence))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4169 (current-column)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4170 (progn (indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4171 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4172 (skip-chars-backward "#")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4173 (setq new-comm-indent (current-column))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4174 (beginning-of-line 2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4175 (if (fboundp 'imenu-progress-message)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4176 (imenu-progress-message pm 100)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4177 (message nil)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4178 ;; Now run the update hooks
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4179 (if after-change-functions
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4180 (save-excursion
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4181 (if cperl-update-end
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4182 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4183 (goto-char cperl-update-end)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4184 (insert " ")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4185 (delete-char -1)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4186 (goto-char cperl-update-start)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4187 (insert " ")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4188 (delete-char -1))))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4189
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4190 ;; Stolen from lisp-mode with a lot of improvements
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4191
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4192 (defun cperl-fill-paragraph (&optional justify iteration)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4193 "Like \\[fill-paragraph], but handle CPerl comments.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4194 If any of the current line is a comment, fill the comment or the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4195 block of it that point is in, preserving the comment's initial
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4196 indentation and initial hashes. Behaves usually outside of comment."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4197 (interactive "P")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4198 (let (
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4199 ;; Non-nil if the current line contains a comment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4200 has-comment
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4201
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4202 ;; If has-comment, the appropriate fill-prefix for the comment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4203 comment-fill-prefix
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4204 ;; Line that contains code and comment (or nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4205 start
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4206 c spaces len dc (comment-column comment-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4207 ;; Figure out what kind of comment we are looking at.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4208 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4209 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4210 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4211
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4212 ;; A line with nothing but a comment on it?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4213 ((looking-at "[ \t]*#[# \t]*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4214 (setq has-comment t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4215 comment-fill-prefix (buffer-substring (match-beginning 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4216 (match-end 0))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4217
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4218 ;; A line with some code, followed by a comment? Remember that the
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4219 ;; semi which starts the comment shouldn't be part of a string or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4220 ;; character.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4221 ((cperl-to-comment-or-eol)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4222 (setq has-comment t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4223 (looking-at "#+[ \t]*")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4224 (setq start (point) c (current-column)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4225 comment-fill-prefix
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4226 (concat (make-string (current-column) ?\ )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4227 (buffer-substring (match-beginning 0) (match-end 0)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4228 spaces (progn (skip-chars-backward " \t")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4229 (buffer-substring (point) start))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4230 dc (- c (current-column)) len (- start (point))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4231 start (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4232 (delete-char len)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4233 (insert (make-string dc ?-)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4234 (if (not has-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4235 (fill-paragraph justify) ; Do the usual thing outside of comment
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4236 ;; Narrow to include only the comment, and then fill the region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4237 (save-restriction
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4238 (narrow-to-region
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4239 ;; Find the first line we should include in the region to fill.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4240 (if start (progn (beginning-of-line) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4241 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4242 (while (and (zerop (forward-line -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4243 (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4244 ;; We may have gone to far. Go forward again.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4245 (or (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4246 (forward-line 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4247 (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4248 ;; Find the beginning of the first line past the region to fill.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4249 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4250 (while (progn (forward-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4251 (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4252 (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4253 ;; Remove existing hashes
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4254 (goto-char (point-min))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4255 (while (progn (forward-line 1) (< (point) (point-max)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4256 (skip-chars-forward " \t")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4257 (and (looking-at "#+")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4258 (delete-char (- (match-end 0) (match-beginning 0)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4259
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4260 ;; Lines with only hashes on them can be paragraph boundaries.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4261 (let ((paragraph-start (concat paragraph-start "\\|^[ \t#]*$"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4262 (paragraph-separate (concat paragraph-start "\\|^[ \t#]*$"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4263 (fill-prefix comment-fill-prefix))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4264 (fill-paragraph justify)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4265 (if (and start)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4266 (progn
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4267 (goto-char start)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4268 (if (> dc 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4269 (progn (delete-char dc) (insert spaces)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4270 (if (or (= (current-column) c) iteration) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4271 (setq comment-column c)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4272 (indent-for-comment)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4273 ;; Repeat once more, flagging as iteration
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4274 (cperl-fill-paragraph justify t)))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4275
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4276 (defun cperl-do-auto-fill ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4277 ;; Break out if the line is short enough
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4278 (if (> (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4279 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4280 (current-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4281 fill-column)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4282 (let ((c (save-excursion (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4283 (cperl-to-comment-or-eol) (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4284 (s (memq (following-char) '(?\ ?\t))) marker)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4285 (if (>= c (point)) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4286 (setq marker (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4287 (cperl-fill-paragraph)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4288 (goto-char marker)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4289 ;; Is not enough, sometimes marker is a start of line
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4290 (if (bolp) (progn (re-search-forward "#+[ \t]*")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4291 (goto-char (match-end 0))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4292 ;; Following space could have gone:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4293 (if (or (not s) (memq (following-char) '(?\ ?\t))) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4294 (insert " ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4295 (backward-char 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4296 ;; Previous space could have gone:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4297 (or (memq (preceding-char) '(?\ ?\t)) (insert " "))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4298
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
4299 (defvar cperl-imenu--function-name-regexp-perl
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4300 (concat
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4301 "^\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4302 "[ \t]*\\(sub\\|package\\)[ \t\n]+\\([a-zA-Z_0-9:']+\\)[ \t]*\\(([^()]*)[ \t]*\\)?"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4303 "\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4304 "=head\\([12]\\)[ \t]+\\([^\n]+\\)$"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4305 "\\)"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4306
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4307 (defun cperl-imenu-addback (lst &optional isback name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4308 ;; We suppose that the lst is a DAG, unless the first element only
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4309 ;; loops back, and ISBACK is set. Thus this function cannot be
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4310 ;; applied twice without ISBACK set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4311 (cond ((not cperl-imenu-addback) lst)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4312 (t
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4313 (or name
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4314 (setq name "+++BACK+++"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4315 (mapcar (function (lambda (elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4316 (if (and (listp elt) (listp (cdr elt)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4317 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4318 ;; In the other order it goes up
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4319 ;; one level only ;-(
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4320 (setcdr elt (cons (cons name lst)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4321 (cdr elt)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4322 (cperl-imenu-addback (cdr elt) t name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4323 ))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4324 (if isback (cdr lst) lst))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4325 lst)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4326
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
4327 (defun cperl-imenu--create-perl-index (&optional regexp)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4328 (require 'imenu) ; May be called from TAGS creator
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4329 (let ((index-alist '()) (index-pack-alist '()) (index-pod-alist '())
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4330 (index-unsorted-alist '()) (i-s-f (default-value 'imenu-sort-function))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4331 (index-meth-alist '()) meth
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4332 packages ends-ranges p marker
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4333 (prev-pos 0) char fchar index index1 name (end-range 0) package)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4334 (goto-char (point-min))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4335 (if noninteractive
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4336 (message "Scanning Perl for index")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4337 (imenu-progress-message prev-pos 0))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4338 (cperl-update-syntaxification (point-max) (point-max))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4339 ;; Search for the function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4340 (progn ;;save-match-data
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4341 (while (re-search-forward
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
4342 (or regexp cperl-imenu--function-name-regexp-perl)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4343 nil t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4344 (or noninteractive
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4345 (imenu-progress-message prev-pos))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4346 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4347 ((and ; Skip some noise if building tags
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4348 (match-beginning 2) ; package or sub
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4349 (eq (char-after (match-beginning 2)) ?p) ; package
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4350 (not (save-match-data
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4351 (looking-at "[ \t\n]*;")))) ; Plain text word 'package'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4352 nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4353 ((and
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4354 (match-beginning 2) ; package or sub
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4355 ;; Skip if quoted (will not skip multi-line ''-strings :-():
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4356 (null (get-text-property (match-beginning 1) 'syntax-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4357 (null (get-text-property (match-beginning 1) 'syntax-type))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4358 (null (get-text-property (match-beginning 1) 'in-pod)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4359 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4360 (goto-char (match-beginning 2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4361 (setq fchar (following-char))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4362 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4363 ;; (if (looking-at "([^()]*)[ \t\n\f]*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4364 ;; (goto-char (match-end 0))) ; Messes what follows
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4365 (setq char (following-char) ; ?\; for "sub foo () ;"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4366 meth nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4367 p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4368 (while (and ends-ranges (>= p (car ends-ranges)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4369 ;; delete obsolete entries
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4370 (setq ends-ranges (cdr ends-ranges) packages (cdr packages)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4371 (setq package (or (car packages) "")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4372 end-range (or (car ends-ranges) 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4373 (if (eq fchar ?p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4374 (setq name (buffer-substring (match-beginning 3) (match-end 3))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4375 name (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4376 (set-text-properties 0 (length name) nil name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4377 name)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4378 package (concat name "::")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4379 name (concat "package " name)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4380 end-range
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4381 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4382 (parse-partial-sexp (point) (point-max) -1) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4383 ends-ranges (cons end-range ends-ranges)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4384 packages (cons package packages)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4385 ;; )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4386 ;; Skip this function name if it is a prototype declaration.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4387 (if (and (eq fchar ?s) (eq char ?\;)) nil
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4388 (setq name (buffer-substring (match-beginning 3) (match-end 3))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4389 marker (make-marker))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4390 (set-text-properties 0 (length name) nil name)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4391 (set-marker marker (match-end 3))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4392 (if (eq fchar ?p)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4393 (setq name (concat "package " name))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4394 (cond ((string-match "[:']" name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4395 (setq meth t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4396 ((> p end-range) nil)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4397 (t
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4398 (setq name (concat package name) meth t))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4399 (setq index (cons name marker))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4400 (if (eq fchar ?p)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4401 (push index index-pack-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4402 (push index index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4403 (if meth (push index index-meth-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4404 (push index index-unsorted-alist)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4405 ((match-beginning 5) ; Pod section
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4406 ;; (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4407 (setq index (imenu-example--name-and-position)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4408 name (buffer-substring (match-beginning 6) (match-end 6)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4409 (set-text-properties 0 (length name) nil name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4410 (if (eq (char-after (match-beginning 5)) ?2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4411 (setq name (concat " " name)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4412 (setcar index name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4413 (setq index1 (cons (concat "=" name) (cdr index)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4414 (push index index-pod-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4415 (push index1 index-unsorted-alist)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4416 (or noninteractive
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4417 (imenu-progress-message prev-pos 100))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4418 (setq index-alist
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4419 (if (default-value 'imenu-sort-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4420 (sort index-alist (default-value 'imenu-sort-function))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4421 (nreverse index-alist)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4422 (and index-pod-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4423 (push (cons "+POD headers+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4424 (nreverse index-pod-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4425 index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4426 (and (or index-pack-alist index-meth-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4427 (let ((lst index-pack-alist) hier-list pack elt group name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4428 ;; Remove "package ", reverse and uniquify.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4429 (while lst
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4430 (setq elt (car lst) lst (cdr lst) name (substring (car elt) 8))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4431 (if (assoc name hier-list) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4432 (setq hier-list (cons (cons name (cdr elt)) hier-list))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4433 (setq lst index-meth-alist)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4434 (while lst
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4435 (setq elt (car lst) lst (cdr lst))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4436 (cond ((string-match "\\(::\\|'\\)[_a-zA-Z0-9]+$" (car elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4437 (setq pack (substring (car elt) 0 (match-beginning 0)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4438 (if (setq group (assoc pack hier-list))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4439 (if (listp (cdr group))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4440 ;; Have some functions already
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4441 (setcdr group
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4442 (cons (cons (substring
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4443 (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4444 (+ 2 (match-beginning 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4445 (cdr elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4446 (cdr group)))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4447 (setcdr group (list (cons (substring
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4448 (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4449 (+ 2 (match-beginning 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4450 (cdr elt)))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4451 (setq hier-list
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4452 (cons (cons pack
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4453 (list (cons (substring
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4454 (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4455 (+ 2 (match-beginning 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4456 (cdr elt))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4457 hier-list))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4458 (push (cons "+Hierarchy+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4459 hier-list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4460 index-alist)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4461 (and index-pack-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4462 (push (cons "+Packages+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4463 (nreverse index-pack-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4464 index-alist))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4465 (and (or index-pack-alist index-pod-alist
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4466 (default-value 'imenu-sort-function))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4467 index-unsorted-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4468 (push (cons "+Unsorted List+..."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4469 (nreverse index-unsorted-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4470 index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4471 (cperl-imenu-addback index-alist)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4472
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4473
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4474 (defvar cperl-outline-regexp
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4475 (concat cperl-imenu--function-name-regexp-perl "\\|" "\\`"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4476
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4477 ;; Suggested by Mark A. Hershberger
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4478 (defun cperl-outline-level ()
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4479 (looking-at outline-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4480 (cond ((not (match-beginning 1)) 0) ; beginning-of-file
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4481 ((match-beginning 2)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4482 (if (eq (char-after (match-beginning 2)) ?p)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4483 0 ; package
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4484 1)) ; sub
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4485 ((match-beginning 5)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4486 (if (eq (char-after (match-beginning 5)) ?1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4487 1 ; head1
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4488 2)) ; head2
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4489 (t 3))) ; should not happen
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4490
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4491
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4492 (defvar cperl-compilation-error-regexp-alist
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4493 ;; This look like a paranoiac regexp: could anybody find a better one? (which WORK).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4494 '(("^[^\n]* \\(file\\|at\\) \\([^ \t\n]+\\) [^\n]*line \\([0-9]+\\)[\\., \n]"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4495 2 3))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4496 "Alist that specifies how to match errors in perl output.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4497
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4498 (if (fboundp 'eval-after-load)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4499 (eval-after-load
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4500 "mode-compile"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4501 '(setq perl-compilation-error-regexp-alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4502 cperl-compilation-error-regexp-alist)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4503
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4504
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4505 (defun cperl-windowed-init ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4506 "Initialization under windowed version."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4507 (if (or (featurep 'ps-print) cperl-faces-init)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4508 ;; Need to init anyway:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4509 (or cperl-faces-init (cperl-init-faces))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4510 (add-hook 'font-lock-mode-hook
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4511 (function
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4512 (lambda ()
36602
4bcc2745d610 (cperl-msb-fix, cperl-get-help-defer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36601
diff changeset
4513 (if (memq major-mode '(perl-mode cperl-mode))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4514 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4515 (or cperl-faces-init (cperl-init-faces)))))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4516 (if (fboundp 'eval-after-load)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4517 (eval-after-load
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4518 "ps-print"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4519 '(or cperl-faces-init (cperl-init-faces))))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4520
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
4521 (defvar cperl-font-lock-keywords-1 nil
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
4522 "Additional expressions to highlight in Perl mode. Minimal set.")
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
4523 (defvar cperl-font-lock-keywords nil
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
4524 "Additional expressions to highlight in Perl mode. Default set.")
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
4525 (defvar cperl-font-lock-keywords-2 nil
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
4526 "Additional expressions to highlight in Perl mode. Maximal set")
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
4527
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4528 (defun cperl-load-font-lock-keywords ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4529 (or cperl-faces-init (cperl-init-faces))
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
4530 cperl-font-lock-keywords)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4531
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4532 (defun cperl-load-font-lock-keywords-1 ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4533 (or cperl-faces-init (cperl-init-faces))
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
4534 cperl-font-lock-keywords-1)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4535
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4536 (defun cperl-load-font-lock-keywords-2 ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4537 (or cperl-faces-init (cperl-init-faces))
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
4538 cperl-font-lock-keywords-2)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4539
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4540 (defun cperl-init-faces-weak ()
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4541 ;; Allow `cperl-find-pods-heres' to run.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4542 (or (boundp 'font-lock-constant-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4543 (cperl-force-face font-lock-constant-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4544 "Face for constant and label names")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4545 ;;(setq font-lock-constant-face 'font-lock-constant-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4546 ))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4547
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4548 (defun cperl-init-faces ()
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4549 (condition-case errs
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4550 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4551 (require 'font-lock)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4552 (and (fboundp 'font-lock-fontify-anchored-keywords)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4553 (featurep 'font-lock-extra)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4554 (message "You have an obsolete package `font-lock-extra'. Install `choose-color'."))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4555 (let (t-font-lock-keywords t-font-lock-keywords-1 font-lock-anchored)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4556 (if (fboundp 'font-lock-fontify-anchored-keywords)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4557 (setq font-lock-anchored t))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4558 (setq
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4559 t-font-lock-keywords
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4560 (list
35013
587807c5e8e6 (cperl-invalid-face): Don't double-quote
Dave Love <fx@gnu.org>
parents: 32880
diff changeset
4561 `("[ \t]+$" 0 ',cperl-invalid-face t)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4562 (cons
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4563 (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4564 "\\(^\\|[^$@%&\\]\\)\\<\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4565 (mapconcat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4566 'identity
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4567 '("if" "until" "while" "elsif" "else" "unless" "for"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4568 "foreach" "continue" "exit" "die" "last" "goto" "next"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4569 "redo" "return" "local" "exec" "sub" "do" "dump" "use"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4570 "require" "package" "eval" "my" "BEGIN" "END" "CHECK" "INIT")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4571 "\\|") ; Flow control
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4572 "\\)\\>") 2) ; was "\\)[ \n\t;():,\|&]"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4573 ; In what follows we use `type' style
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4574 ; for overwritable builtins
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4575 (list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4576 (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4577 "\\(^\\|[^$@%&\\]\\)\\<\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4578 ;; "CORE" "__FILE__" "__LINE__" "abs" "accept" "alarm"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4579 ;; "and" "atan2" "bind" "binmode" "bless" "caller"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4580 ;; "chdir" "chmod" "chown" "chr" "chroot" "close"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4581 ;; "closedir" "cmp" "connect" "continue" "cos" "crypt"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4582 ;; "dbmclose" "dbmopen" "die" "dump" "endgrent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4583 ;; "endhostent" "endnetent" "endprotoent" "endpwent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4584 ;; "endservent" "eof" "eq" "exec" "exit" "exp" "fcntl"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4585 ;; "fileno" "flock" "fork" "formline" "ge" "getc"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4586 ;; "getgrent" "getgrgid" "getgrnam" "gethostbyaddr"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4587 ;; "gethostbyname" "gethostent" "getlogin"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4588 ;; "getnetbyaddr" "getnetbyname" "getnetent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4589 ;; "getpeername" "getpgrp" "getppid" "getpriority"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4590 ;; "getprotobyname" "getprotobynumber" "getprotoent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4591 ;; "getpwent" "getpwnam" "getpwuid" "getservbyname"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4592 ;; "getservbyport" "getservent" "getsockname"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4593 ;; "getsockopt" "glob" "gmtime" "gt" "hex" "index" "int"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4594 ;; "ioctl" "join" "kill" "lc" "lcfirst" "le" "length"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4595 ;; "link" "listen" "localtime" "lock" "log" "lstat" "lt"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4596 ;; "mkdir" "msgctl" "msgget" "msgrcv" "msgsnd" "ne"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4597 ;; "not" "oct" "open" "opendir" "or" "ord" "pack" "pipe"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4598 ;; "quotemeta" "rand" "read" "readdir" "readline"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4599 ;; "readlink" "readpipe" "recv" "ref" "rename" "require"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4600 ;; "reset" "reverse" "rewinddir" "rindex" "rmdir" "seek"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4601 ;; "seekdir" "select" "semctl" "semget" "semop" "send"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4602 ;; "setgrent" "sethostent" "setnetent" "setpgrp"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4603 ;; "setpriority" "setprotoent" "setpwent" "setservent"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4604 ;; "setsockopt" "shmctl" "shmget" "shmread" "shmwrite"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4605 ;; "shutdown" "sin" "sleep" "socket" "socketpair"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4606 ;; "sprintf" "sqrt" "srand" "stat" "substr" "symlink"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4607 ;; "syscall" "sysopen" "sysread" "system" "syswrite" "tell"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4608 ;; "telldir" "time" "times" "truncate" "uc" "ucfirst"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4609 ;; "umask" "unlink" "unpack" "utime" "values" "vec"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4610 ;; "wait" "waitpid" "wantarray" "warn" "write" "x" "xor"
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4611 "a\\(bs\\|ccept\\|tan2\\|larm\\|nd\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4612 "b\\(in\\(d\\|mode\\)\\|less\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4613 "c\\(h\\(r\\(\\|oot\\)\\|dir\\|mod\\|own\\)\\|aller\\|rypt\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4614 "lose\\(\\|dir\\)\\|mp\\|o\\(s\\|n\\(tinue\\|nect\\)\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4615 "CORE\\|d\\(ie\\|bm\\(close\\|open\\)\\|ump\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4616 "e\\(x\\(p\\|it\\|ec\\)\\|q\\|nd\\(p\\(rotoent\\|went\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4617 "hostent\\|servent\\|netent\\|grent\\)\\|of\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4618 "f\\(ileno\\|cntl\\|lock\\|or\\(k\\|mline\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4619 "g\\(t\\|lob\\|mtime\\|e\\(\\|t\\(p\\(pid\\|r\\(iority\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4620 "oto\\(byn\\(ame\\|umber\\)\\|ent\\)\\)\\|eername\\|w"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4621 "\\(uid\\|ent\\|nam\\)\\|grp\\)\\|host\\(by\\(addr\\|name\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4622 "ent\\)\\|s\\(erv\\(by\\(port\\|name\\)\\|ent\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4623 "ock\\(name\\|opt\\)\\)\\|c\\|login\\|net\\(by\\(addr\\|name\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4624 "ent\\)\\|gr\\(ent\\|nam\\|gid\\)\\)\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4625 "hex\\|i\\(n\\(t\\|dex\\)\\|octl\\)\\|join\\|kill\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4626 "l\\(i\\(sten\\|nk\\)\\|stat\\|c\\(\\|first\\)\\|t\\|e"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4627 "\\(\\|ngth\\)\\|o\\(c\\(altime\\|k\\)\\|g\\)\\)\\|m\\(sg\\(rcv\\|snd\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4628 "ctl\\|get\\)\\|kdir\\)\\|n\\(e\\|ot\\)\\|o\\(pen\\(\\|dir\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4629 "r\\(\\|d\\)\\|ct\\)\\|p\\(ipe\\|ack\\)\\|quotemeta\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4630 "r\\(index\\|and\\|mdir\\|e\\(quire\\|ad\\(pipe\\|\\|lin"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4631 "\\(k\\|e\\)\\|dir\\)\\|set\\|cv\\|verse\\|f\\|winddir\\|name"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4632 "\\)\\)\\|s\\(printf\\|qrt\\|rand\\|tat\\|ubstr\\|e\\(t\\(p\\(r"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4633 "\\(iority\\|otoent\\)\\|went\\|grp\\)\\|hostent\\|s\\(ervent\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4634 "ockopt\\)\\|netent\\|grent\\)\\|ek\\(\\|dir\\)\\|lect\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4635 "m\\(ctl\\|op\\|get\\)\\|nd\\)\\|h\\(utdown\\|m\\(read\\|ctl\\|"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4636 "write\\|get\\)\\)\\|y\\(s\\(read\\|call\\|open\\|tem\\|write\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4637 "mlink\\)\\|in\\|leep\\|ocket\\(pair\\|\\)\\)\\|t\\(runcate\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4638 "ell\\(\\|dir\\)\\|ime\\(\\|s\\)\\)\\|u\\(c\\(\\|first\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4639 "time\\|mask\\|n\\(pack\\|link\\)\\)\\|v\\(alues\\|ec\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4640 "w\\(a\\(rn\\|it\\(pid\\|\\)\\|ntarray\\)\\|rite\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4641 "x\\(\\|or\\)\\|__\\(FILE__\\|LINE__\\|PACKAGE__\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4642 "\\)\\>") 2 'font-lock-type-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4643 ;; In what follows we use `other' style
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4644 ;; for nonoverwritable builtins
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4645 ;; Somehow 's', 'm' are not auto-generated???
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4646 (list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4647 (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4648 "\\(^\\|[^$@%&\\]\\)\\<\\("
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4649 ;; "AUTOLOAD" "BEGIN" "CHECK" "DESTROY" "END" "INIT" "__END__" "chomp"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4650 ;; "chop" "defined" "delete" "do" "each" "else" "elsif"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4651 ;; "eval" "exists" "for" "foreach" "format" "goto"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4652 ;; "grep" "if" "keys" "last" "local" "map" "my" "next"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4653 ;; "no" "package" "pop" "pos" "print" "printf" "push"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4654 ;; "q" "qq" "qw" "qx" "redo" "return" "scalar" "shift"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4655 ;; "sort" "splice" "split" "study" "sub" "tie" "tr"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4656 ;; "undef" "unless" "unshift" "untie" "until" "use"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4657 ;; "while" "y"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4658 "AUTOLOAD\\|BEGIN\\|CHECK\\|cho\\(p\\|mp\\)\\|d\\(e\\(fined\\|lete\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4659 "o\\)\\|DESTROY\\|e\\(ach\\|val\\|xists\\|ls\\(e\\|if\\)\\)\\|"
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4660 "END\\|for\\(\\|each\\|mat\\)\\|g\\(rep\\|oto\\)\\|INIT\\|if\\|keys\\|"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4661 "l\\(ast\\|ocal\\)\\|m\\(ap\\|y\\)\\|n\\(ext\\|o\\)\\|our\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4662 "p\\(ackage\\|rint\\(\\|f\\)\\|ush\\|o\\(p\\|s\\)\\)\\|"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4663 "q\\(\\|q\\|w\\|x\\|r\\)\\|re\\(turn\\|do\\)\\|s\\(pli\\(ce\\|t\\)\\|"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4664 "calar\\|tudy\\|ub\\|hift\\|ort\\)\\|t\\(r\\|ie\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4665 "u\\(se\\|n\\(shift\\|ti\\(l\\|e\\)\\|def\\|less\\)\\)\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4666 "while\\|y\\|__\\(END\\|DATA\\)__" ;__DATA__ added manually
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4667 "\\|[sm]" ; Added manually
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4668 "\\)\\>") 2 'cperl-nonoverridable-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4669 ;; (mapconcat 'identity
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4670 ;; '("#endif" "#else" "#ifdef" "#ifndef" "#if"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4671 ;; "#include" "#define" "#undef")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4672 ;; "\\|")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4673 '("-[rwxoRWXOezsfdlpSbctugkTBMAC]\\>\\([ \t]+_\\>\\)?" 0
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4674 font-lock-function-name-face keep) ; Not very good, triggers at "[a-z]"
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4675 '("\\<sub[ \t]+\\([^ \t{;()]+\\)[ \t]*\\(([^()]*)[ \t]*\\)?[#{\n]" 1
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4676 font-lock-function-name-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4677 '("\\<\\(package\\|require\\|use\\|import\\|no\\|bootstrap\\)[ \t]+\\([a-zA-z_][a-zA-z_0-9:]*\\)[ \t;]" ; require A if B;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4678 2 font-lock-function-name-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4679 '("^[ \t]*format[ \t]+\\([a-zA-z_][a-zA-z_0-9:]*\\)[ \t]*=[ \t]*$"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4680 1 font-lock-function-name-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4681 (cond ((featurep 'font-lock-extra)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4682 '("\\([]}\\\\%@>*&]\\|\\$[a-zA-Z0-9_:]*\\)[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4683 (2 font-lock-string-face t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4684 (0 '(restart 2 t)))) ; To highlight $a{bc}{ef}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4685 (font-lock-anchored
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4686 '("\\([]}\\\\%@>*&]\\|\\$[a-zA-Z0-9_:]*\\)[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4687 (2 font-lock-string-face t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4688 ("\\=[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4689 nil nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4690 (1 font-lock-string-face t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4691 (t '("\\([]}\\\\%@>*&]\\|\\$[a-zA-Z0-9_:]*\\)[ \t]*{[ \t]*\\(-?[a-zA-Z0-9_:]+\\)[ \t]*}"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4692 2 font-lock-string-face t)))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4693 '("[\[ \t{,(]\\(-?[a-zA-Z0-9_:]+\\)[ \t]*=>" 1
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4694 font-lock-string-face t)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4695 '("^[ \t]*\\([a-zA-Z0-9_]+[ \t]*:\\)[ \t]*\\($\\|{\\|\\<\\(until\\|while\\|for\\(each\\)?\\|do\\)\\>\\)" 1
20953
f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20323
diff changeset
4696 font-lock-constant-face) ; labels
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4697 '("\\<\\(continue\\|next\\|last\\|redo\\|goto\\)\\>[ \t]+\\([a-zA-Z0-9_:]+\\)" ; labels as targets
20953
f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20323
diff changeset
4698 2 font-lock-constant-face)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4699 ;; Uncomment to get perl-mode-like vars
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4700 ;;; '("[$*]{?\\(\\sw+\\)" 1 font-lock-variable-name-face)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4701 ;;; '("\\([@%]\\|\\$#\\)\\(\\sw+\\)"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4702 ;;; (2 (cons font-lock-variable-name-face '(underline))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4703 (cond ((featurep 'font-lock-extra)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4704 '("^[ \t]*\\(my\\|local\\|our\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)\\([ \t]*,\\)?"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4705 (3 font-lock-variable-name-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4706 (4 '(another 4 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4707 ("\\=[ \t]*,[ \t]*\\([$@%*][a-zA-Z0-9_:]+\\)\\([ \t]*,\\)?"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4708 (1 font-lock-variable-name-face)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4709 (2 '(restart 2 nil) nil t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4710 nil t))) ; local variables, multiple
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4711 (font-lock-anchored
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4712 '("^[ \t{}]*\\(my\\|local\\|our\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4713 (3 font-lock-variable-name-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4714 ("\\=[ \t]*,[ \t]*\\([$@%*][a-zA-Z0-9_:]+\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4715 nil nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4716 (1 font-lock-variable-name-face))))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4717 (t '("^[ \t{}]*\\(my\\|local\\our\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4718 3 font-lock-variable-name-face)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4719 '("\\<for\\(each\\)?\\([ \t]+\\(my\\|local\\|our\\)\\)?[ \t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*("
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4720 4 font-lock-variable-name-face)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4721 (setq
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4722 t-font-lock-keywords-1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4723 (and (fboundp 'turn-on-font-lock) ; Check for newer font-lock
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4724 (not cperl-xemacs-p) ; not yet as of XEmacs 19.12
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4725 '(
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4726 ("\\(\\([@%]\\|\$#\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)" 1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4727 (if (eq (char-after (match-beginning 2)) ?%)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4728 cperl-hash-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4729 cperl-array-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4730 t) ; arrays and hashes
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4731 ("\\(\\([$@]+\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)[ \t]*\\([[{]\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4732 1
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4733 (if (= (- (match-end 2) (match-beginning 2)) 1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4734 (if (eq (char-after (match-beginning 3)) ?{)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4735 cperl-hash-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4736 cperl-array-face) ; arrays and hashes
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4737 font-lock-variable-name-face) ; Just to put something
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4738 t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4739 ;;("\\([smy]\\|tr\\)\\([^a-z_A-Z0-9]\\)\\(\\([^\n\\]*||\\)\\)\\2")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4740 ;;; Too much noise from \s* @s[ and friends
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4741 ;;("\\(\\<\\([msy]\\|tr\\)[ \t]*\\([^ \t\na-zA-Z0-9_]\\)\\|\\(/\\)\\)"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4742 ;;(3 font-lock-function-name-face t t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4743 ;;(4
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4744 ;; (if (cperl-slash-is-regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4745 ;; font-lock-function-name-face 'default) nil t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4746 )))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4747 (if cperl-highlight-variables-indiscriminately
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4748 (setq t-font-lock-keywords-1
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4749 (append t-font-lock-keywords-1
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4750 (list '("[$*]{?\\(\\sw+\\)" 1
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4751 font-lock-variable-name-face)))))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4752 (setq cperl-font-lock-keywords-1
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4753 (if cperl-syntaxify-by-font-lock
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4754 (cons 'cperl-fontify-update
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4755 t-font-lock-keywords)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4756 t-font-lock-keywords)
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
4757 cperl-font-lock-keywords cperl-font-lock-keywords-1
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
4758 cperl-font-lock-keywords-2 (append
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4759 cperl-font-lock-keywords-1
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
4760 t-font-lock-keywords-1)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4761 (if (fboundp 'ps-print-buffer) (cperl-ps-print-init))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4762 (if (or (featurep 'choose-color) (featurep 'font-lock-extra))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4763 (eval ; Avoid a warning
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4764 '(font-lock-require-faces
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4765 (list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4766 ;; Color-light Color-dark Gray-light Gray-dark Mono
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4767 (list 'font-lock-comment-face
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4768 ["Firebrick" "OrangeRed" "DimGray" "Gray80"]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4769 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4770 [nil nil t t t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4771 [nil nil t t t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4772 nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4773 (list 'font-lock-string-face
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4774 ["RosyBrown" "LightSalmon" "Gray50" "LightGray"]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4775 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4776 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4777 [nil nil t t t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4778 nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4779 (list 'font-lock-function-name-face
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4780 (vector
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4781 "Blue" "LightSkyBlue" "Gray50" "LightGray"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4782 (cdr (assq 'background-color ; if mono
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4783 (frame-parameters))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4784 (vector
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4785 nil nil nil nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4786 (cdr (assq 'foreground-color ; if mono
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4787 (frame-parameters))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4788 [nil nil t t t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4789 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4790 nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4791 (list 'font-lock-variable-name-face
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4792 ["DarkGoldenrod" "LightGoldenrod" "DimGray" "Gray90"]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4793 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4794 [nil nil t t t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4795 [nil nil t t t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4796 nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4797 (list 'font-lock-type-face
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4798 ["DarkOliveGreen" "PaleGreen" "DimGray" "Gray80"]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4799 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4800 [nil nil t t t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4801 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4802 [nil nil t t t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4803 )
20953
f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20323
diff changeset
4804 (list 'font-lock-constant-face
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4805 ["CadetBlue" "Aquamarine" "Gray50" "LightGray"]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4806 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4807 [nil nil t t t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4808 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4809 [nil nil t t t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4810 )
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4811 (list 'cperl-nonoverridable-face
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4812 ["chartreuse3" ("orchid1" "orange")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4813 nil "Gray80"]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4814 [nil nil "gray90"]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4815 [nil nil nil t t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4816 [nil nil t t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4817 [nil nil t t t]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4818 )
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4819 (list 'cperl-array-face
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4820 ["blue" "yellow" nil "Gray80"]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4821 ["lightyellow2" ("navy" "os2blue" "darkgreen")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4822 "gray90"]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4823 t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4824 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4825 nil)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4826 (list 'cperl-hash-face
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4827 ["red" "red" nil "Gray80"]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4828 ["lightyellow2" ("navy" "os2blue" "darkgreen")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4829 "gray90"]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4830 t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4831 t
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4832 nil))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4833 ;; Do it the dull way, without choose-color
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4834 (defvar cperl-guessed-background nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4835 "Display characteristics as guessed by cperl.")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4836 ;; (or (fboundp 'x-color-defined-p)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4837 ;; (defalias 'x-color-defined-p
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4838 ;; (cond ((fboundp 'color-defined-p) 'color-defined-p)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4839 ;; ;; XEmacs >= 19.12
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4840 ;; ((fboundp 'valid-color-name-p) 'valid-color-name-p)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4841 ;; ;; XEmacs 19.11
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4842 ;; (t 'x-valid-color-name-p))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4843 (cperl-force-face font-lock-constant-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4844 "Face for constant and label names")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4845 (cperl-force-face font-lock-variable-name-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4846 "Face for variable names")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4847 (cperl-force-face font-lock-type-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4848 "Face for data types")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4849 (cperl-force-face cperl-nonoverridable-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4850 "Face for data types from another group")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4851 (cperl-force-face font-lock-comment-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4852 "Face for comments")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4853 (cperl-force-face font-lock-function-name-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4854 "Face for function names")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4855 (cperl-force-face cperl-hash-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4856 "Face for hashes")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4857 (cperl-force-face cperl-array-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4858 "Face for arrays")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4859 ;;(defvar font-lock-constant-face 'font-lock-constant-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4860 ;;(defvar font-lock-variable-name-face 'font-lock-variable-name-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4861 ;;(or (boundp 'font-lock-type-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4862 ;; (defconst font-lock-type-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4863 ;; 'font-lock-type-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4864 ;; "Face to use for data types."))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4865 ;;(or (boundp 'cperl-nonoverridable-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4866 ;; (defconst cperl-nonoverridable-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4867 ;; 'cperl-nonoverridable-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4868 ;; "Face to use for data types from another group."))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4869 ;;(if (not cperl-xemacs-p) nil
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4870 ;; (or (boundp 'font-lock-comment-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4871 ;; (defconst font-lock-comment-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4872 ;; 'font-lock-comment-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4873 ;; "Face to use for comments."))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4874 ;; (or (boundp 'font-lock-keyword-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4875 ;; (defconst font-lock-keyword-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4876 ;; 'font-lock-keyword-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4877 ;; "Face to use for keywords."))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4878 ;; (or (boundp 'font-lock-function-name-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4879 ;; (defconst font-lock-function-name-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4880 ;; 'font-lock-function-name-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4881 ;; "Face to use for function names.")))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4882 (if (and
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4883 (not (cperl-is-face 'cperl-array-face))
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4884 (cperl-is-face 'font-lock-emphasized-face))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4885 (copy-face 'font-lock-emphasized-face 'cperl-array-face))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4886 (if (and
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4887 (not (cperl-is-face 'cperl-hash-face))
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4888 (cperl-is-face 'font-lock-other-emphasized-face))
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4889 (copy-face 'font-lock-other-emphasized-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4890 'cperl-hash-face))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4891 (if (and
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4892 (not (cperl-is-face 'cperl-nonoverridable-face))
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4893 (cperl-is-face 'font-lock-other-type-face))
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4894 (copy-face 'font-lock-other-type-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4895 'cperl-nonoverridable-face))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4896 ;;(or (boundp 'cperl-hash-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4897 ;; (defconst cperl-hash-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4898 ;; 'cperl-hash-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4899 ;; "Face to use for hashes."))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4900 ;;(or (boundp 'cperl-array-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4901 ;; (defconst cperl-array-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4902 ;; 'cperl-array-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4903 ;; "Face to use for arrays."))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4904 ;; Here we try to guess background
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4905 (let ((background
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4906 (if (boundp 'font-lock-background-mode)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4907 font-lock-background-mode
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4908 'light))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4909 (face-list (and (fboundp 'face-list) (face-list)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4910 ;; cperl-is-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4911 )
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4912 ;;;; (fset 'cperl-is-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4913 ;;;; (cond ((fboundp 'find-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4914 ;;;; (symbol-function 'find-face))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4915 ;;;; (face-list
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4916 ;;;; (function (lambda (face) (member face face-list))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4917 ;;;; (t
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4918 ;;;; (function (lambda (face) (boundp face))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4919 (defvar cperl-guessed-background
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4920 (if (and (boundp 'font-lock-display-type)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4921 (eq font-lock-display-type 'grayscale))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4922 'gray
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4923 background)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4924 "Background as guessed by CPerl mode")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4925 (if (and
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4926 (not (cperl-is-face 'font-lock-constant-face))
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
4927 (cperl-is-face 'font-lock-reference-face))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4928 (copy-face 'font-lock-reference-face 'font-lock-constant-face))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4929 (if (cperl-is-face 'font-lock-type-face) nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4930 (copy-face 'default 'font-lock-type-face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4931 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4932 ((eq background 'light)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4933 (set-face-foreground 'font-lock-type-face
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4934 (if (x-color-defined-p "seagreen")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4935 "seagreen"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4936 "sea green")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4937 ((eq background 'dark)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4938 (set-face-foreground 'font-lock-type-face
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4939 (if (x-color-defined-p "os2pink")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4940 "os2pink"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4941 "pink")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4942 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4943 (set-face-background 'font-lock-type-face "gray90"))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4944 (if (cperl-is-face 'cperl-nonoverridable-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4945 nil
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4946 (copy-face 'font-lock-type-face 'cperl-nonoverridable-face)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4947 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4948 ((eq background 'light)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4949 (set-face-foreground 'cperl-nonoverridable-face
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4950 (if (x-color-defined-p "chartreuse3")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4951 "chartreuse3"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4952 "chartreuse")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4953 ((eq background 'dark)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4954 (set-face-foreground 'cperl-nonoverridable-face
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4955 (if (x-color-defined-p "orchid1")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4956 "orchid1"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4957 "orange")))))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4958 ;;; (if (cperl-is-face 'font-lock-other-emphasized-face) nil
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4959 ;;; (copy-face 'bold-italic 'font-lock-other-emphasized-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4960 ;;; (cond
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4961 ;;; ((eq background 'light)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4962 ;;; (set-face-background 'font-lock-other-emphasized-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4963 ;;; (if (x-color-defined-p "lightyellow2")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4964 ;;; "lightyellow2"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4965 ;;; (if (x-color-defined-p "lightyellow")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4966 ;;; "lightyellow"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4967 ;;; "light yellow"))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4968 ;;; ((eq background 'dark)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4969 ;;; (set-face-background 'font-lock-other-emphasized-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4970 ;;; (if (x-color-defined-p "navy")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4971 ;;; "navy"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4972 ;;; (if (x-color-defined-p "darkgreen")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4973 ;;; "darkgreen"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4974 ;;; "dark green"))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4975 ;;; (t (set-face-background 'font-lock-other-emphasized-face "gray90"))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4976 ;;; (if (cperl-is-face 'font-lock-emphasized-face) nil
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4977 ;;; (copy-face 'bold 'font-lock-emphasized-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4978 ;;; (cond
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4979 ;;; ((eq background 'light)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4980 ;;; (set-face-background 'font-lock-emphasized-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4981 ;;; (if (x-color-defined-p "lightyellow2")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4982 ;;; "lightyellow2"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4983 ;;; "lightyellow")))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4984 ;;; ((eq background 'dark)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4985 ;;; (set-face-background 'font-lock-emphasized-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4986 ;;; (if (x-color-defined-p "navy")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4987 ;;; "navy"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4988 ;;; (if (x-color-defined-p "darkgreen")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4989 ;;; "darkgreen"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4990 ;;; "dark green"))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4991 ;;; (t (set-face-background 'font-lock-emphasized-face "gray90"))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4992 (if (cperl-is-face 'font-lock-variable-name-face) nil
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4993 (copy-face 'italic 'font-lock-variable-name-face))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
4994 (if (cperl-is-face 'font-lock-constant-face) nil
20953
f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20323
diff changeset
4995 (copy-face 'italic 'font-lock-constant-face))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4996 (setq cperl-faces-init t))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
4997 (error (message "cperl-init-faces (ignored): %s" errs))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4998
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4999
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5000 (defun cperl-ps-print-init ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5001 "Initialization of `ps-print' components for faces used in CPerl."
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5002 (eval-after-load "ps-print"
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5003 '(setq ps-bold-faces
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5004 ;; font-lock-variable-name-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5005 ;; font-lock-constant-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5006 (append '(cperl-array-face
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5007 cperl-hash-face)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5008 ps-bold-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5009 ps-italic-faces
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5010 ;; font-lock-constant-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5011 (append '(cperl-nonoverridable-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5012 cperl-hash-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5013 ps-italic-faces)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5014 ps-underlined-faces
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5015 ;; font-lock-type-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5016 (append '(cperl-array-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5017 cperl-hash-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5018 underline
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5019 cperl-nonoverridable-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5020 ps-underlined-faces))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5021
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5022 (defvar ps-print-face-extension-alist)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5023
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5024 (defun cperl-ps-print (&optional file)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5025 "Pretty-print in CPerl style.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5026 If optional argument FILE is an empty string, prints to printer, otherwise
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5027 to the file FILE. If FILE is nil, prompts for a file name.
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5028
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5029 Style of printout regulated by the variable `cperl-ps-print-face-properties'."
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5030 (interactive)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5031 (or file
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5032 (setq file (read-from-minibuffer
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5033 "Print to file (if empty - to printer): "
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5034 (concat (buffer-file-name) ".ps")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5035 nil nil 'file-name-history)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5036 (or (> (length file) 0)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5037 (setq file nil))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5038 (require 'ps-print) ; To get ps-print-face-extension-alist
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5039 (let ((ps-print-color-p t)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5040 (ps-print-face-extension-alist ps-print-face-extension-alist))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5041 (cperl-ps-extend-face-list cperl-ps-print-face-properties)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5042 (ps-print-buffer-with-faces file)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5043
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5044 ;;; (defun cperl-ps-print-init ()
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5045 ;;; "Initialization of `ps-print' components for faces used in CPerl."
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5046 ;;; ;; Guard against old versions
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5047 ;;; (defvar ps-underlined-faces nil)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5048 ;;; (defvar ps-bold-faces nil)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5049 ;;; (defvar ps-italic-faces nil)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5050 ;;; (setq ps-bold-faces
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5051 ;;; (append '(font-lock-emphasized-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5052 ;;; cperl-array-face
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5053 ;;; font-lock-keyword-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5054 ;;; font-lock-variable-name-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5055 ;;; font-lock-constant-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5056 ;;; font-lock-reference-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5057 ;;; font-lock-other-emphasized-face
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5058 ;;; cperl-hash-face)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5059 ;;; ps-bold-faces))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5060 ;;; (setq ps-italic-faces
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5061 ;;; (append '(cperl-nonoverridable-face
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5062 ;;; font-lock-constant-face
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5063 ;;; font-lock-reference-face
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5064 ;;; font-lock-other-emphasized-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5065 ;;; cperl-hash-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5066 ;;; ps-italic-faces))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5067 ;;; (setq ps-underlined-faces
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5068 ;;; (append '(font-lock-emphasized-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5069 ;;; cperl-array-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5070 ;;; font-lock-other-emphasized-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5071 ;;; cperl-hash-face
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5072 ;;; cperl-nonoverridable-face font-lock-type-face)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5073 ;;; ps-underlined-faces))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5074 ;;; (cons 'font-lock-type-face ps-underlined-faces))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5075
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5076
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5077 (if (cperl-enable-font-lock) (cperl-windowed-init))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5078
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5079 (defconst cperl-styles-entries
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5080 '(cperl-indent-level cperl-brace-offset cperl-continued-brace-offset
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5081 cperl-label-offset cperl-extra-newline-before-brace
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
5082 cperl-merge-trailing-else
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5083 cperl-continued-statement-offset))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5084
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5085 (defconst cperl-style-alist
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5086 '(("CPerl" ; =GNU without extra-newline-before-brace
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5087 (cperl-indent-level . 2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5088 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5089 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5090 (cperl-label-offset . -2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5091 (cperl-extra-newline-before-brace . nil)
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
5092 (cperl-merge-trailing-else . t)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5093 (cperl-continued-statement-offset . 2))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5094 ("PerlStyle" ; CPerl with 4 as indent
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5095 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5096 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5097 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5098 (cperl-label-offset . -4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5099 (cperl-extra-newline-before-brace . nil)
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
5100 (cperl-merge-trailing-else . t)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5101 (cperl-continued-statement-offset . 4))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5102 ("GNU"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5103 (cperl-indent-level . 2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5104 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5105 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5106 (cperl-label-offset . -2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5107 (cperl-extra-newline-before-brace . t)
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
5108 (cperl-merge-trailing-else . nil)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5109 (cperl-continued-statement-offset . 2))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5110 ("K&R"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5111 (cperl-indent-level . 5)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5112 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5113 (cperl-continued-brace-offset . -5)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5114 (cperl-label-offset . -5)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5115 ;;(cperl-extra-newline-before-brace . nil) ; ???
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
5116 (cperl-merge-trailing-else . nil)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5117 (cperl-continued-statement-offset . 5))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5118 ("BSD"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5119 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5120 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5121 (cperl-continued-brace-offset . -4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5122 (cperl-label-offset . -4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5123 ;;(cperl-extra-newline-before-brace . nil) ; ???
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5124 (cperl-continued-statement-offset . 4))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5125 ("C++"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5126 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5127 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5128 (cperl-continued-brace-offset . -4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5129 (cperl-label-offset . -4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5130 (cperl-continued-statement-offset . 4)
22391
680733ae3334 Second half of changes in version 1.4.
Richard M. Stallman <rms@gnu.org>
parents: 22390
diff changeset
5131 (cperl-merge-trailing-else . nil)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5132 (cperl-extra-newline-before-brace . t))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5133 ("Current")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5134 ("Whitesmith"
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5135 (cperl-indent-level . 4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5136 (cperl-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5137 (cperl-continued-brace-offset . 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5138 (cperl-label-offset . -4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5139 ;;(cperl-extra-newline-before-brace . nil) ; ???
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5140 (cperl-continued-statement-offset . 4)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5141 "(Experimental) list of variables to set to get a particular indentation style.
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5142 Should be used via `cperl-set-style' or via Perl menu.")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5143
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5144 (defun cperl-set-style (style)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5145 "Set CPerl-mode variables to use one of several different indentation styles.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5146 The arguments are a string representing the desired style.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5147 The list of styles is in `cperl-style-alist', available styles
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5148 are GNU, K&R, BSD, C++ and Whitesmith.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5149
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5150 The current value of style is memorized (unless there is a memorized
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5151 data already), may be restored by `cperl-set-style-back'.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5152
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5153 Chosing \"Current\" style will not change style, so this may be used for
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5154 side-effect of memorizing only."
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5155 (interactive
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5156 (let ((list (mapcar (function (lambda (elt) (list (car elt))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5157 cperl-style-alist)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5158 (list (completing-read "Enter style: " list nil 'insist))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5159 (or cperl-old-style
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5160 (setq cperl-old-style
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5161 (mapcar (function
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5162 (lambda (name)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5163 (cons name (eval name))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5164 cperl-styles-entries)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5165 (let ((style (cdr (assoc style cperl-style-alist))) setting str sym)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5166 (while style
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5167 (setq setting (car style) style (cdr style))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5168 (set (car setting) (cdr setting)))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5169
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5170 (defun cperl-set-style-back ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5171 "Restore a style memorised by `cperl-set-style'."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5172 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5173 (or cperl-old-style (error "The style was not changed"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5174 (let (setting)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5175 (while cperl-old-style
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5176 (setq setting (car cperl-old-style)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5177 cperl-old-style (cdr cperl-old-style))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5178 (set (car setting) (cdr setting)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5179
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5180 (defun cperl-check-syntax ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5181 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5182 (require 'mode-compile)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5183 (let ((perl-dbg-flags (concat cperl-extra-perl-args " -wc")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5184 (eval '(mode-compile)))) ; Avoid a warning
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5185
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5186 (defun cperl-info-buffer (type)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5187 ;; Returns buffer with documentation. Creates if missing.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5188 ;; If TYPE, this vars buffer.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5189 ;; Special care is taken to not stomp over an existing info buffer
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5190 (let* ((bname (if type "*info-perl-var*" "*info-perl*"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5191 (info (get-buffer bname))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5192 (oldbuf (get-buffer "*info*")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5193 (if info info
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5194 (save-window-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5195 ;; Get Info running
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5196 (require 'info)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5197 (cond (oldbuf
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5198 (set-buffer oldbuf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5199 (rename-buffer "*info-perl-tmp*")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5200 (save-window-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5201 (info))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5202 (Info-find-node cperl-info-page (if type "perlvar" "perlfunc"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5203 (set-buffer "*info*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5204 (rename-buffer bname)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5205 (cond (oldbuf
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5206 (set-buffer "*info-perl-tmp*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5207 (rename-buffer "*info*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5208 (set-buffer bname)))
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
5209 (make-local-variable 'window-min-height)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5210 (setq window-min-height 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5211 (current-buffer)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5212
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5213 (defun cperl-word-at-point (&optional p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5214 ;; Returns the word at point or at P.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5215 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5216 (if p (goto-char p))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5217 (or (cperl-word-at-point-hard)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5218 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5219 (require 'etags)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5220 (funcall (or (and (boundp 'find-tag-default-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5221 find-tag-default-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5222 (get major-mode 'find-tag-default-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5223 ;; XEmacs 19.12 has `find-tag-default-hook'; it is
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5224 ;; automatically used within `find-tag-default':
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5225 'find-tag-default))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5226
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5227 (defun cperl-info-on-command (command)
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
5228 "Show documentation for Perl command in other window.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5229 If perl-info buffer is shown in some frame, uses this frame.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5230 Customized by setting variables `cperl-shrink-wrap-info-frame',
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5231 `cperl-max-help-size'."
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5232 (interactive
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5233 (let* ((default (cperl-word-at-point))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5234 (read (read-string
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5235 (format "Find doc for Perl function (default %s): "
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5236 default))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5237 (list (if (equal read "")
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5238 default
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5239 read))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5240
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5241 (let ((buffer (current-buffer))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5242 (cmd-desc (concat "^" (regexp-quote command) "[^a-zA-Z_0-9]")) ; "tr///"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5243 pos isvar height iniheight frheight buf win fr1 fr2 iniwin not-loner
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5244 max-height char-height buf-list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5245 (if (string-match "^-[a-zA-Z]$" command)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5246 (setq cmd-desc "^-X[ \t\n]"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5247 (setq isvar (string-match "^[$@%]" command)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5248 buf (cperl-info-buffer isvar)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5249 iniwin (selected-window)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5250 fr1 (window-frame iniwin))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5251 (set-buffer buf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5252 (beginning-of-buffer)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5253 (or isvar
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5254 (progn (re-search-forward "^-X[ \t\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5255 (forward-line -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5256 (if (re-search-forward cmd-desc nil t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5257 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5258 ;; Go back to beginning of the group (ex, for qq)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5259 (if (re-search-backward "^[ \t\n\f]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5260 (forward-line 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5261 (beginning-of-line)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5262 ;; Get some of
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5263 (setq pos (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5264 buf-list (list buf "*info-perl-var*" "*info-perl*"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5265 (while (and (not win) buf-list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5266 (setq win (get-buffer-window (car buf-list) t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5267 (setq buf-list (cdr buf-list)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5268 (or (not win)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5269 (eq (window-buffer win) buf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5270 (set-window-buffer win buf))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5271 (and win (setq fr2 (window-frame win)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5272 (if (or (not fr2) (eq fr1 fr2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5273 (pop-to-buffer buf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5274 (special-display-popup-frame buf) ; Make it visible
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5275 (select-window win))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5276 (goto-char pos) ; Needed (?!).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5277 ;; Resize
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5278 (setq iniheight (window-height)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5279 frheight (frame-height)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5280 not-loner (< iniheight (1- frheight))) ; Are not alone
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5281 (cond ((if not-loner cperl-max-help-size
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5282 cperl-shrink-wrap-info-frame)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5283 (setq height
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5284 (+ 2
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5285 (count-lines
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5286 pos
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5287 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5288 (if (re-search-forward
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5289 "^[ \t][^\n]*\n+\\([^ \t\n\f]\\|\\'\\)" nil t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5290 (match-beginning 0) (point-max)))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5291 max-height
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5292 (if not-loner
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5293 (/ (* (- frheight 3) cperl-max-help-size) 100)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5294 (setq char-height (frame-char-height))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5295 ;; Non-functioning under OS/2:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5296 (if (eq char-height 1) (setq char-height 18))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5297 ;; Title, menubar, + 2 for slack
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5298 (- (/ (x-display-pixel-height) char-height) 4)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5299 ))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5300 (if (> height max-height) (setq height max-height))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5301 ;;(message "was %s doing %s" iniheight height)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5302 (if not-loner
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5303 (enlarge-window (- height iniheight))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5304 (set-frame-height (window-frame win) (1+ height)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5305 (set-window-start (selected-window) pos))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5306 (message "No entry for %s found." command))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5307 ;;(pop-to-buffer buffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5308 (select-window iniwin)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5309
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5310 (defun cperl-info-on-current-command ()
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
5311 "Show documentation for Perl command at point in other window."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5312 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5313 (cperl-info-on-command (cperl-word-at-point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5314
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5315 (defun cperl-imenu-info-imenu-search ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5316 (if (looking-at "^-X[ \t\n]") nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5317 (re-search-backward
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5318 "^\n\\([-a-zA-Z_]+\\)[ \t\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5319 (forward-line 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5320
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5321 (defun cperl-imenu-info-imenu-name ()
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5322 (buffer-substring
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5323 (match-beginning 1) (match-end 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5324
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5325 (defun cperl-imenu-on-info ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5326 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5327 (let* ((buffer (current-buffer))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5328 imenu-create-index-function
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5329 imenu-prev-index-position-function
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5330 imenu-extract-index-name-function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5331 (index-item (save-restriction
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5332 (save-window-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5333 (set-buffer (cperl-info-buffer nil))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5334 (setq imenu-create-index-function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5335 'imenu-default-create-index-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5336 imenu-prev-index-position-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5337 'cperl-imenu-info-imenu-search
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5338 imenu-extract-index-name-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5339 'cperl-imenu-info-imenu-name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5340 (imenu-choose-buffer-index)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5341 (and index-item
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5342 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5343 (push-mark)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5344 (pop-to-buffer "*info-perl*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5345 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5346 ((markerp (cdr index-item))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5347 (goto-char (marker-position (cdr index-item))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5348 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5349 (goto-char (cdr index-item))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5350 (set-window-start (selected-window) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5351 (pop-to-buffer buffer)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5352
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5353 (defun cperl-lineup (beg end &optional step minshift)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5354 "Lineup construction in a region.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5355 Beginning of region should be at the start of a construction.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5356 All first occurrences of this construction in the lines that are
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5357 partially contained in the region are lined up at the same column.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5358
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5359 MINSHIFT is the minimal amount of space to insert before the construction.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5360 STEP is the tabwidth to position constructions.
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
5361 If STEP is nil, `cperl-lineup-step' will be used
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5362 \(or `cperl-indent-level', if `cperl-lineup-step' is `nil').
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5363 Will not move the position at the start to the left."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5364 (interactive "r")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5365 (let (search col tcol seen b e)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5366 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5367 (goto-char end)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5368 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5369 (setq end (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5370 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5371 (skip-chars-forward " \t\f")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5372 (setq beg (point-marker))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5373 (indent-region beg end nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5374 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5375 (setq col (current-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5376 (if (looking-at "[a-zA-Z0-9_]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5377 (if (looking-at "\\<[a-zA-Z0-9_]+\\>")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5378 (setq search
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5379 (concat "\\<"
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5380 (regexp-quote
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5381 (buffer-substring (match-beginning 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5382 (match-end 0))) "\\>"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5383 (error "Cannot line up in a middle of the word"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5384 (if (looking-at "$")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5385 (error "Cannot line up end of line"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5386 (setq search (regexp-quote (char-to-string (following-char)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5387 (setq step (or step cperl-lineup-step cperl-indent-level))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5388 (or minshift (setq minshift 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5389 (while (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5390 (beginning-of-line 2)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5391 (and (< (point) end)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5392 (re-search-forward search end t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5393 (goto-char (match-beginning 0))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5394 (setq tcol (current-column) seen t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5395 (if (> tcol col) (setq col tcol)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5396 (or seen
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5397 (error "The construction to line up occurred only once"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5398 (goto-char beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5399 (setq col (+ col minshift))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5400 (if (/= (% col step) 0) (setq step (* step (1+ (/ col step)))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5401 (while
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5402 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5403 (setq e (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5404 (skip-chars-backward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5405 (delete-region (point) e)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5406 (indent-to-column col); (make-string (- col (current-column)) ?\ ))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5407 (beginning-of-line 2)
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5408 (and (< (point) end)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5409 (re-search-forward search end t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5410 (goto-char (match-beginning 0)))))))) ; No body
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5411
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5412 (defun cperl-etags (&optional add all files)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5413 "Run etags with appropriate options for Perl files.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5414 If optional argument ALL is `recursive', will process Perl files
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5415 in subdirectories too."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5416 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5417 (let ((cmd "etags")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5418 (args '("-l" "none" "-r" "/\\<\\(package\\|sub\\)[ \\t]+\\(\\([a-zA-Z0-9:_]*::\\)?\\([a-zA-Z0-9_]+\\)[ \\t]*\\(([^()]*)[ \t]*\\)?\\([{#]\\|$\\)\\)/\\4/"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5419 res)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5420 (if add (setq args (cons "-a" args)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5421 (or files (setq files (list buffer-file-name)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5422 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5423 ((eq all 'recursive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5424 ;;(error "Not implemented: recursive")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5425 (setq args (append (list "-e"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5426 "sub wanted {push @ARGV, $File::Find::name if /\\.[pP][Llm]$/}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5427 use File::Find;
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5428 find(\\&wanted, '.');
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5429 exec @ARGV;"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5430 cmd) args)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5431 cmd "perl"))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5432 (all
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5433 ;;(error "Not implemented: all")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5434 (setq args (append (list "-e"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5435 "push @ARGV, <*.PL *.pl *.pm>;
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5436 exec @ARGV;"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5437 cmd) args)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5438 cmd "perl"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5439 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5440 (setq args (append args files))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5441 (setq res (apply 'call-process cmd nil nil nil args))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5442 (or (eq res 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5443 (message "etags returned \"%s\"" res))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5444
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5445 (defun cperl-toggle-auto-newline ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5446 "Toggle the state of `cperl-auto-newline'."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5447 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5448 (setq cperl-auto-newline (not cperl-auto-newline))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5449 (message "Newlines will %sbe auto-inserted now."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5450 (if cperl-auto-newline "" "not ")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5451
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5452 (defun cperl-toggle-abbrev ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5453 "Toggle the state of automatic keyword expansion in CPerl mode."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5454 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5455 (abbrev-mode (if abbrev-mode 0 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5456 (message "Perl control structure will %sbe auto-inserted now."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5457 (if abbrev-mode "" "not ")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5458
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5459
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5460 (defun cperl-toggle-electric ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5461 "Toggle the state of parentheses doubling in CPerl mode."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5462 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5463 (setq cperl-electric-parens (if (cperl-val 'cperl-electric-parens) 'null t))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5464 (message "Parentheses will %sbe auto-doubled now."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5465 (if (cperl-val 'cperl-electric-parens) "" "not ")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5466
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5467 (defun cperl-toggle-autohelp ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5468 "Toggle the state of automatic help message in CPerl mode.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5469 See `cperl-lazy-help-time' too."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5470 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5471 (if (fboundp 'run-with-idle-timer)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5472 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5473 (if cperl-lazy-installed
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5474 (eval '(cperl-lazy-unstall))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5475 (cperl-lazy-install))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5476 (message "Perl help messages will %sbe automatically shown now."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5477 (if cperl-lazy-installed "" "not ")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5478 (message "Cannot automatically show Perl help messages - run-with-idle-timer missing.")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5479
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5480 (defun cperl-toggle-construct-fix ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5481 "Toggle whether `indent-region'/`indent-sexp' fix whitespace too."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5482 (interactive)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5483 (setq cperl-indent-region-fix-constructs
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5484 (if cperl-indent-region-fix-constructs
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5485 nil
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5486 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5487 (message "indent-region/indent-sexp will %sbe automatically fix whitespace."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5488 (if cperl-indent-region-fix-constructs "" "not ")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
5489
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5490 ;;;; Tags file creation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5491
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5492 (defvar cperl-tmp-buffer " *cperl-tmp*")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5493
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5494 (defun cperl-setup-tmp-buf ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5495 (set-buffer (get-buffer-create cperl-tmp-buffer))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5496 (set-syntax-table cperl-mode-syntax-table)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5497 (buffer-disable-undo)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5498 (auto-fill-mode 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5499 (if cperl-use-syntax-table-text-property-for-tags
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5500 (progn
36601
2a84d5417fbd (cperl-mode): Set major-mode to cperl-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35013
diff changeset
5501 (make-local-variable 'parse-sexp-lookup-properties)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5502 ;; Do not introduce variable if not needed, we check it!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5503 (set 'parse-sexp-lookup-properties t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5504
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5505 (defun cperl-xsub-scan ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5506 (require 'imenu)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5507 (let ((index-alist '())
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5508 (prev-pos 0) index index1 name package prefix)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5509 (goto-char (point-min))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5510 (if noninteractive
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5511 (message "Scanning XSUB for index")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5512 (imenu-progress-message prev-pos 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5513 ;; Search for the function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5514 (progn ;;save-match-data
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5515 (while (re-search-forward
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5516 "^\\([ \t]*MODULE\\>[^\n]*\\<PACKAGE[ \t]*=[ \t]*\\([a-zA-Z_][a-zA-Z_0-9:]*\\)\\>\\|\\([a-zA-Z_][a-zA-Z_0-9]*\\)(\\|[ \t]*BOOT:\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5517 nil t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5518 (or noninteractive
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5519 (imenu-progress-message prev-pos))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5520 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5521 ((match-beginning 2) ; SECTION
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5522 (setq package (buffer-substring (match-beginning 2) (match-end 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5523 (goto-char (match-beginning 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5524 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5525 (forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5526 (if (looking-at "[^\n]*\\<PREFIX[ \t]*=[ \t]*\\([a-zA-Z_][a-zA-Z_0-9]*\\)\\>")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5527 (setq prefix (buffer-substring (match-beginning 1) (match-end 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5528 (setq prefix nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5529 ((not package) nil) ; C language section
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5530 ((match-beginning 3) ; XSUB
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5531 (goto-char (1+ (match-beginning 3)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5532 (setq index (imenu-example--name-and-position))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5533 (setq name (buffer-substring (match-beginning 3) (match-end 3)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5534 (if (and prefix (string-match (concat "^" prefix) name))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5535 (setq name (substring name (length prefix))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5536 (cond ((string-match "::" name) nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5537 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5538 (setq index1 (cons (concat package "::" name) (cdr index)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5539 (push index1 index-alist)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5540 (setcar index name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5541 (push index index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5542 (t ; BOOT: section
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5543 ;; (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5544 (setq index (imenu-example--name-and-position))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5545 (setcar index (concat package "::BOOT:"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5546 (push index index-alist)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5547 (or noninteractive
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5548 (imenu-progress-message prev-pos 100))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5549 index-alist))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5550
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5551 (defvar cperl-unreadable-ok nil)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5552
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5553 (defun cperl-find-tags (ifile xs topdir)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5554 (let (ind (b (get-buffer cperl-tmp-buffer)) lst elt pos ret rel
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5555 (cperl-pod-here-fontify nil) f file)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5556 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5557 (if b (set-buffer b)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5558 (cperl-setup-tmp-buf))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5559 (erase-buffer)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5560 (condition-case err
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5561 (setq file (car (insert-file-contents ifile)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5562 (error (if cperl-unreadable-ok nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5563 (if (y-or-n-p
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5564 (format "File %s unreadable. Continue? " ifile))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5565 (setq cperl-unreadable-ok t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5566 (error "Aborting: unreadable file %s" ifile)))))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5567 (if (not file)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5568 (message "Unreadable file %s" ifile)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5569 (message "Scanning file %s ..." file)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5570 (if (and cperl-use-syntax-table-text-property-for-tags
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5571 (not xs))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5572 (condition-case err ; after __END__ may have garbage
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5573 (cperl-find-pods-heres nil nil noninteractive)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5574 (error (message "While scanning for syntax: %s" err))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5575 (if xs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5576 (setq lst (cperl-xsub-scan))
31821
b2aecc723a3e (top-level): Clean up
Dave Love <fx@gnu.org>
parents: 27248
diff changeset
5577 (setq ind (cperl-imenu--create-perl-index))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5578 (setq lst (cdr (assoc "+Unsorted List+..." ind))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5579 (setq lst
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5580 (mapcar
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5581 (function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5582 (lambda (elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5583 (cond ((string-match "^[_a-zA-Z]" (car elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5584 (goto-char (cdr elt))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5585 (beginning-of-line) ; pos should be of the start of the line
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5586 (list (car elt)
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5587 (point)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5588 (1+ (count-lines 1 (point))) ; 1+ since at beg-o-l
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5589 (buffer-substring (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5590 (goto-char (cdr elt))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5591 ;; After name now...
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5592 (or (eolp) (forward-char 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5593 (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5594 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5595 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5596 (point))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5597 lst))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5598 (erase-buffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5599 (while lst
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5600 (setq elt (car lst) lst (cdr lst))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5601 (if elt
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5602 (progn
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5603 (insert (elt elt 3)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5604 127
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5605 (if (string-match "^package " (car elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5606 (substring (car elt) 8)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5607 (car elt) )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5608 1
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5609 (number-to-string (elt elt 2)) ; Line
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5610 ","
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5611 (number-to-string (1- (elt elt 1))) ; Char pos 0-based
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5612 "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5613 (if (and (string-match "^[_a-zA-Z]+::" (car elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5614 (string-match "^sub[ \t]+\\([_a-zA-Z]+\\)[^:_a-zA-Z]"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5615 (elt elt 3)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5616 ;; Need to insert the name without package as well
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5617 (setq lst (cons (cons (substring (elt elt 3)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5618 (match-beginning 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5619 (match-end 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5620 (cdr elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5621 lst))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5622 (setq pos (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5623 (goto-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5624 (setq rel file)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5625 ;; On case-preserving filesystems (EMX on OS/2) case might be encoded in properties
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5626 (set-text-properties 0 (length rel) nil rel)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5627 (and (equal topdir (substring rel 0 (length topdir)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5628 (setq rel (substring file (length topdir))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5629 (insert "\f\n" rel "," (number-to-string (1- pos)) "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5630 (setq ret (buffer-substring 1 (point-max)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5631 (erase-buffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5632 (or noninteractive
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5633 (message "Scanning file %s finished" file))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5634 ret))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5635
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5636 (defun cperl-add-tags-recurse-noxs ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5637 "Add to TAGS data for Perl and XSUB files in the current directory and kids.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5638 Use as
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5639 emacs -batch -q -no-site-file -l emacs/cperl-mode.el \
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5640 -f cperl-add-tags-recurse
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5641 "
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5642 (cperl-write-tags nil nil t t nil t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5643
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5644 (defun cperl-add-tags-recurse ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5645 "Add to TAGS file data for Perl files in the current directory and kids.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5646 Use as
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5647 emacs -batch -q -no-site-file -l emacs/cperl-mode.el \
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5648 -f cperl-add-tags-recurse
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5649 "
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5650 (cperl-write-tags nil nil t t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5651
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5652 (defun cperl-write-tags (&optional file erase recurse dir inbuffer noxs topdir)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5653 ;; If INBUFFER, do not select buffer, and do not save
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5654 ;; If ERASE is `ignore', do not erase, and do not try to delete old info.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5655 (require 'etags)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5656 (if file nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5657 (setq file (if dir default-directory (buffer-file-name)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5658 (if (and (not dir) (buffer-modified-p)) (error "Save buffer first!")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5659 (or topdir
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5660 (setq topdir default-directory))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5661 (let ((tags-file-name "TAGS")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5662 (case-fold-search (eq system-type 'emx))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5663 xs rel tm)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5664 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5665 (cond (inbuffer nil) ; Already there
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5666 ((file-exists-p tags-file-name)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5667 (if cperl-xemacs-p
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5668 (visit-tags-table-buffer)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5669 (visit-tags-table-buffer tags-file-name)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5670 (t (set-buffer (find-file-noselect tags-file-name))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5671 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5672 (dir
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5673 (cond ((eq erase 'ignore))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5674 (erase
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5675 (erase-buffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5676 (setq erase 'ignore)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5677 (let ((files
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5678 (condition-case err
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5679 (directory-files file t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5680 (if recurse nil cperl-scan-files-regexp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5681 t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5682 (error
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5683 (if cperl-unreadable-ok nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5684 (if (y-or-n-p
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5685 (format "Directory %s unreadable. Continue? " file))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5686 (setq cperl-unreadable-ok t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5687 tm nil) ; Return empty list
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
5688 (error "Aborting: unreadable directory %s" file)))))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5689 (mapcar (function (lambda (file)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5690 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5691 ((string-match cperl-noscan-files-regexp file)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5692 nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5693 ((not (file-directory-p file))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5694 (if (string-match cperl-scan-files-regexp file)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5695 (cperl-write-tags file erase recurse nil t noxs topdir)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5696 ((not recurse) nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5697 (t (cperl-write-tags file erase recurse t t noxs topdir)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5698 files))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5699 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5700 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5701 (setq xs (string-match "\\.xs$" file))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5702 (if (not (and xs noxs))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5703 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5704 (cond ((eq erase 'ignore) (goto-char (point-max)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5705 (erase (erase-buffer))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5706 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5707 (goto-char 1)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5708 (setq rel file)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5709 ;; On case-preserving filesystems (EMX on OS/2) case might be encoded in properties
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5710 (set-text-properties 0 (length rel) nil rel)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5711 (and (equal topdir (substring rel 0 (length topdir)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5712 (setq rel (substring file (length topdir))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5713 (if (search-forward (concat "\f\n" rel ",") nil t)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5714 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5715 (search-backward "\f\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5716 (delete-region (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5717 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5718 (forward-char 1)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5719 (if (search-forward "\f\n"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5720 nil 'toend)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5721 (- (point) 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5722 (point-max)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5723 (goto-char (point-max)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5724 (insert (cperl-find-tags file xs topdir))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5725 (if inbuffer nil ; Delegate to the caller
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5726 (save-buffer 0) ; No backup
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5727 (if (fboundp 'initialize-new-tags-table) ; Do we need something special in XEmacs?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5728 (initialize-new-tags-table))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5729
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5730 (defvar cperl-tags-hier-regexp-list
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5731 (concat
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5732 "^\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5733 "\\(package\\)\\>"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5734 "\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5735 "sub\\>[^\n]+::"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5736 "\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5737 "[a-zA-Z_][a-zA-Z_0-9:]*(\C-?[^\n]+::" ; XSUB?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5738 "\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5739 "[ \t]*BOOT:\C-?[^\n]+::" ; BOOT section
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5740 "\\)"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5741
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5742 (defvar cperl-hierarchy '(() ())
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5743 "Global hierarchy of classes")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5744
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5745 (defun cperl-tags-hier-fill ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5746 ;; Suppose we are in a tag table cooked by cperl.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5747 (goto-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5748 (let (type pack name pos line chunk ord cons1 file str info fileind)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5749 (while (re-search-forward cperl-tags-hier-regexp-list nil t)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5750 (setq pos (match-beginning 0)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5751 pack (match-beginning 2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5752 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5753 (if (looking-at (concat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5754 "\\([^\n]+\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5755 "\C-?"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5756 "\\([^\n]+\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5757 "\C-a"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5758 "\\([0-9]+\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5759 ","
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5760 "\\([0-9]+\\)"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5761 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5762 (setq ;;str (buffer-substring (match-beginning 1) (match-end 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5763 name (buffer-substring (match-beginning 2) (match-end 2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5764 ;;pos (buffer-substring (match-beginning 3) (match-end 3))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5765 line (buffer-substring (match-beginning 3) (match-end 3))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5766 ord (if pack 1 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5767 file (file-of-tag)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5768 fileind (format "%s:%s" file line)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5769 ;; Moves to beginning of the next line:
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5770 info (cperl-etags-snarf-tag file line))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5771 ;; Move back
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5772 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5773 ;; Make new member of hierarchy name ==> file ==> pos if needed
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5774 (if (setq cons1 (assoc name (nth ord cperl-hierarchy)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5775 ;; Name known
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5776 (setcdr cons1 (cons (cons fileind (vector file info))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5777 (cdr cons1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5778 ;; First occurrence of the name, start alist
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5779 (setq cons1 (cons name (list (cons fileind (vector file info)))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5780 (if pack
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5781 (setcar (cdr cperl-hierarchy)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5782 (cons cons1 (nth 1 cperl-hierarchy)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5783 (setcar cperl-hierarchy
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5784 (cons cons1 (car cperl-hierarchy)))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5785 (end-of-line))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5786
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5787 (defun cperl-tags-hier-init (&optional update)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5788 "Show hierarchical menu of classes and methods.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5789 Finds info about classes by a scan of loaded TAGS files.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5790 Supposes that the TAGS files contain fully qualified function names.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5791 One may build such TAGS files from CPerl mode menu."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5792 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5793 (require 'etags)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5794 (require 'imenu)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5795 (if (or update (null (nth 2 cperl-hierarchy)))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5796 (let (pack name cons1 to l1 l2 l3 l4 b
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5797 (remover (function (lambda (elt) ; (name (file1...) (file2..))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5798 (or (nthcdr 2 elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5799 ;; Only in one file
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5800 (setcdr elt (cdr (nth 1 elt))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5801 ;; (setq cperl-hierarchy '(() () ())) ; Would write into '() later!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5802 (setq cperl-hierarchy (list l1 l2 l3))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5803 (if cperl-xemacs-p ; Not checked
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5804 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5805 (or tags-file-name
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5806 ;; Does this work in XEmacs?
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5807 (call-interactively 'visit-tags-table))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5808 (message "Updating list of classes...")
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5809 (set-buffer (get-file-buffer tags-file-name))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5810 (cperl-tags-hier-fill))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5811 (or tags-table-list
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5812 (call-interactively 'visit-tags-table))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5813 (mapcar
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5814 (function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5815 (lambda (tagsfile)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5816 (message "Updating list of classes... %s" tagsfile)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5817 (set-buffer (get-file-buffer tagsfile))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5818 (cperl-tags-hier-fill)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5819 tags-table-list)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5820 (message "Updating list of classes... postprocessing..."))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5821 (mapcar remover (car cperl-hierarchy))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5822 (mapcar remover (nth 1 cperl-hierarchy))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5823 (setq to (list nil (cons "Packages: " (nth 1 cperl-hierarchy))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5824 (cons "Methods: " (car cperl-hierarchy))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5825 (cperl-tags-treeify to 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5826 (setcar (nthcdr 2 cperl-hierarchy)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5827 (cperl-menu-to-keymap (cons '("+++UPDATE+++" . -999) (cdr to))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5828 (message "Updating list of classes: done, requesting display...")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5829 ;;(cperl-imenu-addback (nth 2 cperl-hierarchy))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5830 ))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5831 (or (nth 2 cperl-hierarchy)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5832 (error "No items found"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5833 (setq update
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5834 ;;; (imenu-choose-buffer-index "Packages: " (nth 2 cperl-hierarchy))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5835 (if window-system
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5836 (x-popup-menu t (nth 2 cperl-hierarchy))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5837 (require 'tmm)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5838 (tmm-prompt (nth 2 cperl-hierarchy))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5839 (if (and update (listp update))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5840 (progn (while (cdr update) (setq update (cdr update)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5841 (setq update (car update)))) ; Get the last from the list
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5842 (if (vectorp update)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5843 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5844 (find-file (elt update 0))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5845 (cperl-etags-goto-tag-location (elt update 1))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5846 (if (eq update -999) (cperl-tags-hier-init t)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5847
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5848 (defun cperl-tags-treeify (to level)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5849 ;; cadr of `to' is read-write. On start it is a cons
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5850 (let* ((regexp (concat "^\\(" (mapconcat
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5851 'identity
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5852 (make-list level "[_a-zA-Z0-9]+")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5853 "::")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5854 "\\)\\(::\\)?"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5855 (packages (cdr (nth 1 to)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5856 (methods (cdr (nth 2 to)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5857 l1 head tail cons1 cons2 ord writeto packs recurse
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5858 root-packages root-functions ms many_ms same_name ps
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5859 (move-deeper
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5860 (function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5861 (lambda (elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5862 (cond ((and (string-match regexp (car elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5863 (or (eq ord 1) (match-end 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5864 (setq head (substring (car elt) 0 (match-end 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5865 tail (if (match-end 2) (substring (car elt)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5866 (match-end 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5867 recurse t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5868 (if (setq cons1 (assoc head writeto)) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5869 ;; Need to init new head
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5870 (setcdr writeto (cons (list head (list "Packages: ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5871 (list "Methods: "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5872 (cdr writeto)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5873 (setq cons1 (nth 1 writeto)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5874 (setq cons2 (nth ord cons1)) ; Either packs or meths
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5875 (setcdr cons2 (cons elt (cdr cons2))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5876 ((eq ord 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5877 (setq root-functions (cons elt root-functions)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5878 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5879 (setq root-packages (cons elt root-packages))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5880 (setcdr to l1) ; Init to dynamic space
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5881 (setq writeto to)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5882 (setq ord 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5883 (mapcar move-deeper packages)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5884 (setq ord 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5885 (mapcar move-deeper methods)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5886 (if recurse
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5887 (mapcar (function (lambda (elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5888 (cperl-tags-treeify elt (1+ level))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5889 (cdr to)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5890 ;;Now clean up leaders with one child only
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5891 (mapcar (function (lambda (elt)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5892 (if (not (and (listp (cdr elt))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5893 (eq (length elt) 2))) nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5894 (setcar elt (car (nth 1 elt)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5895 (setcdr elt (cdr (nth 1 elt))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5896 (cdr to))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5897 ;; Sort the roots of subtrees
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5898 (if (default-value 'imenu-sort-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5899 (setcdr to
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5900 (sort (cdr to) (default-value 'imenu-sort-function))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5901 ;; Now add back functions removed from display
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5902 (mapcar (function (lambda (elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5903 (setcdr to (cons elt (cdr to)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5904 (if (default-value 'imenu-sort-function)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5905 (nreverse
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5906 (sort root-functions (default-value 'imenu-sort-function)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5907 root-functions))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5908 ;; Now add back packages removed from display
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5909 (mapcar (function (lambda (elt)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5910 (setcdr to (cons (cons (concat "package " (car elt))
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5911 (cdr elt))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5912 (cdr to)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5913 (if (default-value 'imenu-sort-function)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5914 (nreverse
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5915 (sort root-packages (default-value 'imenu-sort-function)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5916 root-packages))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5917 ))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5918
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5919 ;;;(x-popup-menu t
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5920 ;;; '(keymap "Name1"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5921 ;;; ("Ret1" "aa")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5922 ;;; ("Head1" "ab"
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5923 ;;; keymap "Name2"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5924 ;;; ("Tail1" "x") ("Tail2" "y"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5925
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5926 (defun cperl-list-fold (list name limit)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5927 (let (list1 list2 elt1 (num 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5928 (if (<= (length list) limit) list
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5929 (setq list1 nil list2 nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5930 (while list
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5931 (setq num (1+ num)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5932 elt1 (car list)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5933 list (cdr list))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5934 (if (<= num imenu-max-items)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5935 (setq list2 (cons elt1 list2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5936 (setq list1 (cons (cons name
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5937 (nreverse list2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5938 list1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5939 list2 (list elt1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5940 num 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5941 (nreverse (cons (cons name
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5942 (nreverse list2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5943 list1)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5944
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5945 (defun cperl-menu-to-keymap (menu &optional name)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5946 (let (list)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5947 (cons 'keymap
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5948 (mapcar
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5949 (function
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5950 (lambda (elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5951 (cond ((listp (cdr elt))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5952 (setq list (cperl-list-fold
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5953 (cdr elt) (car elt) imenu-max-items))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5954 (cons nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5955 (cons (car elt)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5956 (cperl-menu-to-keymap list))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5957 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5958 (list (cdr elt) (car elt) t))))) ; t is needed in 19.34
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5959 (cperl-list-fold menu "Root" imenu-max-items)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5960
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5961
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5962 (defvar cperl-bad-style-regexp
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5963 (mapconcat 'identity
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5964 '("[^-\n\t <>=+!.&|(*/'`\"#^][-=+<>!|&^]" ; char sign
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5965 "[-<>=+^&|]+[^- \t\n=+<>~]" ; sign+ char
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5966 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5967 "\\|")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5968 "Finds places such that insertion of a whitespace may help a lot.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5969
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
5970 (defvar cperl-not-bad-style-regexp
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5971 (mapconcat 'identity
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5972 '("[^-\t <>=+]\\(--\\|\\+\\+\\)" ; var-- var++
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5973 "[a-zA-Z0-9_][|&][a-zA-Z0-9_$]" ; abc|def abc&def are often used.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5974 "&[(a-zA-Z0-9_$]" ; &subroutine &(var->field)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5975 "<\\$?\\sw+\\(\\.\\sw+\\)?>" ; <IN> <stdin.h>
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5976 "-[a-zA-Z][ \t]+[_$\"'`a-zA-Z]" ; -f file, -t STDIN
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5977 "-[0-9]" ; -5
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5978 "\\+\\+" ; ++var
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5979 "--" ; --var
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5980 ".->" ; a->b
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5981 "->" ; a SPACE ->b
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5982 "\\[-" ; a[-1]
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5983 "\\\\[&$@*\\\\]" ; \&func
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5984 "^=" ; =head
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5985 "\\$." ; $|
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
5986 "<<[a-zA-Z_'\"`]" ; <<FOO, <<'FOO'
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5987 "||"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5988 "&&"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5989 "[CBIXSLFZ]<\\(\\sw\\|\\s \\|\\s_\\|[\n]\\)*>" ; C<code like text>
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5990 "-[a-zA-Z_0-9]+[ \t]*=>" ; -option => value
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5991 ;; Unaddressed trouble spots: = -abc, f(56, -abc) --- specialcased below
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5992 ;;"[*/+-|&<.]+="
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5993 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5994 "\\|")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5995 "If matches at the start of match found by `my-bad-c-style-regexp',
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5996 insertion of a whitespace will not help.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5997
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5998 (defvar found-bad)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5999
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6000 (defun cperl-find-bad-style ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6001 "Find places in the buffer where insertion of a whitespace may help.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6002 Prompts user for insertion of spaces.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6003 Currently it is tuned to C and Perl syntax."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6004 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6005 (let (found-bad (p (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6006 (setq last-nonmenu-event 13) ; To disable popup
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6007 (beginning-of-buffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6008 (map-y-or-n-p "Insert space here? "
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6009 (function (lambda (arg) (insert " ")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6010 'cperl-next-bad-style
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6011 '("location" "locations" "insert a space into")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6012 '((?\C-r (lambda (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6013 (let ((buffer-quit-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6014 'exit-recursive-edit))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6015 (message "Exit with Esc Esc")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6016 (recursive-edit)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6017 t)) ; Consider acted upon
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6018 "edit, exit with Esc Esc")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6019 (?e (lambda (arg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6020 (let ((buffer-quit-function
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6021 'exit-recursive-edit))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6022 (message "Exit with Esc Esc")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6023 (recursive-edit)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6024 t)) ; Consider acted upon
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6025 "edit, exit with Esc Esc"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6026 t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6027 (if found-bad (goto-char found-bad)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6028 (goto-char p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6029 (message "No appropriate place found"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6030
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6031 (defun cperl-next-bad-style ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6032 (let (p (not-found t) (point (point)) found)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6033 (while (and not-found
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6034 (re-search-forward cperl-bad-style-regexp nil 'to-end))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6035 (setq p (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6036 (goto-char (match-beginning 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6037 (if (or
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6038 (looking-at cperl-not-bad-style-regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6039 ;; Check for a < -b and friends
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6040 (and (eq (following-char) ?\-)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6041 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6042 (skip-chars-backward " \t\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6043 (memq (preceding-char) '(?\= ?\> ?\< ?\, ?\(, ?\[, ?\{))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6044 ;; Now check for syntax type
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6045 (save-match-data
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6046 (setq found (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6047 (beginning-of-defun)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6048 (let ((pps (parse-partial-sexp (point) found)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6049 (or (nth 3 pps) (nth 4 pps) (nth 5 pps)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6050 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6051 (goto-char (1- p))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6052 (setq not-found nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6053 found-bad found)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6054 (not not-found)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6055
27248
ae566f9903df Replace ^F with ^L.
Gerd Moellmann <gerd@gnu.org>
parents: 26667
diff changeset
6056
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6057 ;;; Getting help
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6058 (defvar cperl-have-help-regexp
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6059 ;;(concat "\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6060 (mapconcat
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6061 'identity
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6062 '("[$@%*&][0-9a-zA-Z_:]+\\([ \t]*[[{]\\)?" ; Usual variable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6063 "[$@]\\^[a-zA-Z]" ; Special variable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6064 "[$@][^ \n\t]" ; Special variable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6065 "-[a-zA-Z]" ; File test
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6066 "\\\\[a-zA-Z0]" ; Special chars
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6067 "^=[a-z][a-zA-Z0-9_]*" ; Pod sections
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6068 "[-!&*+,-./<=>?\\\\^|~]+" ; Operator
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6069 "[a-zA-Z_0-9:]+" ; symbol or number
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6070 "x="
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6071 "#!"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6072 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6073 ;;"\\)\\|\\("
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6074 "\\|"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6075 )
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6076 ;;"\\)"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6077 ;;)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6078 "Matches places in the buffer we can find help for.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6079
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6080 (defvar cperl-message-on-help-error t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6081 (defvar cperl-help-from-timer nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6082
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6083 (defun cperl-word-at-point-hard ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6084 ;; Does not save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6085 ;; Get to the something meaningful
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6086 (or (eobp) (eolp) (forward-char 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6087 (re-search-backward "[-a-zA-Z0-9_:!&*+,-./<=>?\\\\^|~$%@]"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6088 (save-excursion (beginning-of-line) (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6089 'to-beg)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6090 ;; (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6091 ;; ((or (eobp) (looking-at "[][ \t\n{}();,]")) ; Not at a symbol
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6092 ;; (skip-chars-backward " \n\t\r({[]});,")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6093 ;; (or (bobp) (backward-char 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6094 ;; Try to backtrace
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6095 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6096 ((looking-at "[a-zA-Z0-9_:]") ; symbol
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6097 (skip-chars-backward "a-zA-Z0-9_:")
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6098 (cond
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6099 ((and (eq (preceding-char) ?^) ; $^I
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6100 (eq (char-after (- (point) 2)) ?\$))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6101 (forward-char -2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6102 ((memq (preceding-char) (append "*$@%&\\" nil)) ; *glob
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6103 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6104 ((and (eq (preceding-char) ?\=)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6105 (eq (current-column) 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6106 (forward-char -1))) ; =head1
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6107 (if (and (eq (preceding-char) ?\<)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6108 (looking-at "\\$?[a-zA-Z0-9_:]+>")) ; <FH>
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6109 (forward-char -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6110 ((and (looking-at "=") (eq (preceding-char) ?x)) ; x=
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6111 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6112 ((and (looking-at "\\^") (eq (preceding-char) ?\$)) ; $^I
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6113 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6114 ((looking-at "[-!&*+,-./<=>?\\\\^|~]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6115 (skip-chars-backward "-!&*+,-./<=>?\\\\^|~")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6116 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6117 ((and (eq (preceding-char) ?\$)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6118 (not (eq (char-after (- (point) 2)) ?\$))) ; $-
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6119 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6120 ((and (eq (following-char) ?\>)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6121 (string-match "[a-zA-Z0-9_]" (char-to-string (preceding-char)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6122 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6123 (forward-sexp -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6124 (and (eq (preceding-char) ?\<)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6125 (looking-at "\\$?[a-zA-Z0-9_:]+>")))) ; <FH>
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6126 (search-backward "<"))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6127 ((and (eq (following-char) ?\$)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6128 (eq (preceding-char) ?\<)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6129 (looking-at "\\$?[a-zA-Z0-9_:]+>")) ; <$fh>
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6130 (forward-char -1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6131 (if (looking-at cperl-have-help-regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6132 (buffer-substring (match-beginning 0) (match-end 0))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6133
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6134 (defun cperl-get-help ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6135 "Get one-line docs on the symbol at the point.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6136 The data for these docs is a little bit obsolete and may be in fact longer
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6137 than a line. Your contribution to update/shorten it is appreciated."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6138 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6139 (save-match-data ; May be called "inside" query-replace
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6140 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6141 (let ((word (cperl-word-at-point-hard)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6142 (if word
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6143 (if (and cperl-help-from-timer ; Bail out if not in mainland
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6144 (not (string-match "^#!\\|\\\\\\|^=" word)) ; Show help even in comments/strings.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6145 (or (memq (get-text-property (point) 'face)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6146 '(font-lock-comment-face font-lock-string-face))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6147 (memq (get-text-property (point) 'syntax-type)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6148 '(pod here-doc format))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6149 nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6150 (cperl-describe-perl-symbol word))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6151 (if cperl-message-on-help-error
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6152 (message "Nothing found for %s..."
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6153 (buffer-substring (point) (min (+ 5 (point)) (point-max))))))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6154
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6155 ;;; Stolen from perl-descr.el by Johan Vromans:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6156
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6157 (defvar cperl-doc-buffer " *perl-doc*"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6158 "Where the documentation can be found.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6159
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6160 (defun cperl-describe-perl-symbol (val)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6161 "Display the documentation of symbol at point, a Perl operator."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6162 (let ((enable-recursive-minibuffers t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6163 args-file regexp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6164 (cond
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6165 ((string-match "^[&*][a-zA-Z_]" val)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6166 (setq val (concat (substring val 0 1) "NAME")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6167 ((string-match "^[$@]\\([a-zA-Z_:0-9]+\\)[ \t]*\\[" val)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6168 (setq val (concat "@" (substring val 1 (match-end 1)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6169 ((string-match "^[$@]\\([a-zA-Z_:0-9]+\\)[ \t]*{" val)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6170 (setq val (concat "%" (substring val 1 (match-end 1)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6171 ((and (string= val "x") (string-match "^x=" val))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6172 (setq val "x="))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6173 ((string-match "^\\$[\C-a-\C-z]" val)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6174 (setq val (concat "$^" (char-to-string (+ ?A -1 (aref val 1))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6175 ((string-match "^CORE::" val)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6176 (setq val "CORE::"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6177 ((string-match "^SUPER::" val)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6178 (setq val "SUPER::"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6179 ((and (string= "<" val) (string-match "^<\\$?[a-zA-Z0-9_:]+>" val))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6180 (setq val "<NAME>")))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6181 (setq regexp (concat "^"
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6182 "\\([^a-zA-Z0-9_:]+[ \t]+\\)?"
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6183 (regexp-quote val)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6184 "\\([ \t([/]\\|$\\)"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6185
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6186 ;; get the buffer with the documentation text
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6187 (cperl-switch-to-doc-buffer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6188
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6189 ;; lookup in the doc
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6190 (goto-char (point-min))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6191 (let ((case-fold-search nil))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6192 (list
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6193 (if (re-search-forward regexp (point-max) t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6194 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6195 (beginning-of-line 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6196 (let ((lnstart (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6197 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6198 (message "%s" (buffer-substring lnstart (point)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6199 (if cperl-message-on-help-error
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6200 (message "No definition for %s" val)))))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6201
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6202 (defvar cperl-short-docs "Ignore my value"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6203 ;; Perl4 version was written by Johan Vromans (jvromans@squirrel.nl)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6204 "# based on '@(#)@ perl-descr.el 1.9 - describe-perl-symbol' [Perl 5]
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6205 ! ... Logical negation.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6206 ... != ... Numeric inequality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6207 ... !~ ... Search pattern, substitution, or translation (negated).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6208 $! In numeric context: errno. In a string context: error string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6209 $\" The separator which joins elements of arrays interpolated in strings.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6210 $# The output format for printed numbers. Initial value is %.15g or close.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6211 $$ Process number of this script. Changes in the fork()ed child process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6212 $% The current page number of the currently selected output channel.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6213
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6214 The following variables are always local to the current block:
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6215
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6216 $1 Match of the 1st set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6217 $2 Match of the 2nd set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6218 $3 Match of the 3rd set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6219 $4 Match of the 4th set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6220 $5 Match of the 5th set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6221 $6 Match of the 6th set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6222 $7 Match of the 7th set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6223 $8 Match of the 8th set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6224 $9 Match of the 9th set of parentheses in the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6225 $& The string matched by the last pattern match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6226 $' The string after what was matched by the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6227 $` The string before what was matched by the last match (auto-local).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6228
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6229 $( The real gid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6230 $) The effective gid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6231 $* Deprecated: Set to 1 to do multiline matching within a string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6232 $+ The last bracket matched by the last search pattern.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6233 $, The output field separator for the print operator.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6234 $- The number of lines left on the page.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6235 $. The current input line number of the last filehandle that was read.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6236 $/ The input record separator, newline by default.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6237 $0 Name of the file containing the perl script being executed. May be set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6238 $: String may be broken after these characters to fill ^-lines in a format.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6239 $; Subscript separator for multi-dim array emulation. Default \"\\034\".
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6240 $< The real uid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6241 $= The page length of the current output channel. Default is 60 lines.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6242 $> The effective uid of this process.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6243 $? The status returned by the last ``, pipe close or `system'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6244 $@ The perl error message from the last eval or do @var{EXPR} command.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6245 $ARGV The name of the current file used with <> .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6246 $[ Deprecated: The index of the first element/char in an array/string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6247 $\\ The output record separator for the print operator.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6248 $] The perl version string as displayed with perl -v.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6249 $^ The name of the current top-of-page format.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6250 $^A The current value of the write() accumulator for format() lines.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6251 $^D The value of the perl debug (-D) flags.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6252 $^E Information about the last system error other than that provided by $!.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6253 $^F The highest system file descriptor, ordinarily 2.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6254 $^H The current set of syntax checks enabled by `use strict'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6255 $^I The value of the in-place edit extension (perl -i option).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6256 $^L What formats output to perform a formfeed. Default is \f.
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6257 $^M A buffer for emergency memory allocation when running out of memory.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6258 $^O The operating system name under which this copy of Perl was built.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6259 $^P Internal debugging flag.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6260 $^T The time the script was started. Used by -A/-M/-C file tests.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6261 $^W True if warnings are requested (perl -w flag).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6262 $^X The name under which perl was invoked (argv[0] in C-speech).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6263 $_ The default input and pattern-searching space.
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6264 $| Auto-flush after write/print on current output channel? Default 0.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6265 $~ The name of the current report format.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6266 ... % ... Modulo division.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6267 ... %= ... Modulo division assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6268 %ENV Contains the current environment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6269 %INC List of files that have been require-d or do-ne.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6270 %SIG Used to set signal handlers for various signals.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6271 ... & ... Bitwise and.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6272 ... && ... Logical and.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6273 ... &&= ... Logical and assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6274 ... &= ... Bitwise and assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6275 ... * ... Multiplication.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6276 ... ** ... Exponentiation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6277 *NAME Glob: all objects refered by NAME. *NAM1 = *NAM2 aliases NAM1 to NAM2.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6278 &NAME(arg0, ...) Subroutine call. Arguments go to @_.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6279 ... + ... Addition. +EXPR Makes EXPR into scalar context.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6280 ++ Auto-increment (magical on strings). ++EXPR EXPR++
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6281 ... += ... Addition assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6282 , Comma operator.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6283 ... - ... Subtraction.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6284 -- Auto-decrement (NOT magical on strings). --EXPR EXPR--
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6285 ... -= ... Subtraction assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6286 -A Access time in days since script started.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6287 -B File is a non-text (binary) file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6288 -C Inode change time in days since script started.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6289 -M Age in days since script started.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6290 -O File is owned by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6291 -R File is readable by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6292 -S File is a socket .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6293 -T File is a text file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6294 -W File is writable by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6295 -X File is executable by real uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6296 -b File is a block special file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6297 -c File is a character special file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6298 -d File is a directory.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6299 -e File exists .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6300 -f File is a plain file.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6301 -g File has setgid bit set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6302 -k File has sticky bit set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6303 -l File is a symbolic link.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6304 -o File is owned by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6305 -p File is a named pipe (FIFO).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6306 -r File is readable by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6307 -s File has non-zero size.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6308 -t Tests if filehandle (STDIN by default) is opened to a tty.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6309 -u File has setuid bit set.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6310 -w File is writable by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6311 -x File is executable by effective uid.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6312 -z File has zero size.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6313 . Concatenate strings.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6314 .. Alternation, also range operator.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6315 .= Concatenate assignment strings
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6316 ... / ... Division. /PATTERN/ioxsmg Pattern match
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6317 ... /= ... Division assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6318 /PATTERN/ioxsmg Pattern match.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6319 ... < ... Numeric less than. <pattern> Glob. See <NAME>, <> as well.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6320 <NAME> Reads line from filehandle NAME (a bareword or dollar-bareword).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6321 <pattern> Glob (Unless pattern is bareword/dollar-bareword - see <NAME>).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6322 <> Reads line from union of files in @ARGV (= command line) and STDIN.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6323 ... << ... Bitwise shift left. << start of HERE-DOCUMENT.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6324 ... <= ... Numeric less than or equal to.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6325 ... <=> ... Numeric compare.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6326 ... = ... Assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6327 ... == ... Numeric equality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6328 ... =~ ... Search pattern, substitution, or translation
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6329 ... > ... Numeric greater than.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6330 ... >= ... Numeric greater than or equal to.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6331 ... >> ... Bitwise shift right.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6332 ... >>= ... Bitwise shift right assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6333 ... ? ... : ... Condition=if-then-else operator. ?PAT? One-time pattern match.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6334 ?PATTERN? One-time pattern match.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6335 @ARGV Command line arguments (not including the command name - see $0).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6336 @INC List of places to look for perl scripts during do/include/use.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6337 @_ Parameter array for subroutines. Also used by split unless in array context.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6338 \\ Creates reference to what follows, like \$var, or quotes non-\w in strings.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6339 \\0 Octal char, e.g. \\033.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6340 \\E Case modification terminator. See \\Q, \\L, and \\U.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6341 \\L Lowercase until \\E . See also \l, lc.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6342 \\U Upcase until \\E . See also \u, uc.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6343 \\Q Quote metacharacters until \\E . See also quotemeta.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6344 \\a Alarm character (octal 007).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6345 \\b Backspace character (octal 010).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6346 \\c Control character, e.g. \\c[ .
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6347 \\e Escape character (octal 033).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6348 \\f Formfeed character (octal 014).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6349 \\l Lowercase the next character. See also \\L and \\u, lcfirst.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6350 \\n Newline character (octal 012 on most systems).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6351 \\r Return character (octal 015 on most systems).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6352 \\t Tab character (octal 011).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6353 \\u Upcase the next character. See also \\U and \\l, ucfirst.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6354 \\x Hex character, e.g. \\x1b.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6355 ... ^ ... Bitwise exclusive or.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6356 __END__ Ends program source.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6357 __DATA__ Ends program source.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6358 __FILE__ Current (source) filename.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6359 __LINE__ Current line in current source.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6360 __PACKAGE__ Current package.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6361 ARGV Default multi-file input filehandle. <ARGV> is a synonym for <>.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6362 ARGVOUT Output filehandle with -i flag.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6363 BEGIN { ... } Immediately executed (during compilation) piece of code.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6364 END { ... } Pseudo-subroutine executed after the script finishes.
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6365 CHECK { ... } Pseudo-subroutine executed after the script is compiled.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6366 INIT { ... } Pseudo-subroutine executed before the script starts running.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6367 DATA Input filehandle for what follows after __END__ or __DATA__.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6368 accept(NEWSOCKET,GENERICSOCKET)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6369 alarm(SECONDS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6370 atan2(X,Y)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6371 bind(SOCKET,NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6372 binmode(FILEHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6373 caller[(LEVEL)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6374 chdir(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6375 chmod(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6376 chop[(LIST|VAR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6377 chown(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6378 chroot(FILENAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6379 close(FILEHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6380 closedir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6381 ... cmp ... String compare.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6382 connect(SOCKET,NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6383 continue of { block } continue { block }. Is executed after `next' or at end.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6384 cos(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6385 crypt(PLAINTEXT,SALT)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6386 dbmclose(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6387 dbmopen(%HASH,DBNAME,MODE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6388 defined(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6389 delete($HASH{KEY})
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6390 die(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6391 do { ... }|SUBR while|until EXPR executes at least once
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6392 do(EXPR|SUBR([LIST])) (with while|until executes at least once)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6393 dump LABEL
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6394 each(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6395 endgrent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6396 endhostent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6397 endnetent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6398 endprotoent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6399 endpwent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6400 endservent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6401 eof[([FILEHANDLE])]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6402 ... eq ... String equality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6403 eval(EXPR) or eval { BLOCK }
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6404 exec(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6405 exit(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6406 exp(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6407 fcntl(FILEHANDLE,FUNCTION,SCALAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6408 fileno(FILEHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6409 flock(FILEHANDLE,OPERATION)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6410 for (EXPR;EXPR;EXPR) { ... }
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6411 foreach [VAR] (@ARRAY) { ... }
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6412 fork
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6413 ... ge ... String greater than or equal.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6414 getc[(FILEHANDLE)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6415 getgrent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6416 getgrgid(GID)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6417 getgrnam(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6418 gethostbyaddr(ADDR,ADDRTYPE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6419 gethostbyname(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6420 gethostent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6421 getlogin
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6422 getnetbyaddr(ADDR,ADDRTYPE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6423 getnetbyname(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6424 getnetent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6425 getpeername(SOCKET)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6426 getpgrp(PID)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6427 getppid
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6428 getpriority(WHICH,WHO)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6429 getprotobyname(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6430 getprotobynumber(NUMBER)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6431 getprotoent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6432 getpwent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6433 getpwnam(NAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6434 getpwuid(UID)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6435 getservbyname(NAME,PROTO)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6436 getservbyport(PORT,PROTO)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6437 getservent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6438 getsockname(SOCKET)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6439 getsockopt(SOCKET,LEVEL,OPTNAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6440 gmtime(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6441 goto LABEL
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6442 ... gt ... String greater than.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6443 hex(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6444 if (EXPR) { ... } [ elsif (EXPR) { ... } ... ] [ else { ... } ] or EXPR if EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6445 index(STR,SUBSTR[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6446 int(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6447 ioctl(FILEHANDLE,FUNCTION,SCALAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6448 join(EXPR,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6449 keys(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6450 kill(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6451 last [LABEL]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6452 ... le ... String less than or equal.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6453 length(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6454 link(OLDFILE,NEWFILE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6455 listen(SOCKET,QUEUESIZE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6456 local(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6457 localtime(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6458 log(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6459 lstat(EXPR|FILEHANDLE|VAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6460 ... lt ... String less than.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6461 m/PATTERN/iogsmx
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6462 mkdir(FILENAME,MODE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6463 msgctl(ID,CMD,ARG)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6464 msgget(KEY,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6465 msgrcv(ID,VAR,SIZE,TYPE.FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6466 msgsnd(ID,MSG,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6467 my VAR or my (VAR1,...) Introduces a lexical variable ($VAR, @ARR, or %HASH).
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6468 our VAR or our (VAR1,...) Lexically enable a global variable ($V, @A, or %H).
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6469 ... ne ... String inequality.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6470 next [LABEL]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6471 oct(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6472 open(FILEHANDLE[,EXPR])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6473 opendir(DIRHANDLE,EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6474 ord(EXPR) ASCII value of the first char of the string.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6475 pack(TEMPLATE,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6476 package NAME Introduces package context.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6477 pipe(READHANDLE,WRITEHANDLE) Create a pair of filehandles on ends of a pipe.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6478 pop(ARRAY)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6479 print [FILEHANDLE] [(LIST)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6480 printf [FILEHANDLE] (FORMAT,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6481 push(ARRAY,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6482 q/STRING/ Synonym for 'STRING'
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6483 qq/STRING/ Synonym for \"STRING\"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6484 qx/STRING/ Synonym for `STRING`
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6485 rand[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6486 read(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6487 readdir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6488 readlink(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6489 recv(SOCKET,SCALAR,LEN,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6490 redo [LABEL]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6491 rename(OLDNAME,NEWNAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6492 require [FILENAME | PERL_VERSION]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6493 reset[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6494 return(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6495 reverse(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6496 rewinddir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6497 rindex(STR,SUBSTR[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6498 rmdir(FILENAME)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6499 s/PATTERN/REPLACEMENT/gieoxsm
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6500 scalar(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6501 seek(FILEHANDLE,POSITION,WHENCE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6502 seekdir(DIRHANDLE,POS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6503 select(FILEHANDLE | RBITS,WBITS,EBITS,TIMEOUT)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6504 semctl(ID,SEMNUM,CMD,ARG)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6505 semget(KEY,NSEMS,SIZE,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6506 semop(KEY,...)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6507 send(SOCKET,MSG,FLAGS[,TO])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6508 setgrent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6509 sethostent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6510 setnetent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6511 setpgrp(PID,PGRP)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6512 setpriority(WHICH,WHO,PRIORITY)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6513 setprotoent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6514 setpwent
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6515 setservent(STAYOPEN)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6516 setsockopt(SOCKET,LEVEL,OPTNAME,OPTVAL)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6517 shift[(ARRAY)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6518 shmctl(ID,CMD,ARG)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6519 shmget(KEY,SIZE,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6520 shmread(ID,VAR,POS,SIZE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6521 shmwrite(ID,STRING,POS,SIZE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6522 shutdown(SOCKET,HOW)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6523 sin(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6524 sleep[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6525 socket(SOCKET,DOMAIN,TYPE,PROTOCOL)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6526 socketpair(SOCKET1,SOCKET2,DOMAIN,TYPE,PROTOCOL)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6527 sort [SUBROUTINE] (LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6528 splice(ARRAY,OFFSET[,LENGTH[,LIST]])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6529 split[(/PATTERN/[,EXPR[,LIMIT]])]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6530 sprintf(FORMAT,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6531 sqrt(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6532 srand(EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6533 stat(EXPR|FILEHANDLE|VAR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6534 study[(SCALAR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6535 sub [NAME [(format)]] { BODY } sub NAME [(format)]; sub [(format)] {...}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6536 substr(EXPR,OFFSET[,LEN])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6537 symlink(OLDFILE,NEWFILE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6538 syscall(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6539 sysread(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6540 system(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6541 syswrite(FILEHANDLE,SCALAR,LENGTH[,OFFSET])
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6542 tell[(FILEHANDLE)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6543 telldir(DIRHANDLE)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6544 time
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6545 times
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6546 tr/SEARCHLIST/REPLACEMENTLIST/cds
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6547 truncate(FILE|EXPR,LENGTH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6548 umask[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6549 undef[(EXPR)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6550 unless (EXPR) { ... } [ else { ... } ] or EXPR unless EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6551 unlink(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6552 unpack(TEMPLATE,EXPR)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6553 unshift(ARRAY,LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6554 until (EXPR) { ... } EXPR until EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6555 utime(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6556 values(%HASH)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6557 vec(EXPR,OFFSET,BITS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6558 wait
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6559 waitpid(PID,FLAGS)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6560 wantarray Returns true if the sub/eval is called in list context.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6561 warn(LIST)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6562 while (EXPR) { ... } EXPR while EXPR
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6563 write[(EXPR|FILEHANDLE)]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6564 ... x ... Repeat string or array.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6565 x= ... Repetition assignment.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6566 y/SEARCHLIST/REPLACEMENTLIST/
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6567 ... | ... Bitwise or.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6568 ... || ... Logical or.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6569 ~ ... Unary bitwise complement.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6570 #! OS interpreter indicator. If contains `perl', used for options, and -x.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6571 AUTOLOAD {...} Shorthand for `sub AUTOLOAD {...}'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6572 CORE:: Prefix to access builtin function if imported sub obscures it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6573 SUPER:: Prefix to lookup for a method in @ISA classes.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6574 DESTROY Shorthand for `sub DESTROY {...}'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6575 ... EQ ... Obsolete synonym of `eq'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6576 ... GE ... Obsolete synonym of `ge'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6577 ... GT ... Obsolete synonym of `gt'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6578 ... LE ... Obsolete synonym of `le'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6579 ... LT ... Obsolete synonym of `lt'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6580 ... NE ... Obsolete synonym of `ne'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6581 abs [ EXPR ] absolute value
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6582 ... and ... Low-precedence synonym for &&.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6583 bless REFERENCE [, PACKAGE] Makes reference into an object of a package.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6584 chomp [LIST] Strips $/ off LIST/$_. Returns count. Special if $/ eq ''!
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6585 chr Converts a number to char with the same ordinal.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6586 else Part of if/unless {BLOCK} elsif {BLOCK} else {BLOCK}.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6587 elsif Part of if/unless {BLOCK} elsif {BLOCK} else {BLOCK}.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6588 exists $HASH{KEY} True if the key exists.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6589 format [NAME] = Start of output format. Ended by a single dot (.) on a line.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6590 formline PICTURE, LIST Backdoor into \"format\" processing.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6591 glob EXPR Synonym of <EXPR>.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6592 lc [ EXPR ] Returns lowercased EXPR.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6593 lcfirst [ EXPR ] Returns EXPR with lower-cased first letter.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6594 grep EXPR,LIST or grep {BLOCK} LIST Filters LIST via EXPR/BLOCK.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6595 map EXPR, LIST or map {BLOCK} LIST Applies EXPR/BLOCK to elts of LIST.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6596 no PACKAGE [SYMBOL1, ...] Partial reverse for `use'. Runs `unimport' method.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6597 not ... Low-precedence synonym for ! - negation.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6598 ... or ... Low-precedence synonym for ||.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6599 pos STRING Set/Get end-position of the last match over this string, see \\G.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6600 quotemeta [ EXPR ] Quote regexp metacharacters.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6601 qw/WORD1 .../ Synonym of split('', 'WORD1 ...')
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6602 readline FH Synonym of <FH>.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6603 readpipe CMD Synonym of `CMD`.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6604 ref [ EXPR ] Type of EXPR when dereferenced.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6605 sysopen FH, FILENAME, MODE [, PERM] (MODE is numeric, see Fcntl.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6606 tie VAR, PACKAGE, LIST Hide an object behind a simple Perl variable.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6607 tied Returns internal object for a tied data.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6608 uc [ EXPR ] Returns upcased EXPR.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6609 ucfirst [ EXPR ] Returns EXPR with upcased first letter.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6610 untie VAR Unlink an object from a simple Perl variable.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6611 use PACKAGE [SYMBOL1, ...] Compile-time `require' with consequent `import'.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6612 ... xor ... Low-precedence synonym for exclusive or.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6613 prototype \&SUB Returns prototype of the function given a reference.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6614 =head1 Top-level heading.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6615 =head2 Second-level heading.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6616 =head3 Third-level heading (is there such?).
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6617 =over [ NUMBER ] Start list.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6618 =item [ TITLE ] Start new item in the list.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6619 =back End list.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6620 =cut Switch from POD to Perl.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6621 =pod Switch from Perl to POD.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6622 ")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6623
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6624 (defun cperl-switch-to-doc-buffer ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6625 "Go to the perl documentation buffer and insert the documentation."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6626 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6627 (let ((buf (get-buffer-create cperl-doc-buffer)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6628 (if (interactive-p)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6629 (switch-to-buffer-other-window buf)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6630 (set-buffer buf))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6631 (if (= (buffer-size) 0)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6632 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6633 (insert (documentation-property 'cperl-short-docs
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6634 'variable-documentation))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6635 (setq buffer-read-only t)))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6636
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6637 (defun cperl-beautify-regexp-piece (b e embed level)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6638 ;; b is before the starting delimiter, e before the ending
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6639 ;; e should be a marker, may be changed, but remains "correct".
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6640 ;; EMBED is nil iff we process the whole REx.
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6641 ;; The REx is guarantied to have //x
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6642 ;; LEVEL shows how many levels deep to go
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6643 ;; position at enter and at leave is not defined
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6644 (let (s c tmp (m (make-marker)) (m1 (make-marker)) c1 spaces inline code pos)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6645 (if (not embed)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6646 (goto-char (1+ b))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6647 (goto-char b)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6648 (cond ((looking-at "(\\?\\\\#") ; (?#) wrongly commented when //x-ing
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6649 (forward-char 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6650 (delete-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6651 (forward-char 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6652 ((looking-at "(\\?[^a-zA-Z]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6653 (forward-char 3))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6654 ((looking-at "(\\?") ; (?i)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6655 (forward-char 2))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6656 (t
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6657 (forward-char 1))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6658 (setq c (if embed (current-indentation) (1- (current-column)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6659 c1 (+ c (or cperl-regexp-indent-step cperl-indent-level)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6660 (or (looking-at "[ \t]*[\n#]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6661 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6662 (insert "\n")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6663 (goto-char e)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6664 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6665 (if (re-search-forward "[^ \t]" e t)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6666 (progn ; Something before the ending delimiter
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6667 (goto-char e)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6668 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6669 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6670 (indent-to-column c)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6671 (set-marker e (point))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6672 (goto-char b)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6673 (end-of-line 2)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6674 (while (< (point) (marker-position e))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6675 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6676 (setq s (point)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6677 inline t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6678 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6679 (delete-region s (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6680 (indent-to-column c1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6681 (while (and
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6682 inline
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6683 (looking-at
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6684 (concat "\\([a-zA-Z0-9]+[^*+{?]\\)" ; 1 word
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6685 "\\|" ; Embedded variable
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6686 "\\$\\([a-zA-Z0-9_]+\\([[{]\\)?\\|[^\n \t)|]\\)" ; 2 3
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6687 "\\|" ; $ ^
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6688 "[$^]"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6689 "\\|" ; simple-code simple-code*?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6690 "\\(\\\\.\\|[^][()#|*+?\n]\\)\\([*+{?]\\??\\)?" ; 4 5
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6691 "\\|" ; Class
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6692 "\\(\\[\\)" ; 6
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6693 "\\|" ; Grouping
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6694 "\\((\\(\\?\\)?\\)" ; 7 8
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6695 "\\|" ; |
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6696 "\\(|\\)" ; 9
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6697 )))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6698 (goto-char (match-end 0))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6699 (setq spaces t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6700 (cond ((match-beginning 1) ; Alphanum word + junk
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6701 (forward-char -1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6702 ((or (match-beginning 3) ; $ab[12]
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6703 (and (match-beginning 5) ; X* X+ X{2,3}
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6704 (eq (preceding-char) ?\{)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6705 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6706 (forward-sexp 1))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6707 ((match-beginning 6) ; []
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6708 (setq tmp (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6709 (if (looking-at "\\^?\\]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6710 (goto-char (match-end 0)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6711 ;; XXXX POSIX classes?!
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6712 (while (and (not pos)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6713 (re-search-forward "\\[:\\|\\]" e t))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6714 (if (eq (preceding-char) ?:)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6715 (or (re-search-forward ":\\]" e t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6716 (error "[:POSIX:]-group in []-group not terminated"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6717 (setq pos t)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6718 (or (eq (preceding-char) ?\])
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6719 (error "[]-group not terminated"))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6720 (if (eq (following-char) ?\{)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6721 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6722 (forward-sexp 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6723 (and (eq (following-char) ??)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6724 (forward-char 1)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6725 (re-search-forward "\\=\\([*+?]\\??\\)" e t)))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6726 ((match-beginning 7) ; ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6727 (goto-char (match-beginning 0))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6728 (setq pos (current-column))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6729 (or (eq pos c1)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6730 (progn
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6731 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6732 (insert "\n")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6733 (indent-to-column c1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6734 (setq tmp (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6735 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6736 ;; (or (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6737 ;; (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6738 ;; (goto-char tmp)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6739 ;; (error "()-group not terminated")))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6740 (set-marker m (1- (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6741 (set-marker m1 (point))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6742 (if (= level 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6743 (if (progn ; indent rigidly if multiline
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6744 ;; In fact does not make a lot of sense, since
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6745 ;; the starting position can be already lost due
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6746 ;; to insertion of "\n" and " "
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6747 (goto-char tmp)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6748 (search-forward "\n" m1 t))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6749 (indent-rigidly (point) m1 (- c1 pos)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6750 (setq level (1- level))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6751 (cond
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6752 ((not (match-beginning 8))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6753 (cperl-beautify-regexp-piece tmp m t level))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6754 ((eq (char-after (+ 2 tmp)) ?\{) ; Code
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6755 t)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6756 ((eq (char-after (+ 2 tmp)) ?\() ; Conditional
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6757 (goto-char (+ 2 tmp))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6758 (forward-sexp 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6759 (cperl-beautify-regexp-piece (point) m t level))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6760 ((eq (char-after (+ 2 tmp)) ?<) ; Lookbehind
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6761 (goto-char (+ 3 tmp))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6762 (cperl-beautify-regexp-piece (point) m t level))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6763 (t
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6764 (cperl-beautify-regexp-piece tmp m t level))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6765 (goto-char m1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6766 (cond ((looking-at "[*+?]\\??")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6767 (goto-char (match-end 0)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6768 ((eq (following-char) ?\{)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6769 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6770 (if (eq (following-char) ?\?)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6771 (forward-char))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6772 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6773 (setq spaces nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6774 (if (looking-at "[#\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6775 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6776 (or (eolp) (indent-for-comment))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6777 (beginning-of-line 2))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6778 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6779 (insert "\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6780 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6781 (setq inline nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6782 ((match-beginning 9) ; |
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6783 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6784 (setq tmp (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6785 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6786 (if (re-search-forward "[^ \t]" tmp t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6787 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6788 (goto-char tmp)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6789 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6790 (insert "\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6791 ;; first at line
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6792 (delete-region (point) tmp))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6793 (indent-to-column c)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6794 (forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6795 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6796 (setq spaces nil)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6797 (if (looking-at "[#\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6798 (beginning-of-line 2)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6799 (delete-horizontal-space)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6800 (insert "\n"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6801 (end-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6802 (setq inline nil)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6803 (or (looking-at "[ \t\n]")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6804 (not spaces)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6805 (insert " "))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6806 (skip-chars-forward " \t"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6807 (or (looking-at "[#\n]")
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6808 (error "unknown code \"%s\" in a regexp"
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6809 (buffer-substring (point) (1+ (point)))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6810 (and inline (end-of-line 2)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6811 ;; Special-case the last line of group
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6812 (if (and (>= (point) (marker-position e))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6813 (/= (current-indentation) c))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6814 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6815 (beginning-of-line)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6816 (setq s (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6817 (skip-chars-forward " \t")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6818 (delete-region s (point))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6819 (indent-to-column c)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6820 ))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6821
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6822 (defun cperl-make-regexp-x ()
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6823 ;; Returns position of the start
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6824 ;; XXX this is called too often! Need to cache the result!
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6825 (save-excursion
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6826 (or cperl-use-syntax-table-text-property
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6827 (error "I need to have a regexp marked!"))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6828 ;; Find the start
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6829 (if (looking-at "\\s|")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6830 nil ; good already
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6831 (if (looking-at "\\([smy]\\|qr\\)\\s|")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6832 (forward-char 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6833 (re-search-backward "\\s|"))) ; Assume it is scanned already.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6834 ;;(forward-char 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6835 (let ((b (point)) (e (make-marker)) have-x delim (c (current-column))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6836 (sub-p (eq (preceding-char) ?s)) s)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6837 (forward-sexp 1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6838 (set-marker e (1- (point)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6839 (setq delim (preceding-char))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6840 (if (and sub-p (eq delim (char-after (- (point) 2))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6841 (error "Possible s/blah// - do not know how to deal with"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6842 (if sub-p (forward-sexp 1))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6843 (if (looking-at "\\sw*x")
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6844 (setq have-x t)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6845 (insert "x"))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6846 ;; Protect fragile " ", "#"
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6847 (if have-x nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6848 (goto-char (1+ b))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6849 (while (re-search-forward "\\(\\=\\|[^\\\\]\\)\\(\\\\\\\\\\)*[ \t\n#]" e t) ; Need to include (?#) too?
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6850 (forward-char -1)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6851 (insert "\\")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6852 (forward-char 1)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6853 b)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6854
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6855 (defun cperl-beautify-regexp (&optional deep)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6856 "do it. (Experimental, may change semantics, recheck the result.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6857 We suppose that the regexp is scanned already."
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6858 (interactive "P")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6859 (if deep
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6860 (prefix-numeric-value deep)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6861 (setq deep -1))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6862 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6863 (goto-char (cperl-make-regexp-x))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6864 (let ((b (point)) (e (make-marker)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6865 (forward-sexp 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6866 (set-marker e (1- (point)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6867 (cperl-beautify-regexp-piece b e nil deep))))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6868
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6869 (defun cperl-regext-to-level-start ()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6870 "Goto start of an enclosing group in regexp.
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6871 We suppose that the regexp is scanned already."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6872 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6873 (let ((limit (cperl-make-regexp-x)) done)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6874 (while (not done)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6875 (or (eq (following-char) ?\()
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6876 (search-backward "(" (1+ limit) t)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6877 (error "Cannot find `(' which starts a group"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6878 (setq done
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6879 (save-excursion
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6880 (skip-chars-backward "\\")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6881 (looking-at "\\(\\\\\\\\\\)*(")))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6882 (or done (forward-char -1)))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6883
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6884 (defun cperl-contract-level ()
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6885 "Find an enclosing group in regexp and contract it.
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6886 \(Experimental, may change semantics, recheck the result.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6887 We suppose that the regexp is scanned already."
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6888 (interactive)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6889 ;; (save-excursion ; Can't, breaks `cperl-contract-levels'
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6890 (cperl-regext-to-level-start)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6891 (let ((b (point)) (e (make-marker)) s c)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6892 (forward-sexp 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6893 (set-marker e (1- (point)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6894 (goto-char b)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6895 (while (re-search-forward "\\(#\\)\\|\n" e 'to-end)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6896 (cond
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6897 ((match-beginning 1) ; #-comment
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6898 (or c (setq c (current-indentation)))
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
6899 (beginning-of-line 2) ; Skip
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
6900 (setq s (point))
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
6901 (skip-chars-forward " \t")
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
6902 (delete-region s (point))
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
6903 (indent-to-column c))
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
6904 (t
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
6905 (delete-char -1)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
6906 (just-one-space))))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6907
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6908 (defun cperl-contract-levels ()
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
6909 "Find an enclosing group in regexp and contract all the kids.
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6910 \(Experimental, may change semantics, recheck the result.)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6911 We suppose that the regexp is scanned already."
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6912 (interactive)
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6913 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6914 (condition-case nil
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6915 (cperl-regext-to-level-start)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6916 (error ; We are outside outermost group
37569
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
6917 (goto-char (cperl-make-regexp-x))))
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
6918 (let ((b (point)) (e (make-marker)) s c)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
6919 (forward-sexp 1)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
6920 (set-marker e (1- (point)))
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
6921 (goto-char (1+ b))
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
6922 (while (re-search-forward "\\(\\\\\\\\\\)\\|(" e t)
44748506225d (cperl-font-lock-keywords)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36602
diff changeset
6923 (cond
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6924 ((match-beginning 1) ; Skip
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6925 nil)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6926 (t ; Group
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6927 (cperl-contract-level)))))))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6928
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6929 (defun cperl-beautify-level (&optional deep)
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6930 "Find an enclosing group in regexp and beautify it.
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6931 \(Experimental, may change semantics, recheck the result.)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6932 We suppose that the regexp is scanned already."
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6933 (interactive "P")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6934 (if deep
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6935 (prefix-numeric-value deep)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6936 (setq deep -1))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6937 (save-excursion
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6938 (cperl-regext-to-level-start)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6939 (let ((b (point)) (e (make-marker)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6940 (forward-sexp 1)
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6941 (set-marker e (1- (point)))
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6942 (cperl-beautify-regexp-piece b e nil deep))))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6943
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6944 (defun cperl-invert-if-unless ()
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6945 "Change `if (A) {B}' into `B if A;' etc if possible."
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6946 (interactive)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6947 (or (looking-at "\\<")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6948 (forward-sexp -1))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
6949 (if (looking-at "\\<\\(if\\|unless\\|while\\|until\\|for\\|foreach\\)\\>")
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6950 (let ((pos1 (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6951 pos2 pos3 pos4 pos5 s1 s2 state p pos45
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6952 (s0 (buffer-substring (match-beginning 0) (match-end 0))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6953 (forward-sexp 2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6954 (setq pos3 (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6955 (forward-sexp -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6956 (setq pos2 (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6957 (if (eq (following-char) ?\( )
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6958 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6959 (goto-char pos3)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6960 (forward-sexp 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6961 (setq pos5 (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6962 (forward-sexp -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6963 (setq pos4 (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6964 ;; XXXX In fact may be `A if (B); {C}' ...
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6965 (if (and (eq (following-char) ?\{ )
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6966 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6967 (cperl-backward-to-noncomment pos3)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6968 (eq (preceding-char) ?\) )))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6969 (if (condition-case nil
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6970 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6971 (goto-char pos5)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6972 (forward-sexp 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6973 (forward-sexp -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6974 (looking-at "\\<els\\(e\\|if\\)\\>"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6975 (error nil))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6976 (error
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6977 "`%s' (EXPR) {BLOCK} with `else'/`elsif'" s0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6978 (goto-char (1- pos5))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6979 (cperl-backward-to-noncomment pos4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6980 (if (eq (preceding-char) ?\;)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6981 (forward-char -1))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6982 (setq pos45 (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6983 (goto-char pos4)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6984 (while (re-search-forward "\\<\\(for\\|foreach\\|if\\|unless\\|while\\|until\\)\\>\\|;" pos45 t)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6985 (setq p (match-beginning 0)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6986 s1 (buffer-substring p (match-end 0))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6987 state (parse-partial-sexp pos4 p))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
6988 (or (nth 3 state)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6989 (nth 4 state)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6990 (nth 5 state)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6991 (error "`%s' inside `%s' BLOCK" s1 s0))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6992 (goto-char (match-end 0)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6993 ;; Finally got it
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6994 (goto-char (1+ pos4))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6995 (skip-chars-forward " \t\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6996 (setq s2 (buffer-substring (point) pos45))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6997 (goto-char pos45)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6998 (or (looking-at ";?[ \t\n]*}")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
6999 (progn
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7000 (skip-chars-forward "; \t\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7001 (setq s2 (concat s2 "\n" (buffer-substring (point) (1- pos5))))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7002 (and (equal s2 "")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7003 (setq s2 "1"))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7004 (goto-char (1- pos3))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7005 (cperl-backward-to-noncomment pos2)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7006 (or (looking-at "[ \t\n]*)")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7007 (goto-char (1- pos3)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7008 (setq p (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7009 (goto-char (1+ pos2))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7010 (skip-chars-forward " \t\n")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7011 (setq s1 (buffer-substring (point) p))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7012 (delete-region pos4 pos5)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7013 (delete-region pos2 pos3)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7014 (goto-char pos1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7015 (insert s2 " ")
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7016 (just-one-space)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7017 (forward-word 1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7018 (setq pos1 (point))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7019 (insert " " s1 ";")
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7020 (delete-horizontal-space)
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7021 (forward-char -1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7022 (delete-horizontal-space)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7023 (goto-char pos1)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7024 (just-one-space)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7025 (cperl-indent-line))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7026 (error "`%s' (EXPR) not with an {BLOCK}" s0)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7027 (error "`%s' not with an (EXPR)" s0)))
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7028 (error "Not at `if', `unless', `while', `unless', `for' or `foreach'")))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7029
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7030 ;;; By Anthony Foiani <afoiani@uswest.com>
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7031 ;;; Getting help on modules in C-h f ?
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7032 ;;; This is a modified version of `man'.
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7033 ;;; Need to teach it how to lookup functions
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7034 (defun cperl-perldoc (word)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7035 "Run `perldoc' on WORD."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7036 (interactive
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7037 (list (let* ((default-entry (cperl-word-at-point))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7038 (input (read-string
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7039 (format "perldoc entry%s: "
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7040 (if (string= default-entry "")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7041 ""
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7042 (format " (default %s)" default-entry))))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7043 (if (string= input "")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7044 (if (string= default-entry "")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7045 (error "No perldoc args given")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7046 default-entry)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7047 input))))
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7048 (let* ((is-func (and
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7049 (string-match "^[a-z]+$" word)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7050 (string-match (concat "^" word "\\>")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7051 (documentation-property
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7052 'cperl-short-docs
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7053 'variable-documentation))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7054 (manual-program (if is-func "perldoc -f" "perldoc")))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7055 (require 'man)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7056 (Man-getpage-in-background word)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7057
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7058 (defun cperl-perldoc-at-point ()
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7059 "Run a `perldoc' on the word around point."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7060 (interactive)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7061 (cperl-perldoc (cperl-word-at-point)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7062
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7063 (defcustom pod2man-program "pod2man"
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7064 "*File name for `pod2man'."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7065 :type 'file
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7066 :group 'cperl)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7067
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7068 ;;; By Nick Roberts <Nick.Roberts@src.bae.co.uk> (with changes)
22409
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7069 (defun cperl-pod-to-manpage ()
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7070 "Create a virtual manpage in Emacs from the Perl Online Documentation."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7071 (interactive)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7072 (require 'man)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7073 (let* ((pod2man-args (concat buffer-file-name " | nroff -man "))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7074 (bufname (concat "Man " buffer-file-name))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7075 (buffer (generate-new-buffer bufname)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7076 (save-excursion
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7077 (set-buffer buffer)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7078 (let ((process-environment (copy-sequence process-environment)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7079 ;; Prevent any attempt to use display terminal fanciness.
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7080 (setenv "TERM" "dumb")
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7081 (set-process-sentinel
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7082 (start-process pod2man-program buffer "sh" "-c"
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7083 (format (cperl-pod2man-build-command) pod2man-args))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7084 'Man-bgproc-sentinel)))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7085
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7086 (defun cperl-pod2man-build-command ()
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7087 "Builds the entire background manpage and cleaning command."
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7088 (let ((command (concat pod2man-program " %s 2>/dev/null"))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7089 (flist Man-filter-list))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7090 (while (and flist (car flist))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7091 (let ((pcom (car (car flist)))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7092 (pargs (cdr (car flist))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7093 (setq command
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7094 (concat command " | " pcom " "
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7095 (mapconcat '(lambda (phrase)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7096 (if (not (stringp phrase))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7097 (error "Malformed Man-filter-list"))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7098 phrase)
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7099 pargs " ")))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7100 (setq flist (cdr flist))))
382becc612e1 (pod2man-program): Var reinstalled.
Richard M. Stallman <rms@gnu.org>
parents: 22398
diff changeset
7101 command))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7102
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7103 (defun cperl-lazy-install ()) ; Avoid a warning
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7104
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7105 (if (fboundp 'run-with-idle-timer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7106 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7107 (defvar cperl-help-shown nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7108 "Non-nil means that the help was already shown now.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7109
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7110 (defvar cperl-lazy-installed nil
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7111 "Non-nil means that the lazy-help handlers are installed now.")
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7112
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7113 (defun cperl-lazy-install ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7114 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7115 (make-variable-buffer-local 'cperl-help-shown)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7116 (if (and (cperl-val 'cperl-lazy-help-time)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7117 (not cperl-lazy-installed))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7118 (progn
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7119 (add-hook 'post-command-hook 'cperl-lazy-hook)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7120 (run-with-idle-timer
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7121 (cperl-val 'cperl-lazy-help-time 1000000 5)
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7122 t
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7123 'cperl-get-help-defer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7124 (setq cperl-lazy-installed t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7125
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7126 (defun cperl-lazy-unstall ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7127 (interactive)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7128 (remove-hook 'post-command-hook 'cperl-lazy-hook)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7129 (cancel-function-timers 'cperl-get-help-defer)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7130 (setq cperl-lazy-installed nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7131
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7132 (defun cperl-lazy-hook ()
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7133 (setq cperl-help-shown nil))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7134
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7135 (defun cperl-get-help-defer ()
36602
4bcc2745d610 (cperl-msb-fix, cperl-get-help-defer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36601
diff changeset
7136 (when (memq major-mode '(perl-mode cperl-mode))
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7137 (let ((cperl-message-on-help-error nil) (cperl-help-from-timer t))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7138 (cperl-get-help)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7139 (setq cperl-help-shown t))))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7140 (cperl-lazy-install)))
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7141
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7142
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7143 ;;; Plug for wrong font-lock:
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7144
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7145 (defun cperl-font-lock-unfontify-region-function (beg end)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7146 (let* ((modified (buffer-modified-p)) (buffer-undo-list t)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7147 (inhibit-read-only t) (inhibit-point-motion-hooks t)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7148 before-change-functions after-change-functions
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7149 deactivate-mark buffer-file-name buffer-file-truename)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7150 (remove-text-properties beg end '(face nil))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7151 (when (and (not modified) (buffer-modified-p))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7152 (set-buffer-modified-p nil))))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7153
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7154 (defvar cperl-d-l nil)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7155 (defun cperl-fontify-syntaxically (end)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7156 ;; Some vars for debugging only
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7157 ;; (message "Syntaxifying...")
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7158 (let (start (dbg (point)) (iend end)
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7159 (istate (car cperl-syntax-state)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7160 (and cperl-syntaxify-unwind
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7161 (setq end (cperl-unwind-to-safe t end)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7162 (setq start (point))
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7163 (or cperl-syntax-done-to
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7164 (setq cperl-syntax-done-to (point-min)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7165 (if (or (not (boundp 'font-lock-hot-pass))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7166 (eval 'font-lock-hot-pass)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7167 t) ; Not debugged otherwise
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7168 ;; Need to forget what is after `start'
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7169 (setq start (min cperl-syntax-done-to start))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7170 ;; Fontification without a change
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7171 (setq start (max cperl-syntax-done-to start)))
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7172 (and (> end start)
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7173 (setq cperl-syntax-done-to start) ; In case what follows fails
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7174 (cperl-find-pods-heres start end t nil t))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7175 (if (eq cperl-syntaxify-by-font-lock 'message)
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7176 (message "Syntaxified %s..%s from %s to %s(%s), state %s-->%s"
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7177 dbg iend
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7178 start end cperl-syntax-done-to
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7179 istate (car cperl-syntax-state))) ; For debugging
22293
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7180 nil)) ; Do not iterate
0544aa57ff27 (cperl-style-alist): New variable, since `c-mode'
Richard M. Stallman <rms@gnu.org>
parents: 20961
diff changeset
7181
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7182 (defun cperl-fontify-update (end)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7183 (let ((pos (point)) prop posend)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7184 (while (< pos end)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7185 (setq prop (get-text-property pos 'cperl-postpone))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7186 (setq posend (next-single-property-change pos 'cperl-postpone nil end))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7187 (and prop (put-text-property pos posend (car prop) (cdr prop)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7188 (setq pos posend)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7189 nil) ; Do not iterate
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7190
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7191 (defun cperl-update-syntaxification (from to)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7192 (if (and cperl-use-syntax-table-text-property
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7193 cperl-syntaxify-by-font-lock
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7194 (or (null cperl-syntax-done-to)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7195 (< cperl-syntax-done-to to)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7196 (progn
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7197 (save-excursion
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7198 (goto-char from)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7199 (cperl-fontify-syntaxically to)))))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7200
32384
a18be74d62e5 (cperl-invalid-face): double-quote underline
Sam Steingold <sds@gnu.org>
parents: 31821
diff changeset
7201 (defvar cperl-version
39836
c2db8c1499cb Merged in changes from v4.32.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38436
diff changeset
7202 (let ((v "Revision: 4.32"))
23977
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7203 (string-match ":\\s *\\([0-9.]+\\)" v)
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7204 (substring v (match-beginning 1) (match-end 1)))
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7205 "Version of IZ-supported CPerl package this file is based on.")
abc9bc6aef59 Can use linear algorithm for indentation if Emacs supports it.
Richard M. Stallman <rms@gnu.org>
parents: 23270
diff changeset
7206
20323
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7207 (provide 'cperl-mode)
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7208
eae9c49831e4 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7209 ;;; cperl-mode.el ends here