Mercurial > hg > xemacs-beta

diff lisp/utils/autoload.el @ 167:85ec50267440 r20-3b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b10
author cvs
date Mon, 13 Aug 2007 09:45:46 +0200
parents 5a88923fcbfe
children 15872534500d
line wrap: on
line diff
--- a/lisp/utils/autoload.el	Mon Aug 13 09:44:44 2007 +0200
+++ b/lisp/utils/autoload.el	Mon Aug 13 09:45:46 2007 +0200
@@ -518,7 +518,10 @@
       (mapatoms (lambda (symbol)
 		  (let ((members (condition-case nil
 				     (get symbol 'custom-group)
-				   (t nil)))
+				   (t (progn
+					(message "Bad plist in %s"
+						 (symbol-name symbol)))
+				      nil)))
 			item where found)
 		    (when members
 		      (princ "(put '")
@@ -599,7 +602,8 @@
 	(save-some-buffers t))
       (message "Done")
       ;; (kill-emacs 0)
-      )))
+      )
+    (setq command-line-args-left nil)))
 
 (provide 'autoload)