Mercurial > emacs

changeset 19886:539d06d1f0da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(customize-group): Handle groups not yet loaded. (hook) [:value-to-internal]: Use a nil value unchanged.
author Richard M. Stallman <rms@gnu.org>
date Fri, 12 Sep 1997 19:43:45 +0000
parents 266e93ddaf0e
children ff933683a5c5
files lisp/cus-edit.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-edit.el	Fri Sep 12 19:34:27 1997 +0000
+++ b/lisp/cus-edit.el	Fri Sep 12 19:43:45 1997 +0000
@@ -809,13 +809,15 @@
 		       (completing-read "Customize group: (default emacs) "
 					obarray 
 					(lambda (symbol)
-					  (get symbol 'custom-group))
+					  (or (get symbol 'custom-loads)
+					      (get symbol 'custom-group)))
 					t))))
-
   (when (stringp group)
     (if (string-equal "" group)
 	(setq group 'emacs)
       (setq group (intern group))))
+  (or (get group 'custom-group)
+      (custom-load-symbol group))
   (let ((name (format "*Customize Group: %s*"
 		      (custom-unlispify-tag-name group))))
     (if (get-buffer name)
@@ -2495,7 +2497,7 @@
 (define-widget 'hook 'list
   "A emacs lisp hook"
   :value-to-internal (lambda (widget value)
-		       (if (symbolp value)
+		       (if (and value (symbolp value))
 			   (list value)
 			 value))
   :match (lambda (widget value)