[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog cus-edit.el
From: |
Martin Rudalics |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog cus-edit.el |
Date: |
Wed, 18 Feb 2009 18:36:14 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Martin Rudalics <m061211> 09/02/18 18:36:13
Modified files:
lisp : ChangeLog cus-edit.el
Log message:
(custom-group-value-create): Insert some
informatory text in the WIDGET-misses-doc-string case.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15353&r2=1.15354
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cus-edit.el?cvsroot=emacs&r1=1.362&r2=1.363
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15353
retrieving revision 1.15354
diff -u -b -r1.15353 -r1.15354
--- ChangeLog 18 Feb 2009 15:51:22 -0000 1.15353
+++ ChangeLog 18 Feb 2009 18:36:11 -0000 1.15354
@@ -1,3 +1,8 @@
+2009-02-18 Martin Rudalics <address@hidden>
+
+ * cus-edit.el (custom-group-value-create): Insert some
+ informatory text in the WIDGET-misses-doc-string case.
+
2009-02-18 Sam Steingold <address@hidden>
* progmodes/compile.el: Require comint at top level to fix the
Index: cus-edit.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cus-edit.el,v
retrieving revision 1.362
retrieving revision 1.363
diff -u -b -r1.362 -r1.363
--- cus-edit.el 18 Feb 2009 12:55:37 -0000 1.362
+++ cus-edit.el 18 Feb 2009 18:36:13 -0000 1.363
@@ -4006,8 +4006,11 @@
(let ((start (point)))
(insert tag " group: ")
(widget-specify-sample widget start (point)))
- (when (and doc (< (length doc) 50))
- (insert doc))
+ (cond
+ ((not doc)
+ (insert " Group definition missing. "))
+ ((< (length doc) 50)
+ (insert doc)))
;; Create visibility indicator.
(unless (eq custom-buffer-style 'links)
(insert "--------")