From xemacs-m  Mon Mar 24 11:39:57 1997
Received: from elc1.dina.kvl.dk (elc1.dina.kvl.dk [130.225.40.228])
	by xemacs.org (8.8.5/8.8.5) with SMTP id LAA14475
	for <xemacs-beta@xemacs.org>; Mon, 24 Mar 1997 11:39:56 -0600 (CST)
Received: from zuse.dina.kvl.dk (zuse.dina.kvl.dk [130.225.40.245]) by elc1.dina.kvl.dk (8.6.12/8.6.4) with ESMTP id SAA01102; Mon, 24 Mar 1997 18:09:43 +0100
Received: (abraham@localhost) by zuse.dina.kvl.dk (8.6.12/8.6.4) id SAA15882; Mon, 24 Mar 1997 18:18:46 +0100
Sender: abraham@dina.kvl.dk
To: xemacs-beta@xemacs.org
Subject: Re: customize faces -- one bug and some issues
References: <199703220537.AAA00411@amber.vis-av.com>
Organization: The Church of Emacs
X-Face: +kRV2]2q}lixHkE{U)mY#+6]{AH=yN~S9@IFiOa@X6?GM<U{B+4e{k79.Ya{~':DblFPCg$
 @60,BfLv2@SKZ19cMWK0/C'v;tM:|6B'R}U1rp6CL&kN({9<zF/V{:JCg27yC)9oZjeqcQawzKfiNL
 t9}`vjmK["dRQC/qGFQq"%u|Q`:6{"Rz}b(dnl_"3$Jtqimi>|8MBp/
From: Per Abrahamsen <abraham@dina.kvl.dk>
Date: 24 Mar 1997 18:18:46 +0100
In-Reply-To: Derrell Lipman's message of Sat, 22 Mar 1997 00:37:41 -0500 (EST)
Message-ID: <rjafntqkcp.fsf@zuse.dina.kvl.dk>
Lines: 62
X-Mailer: Gnus v5.4.26/Emacs 19.34
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit


Derrell Lipman <derrell@vis-av.com> writes:

> One problem that I noticed is that if you delete a set of attributes,
> it deletes all following sets of attributes also.  In other words, if
> there are five sets of attributes for a face, pertaining to five
> different combinations of color/window system/etc., and you delete the
> second one, all but the first are deleted.  I don't believe that this
> is the desired behavior.

Definitely not!  Please try the appended patch.

> 1. How do I specify the equivilent of the following, including the

> 2. Some faces are smaller than the default face.  In the customize

I don't understand the issues behind these questions, so I'll pretend
that it is a problem with font.el, and leave them to wmperry.

Index: wid-edit.el
===================================================================
RCS file: /home/user_22/abraham/cvs/custom/wid-edit.el,v
retrieving revision 1.18
diff -c -r1.18 wid-edit.el
*** 1.18	1997/03/18 13:42:51
--- wid-edit.el	1997/03/24 17:06:50
***************
*** 1077,1083 ****
  	(inhibit-read-only t)
  	after-change-functions)
      (widget-apply widget :value-delete)
!     (delete-region from to)
      (set-marker from nil)
      (set-marker to nil)))
  
--- 1077,1085 ----
  	(inhibit-read-only t)
  	after-change-functions)
      (widget-apply widget :value-delete)
!     (when (< from to)
!       ;; Kludge: this doesn't need to be true for empty formats.
!       (delete-region from to))
      (set-marker from nil)
      (set-marker to nil)))
  
***************
*** 1967,1973 ****
  	    (setq children (cdr children)))
  	  (setcdr children (cons child (cdr children)))))))
    (widget-setup)
!   (widget-apply widget :notify widget))
  
  (defun widget-editable-list-delete-at (widget child)
    ;; Delete child from list of children.
--- 1969,1975 ----
  	    (setq children (cdr children)))
  	  (setcdr children (cons child (cdr children)))))))
    (widget-setup)
!  widget (widget-apply widget :notify widget))
  
  (defun widget-editable-list-delete-at (widget child)
    ;; Delete child from list of children.

