Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
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