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-imenu--function-name-regexp-perl |
1245 |
|
(concat |
1246 |
|
"^\\(" |
1247 |
|
"[ \t]*\\(sub\\|package\\)[ \t\n]+\\([a-zA-Z_0-9:']+\\)[ \t]*\\(([^()]*)[ \t]*\\)?" |
1248 |
|
"\\|" |
1249 |
|
"=head\\([12]\\)[ \t]+\\([^\n]+\\)$" |
1250 |
|
"\\)")) |
1251 |
|
|
1252 |
(defvar cperl-outline-regexp |
(defvar cperl-outline-regexp |
1253 |
(concat cperl-imenu--function-name-regexp-perl "\\|" "\\`")) |
(concat cperl-imenu--function-name-regexp-perl "\\|" "\\`")) |
1254 |
|
|
4305 |
;; Previous space could have gone: |
;; Previous space could have gone: |
4306 |
(or (memq (preceding-char) '(?\ ?\t)) (insert " ")))))) |
(or (memq (preceding-char) '(?\ ?\t)) (insert " ")))))) |
4307 |
|
|
|
(defvar cperl-imenu--function-name-regexp-perl |
|
|
(concat |
|
|
"^\\(" |
|
|
"[ \t]*\\(sub\\|package\\)[ \t\n]+\\([a-zA-Z_0-9:']+\\)[ \t]*\\(([^()]*)[ \t]*\\)?" |
|
|
"\\|" |
|
|
"=head\\([12]\\)[ \t]+\\([^\n]+\\)$" |
|
|
"\\)")) |
|
|
|
|
4308 |
(defun cperl-imenu-addback (lst &optional isback name) |
(defun cperl-imenu-addback (lst &optional isback name) |
4309 |
;; We suppose that the lst is a DAG, unless the first element only |
;; We suppose that the lst is a DAG, unless the first element only |
4310 |
;; loops back, and ISBACK is set. Thus this function cannot be |
;; loops back, and ISBACK is set. Thus this function cannot be |