Commit 52a434fd authored by Luc Teirlinck's avatar Luc Teirlinck
Browse files

(all): Prevent nil from matching two alternatives in

`indicate-buffer-boundaries' defcustom.
parent 3233c063
...@@ -72,32 +72,34 @@ since it could result in memory overflow and make Emacs crash." ...@@ -72,32 +72,34 @@ since it could result in memory overflow and make Emacs crash."
(const :tag "No indicators" nil) (const :tag "No indicators" nil)
(const :tag "On left, with arrows" left) (const :tag "On left, with arrows" left)
(const :tag "On right, with arrows" right) (const :tag "On right, with arrows" right)
(set :tag "Pick your own design" (list :tag "Pick your own design"
(choice :tag "Default" :value ((t . nil))
:value (t . left) (choice :tag "Default"
(const :tag "Do not show" (t . nil)) (const :tag "Do not show" (t . nil))
(const :tag "On the left" (t . left)) (const :tag "On the left" (t . left))
(const :tag "On the right" (t . right))) (const :tag "On the right" (t . right)))
(choice :tag "Top" (set :inline t
:value (top . left) :tag "Override default for"
(const :tag "Do not show" (top . nil)) (choice :tag "Top"
(const :tag "On the left" (top . left)) :value (top . left)
(const :tag "On the right" (top . right))) (const :tag "Do not show" (top . nil))
(choice :tag "Bottom" (const :tag "On the left" (top . left))
:value (bottom . left) (const :tag "On the right" (top . right)))
(const :tag "Do not show" (bottom . nil)) (choice :tag "Bottom"
(const :tag "On the left" (bottom . left)) :value (bottom . left)
(const :tag "On the right" (bottom . right))) (const :tag "Do not show" (bottom . nil))
(choice :tag "Up arrow" (const :tag "On the left" (bottom . left))
:value (up . left) (const :tag "On the right" (bottom . right)))
(const :tag "Do not show" (up . nil)) (choice :tag "Up arrow"
(const :tag "On the left" (up . left)) :value (up . left)
(const :tag "On the right" (up . right))) (const :tag "Do not show" (up . nil))
(choice :tag "Down arrow" (const :tag "On the left" (up . left))
:value (down . left) (const :tag "On the right" (up . right)))
(const :tag "Do not show" (down . nil)) (choice :tag "Down arrow"
(const :tag "On the left" (down . left)) :value (down . left)
(const :tag "On the right" (down . right)))) (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)) (other :tag "On left, no arrows" t))
"22.1") "22.1")
(scroll-up-aggressively windows (scroll-up-aggressively windows
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment