diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2005-08-01 20:09:18 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2005-08-01 20:09:18 +0000 |
| commit | 52a434fd58258a9344112f6947f6ff9431d51c10 (patch) | |
| tree | f7b6e7efcc1a2a3864be9d850335a3c060c15916 /lisp | |
| parent | 3233c063ea62f32ac3001d164c3997310c19c180 (diff) | |
| download | emacs-52a434fd58258a9344112f6947f6ff9431d51c10.tar.gz | |
(all): Prevent nil from matching two alternatives in
`indicate-buffer-boundaries' defcustom.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/cus-start.el | 54 |
1 files changed, 28 insertions, 26 deletions
diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 0a72c500d20..694eb96e22d 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -72,32 +72,34 @@ since it could result in memory overflow and make Emacs crash." (const :tag "No indicators" nil) (const :tag "On left, with arrows" left) (const :tag "On right, with arrows" right) - (set :tag "Pick your own design" - (choice :tag "Default" - :value (t . left) - (const :tag "Do not show" (t . nil)) - (const :tag "On the left" (t . left)) - (const :tag "On the right" (t . right))) - (choice :tag "Top" - :value (top . left) - (const :tag "Do not show" (top . nil)) - (const :tag "On the left" (top . left)) - (const :tag "On the right" (top . right))) - (choice :tag "Bottom" - :value (bottom . left) - (const :tag "Do not show" (bottom . nil)) - (const :tag "On the left" (bottom . left)) - (const :tag "On the right" (bottom . right))) - (choice :tag "Up arrow" - :value (up . left) - (const :tag "Do not show" (up . nil)) - (const :tag "On the left" (up . left)) - (const :tag "On the right" (up . right))) - (choice :tag "Down arrow" - :value (down . left) - (const :tag "Do not show" (down . nil)) - (const :tag "On the left" (down . left)) - (const :tag "On the right" (down . right)))) + (list :tag "Pick your own design" + :value ((t . nil)) + (choice :tag "Default" + (const :tag "Do not show" (t . nil)) + (const :tag "On the left" (t . left)) + (const :tag "On the right" (t . right))) + (set :inline t + :tag "Override default for" + (choice :tag "Top" + :value (top . left) + (const :tag "Do not show" (top . nil)) + (const :tag "On the left" (top . left)) + (const :tag "On the right" (top . right))) + (choice :tag "Bottom" + :value (bottom . left) + (const :tag "Do not show" (bottom . nil)) + (const :tag "On the left" (bottom . left)) + (const :tag "On the right" (bottom . right))) + (choice :tag "Up arrow" + :value (up . left) + (const :tag "Do not show" (up . nil)) + (const :tag "On the left" (up . left)) + (const :tag "On the right" (up . right))) + (choice :tag "Down arrow" + :value (down . left) + (const :tag "Do not show" (down . nil)) + (const :tag "On the left" (down . left)) + (const :tag "On the right" (down . right))))) (other :tag "On left, no arrows" t)) "22.1") (scroll-up-aggressively windows |