Re: fringe buffer-boundary bitmaps

[Juanma Barranquero]

On 6/23/05, Miles Bader <address@hidden> wrote:

> I didn't realize this when I sent those messages, but you first have to do:
> 
>    (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.

-- 
                    /L/e/k/t/u


Index: lisp/fringe.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/fringe.el,v
retrieving revision 1.17
diff -u -2 -r1.17 fringe.el
--- lisp/fringe.el      9 Feb 2005 15:50:42 -0000       1.17
+++ lisp/fringe.el      23 Jun 2005 11:47:26 -0000
@@ -281,4 +281,10 @@
         (t nil))))
 
+(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)
 
 (provide 'fringe)