Mercurial > hg > xemacs-beta

diff lisp/packages/func-menu.el @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents 4be1180a9e89
children fe104dbd9147
line wrap: on
line diff
--- a/lisp/packages/func-menu.el	Mon Aug 13 09:15:13 2007 +0200
+++ b/lisp/packages/func-menu.el	Mon Aug 13 09:15:49 2007 +0200
@@ -546,13 +546,14 @@
 ;;; Lisp
 ;;;
 ;;; Vladimir Alexiev <vladimir@cs.ualberta.ca>
+;;; JTL: 24. Feb. 97 added "/" as part of function names
 (defvar fume-function-name-regexp-lisp
   (concat
    "^[ \t]*"                            ; Allow whitespace   |(or (fboundp 'foo)
                                         ;  for the construct |    (defun foo ()
    "(\\(def[^vc][a-z]*\\)"              ; Allow (def* except (defvar, (defconst
    "\\s-+"                              ; At least one whitespace
-   "'?[#:?A-Za-z0-9_+>-]+"              ; Allow (defalias 'foo 'bar)
+   "'?[#:?/A-Za-z0-9_+>-]+"             ; Allow (defalias 'foo 'bar)
    "\\s-*"                              ; Whitespace
    "\\(nil\\|(\\)"                      ; nil or (arg list
    )