72 |
(const :tag "No indicators" nil) |
(const :tag "No indicators" nil) |
73 |
(const :tag "On left, with arrows" left) |
(const :tag "On left, with arrows" left) |
74 |
(const :tag "On right, with arrows" right) |
(const :tag "On right, with arrows" right) |
75 |
(list :tag "Pick your own design" |
(set :tag "Pick your own design" |
76 |
:value ((t . nil)) |
:value ((t . nil)) |
77 |
(choice :tag "Default" |
:format "%{%t%}:\n%v\n%d" |
78 |
(const :tag "Do not show" (t . nil)) |
:doc "You can specify a default and then override it \ |
79 |
(const :tag "On the left" (t . left)) |
for individual indicators. |
80 |
(const :tag "On the right" (t . right))) |
Leaving \"Default\" unchecked is equivalent with specifying a default of |
81 |
(set :inline t |
\"Do not show\"." |
82 |
:tag "Override default for" |
(choice :tag "Default" |
83 |
(choice :tag "Top" |
:value (t . nil) |
84 |
:value (top . left) |
(const :tag "Do not show" (t . nil)) |
85 |
(const :tag "Do not show" (top . nil)) |
(const :tag "On the left" (t . left)) |
86 |
(const :tag "On the left" (top . left)) |
(const :tag "On the right" (t . right))) |
87 |
(const :tag "On the right" (top . right))) |
(choice :tag "Top" |
88 |
(choice :tag "Bottom" |
:value (top . left) |
89 |
:value (bottom . left) |
(const :tag "Do not show" (top . nil)) |
90 |
(const :tag "Do not show" (bottom . nil)) |
(const :tag "On the left" (top . left)) |
91 |
(const :tag "On the left" (bottom . left)) |
(const :tag "On the right" (top . right))) |
92 |
(const :tag "On the right" (bottom . right))) |
(choice :tag "Bottom" |
93 |
(choice :tag "Up arrow" |
:value (bottom . left) |
94 |
:value (up . left) |
(const :tag "Do not show" (bottom . nil)) |
95 |
(const :tag "Do not show" (up . nil)) |
(const :tag "On the left" (bottom . left)) |
96 |
(const :tag "On the left" (up . left)) |
(const :tag "On the right" (bottom . right))) |
97 |
(const :tag "On the right" (up . right))) |
(choice :tag "Up arrow" |
98 |
(choice :tag "Down arrow" |
:value (up . left) |
99 |
:value (down . left) |
(const :tag "Do not show" (up . nil)) |
100 |
(const :tag "Do not show" (down . nil)) |
(const :tag "On the left" (up . left)) |
101 |
(const :tag "On the left" (down . left)) |
(const :tag "On the right" (up . right))) |
102 |
(const :tag "On the right" (down . right))))) |
(choice :tag "Down arrow" |
103 |
|
:value (down . left) |
104 |
|
(const :tag "Do not show" (down . nil)) |
105 |
|
(const :tag "On the left" (down . left)) |
106 |
|
(const :tag "On the right" (down . right)))) |
107 |
(other :tag "On left, no arrows" t)) |
(other :tag "On left, no arrows" t)) |
108 |
"22.1") |
"22.1") |
109 |
(scroll-up-aggressively windows |
(scroll-up-aggressively windows |