* admin/admin.el (cusver-scan): Warn about missing :types.

(cusver-check): Interactively, require existing directories.

* admin/cus-test.el: Comment.

admin/ChangeLog

+2013-12-28  Glenn Morris  <rgm@gnu.org>
+
+	* admin.el (cusver-scan): Warn about missing :types.
+	(cusver-check): Interactively, require existing directories.
+
 2013-12-27  Xue Fuqiao  <xfq.free@gmail.com>
 
 	* admin.el (manual-misc-manuals, make-manuals):

admin/admin.el

@@ -540,6 +540,12 @@ If optional argument OLD is non-nil, also scan for `defvar's."
 		 ;; Exclude macros, eg (defcustom ,varname ...).
 		 (symbolp var))
 	    (progn
+	      ;; FIXME It should be cus-test-apropos that does this.
+	      (and (not old)
+		   (equal "custom" (match-string 2))
+		   (not (memq :type form))
+		   (display-warning 'custom
+				    (format "Missing type in: `%s'" form)))
 	      (setq ver (car (cdr-safe (memq :version form))))
 	      (if (equal "group" (match-string 2))
 		  ;; Group :version could be old.
@@ -601,8 +607,8 @@ a :version bump.
 
 Note that a :version tag should also be added if the value of a defcustom
 changes (in a non-trivial way).  This function does not check for that."
-  (interactive (list (read-directory-name "New Lisp directory: ")
-		     (read-directory-name "Old Lisp directory: ")
+  (interactive (list (read-directory-name "New Lisp directory: " nil nil t)
+		     (read-directory-name "Old Lisp directory: " nil nil t)
 		     (number-to-string
 		      (read-number "New version number: "
 				   (string-to-number cusver-new-version)))))

admin/cus-test.el

@@ -187,6 +187,9 @@ The detected problematic options are stored in `cus-test-errors'."
      (message "Cus Test running...%s %s"
 	      (length cus-test-tested-variables) symbol)
      (condition-case alpha
+	 ;; FIXME This defaults to 'sexp if no type was specified.
+	 ;; Always report such instances as a type mismatch.
+	 ;; Currently abusing cusver-scan to do that.
 	 (let* ((type (custom-variable-type symbol))
 		(conv (widget-convert type))
 		(get (or (get symbol 'custom-get) 'default-value))