Mercurial > hg > xemacs-beta

comparison lisp/autoload.el @ 410:de805c49cfc1 r21-2-35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents b8cc9ab3f761
children 697ef44129c6
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
84 "String inserted before the form identifying 84 "String inserted before the form identifying
85 the section of autoloads for a file.") 85 the section of autoloads for a file.")
86 86
87 (defvar generate-autoload-section-trailer "\n;;;***\n" 87 (defvar generate-autoload-section-trailer "\n;;;***\n"
88 "String which indicates the end of the section of autoloads for a file.") 88 "String which indicates the end of the section of autoloads for a file.")
89
90 (defvar autoload-package-name nil)
89 91
90 ;;; Forms which have doc-strings which should be printed specially. 92 ;;; Forms which have doc-strings which should be printed specially.
91 ;;; A doc-string-elt property of ELT says that (nth ELT FORM) is 93 ;;; A doc-string-elt property of ELT says that (nth ELT FORM) is
92 ;;; the doc-string in FORM. 94 ;;; the doc-string in FORM.
93 ;;; 95 ;;;
538 (insert "(if (featurep '" sym ")") 540 (insert "(if (featurep '" sym ")")
539 (insert " (error \"Already loaded\"))\n") 541 (insert " (error \"Already loaded\"))\n")
540 (goto-char (point-max)) 542 (goto-char (point-max))
541 (insert "\n(provide '" sym ")\n"))))) 543 (insert "\n(provide '" sym ")\n")))))
542 544
543 (defvar autoload-package-name nil)
544
545 ;; #### this function is almost identical, but subtly different, 545 ;; #### this function is almost identical, but subtly different,
546 ;; from batch-update-autoloads. Steve, it's your responsibility to 546 ;; from batch-update-autoloads. Steve, it's your responsibility to
547 ;; clean this up. The two should be merged, but I'm not sure what 547 ;; clean this up. The two should be merged, but I'm not sure what
548 ;; package-creation scripts out there might be using this. --ben 548 ;; package-creation scripts out there might be using this. --ben
549 549