emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r100867: * custom.el (custom-declare-


From: Juanma Barranquero
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r100867: * custom.el (custom-declare-variable): Give clearer error message (bug#6476).
Date: Fri, 23 Jul 2010 03:29:46 +0200
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 100867
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Fri 2010-07-23 03:29:46 +0200
message:
  * custom.el (custom-declare-variable): Give clearer error message (bug#6476).
modified:
  lisp/ChangeLog
  lisp/custom.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-07-23 00:59:43 +0000
+++ b/lisp/ChangeLog    2010-07-23 01:29:46 +0000
@@ -1,3 +1,8 @@
+2010-07-23  Juanma Barranquero  <address@hidden>
+
+       * custom.el (custom-declare-variable): Give a clearer error message
+       when the docstring is missing (bug#6476).
+
 2010-07-22  Michael R. Mauger  <address@hidden>
 
        * progmodes/sql.el: Version 2.4.  Improved Login prompting.

=== modified file 'lisp/custom.el'
--- a/lisp/custom.el    2010-04-19 02:32:47 +0000
+++ b/lisp/custom.el    2010-07-23 01:29:46 +0000
@@ -143,7 +143,9 @@
   (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)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]