diff options
| author | Richard M. Stallman | 2002-03-14 08:50:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-03-14 08:50:03 +0000 |
| commit | 8dd511f60761359dabd23ca8c3c874b854f42afc (patch) | |
| tree | c078a0beb3b11eb315b19c9f93c965875757f98c | |
| parent | f0dcf80149831c891df5ee5896fbf9c0419539a7 (diff) | |
| download | emacs-8dd511f60761359dabd23ca8c3c874b854f42afc.tar.gz emacs-8dd511f60761359dabd23ca8c3c874b854f42afc.zip | |
(cperl-outline-regexp): Move definition up.
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 9f5e392be18..2605e259e1d 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el | |||
| @@ -1241,6 +1241,9 @@ the faces: please specify bold, italic, underline, shadow and box.) | |||
| 1241 | The expansion is entirely correct because it uses the C preprocessor." | 1241 | The expansion is entirely correct because it uses the C preprocessor." |
| 1242 | t) | 1242 | t) |
| 1243 | 1243 | ||
| 1244 | (defvar cperl-outline-regexp | ||
| 1245 | (concat cperl-imenu--function-name-regexp-perl "\\|" "\\`")) | ||
| 1246 | |||
| 1244 | (defvar cperl-mode-syntax-table nil | 1247 | (defvar cperl-mode-syntax-table nil |
| 1245 | "Syntax table in use in Cperl-mode buffers.") | 1248 | "Syntax table in use in Cperl-mode buffers.") |
| 1246 | 1249 | ||
| @@ -4469,9 +4472,6 @@ indentation and initial hashes. Behaves usually outside of comment." | |||
| 4469 | (cperl-imenu-addback index-alist))) | 4472 | (cperl-imenu-addback index-alist))) |
| 4470 | 4473 | ||
| 4471 | 4474 | ||
| 4472 | (defvar cperl-outline-regexp | ||
| 4473 | (concat cperl-imenu--function-name-regexp-perl "\\|" "\\`")) | ||
| 4474 | |||
| 4475 | ;; Suggested by Mark A. Hershberger | 4475 | ;; Suggested by Mark A. Hershberger |
| 4476 | (defun cperl-outline-level () | 4476 | (defun cperl-outline-level () |
| 4477 | (looking-at outline-regexp) | 4477 | (looking-at outline-regexp) |