From xemacs-m  Mon Jul 14 14:16:34 1997
Received: from mercury.Sun.COM (mercury.Sun.COM [192.9.25.1])
	by xemacs.org (8.8.5/8.8.5) with SMTP id OAA06408
	for <xemacs-beta@xemacs.org>; Mon, 14 Jul 1997 14:16:34 -0500 (CDT)
Received: from Corp.Sun.COM ([129.145.35.78]) by mercury.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id MAA23747 for <xemacs-beta@xemacs.org>; Mon, 14 Jul 1997 12:43:54 -0700
Received: from legba.Corp.Sun.COM by Corp.Sun.COM (SMI-8.6/SMI-5.3)
	id MAA12777; Mon, 14 Jul 1997 12:16:02 -0700
Received: by legba.Corp.Sun.COM (SMI-8.6/SMI-SVR4)
	id MAA00898; Mon, 14 Jul 1997 12:16:01 -0700
To: xemacs-beta@xemacs.org
Subject: pending-delete customization [PATCH]
X-Attribution: GDF
Mail-Copies-To: never
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Jul_14_12:16:01_1997-1"
Content-Transfer-Encoding: 7bit
From: Gary.Foster@Corp.Sun.COM (Gary D. Foster)
Date: 14 Jul 1997 12:16:01 -0700
Message-ID: <bci67ud5tse.fsf@corp.Sun.COM>
Lines: 46
X-Mailer: Gnus v5.4.63/XEmacs 20.3(beta13) - "Brussels"

--Multipart_Mon_Jul_14_12:16:01_1997-1
Content-Type: text/plain; charset=US-ASCII

No offense, Hrvoje, but I thing " PenDel" is an absolutely hideous
modeline string for pending-delete.  So, when I went to change it, I
found out it wasn't customizable.  It is now, feel free to move it
around to a different customization group if mine is inappropriate. :)

-- Gary F.


--Multipart_Mon_Jul_14_12:16:01_1997-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="pending-del.patch"
Content-Transfer-Encoding: 7bit

--- lisp/packages/pending-del.el.orig	Mon Jul 14 11:34:49 1997
+++ lisp/packages/pending-del.el	Mon Jul 14 12:05:02 1997
@@ -36,11 +36,22 @@
 
 ;;; Code:
 
-(defvar pending-delete-mode nil
+(defgroup pending-delete nil
+  "Pending-delete mode customization variables."
+  :group 'editing)
+
+(defcustom pending-delete-mode nil
   "Non-nil when Pending Delete mode is enabled.
-In Pending Delete mode, typed text replaces the selected region.")
+In Pending Delete mode, typed text replaces the selected region."
+  :type 'boolean
+  :group 'pending-delete)
+
+(defcustom pending-delete-modeline-string " PenDel"
+  "*String to display in the modeline when pending-delete mode is active."
+  :type 'string
+  :group 'pending-delete)
 
-(add-minor-mode 'pending-delete-mode " PenDel")
+(add-minor-mode 'pending-delete-mode 'pending-delete-modeline-string)
 
 
 (defun pending-delete-active-region (&optional killp)

--Multipart_Mon_Jul_14_12:16:01_1997-1--

