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
