From xemacs-m  Sat Mar 22 12:58:41 1997
Received: from mailhost.lanl.gov (mailhost.lanl.gov [128.165.3.12])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id MAA29566
	for <xemacs-beta@xemacs.org>; Sat, 22 Mar 1997 12:58:40 -0600 (CST)
Received: from branagh.ta52.lanl.gov (branagh.ta52.lanl.gov [128.165.144.9]) by mailhost.lanl.gov (8.8.5/8.8.3) with SMTP id LAA22418 for <xemacs-beta@xemacs.org>; Sat, 22 Mar 1997 11:58:41 -0700 (MST)
Received: by branagh.ta52.lanl.gov (SMI-8.6/SMI-SVR4)
	id LAA20614; Sat, 22 Mar 1997 11:53:58 -0700
Date: Sat, 22 Mar 1997 11:53:58 -0700
Message-Id: <199703221853.LAA20614@branagh.ta52.lanl.gov>
From: "John A. Turner" <turner@branagh.ta52.lanl.gov>
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
To: xemacs-beta@xemacs.org
Subject: Re: Redisplay bug, efs invalid-function bug
In-Reply-To: <199703221319.FAA05610@bittersweet.inetarena.com>
References: <199703221319.FAA05610@bittersweet.inetarena.com>
X-Mailer: VM 6.21 under 19.15 XEmacs Lucid (beta103)
Reply-To: turner@lanl.gov
Content-Transfer-Encoding: 8bit
X-MIME-Autoconverted: from base64 to 8bit by xemacs.org id MAA29567

Karl M. Hegbloom writes:
 > 
 >  I tried 'efs', and it goes blonk, "(invalid-function (macro
 > . #<compiled-function (from "advice.elc"...", so I set
 > 'debug-on-error' and did it, and noticed that when I scroll the
 > debugger window, the tops of accented characters are left behind.  Off
 > by one?

I think I'm seeing the same thing.  Backtrace:

Signaling: (invalid-function (macro . #<compiled-function (from "advice.elc") (function) "...(4)" [ad-get-advice-info function] 2>))
  ad-is-advised(expand-file-name)
  efs-overwrite-fn("efs" expand-file-name)
  byte-code("BC\"\"\"###########################ȁ@
  load-internal("efs" nil nil nil)
  load("efs" nil nil nil)
  efs-file-handler-function(substitute-in-file-name "/anonymous@ftp.xemacs.org:")
  substitute-in-file-name("/anonymous@ftp.xemacs.org:")
  read-file-name-2(file-name-history "Find file: " nil nil nil nil read-file-name-internal)
  read-file-name-1(file-name-history "Find file: " nil nil nil nil read-file-name-internal)
  read-file-name("Find file: " nil nil nil)
  call-interactively(find-file)

-- 
John Turner
http://www.lanl.gov/home/turner

