[Top][All Lists]
[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r100867: * custom.el (custom-declare-variable): Give clearer error message (bug#6476).,
Juanma Barranquero <=