[Emacs-diffs] Changes to emacs/lisp/cus-start.el

[Luc Teirlinck]

Index: emacs/lisp/cus-start.el
diff -c emacs/lisp/cus-start.el:1.74 emacs/lisp/cus-start.el:1.75
*** emacs/lisp/cus-start.el:1.74        Mon Aug  1 18:40:16 2005
--- emacs/lisp/cus-start.el     Mon Aug  1 20:09:18 2005
***************
*** 72,103 ****
               (const :tag "No indicators" nil)
               (const :tag "On left, with arrows" left)
               (const :tag "On right, with arrows" right)
!              (set :tag "Pick your own design"
!                   (choice :tag "Default"
!                           :value (t . left)
!                           (const :tag "Do not show" (t . nil))
!                           (const :tag "On the left" (t . left))
!                           (const :tag "On the right" (t . right)))
!                   (choice :tag "Top"
!                           :value (top . left)
!                           (const :tag "Do not show" (top . nil))
!                           (const :tag "On the left" (top . left))
!                           (const :tag "On the right" (top . right)))
!                   (choice :tag "Bottom"
!                           :value (bottom . left)
!                           (const :tag "Do not show" (bottom . nil))
!                           (const :tag "On the left" (bottom . left))
!                           (const :tag "On the right" (bottom . right)))
!                   (choice :tag "Up arrow"
!                           :value (up . left)
!                           (const :tag "Do not show" (up . nil))
!                           (const :tag "On the left" (up . left))
!                           (const :tag "On the right" (up . 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))
              "22.1")
             (scroll-up-aggressively windows
--- 72,105 ----
               (const :tag "No indicators" nil)
               (const :tag "On left, with arrows" left)
               (const :tag "On right, with arrows" right)
!              (list :tag "Pick your own design"
!                    :value ((t . nil))
!                    (choice :tag "Default"
!                            (const :tag "Do not show" (t . nil))
!                            (const :tag "On the left" (t . left))
!                            (const :tag "On the right" (t . right)))
!                    (set :inline t
!                         :tag "Override default for"
!                         (choice :tag "Top"
!                                 :value (top . left)
!                                 (const :tag "Do not show" (top . nil))
!                                 (const :tag "On the left" (top . left))
!                                 (const :tag "On the right" (top . right)))
!                         (choice :tag "Bottom"
!                                 :value (bottom . left)
!                                 (const :tag "Do not show" (bottom . nil))
!                                 (const :tag "On the left" (bottom . left))
!                                 (const :tag "On the right" (bottom . right)))
!                         (choice :tag "Up arrow"
!                                 :value (up . left)
!                                 (const :tag "Do not show" (up . nil))
!                                 (const :tag "On the left" (up . left))
!                                 (const :tag "On the right" (up . 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))
              "22.1")
             (scroll-up-aggressively windows