Add provide call.

lisp/apropos.el

@@ -625,4 +625,6 @@ found."
     (princ ")")
     (print-help-return-message)))
 
+(provide 'apropos)
+
 ;;; apropos.el ends here

lisp/autoinsert.el

@@ -253,4 +253,6 @@ or if CONDITION had no actions, after all other CONDITIONs."
 	(setq auto-insert-alist (cons (cons key action)
 				      auto-insert-alist))))))
 
+(provide 'autoinsert)
+
 ;;; autoinsert.el ends here

lisp/cdl.el

@@ -41,4 +41,6 @@
 		       nil nil nil "-o" (expand-file-name filename))
   (message "ncgen in progress...done"))
 
+(provide 'cdl)
+
 ;;; cdl.el ends here.

lisp/ebuff-menu.el

@@ -262,4 +262,6 @@ Returns to Electric Buffer Menu when done."
       (message "Buffer %s does not exist!" bufnam)
       (sit-for 4))))
 
+(provide 'ebuff-menu)
+
 ;;; ebuff-menu.el ends here

lisp/echistory.el

@@ -147,4 +147,6 @@ The Command History listing is recomputed each time this mode is invoked."
       (progn (message "")
 	     (throw 'electric-history-quit nil))))
 
+(provide 'echistory)
+
 ;;; echistory.el ends here

lisp/emacs-lisp/copyright.el

@@ -143,4 +143,6 @@ copyright, if any, are updated as well."
        (message "Copyright extends beyond `copyright-limit' and won't be updated automatically."))
   comment-end)
 
+(provide 'copyright)
+
 ;; copyright.el ends here

lisp/emacs-lisp/debug.el

@@ -504,4 +504,6 @@ If argument is nil or an empty string, cancel for all functions."
       (set-buffer standard-output)
       (help-mode))))
 
+(provide 'debug)
+
 ;;; debug.el ends here

lisp/emacs-lisp/disass.el

@@ -263,4 +263,6 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
 	  (insert "\n")))))
   nil)
 
+(provide 'disass)
+
 ;;; disass.el ends here

lisp/emacs-lisp/levents.el

@@ -285,4 +285,6 @@ an existing event object."
 GNU Emacs 19 does not currently generate process-output events."
   (eq (car-safe obj) 'process))
 
+(provide 'levents)
+
 ;;; levents.el ends here

lisp/emacs-lisp/lselect.el

@@ -227,4 +227,6 @@ the kill ring or the Clipboard."
     (push-mark)
     (insert clip)))
 
+(provide 'lselect)
+
 ;;; lselect.el ends here.

lisp/emacs-lisp/profile.el

@@ -322,4 +322,6 @@ DEF is (symbol-function FUN)."
   (interactive)
   (process-send-string profile-timer-process "q\n"))
 
+(provide 'profile)
+
 ;;; profile.el ends here

lisp/emulation/pc-mode.el

@@ -49,4 +49,6 @@ C-Escape does list-buffers."
   (global-set-key [C-home] 'beginning-of-buffer)
   (global-set-key [C-end] 'end-of-buffer))
 
+(provide 'pc-mode)
+
 ;; pc-mode.el ends here

lisp/emulation/vi.el

@@ -1483,4 +1483,6 @@ With ARG, inserts that many newlines."
 			(if flag (forward-char 1))))) arg)
     t))
 
+(provide 'vi)
+
 ;;; vi.el ends here

lisp/emulation/vip.el

@@ -3042,4 +3042,6 @@ vip-s-string"
 
 (if (file-exists-p vip-startup-file) (load vip-startup-file))
 
+(provide 'vip)
+
 ;;; vip.el ends here

lisp/emulation/ws-mode.el

@@ -752,4 +752,6 @@ sWith: " )
 		    (ws-block-end-marker "Block begin marker not set")
 		    (t "Block markers not set")))))
 
+(provide 'ws-mode)
+
 ;;; ws-mode.el ends here

lisp/find-gc.el

@@ -149,4 +149,6 @@
       (setq ptr (cdr ptr))))
 )
 
+(provide 'find-gc)
+
 ;;; find-gc.el ends here

lisp/ielm.el

@@ -103,7 +103,7 @@ This variable is buffer-local.")
 (defvar ielm-header 
   (concat
    "*** Welcome to IELM version "
-   (substring "$Revision: 1.12 $" 11 -2)
+   (substring "$Revision: 1.13 $" 11 -2)
    " ***  Type (describe-mode) for help.\n"
    "IELM has ABSOLUTELY NO WARRANTY; type (describe-no-warranty) for details.\n")
   "Message to display when IELM is started.")
@@ -490,4 +490,6 @@ Switches to the buffer `*ielm*', or creates it if it does not exist."
       (inferior-emacs-lisp-mode)))
   (pop-to-buffer "*ielm*"))
 
+(provide 'ielm)
+
 ;;; ielm.el ends here

lisp/informat.el

@@ -427,4 +427,6 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\""
 	    (error (message ">> Error: %s" (prin1-to-string err))))))
       (kill-emacs error))))
 
+(provide 'informat)
+
 ;;; informat.el ends here

lisp/kermit.el

@@ -147,4 +147,6 @@ command `kermit | tr -d '\\015''."
   (interactive)
   (set-process-filter (get-buffer-process (current-buffer)) nil))
 
+(provide 'kermit)
+
 ;;; kermit.el ends here

lisp/ledit.el

@@ -152,4 +152,6 @@ do (setq lisp-mode-hook 'ledit-from-lisp-mode)"
   (setq major-mode 'ledit-mode)
   (run-hooks 'ledit-mode-hook))
 
+(provide 'ledit)
+
 ;;; ledit.el ends here

lisp/macros.el

@@ -303,4 +303,6 @@ and then select the region of un-tablified names and use
 
 ;;;###autoload (define-key ctl-x-map "q" 'kbd-macro-query)
 
+(provide 'macros)
+
 ;;; macros.el ends here

lisp/mail/mailpost.el

@@ -100,4 +100,6 @@ site-init."
       (if (bufferp errbuf)
 	  (switch-to-buffer errbuf)))))
 
+(provide 'mailpost)
+
 ;;; mailpost.el ends here

lisp/mail/rnewspost.el

@@ -438,4 +438,6 @@ original message into it."
   (interactive)
   (mail-other-window nil nil nil nil nil (current-buffer)))
 
+(provide 'rnewspost)
+
 ;;; rnewspost.el ends here

lisp/mail/undigest.el

@@ -181,4 +181,6 @@ following the containing message."
 		   (rmail-update-summary))))))
       (set-buffer obuf))))
 
+(provide 'undigest)
+
 ;;; undigest.el ends here

lisp/mail/unrmail.el

@@ -63,4 +63,6 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
       (rmail-output to-file 1 t))
     (message "Writing messages to %s...done" to-file)))
 
+(provide 'unrmail)
+
 ;;; unrmail.el ends here

lisp/mail/vms-pmail.el

@@ -114,4 +114,6 @@ If neither file exists, fails quietly."
 	(if (file-attributes "~/.signature")
 	    (insert-file-contents "~/.signature")))))
 
+(provide 'vms-pmail)
+
 ;;; vms-pmail.el ends here

lisp/makesum.el

@@ -111,4 +111,6 @@ Previous contents of that buffer are killed first."
 	(setq lines (cdr lines))))
     (goto-char (- (point-max) from-end))))
 
+(provide 'makesum)
+
 ;;; makesum.el ends here

lisp/misc.el

@@ -1,4 +1,4 @@
-;;; misc.el --- basic editing commands for Emacs
+;;; misc.el --- some nonstandard basic editing commands for Emacs
 
 ;; Copyright (C) 1989 Free Software Foundation, Inc.
 
@@ -55,4 +55,6 @@ The characters copied are inserted in the buffer before point."
 				 (+ n (point)))))))
     (insert string)))
 
+(provide 'misc)
+
 ;;; misc.el ends here

lisp/novice.el

@@ -142,4 +142,6 @@ to future sessions."
    (insert "\n(put '" (symbol-name command) " 'disabled t)\n")
    (save-buffer)))
 
+(provide 'novice)
+
 ;;; novice.el ends here

lisp/options.el

@@ -29,6 +29,8 @@
 ;; mode specifically for editing option values.  Do `M-x describe-mode' in
 ;; that context for more details.
 
+;; The customization buffer feature is intended to make this obsolete.
+
 ;;; Code:
 
 ;;;###autoload
@@ -139,4 +141,6 @@ For convenience, the characters \\[backward-paragraph] and \\[forward-paragraph]
      (kill-sexp 1)
      (prin1 (symbol-value var) (current-buffer)))))
 
+(provide 'options)
+
 ;;; options.el ends here

lisp/play/blackbox.el

@@ -418,4 +418,6 @@ a reflection."
    ((equal item (car list)) (cdr list))
    (t (cons (car list) (bb-delete item (cdr list))))))
 
+(provide 'blackbox)
+
 ;;; blackbox.el ends here

lisp/play/dissociate.el

@@ -98,4 +98,6 @@ Default is 2."
 		 (funcall search-function overlap opoint t))))))
       (sit-for 0))))
 
+(provide 'dissociate)
+
 ;;; dissociate.el ends here

lisp/play/doctor.el

@@ -1614,4 +1614,6 @@ Hack on previous word, setting global variable OWNER to correct result."
   (insert "Mein fuehrer!!\n")
   (doctor-read-print))
 
+(provide 'doctor)
+
 ;;; doctor.el ends here

lisp/play/dunnet.el

@@ -3361,4 +3361,7 @@ File not found")))
   (setq dun-batch-mode t)
   (dun-batch-loop))
 
+(provide 'dunnet)
+
+;; dunnet.el ends here
 

lisp/play/mpuz.el

@@ -441,4 +441,6 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]."
 	  (setq list (cons digit list))))
     (mapcar 'mpuz-correct-guess list)))
 
+(provide 'mpuz)
+
 ;;; mpuz.el ends here

lisp/play/spook.el

@@ -66,4 +66,6 @@
 ;; cleaned up, generalized, gratuitously broken by esr, and now resides in
 ;; cookie1.el.
 
+(provide 'spook)
+
 ;;; spook.el ends here

lisp/play/studly.el

@@ -60,4 +60,6 @@
   (interactive "*")
   (studlify-region (point-min) (point-max)))
 
+(provide 'studly)
+
 ;;; studly.el ends here

lisp/progmodes/asm-mode.el

@@ -228,4 +228,6 @@ repeatedly until you are satisfied with the kind of comment."
    )
   (end-of-line))
 
+(provide 'asm-mode)
+
 ;;; asm-mode.el ends here

lisp/progmodes/cplus-md.el

@@ -1058,4 +1058,6 @@ The fill lines remain a comment."
 ;; 	(beginning-of-line 1)))
 ;;     (goto-char restore)))
 
+(provide 'cplus-md)
+
 ;;; cplus-md.el ends here

lisp/progmodes/modula2.el

@@ -544,4 +544,6 @@ FROM SysStreams IMPORT sysIn, sysOut, sysErr;
 	 (find-file-other-window
 	  (concat (substring (buffer-name) 0 -3)  ".mi")))))
 
+(provide 'modula2)
+
 ;;; modula2.el ends here

lisp/progmodes/pascal.el

@@ -1590,4 +1590,6 @@ Pascal Outline mode provides some additional commands.
   (pascal-goto-defun)
   (pascal-hide-other-defuns))
 
+(provide 'pascal)
+
 ;;; pascal.el ends here

lisp/progmodes/prolog.el

@@ -286,4 +286,6 @@ If COMPILE (prefix arg) is not nil, use compile mode rather than consult mode."
   (prolog-consult-region compile beg end)
   (switch-to-buffer "*prolog*"))
 
+(provide 'prolog)
+
 ;;; prolog.el ends here

lisp/reposition.el

@@ -190,9 +190,11 @@ first comment line visible (if point is in a comment)."
 	lines
       (- lines))))
 
-; (defmacro repos-debug-macro (case-no)
-;   (` (message
-;       (concat "Case " (, case-no) ": %s %s %s %s %s")
-;       ht line comment-height defun-height defun-depth)))
+;; (defmacro repos-debug-macro (case-no)
+;;   (` (message
+;;       (concat "Case " (, case-no) ": %s %s %s %s %s")
+;;       ht line comment-height defun-height defun-depth)))
+
+(provide 'reposition)
 
 ;;; reposition.el ends here

lisp/soundex.el

@@ -71,4 +71,6 @@ and Searching\", Addison-Wesley (1973), pp. 391-392."
 ;("E460" "G200" "H416" "K530" "L300" "L222"
 ; "E460" "G200" "H416" "K530" "L300" "L222")
 
+(provide 'soundex)
+
 ;; soundex.el ends here

lisp/talk.el

@@ -98,4 +98,6 @@ Select the first of these windows, displaying the first of the buffers."
 	  (select-window (frame-first-window frame)))
       (select-frame old-frame))))
 
+(provide 'talk)
+
 ;;; talk.el ends here

lisp/textmodes/nroff-mode.el

@@ -267,4 +267,6 @@ turns it on iff arg is positive, otherwise off."
 	(cond ((null arg) (null nroff-electric-mode))
 	      (t (> (prefix-numeric-value arg) 0)))))
 
+(provide 'nroff-mode)
+
 ;;; nroff-mode.el ends here

lisp/textmodes/scribe.el

@@ -322,4 +322,6 @@ preceding text is of the form @Command."
 	  (save-excursion
 	    (insert (aref scribe-close-parentheses paren-char)))))))
 
+(provide 'scribe)
+
 ;;; scribe.el ends here

lisp/textmodes/spell.el

@@ -151,4 +151,6 @@ for example, \"word\"."
 	 (replace-match " "))
        (message "%sincorrect" (buffer-substring 1 (point-max)))))))
 
+(provide 'spell)
+
 ;;; spell.el ends here

lisp/textmodes/underline.el

@@ -60,4 +60,6 @@ which specify the range to operate on."
      (while (re-search-forward "_\b\\|\b_" end1 t)
        (delete-char -2)))))
 
+(provide 'underline)
+
 ;;; underline.el ends here

lisp/time.el

@@ -241,4 +241,6 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'."
   (and (file-exists-p file)
        (< 0 (nth 7 (file-attributes (file-chase-links file))))))
 
+(provide 'time)
+
 ;;; time.el ends here

lisp/vt-control.el

@@ -104,4 +104,6 @@
   (if vt-applications-keypad-p (vt-keypad-off (interactive-p))
     (vt-keypad-on (interactive-p))))
 
+(provide 'vt-control)
+
 ;;; vt-control.el ends here

lisp/x-apollo.el

@@ -88,3 +88,7 @@
 (global-set-key [edit] 'find-file) ;EDIT
 (global-set-key [S-shell] 'shell) ;SHELL
 (global-set-key [S-help] 'manual-entry) ;HELP
+
+(provide 'x-apollo)
+
+;;; x-apollo.el ends here

lisp/x-menu.el

@@ -142,4 +142,6 @@ available to the user.  This also creates the menu itself."
     (and litem (funcall litem event)))
   (pop-to-buffer x-menu-assoc-buffer))
 
+(provide 'x-menu)
+
 ;;; x-menu.el ends here