Mercurial > hg > xemacs-beta

diff lisp/packages/func-menu.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children e04119814345
line wrap: on
line diff
--- a/lisp/packages/func-menu.el	Mon Aug 13 08:51:05 2007 +0200
+++ b/lisp/packages/func-menu.el	Mon Aug 13 08:51:32 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
    )