* lisp/simple.el (prog-mode-map): New var.

[gnu-emacs] / lisp / custom.el

diff --git a/lisp/custom.el b/lisp/custom.el
index 726f70492b38c3cb9645a5647e63af3e6c164a0c..273c67dc66da2bcf7ce06601e4dc2d4f7d5229e5 100644 (file)
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -143,7 +143,9 @@ set to nil, as the value is no longer rogue."
   (when (get symbol 'force-value)
     (put symbol 'force-value nil))
   (when doc
-    (put symbol 'variable-documentation doc))
+    (if (keywordp doc)
+       (error "Doc string is missing")
+      (put symbol 'variable-documentation doc)))
   (let ((initialize 'custom-initialize-reset)
        (requests nil))
     (unless (memq :group args)