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 <[EMAIL PROTECTED]>

   ``Why fix an old bug if you can write three new ones
     in the same time?'' --- David Kastrup (on emacs-devel)
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel

Reply via email to