1241 |
The expansion is entirely correct because it uses the C preprocessor." |
The expansion is entirely correct because it uses the C preprocessor." |
1242 |
t) |
t) |
1243 |
|
|
1244 |
|
(defvar cperl-outline-regexp |
1245 |
|
(concat cperl-imenu--function-name-regexp-perl "\\|" "\\`")) |
1246 |
|
|
1247 |
(defvar cperl-mode-syntax-table nil |
(defvar cperl-mode-syntax-table nil |
1248 |
"Syntax table in use in Cperl-mode buffers.") |
"Syntax table in use in Cperl-mode buffers.") |
1249 |
|
|
4472 |
(cperl-imenu-addback index-alist))) |
(cperl-imenu-addback index-alist))) |
4473 |
|
|
4474 |
|
|
|
(defvar cperl-outline-regexp |
|
|
(concat cperl-imenu--function-name-regexp-perl "\\|" "\\`")) |
|
|
|
|
4475 |
;; Suggested by Mark A. Hershberger |
;; Suggested by Mark A. Hershberger |
4476 |
(defun cperl-outline-level () |
(defun cperl-outline-level () |
4477 |
(looking-at outline-regexp) |
(looking-at outline-regexp) |