Mercurial > emacs

changeset 64708:7abd21bd0a77

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(all): Prevent nil from matching two alternatives in `indicate-buffer-boundaries' defcustom.
author Luc Teirlinck <teirllm@auburn.edu>
date Mon, 01 Aug 2005 20:09:18 +0000
parents 0f4b5a77af2c
children def6a9189d4c
files lisp/cus-start.el
diffstat 1 files changed, 28 insertions(+), 26 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-start.el	Mon Aug 01 18:40:16 2005 +0000
+++ b/lisp/cus-start.el	Mon Aug 01 20:09:18 2005 +0000
@@ -72,32 +72,34 @@
 	       (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))))
+	       (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