Mercurial > emacs
changeset 43943:5ef08437e801
(cperl-imenu--function-name-regexp-perl):
Move definition above cperl-outline-regexp.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 16 Mar 2002 06:52:31 +0000 |
| parents | fc8561532c81 |
| children | 42291dbdcf4b |
| files | lisp/progmodes/cperl-mode.el |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/cperl-mode.el Sat Mar 16 06:51:23 2002 +0000 +++ b/lisp/progmodes/cperl-mode.el Sat Mar 16 06:52:31 2002 +0000 @@ -1241,6 +1241,14 @@ The expansion is entirely correct because it uses the C preprocessor." t) +(defvar cperl-imenu--function-name-regexp-perl + (concat + "^\\(" + "[ \t]*\\(sub\\|package\\)[ \t\n]+\\([a-zA-Z_0-9:']+\\)[ \t]*\\(([^()]*)[ \t]*\\)?" + "\\|" + "=head\\([12]\\)[ \t]+\\([^\n]+\\)$" + "\\)")) + (defvar cperl-outline-regexp (concat cperl-imenu--function-name-regexp-perl "\\|" "\\`")) @@ -4297,14 +4305,6 @@ ;; Previous space could have gone: (or (memq (preceding-char) '(?\ ?\t)) (insert " ")))))) -(defvar cperl-imenu--function-name-regexp-perl - (concat - "^\\(" - "[ \t]*\\(sub\\|package\\)[ \t\n]+\\([a-zA-Z_0-9:']+\\)[ \t]*\\(([^()]*)[ \t]*\\)?" - "\\|" - "=head\\([12]\\)[ \t]+\\([^\n]+\\)$" - "\\)")) - (defun cperl-imenu-addback (lst &optional isback name) ;; We suppose that the lst is a DAG, unless the first element only ;; loops back, and ISBACK is set. Thus this function cannot be