X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/bf32130d7debe3ee6dbd9974e50bb4a2a48047f4..963541a6540c40559645c312cea7f35c3c649556:/lisp/cus-start.el

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 69dbf0d0c5..001d638ca1 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -1,6 +1,6 @@
 ;;; cus-start.el --- define customization properties of builtins  -*- lexical-binding:t -*-
 
-;; Copyright (C) 1997, 1999-2015 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1999-2016 Free Software Foundation, Inc.
 
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
 ;; Keywords: internal
@@ -54,7 +54,8 @@
 ;; :risky - risky-local-variable property
 ;; :safe - safe-local-variable property
 ;; :tag - custom-tag property
-(let (standard native-p prop propval
+(let (standard
+      native-p prop propval
       ;; This function turns a value
       ;; into an expression which produces that value.
       (quoter (lambda (sexp)
@@ -67,27 +68,27 @@
 			(stringp sexp)
 			(numberp sexp))
 		    sexp
-		  (list 'quote sexp)))))
+		  (list 'quote sexp))))
+      (cursor-type-types
+       '(choice
+         (const :tag "Frame default" t)
+         (const :tag "Filled box" box)
+         (const :tag "Hollow cursor" hollow)
+         (const :tag "Vertical bar" bar)
+         (cons  :tag "Vertical bar with specified width"
+                (const bar) integer)
+         (const :tag "Horizontal bar" hbar)
+         (cons  :tag "Horizontal bar with specified width"
+                (const hbar) integer)
+         (const :tag "None "nil))))
   (pcase-dolist
       (`(,symbol ,group ,type ,version . ,rest)
-           '(;; alloc.c
+           `(;; alloc.c
 	     (gc-cons-threshold alloc integer)
 	     (gc-cons-percentage alloc float)
 	     (garbage-collection-messages alloc boolean)
 	     ;; buffer.c
-	     (cursor-type
-	      display
-	      (choice
-	       (const :tag "Frame default" t)
-	       (const :tag "Filled box" box)
-	       (const :tag "Hollow cursor" hollow)
-	       (const :tag "Vertical bar" bar)
-	       (cons  :tag "Vertical bar with specified width"
-		      (const bar) integer)
-	       (const :tag "Horizontal bar" hbar)
-	       (cons  :tag "Horizontal bar with specified width"
-		      (const hbar) integer)
-	       (const :tag "None "nil)))
+	     (cursor-type display ,cursor-type-types)
 	     (mode-line-format mode-line sexp) ;Hard to do right.
 	     (major-mode internal function)
 	     (case-fold-search matching boolean)
@@ -147,7 +148,7 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
 	     (line-spacing display (choice (const :tag "none" nil) number)
 			   "22.1")
 	     (cursor-in-non-selected-windows
-	      cursor boolean nil
+	      cursor ,cursor-type-types nil
 	      :tag "Cursor In Non-selected Windows"
 	      :set (lambda (symbol value)
 		     (set-default symbol value)
@@ -220,15 +221,6 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
 	     (visible-bell display boolean)
 	     (no-redraw-on-reenter display boolean)
 
-	     ;; doc.c
-	     (help-quote-translation help
-				     (choice
-				      (character :tag "Quote with curved quotes"
-                                                 :value ?‘)
-				      (character :tag "Quote 'like this'" :value ?\')
-				      (character :tag "Quote `like this'" :value ?\`)
-				      (const :tag "Quote with curved quotes if displayable, 'like this' otherwise" nil))
-				     "25.1")
              ;; dosfns.c
 	     (dos-display-scancodes display boolean)
 	     (dos-hyper-key keyboard integer)