/[emacs]/emacs/lisp/cus-start.el
ViewVC logotype

Diff of /emacs/lisp/cus-start.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.75 by teirllm, Mon Aug 1 20:09:18 2005 UTC revision 1.76 by teirllm, Tue Aug 2 02:00:20 2005 UTC
# Line 72  since it could result in memory overflow Line 72  since it could result in memory overflow
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

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26