From: Daniel Brockman <daniel@brockman.se>
Subject: defcustoms for `line-spacing' and `indicate-buffer-boundaries'
Date: Sun, 12 Jun 2005 08:48:11 +0200 [thread overview]
Message-ID: <87psusvzo4.fsf@wigwam.deepwood.net> (raw)
[-- Attachment #1: Type: text/plain, Size: 347 bytes --]
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.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 2609 bytes --]
*** 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
[-- Attachment #3: Type: text/plain, Size: 159 bytes --]
--
Daniel Brockman <daniel@brockman.se>
``Why fix an old bug if you can write three new ones
in the same time?'' --- David Kastrup (on emacs-devel)
[-- Attachment #4: Type: text/plain, Size: 142 bytes --]
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
next reply other threads:[~2005-06-12 6:48 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-06-12 6:48 Daniel Brockman [this message]
2005-06-12 19:57 ` defcustoms for `line-spacing' and `indicate-buffer-boundaries' Richard Stallman
2005-06-12 20:54 ` Daniel Brockman
2005-06-13 18:15 ` Richard Stallman
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87psusvzo4.fsf@wigwam.deepwood.net \
--to=daniel@brockman.se \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).