Mercurial > hg > xemacs-beta

comparison lisp/autoload.el @ 1495:c3cf7db99b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-05-22 07:41:20 by stephent] oldies faq <87iss3tpac.fsf@tleepslib.sk.tsukuba.ac.jp> split-string tweaks n dox <87n0hftpht.fsf@tleepslib.sk.tsukuba.ac.jp> missed commit of broken-sun.h <87r878ihhf.fsf@tleepslib.sk.tsukuba.ac.jp> already loaded message <87el2rtovc.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Thu, 22 May 2003 07:41:27 +0000
parents 781dc6d5baba
children 5903b079bee1
comparison
equal deleted inserted replaced
1494:210683f31426 1495:c3cf7db99b98
850 (if (and (not (= (point-min) (point-max))) 850 (if (and (not (= (point-min) (point-max)))
851 (not (looking-at ";;; DO NOT MODIFY THIS FILE"))) 851 (not (looking-at ";;; DO NOT MODIFY THIS FILE")))
852 (progn 852 (progn
853 (insert ";;; DO NOT MODIFY THIS FILE\n") 853 (insert ";;; DO NOT MODIFY THIS FILE\n")
854 (insert "(if (featurep '" sym ")") 854 (insert "(if (featurep '" sym ")")
855 (insert " (error \"Already loaded\"))\n") 855 (insert " (error \"Feature " sym " already loaded\"))\n")
856 (goto-char (point-max)) 856 (goto-char (point-max))
857 (insert "\n(provide '" sym ")\n"))))) 857 (insert "\n(provide '" sym ")\n")))))
858 858
859 (defun autoload-make-feature-name (&optional prefix) 859 (defun autoload-make-feature-name (&optional prefix)
860 "Generate the feature name to protect this auto-autoloads file from PREFIX. 860 "Generate the feature name to protect this auto-autoloads file from PREFIX.