From xemacs-m  Mon Feb 24 00:23:34 1997
Received: from jens.metrix.de (jens@jens.metrix.de [194.123.88.124])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id AAA12101
	for <xemacs-beta@xemacs.org>; Mon, 24 Feb 1997 00:23:30 -0600 (CST)
Received: (from jens@localhost) by jens.metrix.de (8.7.6/8.7.3) id HAA04489; Mon, 24 Feb 1997 07:22:42 +0100
To: xemacs-beta@xemacs.org
Subject: patch No. 2 for func-menu... (beta 95)
X-Face: Z[@OB)("ZvE?ev~1b+b!0ZUB.$%rh.9qE>dVf>q}Q/V?%d`J3gd!LR\aAZ8<Hwi]xTA(:*c;i3,?K?+rCy*^b$)a,}E?eo},}x2]5LlJysyoUOK"o[>K)'\Ulb7y-7*.If^;rHl['oa)n_M7E6w+LDKMs"G8_`c)uOS1^}.1|8Ill]7X68X-paeUOpBhz<F`B0?~^2Et~GYfw~/0]H]nx4~C_E/_mp#^7Ixc:
Reply-To: jens@lemming0.lem.uni-karlsruhe.de
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Feb_24_07:22:40_1997-1"
Content-Transfer-Encoding: 7bit
From: Jens Lautenbacher <jens@metrix.de>
Date: 24 Feb 1997 07:22:41 +0100
Message-ID: <m3914eradq.fsf@jens.metrix.de>
Lines: 54
X-Mailer: Gnus v5.4.15/XEmacs 19.15

--Multipart_Mon_Feb_24_07:22:40_1997-1
Content-Type: text/plain; charset=US-ASCII


Hi.

This patch allows for function names containing `/' in elisp to be
recognized by func-menu. (Trivial, OK. I'll try do dig a little bit
deeper...) 

	   Jens




--Multipart_Mon_Feb_24_07:22:40_1997-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="func2.patch"
Content-Transfer-Encoding: 7bit

*** /usr/local/src/xemacs-19.15-b94/lisp/packages/func-menu.el	Sun Feb 23 02:04:34 1997
--- func-menu.el	Mon Feb 24 06:29:50 1997
***************
*** 546,558 ****
  ;;; Lisp
  ;;;
  ;;; Vladimir Alexiev <vladimir@cs.ualberta.ca>
  (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)
     "\\s-*"                              ; Whitespace
     "\\(nil\\|(\\)"                      ; nil or (arg list
     )
--- 546,559 ----
  ;;; 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)
     "\\s-*"                              ; Whitespace
     "\\(nil\\|(\\)"                      ; nil or (arg list
     )

--Multipart_Mon_Feb_24_07:22:40_1997-1--

