Commit a4fbb790 authored by Luc Teirlinck's avatar Luc Teirlinck
Browse files

(all): Make `indicate-buffer-boundaries' display values set outside

Custom once again correctly in Custom buffer.
parent f2856495
...@@ -72,34 +72,38 @@ since it could result in memory overflow and make Emacs crash." ...@@ -72,34 +72,38 @@ 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)
(list :tag "Pick your own design" (set :tag "Pick your own design"
:value ((t . nil)) :value ((t . nil))
(choice :tag "Default" :format "%{%t%}:\n%v\n%d"
(const :tag "Do not show" (t . nil)) :doc "You can specify a default and then override it \
(const :tag "On the left" (t . left)) for individual indicators.
(const :tag "On the right" (t . right))) Leaving \"Default\" unchecked is equivalent with specifying a default of
(set :inline t \"Do not show\"."
:tag "Override default for" (choice :tag "Default"
(choice :tag "Top" :value (t . nil)
:value (top . left) (const :tag "Do not show" (t . nil))
(const :tag "Do not show" (top . nil)) (const :tag "On the left" (t . left))
(const :tag "On the left" (top . left)) (const :tag "On the right" (t . right)))
(const :tag "On the right" (top . right))) (choice :tag "Top"
(choice :tag "Bottom" :value (top . left)
:value (bottom . left) (const :tag "Do not show" (top . nil))
(const :tag "Do not show" (bottom . nil)) (const :tag "On the left" (top . left))
(const :tag "On the left" (bottom . left)) (const :tag "On the right" (top . right)))
(const :tag "On the right" (bottom . right))) (choice :tag "Bottom"
(choice :tag "Up arrow" :value (bottom . left)
:value (up . left) (const :tag "Do not show" (bottom . nil))
(const :tag "Do not show" (up . nil)) (const :tag "On the left" (bottom . left))
(const :tag "On the left" (up . left)) (const :tag "On the right" (bottom . right)))
(const :tag "On the right" (up . right))) (choice :tag "Up arrow"
(choice :tag "Down arrow" :value (up . left)
:value (down . left) (const :tag "Do not show" (up . nil))
(const :tag "Do not show" (down . nil)) (const :tag "On the left" (up . left))
(const :tag "On the left" (down . left)) (const :tag "On the right" (up . right)))
(const :tag "On the right" (down . 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)) (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