[Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el

[Richard M. Stallman]

Index: emacs/lisp/progmodes/cperl-mode.el
diff -c emacs/lisp/progmodes/cperl-mode.el:1.31 
emacs/lisp/progmodes/cperl-mode.el:1.32
*** emacs/lisp/progmodes/cperl-mode.el:1.31     Thu Mar 14 03:50:03 2002
--- emacs/lisp/progmodes/cperl-mode.el  Sat Mar 16 01:52:31 2002
***************
*** 1241,1246 ****
--- 1241,1254 ----
  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 "\\|" "\\`"))
  
***************
*** 4296,4309 ****
        (backward-char 1))
        ;; 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
--- 4304,4309 ----