defcustoms for `line-spacing' and `indicate-buffer-boundaries'

[Daniel Brockman]

How about the following patch to make `line-spacing' and
`indicate-buffer-boundaries' customizable?

I don't understand why this part is necessary,

                       :value ((t . nil))

but if I leave it out, choosing ``Manual configuration'' in the
Customize buffer will show the value as ``invalid ((nil))'' and won't
let me add anything to the alist.

*** cus-start.el        16 Feb 2005 10:37:20 +0100      1.68
--- cus-start.el        12 Jun 2005 08:44:47 +0200      
***************
*** 57,77 ****
             ;; buffer.c
             (mode-line-format modeline sexp) ;Hard to do right.
             (default-major-mode internal function)
-            (enable-multibyte-characters mule boolean)
             (case-fold-search matching boolean)
             (fill-column fill integer)
             (left-margin fill integer)
             (tab-width editing-basics integer)
             (ctl-arrow display boolean)
             (truncate-lines display boolean)
             (selective-display-ellipses display boolean)
             (indicate-empty-lines display boolean "21.1")
             (scroll-up-aggressively windows
                                     (choice (const :tag "off" nil) number)
                                     "21.1")
             (scroll-down-aggressively windows
                                       (choice (const :tag "off" nil) number)
                                       "21.1")
             ;; callint.c
             (mark-even-if-inactive editing-basics boolean)
             ;; callproc.c
--- 57,95 ----
             ;; buffer.c
             (mode-line-format modeline sexp) ;Hard to do right.
             (default-major-mode internal function)
             (case-fold-search matching boolean)
             (fill-column fill integer)
             (left-margin fill integer)
             (tab-width editing-basics integer)
             (ctl-arrow display boolean)
+            (enable-multibyte-characters mule boolean)
             (truncate-lines display boolean)
             (selective-display-ellipses display boolean)
             (indicate-empty-lines display boolean "21.1")
+            (indicate-buffer-boundaries
+             display
+             (choice (const :tag "Off" nil)
+                     (const :tag "Everything to the left" left)
+                     (const :tag "Everything to the right" right)
+                     (const :tag "Angles to the left, arrows off" t)
+                     (alist
+                      :tag "Manual configuration"
+                      :value ((t . nil))
+                      :key-type (choice (const :tag "Top angle" top)
+                                        (const :tag "Bottom angle" bottom)
+                                        (const :tag "Up arrow" up)
+                                        (const :tag "Down arrow" down)
+                                        (const :tag "Other indicators" t))
+                      :value-type (choice (const :tag "To the left" left)
+                                          (const :tag "To the right" right)
+                                          (const :tag "Do not show" nil)))))
             (scroll-up-aggressively windows
                                     (choice (const :tag "off" nil) number)
                                     "21.1")
             (scroll-down-aggressively windows
                                       (choice (const :tag "off" nil) number)
                                       "21.1")
+            (line-spacing display (choice (const :tag "none" nil) integer))
             ;; callint.c
             (mark-even-if-inactive editing-basics boolean)
             ;; callproc.c

-- 
Daniel Brockman <address@hidden>

   ``Why fix an old bug if you can write three new ones
     in the same time?'' --- David Kastrup (on emacs-devel)