/[emacs]/emacs/lisp/progmodes/cperl-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/cperl-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by rms, Thu Mar 14 08:50:03 2002 UTC revision 1.32 by rms, Sat Mar 16 06:52:31 2002 UTC
# Line 1241  the faces: please specify bold, italic, Line 1241  the faces: please specify bold, italic,
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    
# Line 4297  indentation and initial hashes.  Behaves Line 4305  indentation and initial hashes.  Behaves
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

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26