summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1997-06-22 18:57:55 +0000
committerRichard M. Stallman <rms@gnu.org>1997-06-22 18:57:55 +0000
commit896546cd9ba8e82956662329b77becb0366a1e73 (patch)
treefb9f48d5363d164ad5c72a182dbe1e5a78322c6c
parent43c89a968ed6f1972a6ff075846622ade5bc7cf9 (diff)
downloademacs-896546cd9ba8e82956662329b77becb0366a1e73.tar.gz
Add provide call.
-rw-r--r--lisp/apropos.el2
-rw-r--r--lisp/autoinsert.el2
-rw-r--r--lisp/cdl.el2
-rw-r--r--lisp/ebuff-menu.el2
-rw-r--r--lisp/echistory.el2
-rw-r--r--lisp/emacs-lisp/copyright.el2
-rw-r--r--lisp/emacs-lisp/debug.el2
-rw-r--r--lisp/emacs-lisp/disass.el2
-rw-r--r--lisp/emacs-lisp/levents.el2
-rw-r--r--lisp/emacs-lisp/lselect.el2
-rw-r--r--lisp/emacs-lisp/profile.el2
-rw-r--r--lisp/emulation/pc-mode.el2
-rw-r--r--lisp/emulation/vi.el2
-rw-r--r--lisp/emulation/vip.el2
-rw-r--r--lisp/emulation/ws-mode.el2
-rw-r--r--lisp/find-gc.el2
-rw-r--r--lisp/ielm.el4
-rw-r--r--lisp/informat.el2
-rw-r--r--lisp/kermit.el2
-rw-r--r--lisp/ledit.el2
-rw-r--r--lisp/macros.el2
-rw-r--r--lisp/mail/mailpost.el2
-rw-r--r--lisp/mail/rnewspost.el2
-rw-r--r--lisp/mail/undigest.el2
-rw-r--r--lisp/mail/unrmail.el2
-rw-r--r--lisp/mail/vms-pmail.el2
-rw-r--r--lisp/makesum.el2
-rw-r--r--lisp/misc.el4
-rw-r--r--lisp/novice.el2
-rw-r--r--lisp/options.el4
-rw-r--r--lisp/play/blackbox.el2
-rw-r--r--lisp/play/dissociate.el2
-rw-r--r--lisp/play/doctor.el2
-rw-r--r--lisp/play/dunnet.el3
-rw-r--r--lisp/play/mpuz.el2
-rw-r--r--lisp/play/spook.el2
-rw-r--r--lisp/play/studly.el2
-rw-r--r--lisp/progmodes/asm-mode.el2
-rw-r--r--lisp/progmodes/cplus-md.el2
-rw-r--r--lisp/progmodes/modula2.el2
-rw-r--r--lisp/progmodes/pascal.el2
-rw-r--r--lisp/progmodes/prolog.el2
-rw-r--r--lisp/reposition.el10
-rw-r--r--lisp/soundex.el2
-rw-r--r--lisp/talk.el2
-rw-r--r--lisp/textmodes/nroff-mode.el2
-rw-r--r--lisp/textmodes/scribe.el2
-rw-r--r--lisp/textmodes/spell.el2
-rw-r--r--lisp/textmodes/underline.el2
-rw-r--r--lisp/time.el2
-rw-r--r--lisp/vt-control.el2
-rw-r--r--lisp/x-apollo.el4
-rw-r--r--lisp/x-menu.el2
53 files changed, 117 insertions, 6 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el
index 6729e4a4c6a..e2faf2bd0e2 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -625,4 +625,6 @@ found."
(princ ")")
(print-help-return-message)))
+(provide 'apropos)
+
;;; apropos.el ends here
diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el
index fecc2e008c6..9f4803a1a2a 100644
--- a/lisp/autoinsert.el
+++ b/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
diff --git a/lisp/cdl.el b/lisp/cdl.el
index 2c88ec2d09e..71b8ef395f6 100644
--- a/lisp/cdl.el
+++ b/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.
diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el
index 907cc2d92e0..730f7f4fc40 100644
--- a/lisp/ebuff-menu.el
+++ b/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
diff --git a/lisp/echistory.el b/lisp/echistory.el
index 66e0b08c52b..f74a002b5e5 100644
--- a/lisp/echistory.el
+++ b/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
diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el
index 079a11855d7..1f0f6e249eb 100644
--- a/lisp/emacs-lisp/copyright.el
+++ b/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
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index d3383992f54..7a8980c0803 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/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
diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index 4199728888e..d07581e86d4 100644
--- a/lisp/emacs-lisp/disass.el
+++ b/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
diff --git a/lisp/emacs-lisp/levents.el b/lisp/emacs-lisp/levents.el
index f62e37607dd..0cb860c6d44 100644
--- a/lisp/emacs-lisp/levents.el
+++ b/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
diff --git a/lisp/emacs-lisp/lselect.el b/lisp/emacs-lisp/lselect.el
index c6c64a909f8..9531ba18f51 100644
--- a/lisp/emacs-lisp/lselect.el
+++ b/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.
diff --git a/lisp/emacs-lisp/profile.el b/lisp/emacs-lisp/profile.el
index d8f8b5f86fa..a7e137332e7 100644
--- a/lisp/emacs-lisp/profile.el
+++ b/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
diff --git a/lisp/emulation/pc-mode.el b/lisp/emulation/pc-mode.el
index c7db52ba567..e10d97be3d7 100644
--- a/lisp/emulation/pc-mode.el
+++ b/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
diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el
index 7c14ca9ce22..dbc4ade3ef0 100644
--- a/lisp/emulation/vi.el
+++ b/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
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index a8739f2350b..d32cd95f753 100644
--- a/lisp/emulation/vip.el
+++ b/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
diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el
index 93bb0a05a62..29158dbf174 100644
--- a/lisp/emulation/ws-mode.el
+++ b/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
diff --git a/lisp/find-gc.el b/lisp/find-gc.el
index 4bce53c9184..aab101f0636 100644
--- a/lisp/find-gc.el
+++ b/lisp/find-gc.el
@@ -149,4 +149,6 @@
(setq ptr (cdr ptr))))
)
+(provide 'find-gc)
+
;;; find-gc.el ends here
diff --git a/lisp/ielm.el b/lisp/ielm.el
index 3af4d9df3a3..1488f2925f6 100644
--- a/lisp/ielm.el
+++ b/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
diff --git a/lisp/informat.el b/lisp/informat.el
index 67c915f9be1..ead8bb5d37c 100644
--- a/lisp/informat.el
+++ b/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
diff --git a/lisp/kermit.el b/lisp/kermit.el
index 6ca7b7a0c8c..cd7ddebd779 100644
--- a/lisp/kermit.el
+++ b/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
diff --git a/lisp/ledit.el b/lisp/ledit.el
index f106abfe08b..230dd9444ee 100644
--- a/lisp/ledit.el
+++ b/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
diff --git a/lisp/macros.el b/lisp/macros.el
index 6263a6957c2..e333bc106be 100644
--- a/lisp/macros.el
+++ b/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
diff --git a/lisp/mail/mailpost.el b/lisp/mail/mailpost.el
index 5ff33478698..e6c70cb13a3 100644
--- a/lisp/mail/mailpost.el
+++ b/lisp/mail/mailpost.el
@@ -100,4 +100,6 @@ site-init."
(if (bufferp errbuf)
(switch-to-buffer errbuf)))))
+(provide 'mailpost)
+
;;; mailpost.el ends here
diff --git a/lisp/mail/rnewspost.el b/lisp/mail/rnewspost.el
index 3a261b34ece..2c8da70dbcb 100644
--- a/lisp/mail/rnewspost.el
+++ b/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
diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el
index 3a3319ec1b5..87aa6f0d8d1 100644
--- a/lisp/mail/undigest.el
+++ b/lisp/mail/undigest.el
@@ -181,4 +181,6 @@ following the containing message."
(rmail-update-summary))))))
(set-buffer obuf))))
+(provide 'undigest)
+
;;; undigest.el ends here
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el
index 05fe04899af..390335d1e34 100644
--- a/lisp/mail/unrmail.el
+++ b/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
diff --git a/lisp/mail/vms-pmail.el b/lisp/mail/vms-pmail.el
index fb3dbf670f2..a183b4e7648 100644
--- a/lisp/mail/vms-pmail.el
+++ b/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
diff --git a/lisp/makesum.el b/lisp/makesum.el
index 9664513e004..262f14e63b4 100644
--- a/lisp/makesum.el
+++ b/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
diff --git a/lisp/misc.el b/lisp/misc.el
index fa480144074..9590d490ec9 100644
--- a/lisp/misc.el
+++ b/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
diff --git a/lisp/novice.el b/lisp/novice.el
index 424ef693fd1..d57aa224a8d 100644
--- a/lisp/novice.el
+++ b/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
diff --git a/lisp/options.el b/lisp/options.el
index 614292ce6e0..413e4105171 100644
--- a/lisp/options.el
+++ b/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
diff --git a/lisp/play/blackbox.el b/lisp/play/blackbox.el
index 8de46c2f025..0786c90d6b6 100644
--- a/lisp/play/blackbox.el
+++ b/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
diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el
index 93a9f9e79ab..fab3ed92559 100644
--- a/lisp/play/dissociate.el
+++ b/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
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 98a12bf451a..2c65fb8caa9 100644
--- a/lisp/play/doctor.el
+++ b/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
diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el
index 26a57133f26..283c884780a 100644
--- a/lisp/play/dunnet.el
+++ b/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
diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el
index a0356722124..476f0592630 100644
--- a/lisp/play/mpuz.el
+++ b/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
diff --git a/lisp/play/spook.el b/lisp/play/spook.el
index cf6685af51b..8d8f8229d5b 100644
--- a/lisp/play/spook.el
+++ b/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
diff --git a/lisp/play/studly.el b/lisp/play/studly.el
index b5aafcab09a..a94eee5ecd3 100644
--- a/lisp/play/studly.el
+++ b/lisp/play/studly.el
@@ -60,4 +60,6 @@
(interactive "*")
(studlify-region (point-min) (point-max)))
+(provide 'studly)
+
;;; studly.el ends here
diff --git a/lisp/progmodes/asm-mode.el b/lisp/progmodes/asm-mode.el
index 3a0370bdaaf..a9132afd157 100644
--- a/lisp/progmodes/asm-mode.el
+++ b/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
diff --git a/lisp/progmodes/cplus-md.el b/lisp/progmodes/cplus-md.el
index a00dfc778a2..42e2346a48d 100644
--- a/lisp/progmodes/cplus-md.el
+++ b/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
diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el
index c28758538ed..a21a5f5d7d3 100644
--- a/lisp/progmodes/modula2.el
+++ b/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
diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el
index 25e9c2daa6b..8b004a223d1 100644
--- a/lisp/progmodes/pascal.el
+++ b/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
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 934bc394d42..7817b2555be 100644
--- a/lisp/progmodes/prolog.el
+++ b/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
diff --git a/lisp/reposition.el b/lisp/reposition.el
index cfb6079b93e..fa3f8b782f4 100644
--- a/lisp/reposition.el
+++ b/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
diff --git a/lisp/soundex.el b/lisp/soundex.el
index 5f703228df2..2a33d538695 100644
--- a/lisp/soundex.el
+++ b/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
diff --git a/lisp/talk.el b/lisp/talk.el
index 0baedeb301e..a159b93311e 100644
--- a/lisp/talk.el
+++ b/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
diff --git a/lisp/textmodes/nroff-mode.el b/lisp/textmodes/nroff-mode.el
index 71ef6c2643e..355147a45b6 100644
--- a/lisp/textmodes/nroff-mode.el
+++ b/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
diff --git a/lisp/textmodes/scribe.el b/lisp/textmodes/scribe.el
index 2ec4899585a..b210e13229d 100644
--- a/lisp/textmodes/scribe.el
+++ b/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
diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el
index 65dde5383c7..c413459a3d7 100644
--- a/lisp/textmodes/spell.el
+++ b/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
diff --git a/lisp/textmodes/underline.el b/lisp/textmodes/underline.el
index 91dc0b2c2f8..20ffa315001 100644
--- a/lisp/textmodes/underline.el
+++ b/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
diff --git a/lisp/time.el b/lisp/time.el
index 2d52ffb33c5..f66160b4718 100644
--- a/lisp/time.el
+++ b/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
diff --git a/lisp/vt-control.el b/lisp/vt-control.el
index 23ccb957988..24028528811 100644
--- a/lisp/vt-control.el
+++ b/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
diff --git a/lisp/x-apollo.el b/lisp/x-apollo.el
index e86b7f2eee0..c2cb69d46dd 100644
--- a/lisp/x-apollo.el
+++ b/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
diff --git a/lisp/x-menu.el b/lisp/x-menu.el
index 4863ceec9ac..cad653f0303 100644
--- a/lisp/x-menu.el
+++ b/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