Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
166:7a77eb660975 167:85ec50267440
516 (insert 516 (insert
517 (with-output-to-string 517 (with-output-to-string
518 (mapatoms (lambda (symbol) 518 (mapatoms (lambda (symbol)
519 (let ((members (condition-case nil 519 (let ((members (condition-case nil
520 (get symbol 'custom-group) 520 (get symbol 'custom-group)
521 (t nil))) 521 (t (progn
522 (message "Bad plist in %s"
523 (symbol-name symbol)))
524 nil)))
522 item where found) 525 item where found)
523 (when members 526 (when members
524 (princ "(put '") 527 (princ "(put '")
525 (princ symbol) 528 (princ symbol)
526 (princ " 'custom-loads '(") 529 (princ " 'custom-loads '(")
597 (fixup-autoload-buffer (concat (file-name-nondirectory arg) 600 (fixup-autoload-buffer (concat (file-name-nondirectory arg)
598 "-autoloads")) 601 "-autoloads"))
599 (save-some-buffers t)) 602 (save-some-buffers t))
600 (message "Done") 603 (message "Done")
601 ;; (kill-emacs 0) 604 ;; (kill-emacs 0)
602 ))) 605 )
606 (setq command-line-args-left nil)))
603 607
604 (provide 'autoload) 608 (provide 'autoload)
605 609
606 ;;; autoload.el ends here 610 ;;; autoload.el ends here