Mercurial > emacs

changeset 18383:11218164bc54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add provide call.
author Richard M. Stallman <rms@gnu.org>
date Sun, 22 Jun 1997 18:57:55 +0000
parents 0e4943a370e2
children e15d036fa769
files 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
diffstat 53 files changed, 117 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/apropos.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/apropos.el	Sun Jun 22 18:57:55 1997 +0000
@@ -625,4 +625,6 @@
     (princ ")")
     (print-help-return-message)))
 
+(provide 'apropos)
+
 ;;; apropos.el ends here
--- a/lisp/autoinsert.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/autoinsert.el	Sun Jun 22 18:57:55 1997 +0000
@@ -253,4 +253,6 @@
 	(setq auto-insert-alist (cons (cons key action)
 				      auto-insert-alist))))))
 
+(provide 'autoinsert)
+
 ;;; autoinsert.el ends here
--- a/lisp/cdl.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/cdl.el	Sun Jun 22 18:57:55 1997 +0000
@@ -41,4 +41,6 @@
 		       nil nil nil "-o" (expand-file-name filename))
   (message "ncgen in progress...done"))
 
+(provide 'cdl)
+
 ;;; cdl.el ends here.
--- a/lisp/ebuff-menu.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/ebuff-menu.el	Sun Jun 22 18:57:55 1997 +0000
@@ -262,4 +262,6 @@
       (message "Buffer %s does not exist!" bufnam)
       (sit-for 4))))
 
+(provide 'ebuff-menu)
+
 ;;; ebuff-menu.el ends here
--- a/lisp/echistory.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/echistory.el	Sun Jun 22 18:57:55 1997 +0000
@@ -147,4 +147,6 @@
       (progn (message "")
 	     (throw 'electric-history-quit nil))))
 
+(provide 'echistory)
+
 ;;; echistory.el ends here
--- a/lisp/emacs-lisp/copyright.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/emacs-lisp/copyright.el	Sun Jun 22 18:57:55 1997 +0000
@@ -143,4 +143,6 @@
        (message "Copyright extends beyond `copyright-limit' and won't be updated automatically."))
   comment-end)
 
+(provide 'copyright)
+
 ;; copyright.el ends here
--- a/lisp/emacs-lisp/debug.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/emacs-lisp/debug.el	Sun Jun 22 18:57:55 1997 +0000
@@ -504,4 +504,6 @@
       (set-buffer standard-output)
       (help-mode))))
 
+(provide 'debug)
+
 ;;; debug.el ends here
--- a/lisp/emacs-lisp/disass.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/emacs-lisp/disass.el	Sun Jun 22 18:57:55 1997 +0000
@@ -263,4 +263,6 @@
 	  (insert "\n")))))
   nil)
 
+(provide 'disass)
+
 ;;; disass.el ends here
--- a/lisp/emacs-lisp/levents.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/emacs-lisp/levents.el	Sun Jun 22 18:57:55 1997 +0000
@@ -285,4 +285,6 @@
 GNU Emacs 19 does not currently generate process-output events."
   (eq (car-safe obj) 'process))
 
+(provide 'levents)
+
 ;;; levents.el ends here
--- a/lisp/emacs-lisp/lselect.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/emacs-lisp/lselect.el	Sun Jun 22 18:57:55 1997 +0000
@@ -227,4 +227,6 @@
     (push-mark)
     (insert clip)))
 
+(provide 'lselect)
+
 ;;; lselect.el ends here.
--- a/lisp/emacs-lisp/profile.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/emacs-lisp/profile.el	Sun Jun 22 18:57:55 1997 +0000
@@ -322,4 +322,6 @@
   (interactive)
   (process-send-string profile-timer-process "q\n"))
 
+(provide 'profile)
+
 ;;; profile.el ends here
--- a/lisp/emulation/pc-mode.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/emulation/pc-mode.el	Sun Jun 22 18:57:55 1997 +0000
@@ -49,4 +49,6 @@
   (global-set-key [C-home] 'beginning-of-buffer)
   (global-set-key [C-end] 'end-of-buffer))
 
+(provide 'pc-mode)
+
 ;; pc-mode.el ends here
--- a/lisp/emulation/vi.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/emulation/vi.el	Sun Jun 22 18:57:55 1997 +0000
@@ -1483,4 +1483,6 @@
 			(if flag (forward-char 1))))) arg)
     t))
 
+(provide 'vi)
+
 ;;; vi.el ends here
--- a/lisp/emulation/vip.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/emulation/vip.el	Sun Jun 22 18:57:55 1997 +0000
@@ -3042,4 +3042,6 @@
 
 (if (file-exists-p vip-startup-file) (load vip-startup-file))
 
+(provide 'vip)
+
 ;;; vip.el ends here
--- a/lisp/emulation/ws-mode.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/emulation/ws-mode.el	Sun Jun 22 18:57:55 1997 +0000
@@ -752,4 +752,6 @@
 		    (ws-block-end-marker "Block begin marker not set")
 		    (t "Block markers not set")))))
 
+(provide 'ws-mode)
+
 ;;; ws-mode.el ends here
--- a/lisp/find-gc.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/find-gc.el	Sun Jun 22 18:57:55 1997 +0000
@@ -149,4 +149,6 @@
       (setq ptr (cdr ptr))))
 )
 
+(provide 'find-gc)
+
 ;;; find-gc.el ends here
--- a/lisp/ielm.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/ielm.el	Sun Jun 22 18:57:55 1997 +0000
@@ -103,7 +103,7 @@
 (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 @@
       (inferior-emacs-lisp-mode)))
   (pop-to-buffer "*ielm*"))
 
+(provide 'ielm)
+
 ;;; ielm.el ends here
--- a/lisp/informat.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/informat.el	Sun Jun 22 18:57:55 1997 +0000
@@ -427,4 +427,6 @@
 	    (error (message ">> Error: %s" (prin1-to-string err))))))
       (kill-emacs error))))
 
+(provide 'informat)
+
 ;;; informat.el ends here
--- a/lisp/kermit.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/kermit.el	Sun Jun 22 18:57:55 1997 +0000
@@ -147,4 +147,6 @@
   (interactive)
   (set-process-filter (get-buffer-process (current-buffer)) nil))
 
+(provide 'kermit)
+
 ;;; kermit.el ends here
--- a/lisp/ledit.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/ledit.el	Sun Jun 22 18:57:55 1997 +0000
@@ -152,4 +152,6 @@
   (setq major-mode 'ledit-mode)
   (run-hooks 'ledit-mode-hook))
 
+(provide 'ledit)
+
 ;;; ledit.el ends here
--- a/lisp/macros.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/macros.el	Sun Jun 22 18:57:55 1997 +0000
@@ -303,4 +303,6 @@
 
 ;;;###autoload (define-key ctl-x-map "q" 'kbd-macro-query)
 
+(provide 'macros)
+
 ;;; macros.el ends here
--- a/lisp/mail/mailpost.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/mail/mailpost.el	Sun Jun 22 18:57:55 1997 +0000
@@ -100,4 +100,6 @@
       (if (bufferp errbuf)
 	  (switch-to-buffer errbuf)))))
 
+(provide 'mailpost)
+
 ;;; mailpost.el ends here
--- a/lisp/mail/rnewspost.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/mail/rnewspost.el	Sun Jun 22 18:57:55 1997 +0000
@@ -438,4 +438,6 @@
   (interactive)
   (mail-other-window nil nil nil nil nil (current-buffer)))
 
+(provide 'rnewspost)
+
 ;;; rnewspost.el ends here
--- a/lisp/mail/undigest.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/mail/undigest.el	Sun Jun 22 18:57:55 1997 +0000
@@ -181,4 +181,6 @@
 		   (rmail-update-summary))))))
       (set-buffer obuf))))
 
+(provide 'undigest)
+
 ;;; undigest.el ends here
--- a/lisp/mail/unrmail.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/mail/unrmail.el	Sun Jun 22 18:57:55 1997 +0000
@@ -63,4 +63,6 @@
       (rmail-output to-file 1 t))
     (message "Writing messages to %s...done" to-file)))
 
+(provide 'unrmail)
+
 ;;; unrmail.el ends here
--- a/lisp/mail/vms-pmail.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/mail/vms-pmail.el	Sun Jun 22 18:57:55 1997 +0000
@@ -114,4 +114,6 @@
 	(if (file-attributes "~/.signature")
 	    (insert-file-contents "~/.signature")))))
 
+(provide 'vms-pmail)
+
 ;;; vms-pmail.el ends here
--- a/lisp/makesum.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/makesum.el	Sun Jun 22 18:57:55 1997 +0000
@@ -111,4 +111,6 @@
 	(setq lines (cdr lines))))
     (goto-char (- (point-max) from-end))))
 
+(provide 'makesum)
+
 ;;; makesum.el ends here
--- a/lisp/misc.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/misc.el	Sun Jun 22 18:57:55 1997 +0000
@@ -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 @@
 				 (+ n (point)))))))
     (insert string)))
 
+(provide 'misc)
+
 ;;; misc.el ends here
--- a/lisp/novice.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/novice.el	Sun Jun 22 18:57:55 1997 +0000
@@ -142,4 +142,6 @@
    (insert "\n(put '" (symbol-name command) " 'disabled t)\n")
    (save-buffer)))
 
+(provide 'novice)
+
 ;;; novice.el ends here
--- a/lisp/options.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/options.el	Sun Jun 22 18:57:55 1997 +0000
@@ -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 @@
      (kill-sexp 1)
      (prin1 (symbol-value var) (current-buffer)))))
 
+(provide 'options)
+
 ;;; options.el ends here
--- a/lisp/play/blackbox.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/play/blackbox.el	Sun Jun 22 18:57:55 1997 +0000
@@ -418,4 +418,6 @@
    ((equal item (car list)) (cdr list))
    (t (cons (car list) (bb-delete item (cdr list))))))
 
+(provide 'blackbox)
+
 ;;; blackbox.el ends here
--- a/lisp/play/dissociate.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/play/dissociate.el	Sun Jun 22 18:57:55 1997 +0000
@@ -98,4 +98,6 @@
 		 (funcall search-function overlap opoint t))))))
       (sit-for 0))))
 
+(provide 'dissociate)
+
 ;;; dissociate.el ends here
--- a/lisp/play/doctor.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/play/doctor.el	Sun Jun 22 18:57:55 1997 +0000
@@ -1614,4 +1614,6 @@
   (insert "Mein fuehrer!!\n")
   (doctor-read-print))
 
+(provide 'doctor)
+
 ;;; doctor.el ends here
--- a/lisp/play/dunnet.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/play/dunnet.el	Sun Jun 22 18:57:55 1997 +0000
@@ -3361,4 +3361,7 @@
   (setq dun-batch-mode t)
   (dun-batch-loop))
 
+(provide 'dunnet)
 
+;; dunnet.el ends here
+
--- a/lisp/play/mpuz.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/play/mpuz.el	Sun Jun 22 18:57:55 1997 +0000
@@ -441,4 +441,6 @@
 	  (setq list (cons digit list))))
     (mapcar 'mpuz-correct-guess list)))
 
+(provide 'mpuz)
+
 ;;; mpuz.el ends here
--- a/lisp/play/spook.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/play/spook.el	Sun Jun 22 18:57:55 1997 +0000
@@ -66,4 +66,6 @@
 ;; cleaned up, generalized, gratuitously broken by esr, and now resides in
 ;; cookie1.el.
 
+(provide 'spook)
+
 ;;; spook.el ends here
--- a/lisp/play/studly.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/play/studly.el	Sun Jun 22 18:57:55 1997 +0000
@@ -60,4 +60,6 @@
   (interactive "*")
   (studlify-region (point-min) (point-max)))
 
+(provide 'studly)
+
 ;;; studly.el ends here
--- a/lisp/progmodes/asm-mode.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/progmodes/asm-mode.el	Sun Jun 22 18:57:55 1997 +0000
@@ -228,4 +228,6 @@
    )
   (end-of-line))
 
+(provide 'asm-mode)
+
 ;;; asm-mode.el ends here
--- a/lisp/progmodes/cplus-md.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/progmodes/cplus-md.el	Sun Jun 22 18:57:55 1997 +0000
@@ -1058,4 +1058,6 @@
 ;; 	(beginning-of-line 1)))
 ;;     (goto-char restore)))
 
+(provide 'cplus-md)
+
 ;;; cplus-md.el ends here
--- a/lisp/progmodes/modula2.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/progmodes/modula2.el	Sun Jun 22 18:57:55 1997 +0000
@@ -544,4 +544,6 @@
 	 (find-file-other-window
 	  (concat (substring (buffer-name) 0 -3)  ".mi")))))
 
+(provide 'modula2)
+
 ;;; modula2.el ends here
--- a/lisp/progmodes/pascal.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/progmodes/pascal.el	Sun Jun 22 18:57:55 1997 +0000
@@ -1590,4 +1590,6 @@
   (pascal-goto-defun)
   (pascal-hide-other-defuns))
 
+(provide 'pascal)
+
 ;;; pascal.el ends here
--- a/lisp/progmodes/prolog.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/progmodes/prolog.el	Sun Jun 22 18:57:55 1997 +0000
@@ -286,4 +286,6 @@
   (prolog-consult-region compile beg end)
   (switch-to-buffer "*prolog*"))
 
+(provide 'prolog)
+
 ;;; prolog.el ends here
--- a/lisp/reposition.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/reposition.el	Sun Jun 22 18:57:55 1997 +0000
@@ -190,9 +190,11 @@
 	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
--- a/lisp/soundex.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/soundex.el	Sun Jun 22 18:57:55 1997 +0000
@@ -71,4 +71,6 @@
 ;("E460" "G200" "H416" "K530" "L300" "L222"
 ; "E460" "G200" "H416" "K530" "L300" "L222")
 
+(provide 'soundex)
+
 ;; soundex.el ends here
--- a/lisp/talk.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/talk.el	Sun Jun 22 18:57:55 1997 +0000
@@ -98,4 +98,6 @@
 	  (select-window (frame-first-window frame)))
       (select-frame old-frame))))
 
+(provide 'talk)
+
 ;;; talk.el ends here
--- a/lisp/textmodes/nroff-mode.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/textmodes/nroff-mode.el	Sun Jun 22 18:57:55 1997 +0000
@@ -267,4 +267,6 @@
 	(cond ((null arg) (null nroff-electric-mode))
 	      (t (> (prefix-numeric-value arg) 0)))))
 
+(provide 'nroff-mode)
+
 ;;; nroff-mode.el ends here
--- a/lisp/textmodes/scribe.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/textmodes/scribe.el	Sun Jun 22 18:57:55 1997 +0000
@@ -322,4 +322,6 @@
 	  (save-excursion
 	    (insert (aref scribe-close-parentheses paren-char)))))))
 
+(provide 'scribe)
+
 ;;; scribe.el ends here
--- a/lisp/textmodes/spell.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/textmodes/spell.el	Sun Jun 22 18:57:55 1997 +0000
@@ -151,4 +151,6 @@
 	 (replace-match " "))
        (message "%sincorrect" (buffer-substring 1 (point-max)))))))
 
+(provide 'spell)
+
 ;;; spell.el ends here
--- a/lisp/textmodes/underline.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/textmodes/underline.el	Sun Jun 22 18:57:55 1997 +0000
@@ -60,4 +60,6 @@
      (while (re-search-forward "_\b\\|\b_" end1 t)
        (delete-char -2)))))
 
+(provide 'underline)
+
 ;;; underline.el ends here
--- a/lisp/time.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/time.el	Sun Jun 22 18:57:55 1997 +0000
@@ -241,4 +241,6 @@
   (and (file-exists-p file)
        (< 0 (nth 7 (file-attributes (file-chase-links file))))))
 
+(provide 'time)
+
 ;;; time.el ends here
--- a/lisp/vt-control.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/vt-control.el	Sun Jun 22 18:57:55 1997 +0000
@@ -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
--- a/lisp/x-apollo.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/x-apollo.el	Sun Jun 22 18:57:55 1997 +0000
@@ -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
--- a/lisp/x-menu.el	Sun Jun 22 18:47:05 1997 +0000
+++ b/lisp/x-menu.el	Sun Jun 22 18:57:55 1997 +0000
@@ -142,4 +142,6 @@
     (and litem (funcall litem event)))
   (pop-to-buffer x-menu-assoc-buffer))
 
+(provide 'x-menu)
+
 ;;; x-menu.el ends here