Index: emacs/lisp/cus-start.el
diff -c emacs/lisp/cus-start.el:1.75 emacs/lisp/cus-start.el:1.76
*** emacs/lisp/cus-start.el:1.75 Mon Aug 1 20:09:18 2005
--- emacs/lisp/cus-start.el Tue Aug 2 02:00:20 2005
***************
*** 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
--- 72,109 ----
(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"
! :value ((t . nil))
! :format "%{%t%}:\n%v\n%d"
! :doc "You can specify a default and then override it \
! for individual indicators.
! Leaving \"Default\" unchecked is equivalent with specifying a default of
! \"Do not show\"."
! (choice :tag "Default"
! :value (t . nil)
! (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
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
