/[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.74 by teirllm, Mon Aug 1 18:40:16 2005 UTC revision 1.75 by teirllm, Mon Aug 1 20:09:18 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                 (set :tag "Pick your own design"                 (list :tag "Pick your own design"
76                      (choice :tag "Default"                       :value ((t . nil))
77                              :value (t . left)                       (choice :tag "Default"
78                              (const :tag "Do not show" (t . nil))                               (const :tag "Do not show" (t . nil))
79                              (const :tag "On the left" (t . left))                               (const :tag "On the left" (t . left))
80                              (const :tag "On the right" (t . right)))                               (const :tag "On the right" (t . right)))
81                      (choice :tag "Top"                       (set :inline t
82                              :value (top . left)                            :tag "Override default for"
83                              (const :tag "Do not show" (top . nil))                            (choice :tag "Top"
84                              (const :tag "On the left" (top . left))                                    :value (top . left)
85                              (const :tag "On the right" (top . right)))                                    (const :tag "Do not show" (top . nil))
86                      (choice :tag "Bottom"                                    (const :tag "On the left" (top . left))
87                              :value (bottom . left)                                    (const :tag "On the right" (top . right)))
88                              (const :tag "Do not show" (bottom . nil))                            (choice :tag "Bottom"
89                              (const :tag "On the left" (bottom . left))                                    :value (bottom . left)
90                              (const :tag "On the right" (bottom . right)))                                    (const :tag "Do not show" (bottom . nil))
91                      (choice :tag "Up arrow"                                    (const :tag "On the left" (bottom . left))
92                              :value (up . left)                                    (const :tag "On the right" (bottom . right)))
93                              (const :tag "Do not show" (up . nil))                            (choice :tag "Up arrow"
94                              (const :tag "On the left" (up . left))                                    :value (up . left)
95                              (const :tag "On the right" (up . right)))                                    (const :tag "Do not show" (up . nil))
96                      (choice :tag "Down arrow"                                    (const :tag "On the left" (up . left))
97                              :value (down . left)                                    (const :tag "On the right" (up . right)))
98                              (const :tag "Do not show" (down . nil))                            (choice :tag "Down arrow"
99                              (const :tag "On the left" (down . left))                                    :value (down . left)
100                              (const :tag "On the right" (down . right))))                                    (const :tag "Do not show" (down . nil))
101                                      (const :tag "On the left" (down . left))
102                                      (const :tag "On the right" (down . right)))))
103                 (other :tag "On left, no arrows" t))                 (other :tag "On left, no arrows" t))
104                "22.1")                "22.1")
105               (scroll-up-aggressively windows               (scroll-up-aggressively windows

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

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