Add provide call.

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