From xemacs-m  Sat Aug  2 07:27:00 1997
Received: from MIT.EDU (PACIFIC-CARRIER-ANNEX.MIT.EDU [18.69.0.28])
	by xemacs.org (8.8.5/8.8.5) with SMTP id HAA09029
	for <xemacs-beta@xemacs.org>; Sat, 2 Aug 1997 07:26:59 -0500 (CDT)
Received: from SUNDIAL.MIT.EDU by MIT.EDU with SMTP
	id AA26095; Sat, 2 Aug 97 08:27:02 EDT
Received: by sundial.MIT.EDU (8.8.5/4.7) id IAA17655; Sat, 2 Aug 1997 08:27:01 -0400 (EDT)
To: xemacs-beta@xemacs.org
Subject: hyperb & dired
From: David Bakhash <cadet@MIT.EDU>
Date: 02 Aug 1997 08:27:01 -0400
Message-Id: <c29en8c93e2.fsf@mit.edu>
Lines: 28
X-Mailer: Gnus v5.4.52/XEmacs 20.2

I think I sent this out once, but maybe it was to the wrong place.  It's 
for hyperbole and dired.  Hyperbole is using the wrong dired function
name on the assist-key in dired (Sh-button3) for deletion.  Here's the
patch...

--dave

*** hui-mouse.el	Sat Feb 22 17:07:18 1997
--- /tmp/hui-mouse.el	Sat Aug  2 07:24:57 1997
***************
*** 458,464 ****
	 (goto-char (point-max)))
	((looking-at "~") (dired-flag-backup-files))
	((looking-at "#") (dired-flag-auto-save-files))
!	(t (dired-flag-file-deleted 1))))
  
  ;;;
************************************************************************
  ;;; smart-gnus functions
--- 458,464 ----
	 (goto-char (point-max)))
	((looking-at "~") (dired-flag-backup-files))
	((looking-at "#") (dired-flag-auto-save-files))
!	(t (dired-flag-file-deletion 1))))
  
  ;;;
************************************************************************
  ;;; smart-gnus functions

