diff options
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 |