From xemacs-m  Sun Apr 27 11:49:13 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id LAA18100
	for <xemacs-beta@xemacs.org>; Sun, 27 Apr 1997 11:49:11 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id JAA18958;
	Sun, 27 Apr 1997 09:50:30 -0700
Date: Sun, 27 Apr 1997 09:50:30 -0700
Message-Id: <199704271650.JAA18958@bittersweet.inetarena.com>
From: "Karl M. Hegbloom" <karlheg@inetarena.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: <xemacs-beta@xemacs.org>
Subject: cperl-mode.el patch
X-Mailer: VM 6.29 under 20.2 XEmacs Lucid (beta2)
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D


 cperl-mode.el was calling visit-tags-table-buffer with an argument,
and it takes none.  FSF Emacs has a different etags.el than XEmacs; it
takes an optional argument.  I don't have the .el of it though, at
this time.

Here's a simple patch for cperl-mode.el, though what really should
change is probably etags.el, not this???:

*** cperl-mode.el~	Sat Mar 15 19:04:57 1997
--- cperl-mode.el	Sun Apr 27 09:39:20 1997
***************
*** 3757,3763 ****
      (save-excursion
        (cond (inbuffer nil)		; Already there
  	    ((file-exists-p tags-file-name)
! 	     (visit-tags-table-buffer tags-file-name))
  	    (t (set-buffer (find-file-noselect tags-file-name))))
        (cond
         (dir
--- 3757,3764 ----
      (save-excursion
        (cond (inbuffer nil)		; Already there
  	    ((file-exists-p tags-file-name)
! 	     ;;(visit-tags-table-buffer tags-file-name))
! 	     (visit-tags-table-buffer))
  	    (t (set-buffer (find-file-noselect tags-file-name))))
        (cond
         (dir

-- 
Karl M. Hegbloom <karlheg@inetarena.com>
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.2  Linux 2.0.30t

