From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juanma Barranquero Newsgroups: gmane.emacs.devel Subject: Re: fringe buffer-boundary bitmaps Date: Thu, 23 Jun 2005 15:49:14 +0200 Message-ID: References: <871x6tcscc.fsf@xs4all.nl> Reply-To: Juanma Barranquero NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: sea.gmane.org 1119535556 10367 80.91.229.2 (23 Jun 2005 14:05:56 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 23 Jun 2005 14:05:56 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Jun 23 16:05:52 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DlSKz-00073V-PZ for ged-emacs-devel@m.gmane.org; Thu, 23 Jun 2005 16:05:50 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DlSRp-0002uM-RH for ged-emacs-devel@m.gmane.org; Thu, 23 Jun 2005 10:12:53 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DlSQ6-0002Ic-7v for emacs-devel@gnu.org; Thu, 23 Jun 2005 10:11:06 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DlSQ4-0002IB-ES for emacs-devel@gnu.org; Thu, 23 Jun 2005 10:11:05 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DlSPO-0001t2-9T for emacs-devel@gnu.org; Thu, 23 Jun 2005 10:10:22 -0400 Original-Received: from [64.233.182.206] (helo=nproxy.gmail.com) by monty-python.gnu.org with esmtp (Exim 4.34) id 1DlS8G-0003j8-AD for emacs-devel@gnu.org; Thu, 23 Jun 2005 09:52:40 -0400 Original-Received: by nproxy.gmail.com with SMTP id i2so61943nfe for ; Thu, 23 Jun 2005 06:49:14 -0700 (PDT) DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=beta; d=gmail.com; h=received:message-id:date:from:reply-to:to:subject:cc:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:references; b=iLavEsqw3VMk4wQbjZY0Qlecl1Owxca6QWGpbNwbw6536ie0yuCAB/ppGqj6TT2qXbQVeemoS/F1x9tz9ReA9ScEGEaeUYxrE9QktEjmHvIFxWjcPL0BsyQQbzhsPZTFoBe/5DwRkU4rjpeXNmyod+vSJiKLdj5M4sxY2IvlwXs= Original-Received: by 10.48.4.10 with SMTP id 10mr41403nfd; Thu, 23 Jun 2005 06:49:14 -0700 (PDT) Original-Received: by 10.48.250.5 with HTTP; Thu, 23 Jun 2005 06:49:14 -0700 (PDT) Original-To: miles@gnu.org In-Reply-To: Content-Disposition: inline X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:39359 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:39359 On 6/23/05, Miles Bader wrote: > I didn't realize this when I sent those messages, but you first have to d= o: >=20 > (require 'fringe) BTW, loading fringe resets `default-indicate-buffer-boundaries'. That's Not Good. I have no problem with "M-x customize-variable fringe-indicators" setting it (it is clearly documented in the `fringe-indicators' docstring), but just (require 'fringe) should not change my defaults. I propose the following patch (but people more experienced on customize will have perhaps a better fix): if `fringe-indicators' is set, it takes precedence over `default-indicate-buffer-boundaries', which seems sensible. --=20 /L/e/k/t/u Index: lisp/fringe.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/emacs/emacs/lisp/fringe.el,v retrieving revision 1.17 diff -u -2 -r1.17 fringe.el --- lisp/fringe.el=099 Feb 2005 15:50:42 -0000=091.17 +++ lisp/fringe.el=0923 Jun 2005 11:47:26 -0000 @@ -281,4 +281,10 @@ =09 (t nil)))) =20 +(defun initialize-fringe-indicators (ignore value) + (set-fringe-indicators-1 nil + (or value + fringe-indicators + default-indicate-buffer-boundaries))) + ;;;###autoload (defcustom fringe-indicators nil @@ -293,5 +299,6 @@ :group 'fringe :require 'fringe - :set 'set-fringe-indicators-1) + :set 'set-fringe-indicators-1 + :initialize 'initialize-fringe-indicators) =20 (provide 'fringe)