Merge from emacs--devo--0

[gnu-emacs] / lisp / cus-start.el

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 3110252288b9a78de5c6ea534640028bae0ebfd0..e2cb65c82c4ebdb2420b29cb64181f1b6327b9c3 100644 (file)
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -1,7 +1,7 @@
 ;;; cus-start.el --- define customization properties of builtins
 ;;
 ;; Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006 Free Software Foundation, Inc.
+;;   2005, 2006, 2007 Free Software Foundation, Inc.
 ;;
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
 ;; Keywords: internal
@@ -10,7 +10,7 @@
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
+;; the Free Software Foundation; either version 3, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -122,8 +122,11 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
                                  :value (undecided . undecided)
                                  (coding-system :tag "Decoding")
                                  (coding-system :tag "Encoding"))
-                           (coding-system :tag "Single coding system"
-                                          :value undecided)
+                           (coding-system
+                            :tag "Single coding system"
+                            :value undecided
+                            :match (lambda (widget value)
+                                     (and value (not (functionp value)))))
                            (function :value ignore))))
             (selection-coding-system mule coding-system)
             ;; dired.c
@@ -139,6 +142,9 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
             ;; eval.c
             (max-specpdl-size limits integer)
             (max-lisp-eval-depth limits integer)
+            (max-mini-window-height limits
+                                    (choice (const :tag "quarter screen" nil)
+                                            number))
             (stack-trace-on-error debug
                                   (choice (const :tag "off")
                                           (repeat :menu-tag "When"
@@ -175,7 +181,7 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
             ;; fringe.c
             (overflow-newline-into-fringe fringe boolean)
             ;; indent.c
-            (indent-tabs-mode fill boolean)
+            (indent-tabs-mode indent boolean)
             ;; keyboard.c
             (meta-prefix-char keyboard character)
             (auto-save-interval auto-save integer)
@@ -222,6 +228,13 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
             (mac-pass-command-to-system mac boolean "22.1")
             (mac-pass-control-to-system mac boolean "22.1")
             (mac-allow-anti-aliasing mac boolean "22.1")
+            (mac-ts-script-language-on-focus mac
+                                             (choice (const :tag "System default behavior" nil)
+                                                     (const :tag "Restore to script/language used in the last focus frame" t)
+                                                     (cons :tag "Specify script/language"
+                                                           (integer :tag "Script code")
+                                                           (integer :tag "Language code")))
+                                             "22.1")
 
 ;; This is not good news because it will use the wrong
 ;; version-specific directories when you upgrade.  We need
@@ -331,17 +344,21 @@ since it could result in memory overflow and make Emacs crash."
             (split-height-threshold windows integer)
             (window-min-height windows integer)
             (window-min-width windows integer)
-            (scroll-preserve-screen-position windows boolean)
+            (scroll-preserve-screen-position
+             windows (choice
+                      (const :tag "Off (nil)" :value nil)
+                      (const :tag "Full screen (t)" :value t)
+                      (other :tag "Always" 1)))
             (display-buffer-reuse-frames windows boolean "21.1")
             ;; xdisp.c
             (scroll-step windows integer)
             (scroll-conservatively windows integer)
             (scroll-margin windows integer)
-            (hscroll-margin windows integer "21.3")
-            (hscroll-step windows number "21.3")
+            (hscroll-margin windows integer "22.1")
+            (hscroll-step windows number "22.1")
             (truncate-partial-width-windows display boolean)
             (mode-line-inverse-video modeline boolean)
-            (mode-line-in-non-selected-windows modeline boolean "21.3")
+            (mode-line-in-non-selected-windows modeline boolean "22.1")
             (line-number-display-limit display
                                        (choice integer
                                                (const :tag "No limit" nil)))
@@ -353,17 +370,24 @@ since it could result in memory overflow and make Emacs crash."
                                            (other :tag "Unlimited" t)))
             (unibyte-display-via-language-environment mule boolean)
             (blink-cursor-alist cursor alist "22.1")
+            (overline-margin display integer "22.1")
+             (mouse-autoselect-window
+             display (choice
+                      (const :tag "Off (nil)" :value nil)
+                      (const :tag "Immediate" :value t)
+                      (number :tag "Delay by secs" :value 0.5)) "22.1")
             ;; xfaces.c
             (scalable-fonts-allowed display boolean)
             ;; xfns.c
             (x-bitmap-file-path installation
                                 (repeat (directory :format "%v")))
-            (x-use-old-gtk-file-dialog menu boolean "22.1")
+            (x-gtk-use-old-file-dialog menu boolean "22.1")
             (x-gtk-show-hidden-files menu boolean "22.1")
+            (x-gtk-file-dialog-help-text menu boolean "22.1")
             (x-gtk-whole-detached-tool-bar x boolean "22.1")
             ;; xterm.c
-             (mouse-autoselect-window display boolean "21.3")
-            (x-use-underline-position-properties display boolean "21.3")
+            (x-use-underline-position-properties display boolean "22.1")
+            (x-underline-at-descent-line display boolean "22.1")
             (x-stretch-cursor display boolean "21.1")))
       this symbol group type standard version native-p
       ;; This function turns a value