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

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Martin Rudalics <m061211>       08/01/11 09:58:44

Index: cus-start.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cus-start.el,v
retrieving revision 1.115
retrieving revision 1.116
diff -u -b -r1.115 -r1.116
--- cus-start.el        8 Jan 2008 20:44:44 -0000       1.115
+++ cus-start.el        11 Jan 2008 09:58:44 -0000      1.116
@@ -95,7 +95,8 @@
             (scroll-down-aggressively windows
                                       (choice (const :tag "off" nil) number)
                                       "21.1")
-            (line-spacing display (choice (const :tag "none" nil) integer))
+            (line-spacing display (choice (const :tag "none" nil) integer)
+                          "22.1")
             ;; callint.c
             (mark-even-if-inactive editing-basics boolean)
             ;; callproc.c
@@ -125,7 +126,7 @@
                             :match (lambda (widget value)
                                      (and value (not (functionp value)))))
                            (function :value ignore))))
-            (selection-coding-system mule coding-system)
+            (selection-coding-system mule coding-system "22.1")
             ;; dired.c
             (completion-ignored-extensions dired
                                            (repeat (string :format "%v")))
@@ -141,7 +142,7 @@
             (max-lisp-eval-depth limits integer)
             (max-mini-window-height limits
                                     (choice (const :tag "quarter screen" nil)
-                                            number))
+                                            number) "23.1")
             (stack-trace-on-error debug
                                   (choice (const :tag "off")
                                           (repeat :menu-tag "When"
@@ -175,7 +176,8 @@
                             (sexp :tag "Value"))))
             (mouse-highlight mouse (choice (const :tag "disabled" nil)
                                            (const :tag "always shown" t)
-                                           (other :tag "hidden by keypress" 
1)))
+                                           (other :tag "hidden by keypress" 1))
+                             "22.1")
             ;; fringe.c
             (overflow-newline-into-fringe fringe boolean)
             ;; indent.c
@@ -189,7 +191,7 @@
             (polling-period keyboard integer)
             (double-click-time mouse (restricted-sexp
                                       :match-alternatives (integerp 'nil 't)))
-            (double-click-fuzz mouse integer)
+            (double-click-fuzz mouse integer "22.1")
             (inhibit-local-menu-bar-menus menu boolean)
             (help-char keyboard character)
             (help-event-list keyboard (repeat (sexp :format "%v")))
@@ -247,9 +249,9 @@
             (completion-auto-help minibuffer boolean)
             (enable-recursive-minibuffers minibuffer boolean)
             (history-length minibuffer
-                            (choice (const :tag "Infinite" t)
-                                    integer))
-            (history-delete-duplicates minibuffer boolean)
+                            (choice (const :tag "Infinite" t) integer)
+                            "22.1")
+            (history-delete-duplicates minibuffer boolean "22.1")
             (minibuffer-prompt-properties
              minibuffer
              (list
@@ -348,14 +350,15 @@
                       ;; and shape of the window.
                       (const :tag "horizontally"
                              (lambda (window)
-                               (split-window window nil 'horiz)))))
+                               (split-window window nil 'horiz))))
+             "23.1")
             (window-min-height windows integer)
             (window-min-width windows integer)
             (scroll-preserve-screen-position
              windows (choice
                       (const :tag "Off (nil)" :value nil)
                       (const :tag "Full screen (t)" :value t)
-                      (other :tag "Always" 1)))
+                      (other :tag "Always" 1)) "22.1")
             (display-buffer-reuse-frames windows boolean "21.1")
             ;; xdisp.c
             (scroll-step windows integer)
@@ -369,7 +372,7 @@
             (line-number-display-limit display
                                        (choice integer
                                                (const :tag "No limit" nil)))
-            (line-number-display-limit-width display integer)
+            (line-number-display-limit-width display integer "22.1")
             (highlight-nonselected-windows display boolean)
             (message-log-max debug (choice (const :tag "Disable" nil)
                                            (integer :menu-tag "lines"
@@ -384,7 +387,7 @@
                       (const :tag "Immediate" :value t)
                       (number :tag "Delay by secs" :value 0.5)) "22.1")
             ;; xfaces.c
-            (scalable-fonts-allowed display boolean)
+            (scalable-fonts-allowed display boolean "22.1")
             ;; xfns.c
             (x-bitmap-file-path installation
                                 (repeat (directory :format "%v")))