]> git.eshelyaron.com Git - emacs.git/commitdiff
Add provide call.
authorRichard M. Stallman <rms@gnu.org>
Sun, 22 Jun 1997 18:57:55 +0000 (18:57 +0000)
committerRichard M. Stallman <rms@gnu.org>
Sun, 22 Jun 1997 18:57:55 +0000 (18:57 +0000)
53 files changed:
lisp/apropos.el
lisp/autoinsert.el
lisp/cdl.el
lisp/ebuff-menu.el
lisp/echistory.el
lisp/emacs-lisp/copyright.el
lisp/emacs-lisp/debug.el
lisp/emacs-lisp/disass.el
lisp/emacs-lisp/levents.el
lisp/emacs-lisp/lselect.el
lisp/emacs-lisp/profile.el
lisp/emulation/pc-mode.el
lisp/emulation/vi.el
lisp/emulation/vip.el
lisp/emulation/ws-mode.el
lisp/find-gc.el
lisp/ielm.el
lisp/informat.el
lisp/kermit.el
lisp/ledit.el
lisp/macros.el
lisp/mail/mailpost.el
lisp/mail/rnewspost.el
lisp/mail/undigest.el
lisp/mail/unrmail.el
lisp/mail/vms-pmail.el
lisp/makesum.el
lisp/misc.el
lisp/novice.el
lisp/options.el
lisp/play/blackbox.el
lisp/play/dissociate.el
lisp/play/doctor.el
lisp/play/dunnet.el
lisp/play/mpuz.el
lisp/play/spook.el
lisp/play/studly.el
lisp/progmodes/asm-mode.el
lisp/progmodes/cplus-md.el
lisp/progmodes/modula2.el
lisp/progmodes/pascal.el
lisp/progmodes/prolog.el
lisp/reposition.el
lisp/soundex.el
lisp/talk.el
lisp/textmodes/nroff-mode.el
lisp/textmodes/scribe.el
lisp/textmodes/spell.el
lisp/textmodes/underline.el
lisp/time.el
lisp/vt-control.el
lisp/x-apollo.el
lisp/x-menu.el

index 6729e4a4c6a9a8081e9a98f09bd10d284a0d4312..e2faf2bd0e2cbf1302d260cf9d570d8ff2587576 100644 (file)
@@ -625,4 +625,6 @@ found."
     (princ ")")
     (print-help-return-message)))
 
+(provide 'apropos)
+
 ;;; apropos.el ends here
index fecc2e008c60d761cd728f56a804fbc246c6e751..9f4803a1a2a09aeeced3869e50a3f2160b7a3cc9 100644 (file)
@@ -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
index 2c88ec2d09e80c30ad6f3c08e73f1be098c86f3e..71b8ef395f6636e1cf35eacb085e9df7bf5fde1b 100644 (file)
@@ -41,4 +41,6 @@
                       nil nil nil "-o" (expand-file-name filename))
   (message "ncgen in progress...done"))
 
+(provide 'cdl)
+
 ;;; cdl.el ends here.
index 907cc2d92e05814b245f6126ebbef282a9612324..730f7f4fc402a853a2c941202a427852491a922a 100644 (file)
@@ -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
index 66e0b08c52b2f3ca868cdd6c997e32da0936f6e0..f74a002b5e5e7454295efb03c7b0cd47be812ef4 100644 (file)
@@ -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
index 079a11855d75222a956cf4c5b952ed6b0f8edea4..1f0f6e249eb988f0e6ad49ec4858d0f5cb59737e 100644 (file)
@@ -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
index d3383992f54018bce02974ff5d2c1fce92ef3751..7a8980c08032d1fe1282b31f60177d12599d376f 100644 (file)
@@ -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
index 4199728888e18e309384124eec733316c93b4f47..d07581e86d4465db9750460f80bd1abca646a38d 100644 (file)
@@ -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
index f62e37607dd787068b3d311cc931e3478b24b1f3..0cb860c6d444bc994037e2b0215d4f0465e704db 100644 (file)
@@ -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
index c6c64a909f88748a2a0ef9f348f7160f8bcafcad..9531ba18f5103976cf0e782318968a4c90c73aa4 100644 (file)
@@ -227,4 +227,6 @@ the kill ring or the Clipboard."
     (push-mark)
     (insert clip)))
 
+(provide 'lselect)
+
 ;;; lselect.el ends here.
index d8f8b5f86fac466a780cd03e0dd90e6fb20b74f1..a7e137332e75cc6a75889932084bdc5ca77b09b9 100644 (file)
@@ -322,4 +322,6 @@ DEF is (symbol-function FUN)."
   (interactive)
   (process-send-string profile-timer-process "q\n"))
 
+(provide 'profile)
+
 ;;; profile.el ends here
index c7db52ba5678d2f6030c300f6b27ed9754ccef76..e10d97be3d7e6402d4be976011b0d7d8d43942a8 100644 (file)
@@ -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
index 7c14ca9ce2222ac308b43a25a72b787a7cb0fc4b..dbc4ade3ef0891cf8fdc2e36b5a5da883ad83bd0 100644 (file)
@@ -1483,4 +1483,6 @@ With ARG, inserts that many newlines."
                        (if flag (forward-char 1))))) arg)
     t))
 
+(provide 'vi)
+
 ;;; vi.el ends here
index a8739f2350bb546cfe3214d0b28111d8b59722a9..d32cd95f75320ca2dad22c449af2512a7771a5ed 100644 (file)
@@ -3042,4 +3042,6 @@ vip-s-string"
 
 (if (file-exists-p vip-startup-file) (load vip-startup-file))
 
+(provide 'vip)
+
 ;;; vip.el ends here
index 93bb0a05a62523a27a59278544d58f1b5e24aca4..29158dbf174427d0d62a35abdc82cac45e94f98a 100644 (file)
@@ -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
index 4bce53c91843b9ec087487c7adbedb8729906f69..aab101f063622e33848d932cea9a4d94f9d2bf0a 100644 (file)
       (setq ptr (cdr ptr))))
 )
 
+(provide 'find-gc)
+
 ;;; find-gc.el ends here
index 3af4d9df3a3dabae54837b6c443193f61bcbde28..1488f2925f6361cbb99004b96edc176b2d57511d 100644 (file)
@@ -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
index 67c915f9be14123cf4c5dbe27262afa1ae475e64..ead8bb5d37c7f63ab6aa5d17013eedd8c48e1b38 100644 (file)
@@ -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
index 6ca7b7a0c8ca433aa93fa94fdfe311394341cc8e..cd7ddebd7798aab27e06802ecaa211bfa277feee 100644 (file)
@@ -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
index f106abfe08b5d283bcf1d6f8a41385fc0c44303d..230dd9444ee4a5fbf721ef29244a63b136ac6a8c 100644 (file)
@@ -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
index 6263a6957c28a04af8fd86790da7f0af63c95a3d..e333bc106be51139ccc8bd0c953359137954b3b3 100644 (file)
@@ -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
index 5ff3347869894c7946067593f91e2a0590459437..e6c70cb13a38464b8d05d56dcb0181154b39ebf8 100644 (file)
@@ -100,4 +100,6 @@ site-init."
       (if (bufferp errbuf)
          (switch-to-buffer errbuf)))))
 
+(provide 'mailpost)
+
 ;;; mailpost.el ends here
index 3a261b34ecef3261a21d7d6f6e246354a657f93a..2c8da70dbcb3c878daca8a598e5716f9c3a93254 100644 (file)
@@ -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
index 3a3319ec1b52552b8ef8e9d9d9ad866324dd02a2..87aa6f0d8d14339a57990dc5deab3b108a346427 100644 (file)
@@ -181,4 +181,6 @@ following the containing message."
                   (rmail-update-summary))))))
       (set-buffer obuf))))
 
+(provide 'undigest)
+
 ;;; undigest.el ends here
index 05fe04899afe4df90a804bb55a349fddbf09b43c..390335d1e3453d80c539c454a9ae134936daf129 100644 (file)
@@ -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
index fb3dbf670f2c80e37c948af0d3d1898f6b756e88..a183b4e7648325e586abbf92b05e8b3295071f0e 100644 (file)
@@ -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
index 9664513e0047a9193ecec4d9e80d76b80b41146b..262f14e63b4fbf29916247de3b6b8ee3e8e7c367 100644 (file)
@@ -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
index fa480144074e347a2f5527736d328f3749f7b5e1..9590d490ec9e8599a9e934f3609336276fd71244 100644 (file)
@@ -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
index 424ef693fd117de6d494ba5133bcb5ad527d5753..d57aa224a8dacc329b4af0be6d15e3161c3be60a 100644 (file)
@@ -142,4 +142,6 @@ to future sessions."
    (insert "\n(put '" (symbol-name command) " 'disabled t)\n")
    (save-buffer)))
 
+(provide 'novice)
+
 ;;; novice.el ends here
index 614292ce6e093c062059ccc4e00ef7526fb9771b..413e41051711fa539cc200dcf408d46f21152f60 100644 (file)
@@ -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
index 8de46c2f025a04093ab4588a356164e05d8a8ed0..0786c90d6b6df0aba9a76e885db06d7a4f44785c 100644 (file)
@@ -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
index 93a9f9e79ab7726e1c8c3c898357806138f1ac05..fab3ed92559068896134dd7baeceab29884229cc 100644 (file)
@@ -98,4 +98,6 @@ Default is 2."
                 (funcall search-function overlap opoint t))))))
       (sit-for 0))))
 
+(provide 'dissociate)
+
 ;;; dissociate.el ends here
index 98a12bf451a325be143ef8679aa98d7aebf31ca8..2c65fb8caa9d15bc4b4d9e7c6bc1fef0dbf7ce3d 100644 (file)
@@ -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
index 26a57133f262e881c86cb8f392f7e71f903dd31c..283c884780a64b01481d12d2a25320de8523c045 100644 (file)
@@ -3361,4 +3361,7 @@ File not found")))
   (setq dun-batch-mode t)
   (dun-batch-loop))
 
+(provide 'dunnet)
+
+;; dunnet.el ends here
 
index a03567221243bec12eb75338a6768bc7a2aedff8..476f05926300528be06cca09448186a29a596a70 100644 (file)
@@ -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
index cf6685af51bd04559a76c22f0fee2b56dbeb9083..8d8f8229d5bdc4e149e256c3c1ac261978390869 100644 (file)
@@ -66,4 +66,6 @@
 ;; cleaned up, generalized, gratuitously broken by esr, and now resides in
 ;; cookie1.el.
 
+(provide 'spook)
+
 ;;; spook.el ends here
index b5aafcab09a9f9c1fe248ca2b0b26c7fbf0813f2..a94eee5ecd340a62f805818dd95cbd794be251e5 100644 (file)
@@ -60,4 +60,6 @@
   (interactive "*")
   (studlify-region (point-min) (point-max)))
 
+(provide 'studly)
+
 ;;; studly.el ends here
index 3a0370bdaaf9f886fd6329784e1d3e9ba47a21b5..a9132afd157d70c6687740d44d9bad488fc0a97c 100644 (file)
@@ -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
index a00dfc778a2f44ae2253611839a1b1fa8623d2f1..42e2346a48db71796d1359c0fc7d1c1a260985b1 100644 (file)
@@ -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
index c28758538ed763497e640e16f2723634dcc315f3..a21a5f5d7d3647c365531e66a5e8bb9e01466641 100644 (file)
@@ -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
index 25e9c2daa6bffd68848fdaeac99c8235e0cf5869..8b004a223d1f3e678e4dd8a9d44e27c984877f64 100644 (file)
@@ -1590,4 +1590,6 @@ Pascal Outline mode provides some additional commands.
   (pascal-goto-defun)
   (pascal-hide-other-defuns))
 
+(provide 'pascal)
+
 ;;; pascal.el ends here
index 934bc394d42bbb860765af319c2167c4a068f198..7817b2555be0850b79380d8109605eede7403b74 100644 (file)
@@ -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
index cfb6079b93ecc5232bbbb92e82c96c58b9b3ac1d..fa3f8b782f479220df5fa9d76cac0bf2d53da9dc 100644 (file)
@@ -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
index 5f703228df2e8e0917580c3ef5b786879eabf03a..2a33d5386952b59bc29086bd9e51a593000bc8cd 100644 (file)
@@ -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
index 0baedeb301eb435278e4feaffd039ed1e1155d39..a159b93311e5871963cb85f67766e6460376282f 100644 (file)
@@ -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
index 71ef6c2643eb6b99ad26b014964d3472d651dea9..355147a45b671b0b1f9bbf80bb17d1a369cf1517 100644 (file)
@@ -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
index 2ec4899585abad91a4fea4e84f430726c3a20717..b210e13229d1df7c88de274c97b2a8fb61cd1ec0 100644 (file)
@@ -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
index 65dde5383c7b9ba840c2a82a1e2caeb8863c827b..c413459a3d7be20078278145aae8d57f7cabea04 100644 (file)
@@ -151,4 +151,6 @@ for example, \"word\"."
         (replace-match " "))
        (message "%sincorrect" (buffer-substring 1 (point-max)))))))
 
+(provide 'spell)
+
 ;;; spell.el ends here
index 91dc0b2c2f82263ad0d369f1dffef43a6a6a8d24..20ffa315001e1ee7bc000c02f4448ed7fe3280e6 100644 (file)
@@ -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
index 2d52ffb33c5fbf8842161c2eeb1ae122f3425bc4..f66160b47186bf3385cded1474c351c6baedd0b4 100644 (file)
@@ -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
index 23ccb957988c8fad53606da120b709d861c63353..2402852881109838dc61c7d5dc9b1c2532df8141 100644 (file)
   (if vt-applications-keypad-p (vt-keypad-off (interactive-p))
     (vt-keypad-on (interactive-p))))
 
+(provide 'vt-control)
+
 ;;; vt-control.el ends here
index e86b7f2eee014eae99723ca8c382dfdac9815290..c2cb69d46ddf583783a3529a5930016caf0abcaa 100644 (file)
@@ -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
index 4863ceec9acab6ea50f3ddf147eeaf521d3077f5..cad653f0303629763feb605650315e41c46d2b05 100644 (file)
@@ -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