Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
544 ;;; function for that certain language. 544 ;;; function for that certain language.
545 545
546 ;;; Lisp 546 ;;; Lisp
547 ;;; 547 ;;;
548 ;;; Vladimir Alexiev <vladimir@cs.ualberta.ca> 548 ;;; Vladimir Alexiev <vladimir@cs.ualberta.ca>
549 ;;; JTL: 24. Feb. 97 added "/" as part of function names
549 (defvar fume-function-name-regexp-lisp 550 (defvar fume-function-name-regexp-lisp
550 (concat 551 (concat
551 "^[ \t]*" ; Allow whitespace |(or (fboundp 'foo) 552 "^[ \t]*" ; Allow whitespace |(or (fboundp 'foo)
552 ; for the construct | (defun foo () 553 ; for the construct | (defun foo ()
553 "(\\(def[^vc][a-z]*\\)" ; Allow (def* except (defvar, (defconst 554 "(\\(def[^vc][a-z]*\\)" ; Allow (def* except (defvar, (defconst
554 "\\s-+" ; At least one whitespace 555 "\\s-+" ; At least one whitespace
555 "'?[#:?A-Za-z0-9_+>-]+" ; Allow (defalias 'foo 'bar) 556 "'?[#:?/A-Za-z0-9_+>-]+" ; Allow (defalias 'foo 'bar)
556 "\\s-*" ; Whitespace 557 "\\s-*" ; Whitespace
557 "\\(nil\\|(\\)" ; nil or (arg list 558 "\\(nil\\|(\\)" ; nil or (arg list
558 ) 559 )
559 "Expression to get lisp function names") 560 "Expression to get lisp function names")
560 561