From 95f433f40b56144b5714993f4d4d951c1a24c471 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 Mar 2002 06:52:31 +0000 Subject: [PATCH] (cperl-imenu--function-name-regexp-perl): Move definition above cperl-outline-regexp. --- lisp/progmodes/cperl-mode.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 2605e259e1d..293e236b913 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -1241,6 +1241,14 @@ the faces: please specify bold, italic, underline, shadow and box.) 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 @@ indentation and initial hashes. Behaves usually outside of comment." ;; 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 -- 2.39.2