On 6/23/05, Miles Bader <[EMAIL PROTECTED]> 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)
_______________________________________________
Emacs-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-devel
