From xemacs-m  Mon Jul 14 15:31:07 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id PAA07633
	for <xemacs-beta@xemacs.org>; Mon, 14 Jul 1997 15:31:04 -0500 (CDT)
Received: (from hniksic@localhost)
	by jagor.srce.hr (8.8.6/8.8.6) id WAA12101;
	Mon, 14 Jul 1997 22:31:01 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Re: pending-delete customization [PATCH]
References: <bci67ud5tse.fsf@corp.Sun.COM> <kig4t9xctxy.fsf@jagor.srce.hr> <bci20515sey.fsf@corp.Sun.COM> <kigu3hxbe4p.fsf@jagor.srce.hr> <w44t9xcrty.fsf@loiosh.kei.com>
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 14 Jul 1997 22:31:01 +0200
In-Reply-To: Christopher Davis's message of "14 Jul 1997 16:16:25 -0400"
Message-ID: <kigpvslbcl6.fsf@jagor.srce.hr>
Lines: 40
X-Mailer: Gnus v5.4.63/XEmacs 20.3(beta13) - "Brussels"

Christopher Davis <ckd@loiosh.kei.com> writes:

>  Hrv> But then again, you may be right.  How about this patch, instead?
> 
>  Hrv> +(defcustom pending-delete-modeline-string " PenDel"
>  Hrv> +  "*String to display in the modeline when Filladapt mode is active.
>                                                   ^^^^^^^^^ The patch
> looks reasonable to me, but you may want to take out the references to
> Filladapt mode before shipping it :)

Oops!  OK folks, enough shit.  Here is the official patch [tm], all
with the ChangeLog and everything:

1997-07-14  Hrvoje Niksic  <hniksic@srce.hr>

	* packages/pending-del.el (pending-delete-modeline-string): New
 	option.

--- lisp/packages/pending-del.el.orig	Mon Jul 14 21:29:29 1997
+++ lisp/packages/pending-del.el	Mon Jul 14 22:30:14 1997
@@ -40,7 +40,11 @@
   "Non-nil when Pending Delete mode is enabled.
 In Pending Delete mode, typed text replaces the selected region.")
 
-(add-minor-mode 'pending-delete-mode " PenDel")
+(defcustom pending-delete-modeline-string " PenDel"
+  "*String to display in the modeline when Pending Delete mode is active."
+  :type 'string)
+
+(add-minor-mode 'pending-delete-mode pending-delete-modeline-string)
 
 
 (defun pending-delete-active-region (&optional killp)


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
"Beware of bugs in the above code; I have only proved it correct,
not tried it."                                    -- Donald Knuth

