*** empty log message ***

lisp/abbrevlist.el

@@ -1,5 +1,5 @@
 ;; List one abbrev table alphabetically ordered.
-;; Copyright (C) 1986 Free Software Foundation, Inc.
+;; Copyright (C) 1986, 1992 Free Software Foundation, Inc.
 ;; Suggested by a previous version by Gildea.
 
 ;; This file is part of GNU Emacs.
@@ -19,8 +19,6 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
-(provide 'abbrevlist)
-
 (defun list-one-abbrev-table (abbrev-table output-buffer)
   "Display alphabetical listing of ABBREV-TABLE in buffer OUTPUT-BUFFER."
   (with-output-to-temp-buffer output-buffer
@@ -43,3 +41,6 @@
 	  (insert (symbol-value (car abbrev-list)))
 	  (setq first-column (+ first-column 40))
 	  (setq abbrev-list (cdr abbrev-list)))))))
+
+(provide 'abbrevlist)
+

lisp/calendar/holidays.el

@@ -33,8 +33,6 @@
 ;; pages 899-928.
 
 (require 'calendar)
-(provide 'holidays)
-
 (defun holidays ()
   "Display the holidays for last month, this month, and next month.
 This function is suitable for execution in a .emacs file."
@@ -585,3 +583,6 @@ checked.  If nil, the holiday (car (cdr (cdr X))), if there, is checked."
           (setq visible (append (list (car p)) visible)))
       (setq p (cdr p)))
     visible))
+
+(provide 'holidays)
+

lisp/case-table.el

@@ -46,7 +46,7 @@
 
 (defun invert-case (count)
   "Change the case of the character just after point and move over it.
-With arg, applies to that many chars.
+With prefix arg, applies to that many chars.
 Negative arg inverts characters before point but does not move."
   (interactive "p")
   (if (< count 0)
@@ -63,9 +63,8 @@ Negative arg inverts characters before point but does not move."
 
 (defun set-case-syntax-delims (l r table)
   "Make characters L and R a matching pair of non-case-converting delimiters.
-Sets the entries for L and R in standard-case-table,
-standard-syntax-table, and text-mode-syntax-table to indicate
-left and right delimiters."
+Sets the entries for L and R in `standard-case-table', `standard-syntax-table',
+and `text-mode-syntax-table' to indicate left and right delimiters."
   (aset (car table) l l)
   (aset (car table) r r)
   (modify-syntax-entry l (concat "(" (char-to-string r) "  ")
@@ -79,10 +78,10 @@ left and right delimiters."
 
 (defun set-case-syntax-pair (uc lc table)
   "Make characters UC and LC a pair of inter-case-converting letters.
-Sets the entries for characters UC and LC in
-standard-case-table, standard-syntax-table, and
-text-mode-syntax-table to indicate an (uppercase, lowercase)
-pair of letters."
+Sets the entries for characters UC and LC in `standard-case-table',
+`standard-syntax-table' and `text-mode-syntax-table' to indicate an
+(uppercase, lowercase) pair of letters."
+
   (aset (car table) uc lc)
   (modify-syntax-entry lc "w   " (standard-syntax-table))
   (modify-syntax-entry lc "w   " text-mode-syntax-table)
@@ -91,8 +90,8 @@ pair of letters."
 
 (defun set-case-syntax (c syntax table)
   "Make characters C case-invariant with syntax SYNTAX.
-Sets the entries for character C in standard-case-table,
-standard-syntax-table, and text-mode-syntax-table to indicate this.
+Sets the entries for character C in `standard-case-table',
+`standard-syntax-table' and `text-mode-syntax-table' to indicate this.
 SYNTAX should be \" \", \"w\", \".\" or \"_\"."
   (aset (car table) c c)
   (modify-syntax-entry c syntax (standard-syntax-table))

lisp/chistory.el

@@ -19,8 +19,6 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
-(provide 'chistory)
-
 ;; This really has nothing to do with list-command-history per se, but
 ;; its a nice alternative to C-x ESC (repeat-complex-command) and
 ;; functions as a lister if given no pattern.  It's not important
@@ -165,3 +163,6 @@ The Command History listing is recomputed each time this mode is invoked."
   (list-command-history)
   (pop-to-buffer "*Command History*")
   (run-hooks 'command-history-hook))
+
+(provide 'chistory)
+

lisp/cl.el

@@ -43,7 +43,6 @@
 ;;;; Bug reports, suggestions and comments,
 ;;;; to quiroz@cs.rochester.edu
 
-(provide 'cl)
 (defvar cl-version "2.0 beta 29 October 1989")
 
 
@@ -3135,3 +3134,5 @@ Common-Lisp codes."
   form)
 
 ;;;; end of cl.el
+
+(provide 'cl)

lisp/cmuscheme.el

@@ -84,7 +84,6 @@
 ;;;   *or* just delete the autoload declaration from scheme.el altogether,
 ;;;   which will allow the autoload in your .emacs to have its say.
 
-(provide 'cmuscheme)
 (require 'scheme)
 (require 'comint)
 
@@ -428,3 +427,5 @@ This is a good place to put keybindings.")
 ;;; 3/12/90 Olin
 ;;; - scheme-load-file and scheme-compile-file no longer switch-to-scheme.
 ;;;   Tale suggested this.
+
+(provide 'cmuscheme)

lisp/compare-w.el

@@ -17,8 +17,6 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'compare-w)
-
 (defvar compare-windows-whitespace " \t\n"
   "*String of characters considered whitespace for \\[compare-windows].
 Changes in whitespace are optionally ignored.
@@ -127,3 +125,6 @@ If `compare-ignore-case' is non-nil, changes in case are also ignored."
     (set-window-point w2 p2)
     (if (= (point) opoint1)
 	(ding))))
+
+(provide 'compare-w)
+

lisp/dabbrev.el

@@ -38,8 +38,6 @@
 ;;   (interactive)
 ;;   (&info "emacs" "dabbrevs")	; Select the specific info node.
 ;; )
-(provide 'dabbrevs)
-
 (defvar dabbrevs-limit nil
   "*Limits region searched by `dabbrevs-expand' to this many chars away.")
 (make-variable-buffer-local 'dabbrevs-limit)
@@ -256,3 +254,6 @@ with the next possible expansion not yet tried."
 		     (= (point) beg))
 		   (setq result (downcase result))))))
       result)))
+
+(provide 'dabbrevs)
+

lisp/diary-lib.el

@@ -28,8 +28,6 @@
 ;;                                   Urbana, Illinois 61801
 
 (require 'calendar)
-(provide 'diary)
-
 (defun diary (&optional arg)
   "Generate the diary window for ARG days starting with the current date.
 If no argument is provided, the number of days of diary entries is governed
@@ -2125,3 +2123,6 @@ to the date indicated by point.  Prefix arg will make the entry nonmarking."
          (or (calendar-cursor-to-date)
              (error "Cursor is not on a date!"))))))
      arg)))
+
+(provide 'diary)
+

lisp/disp-table.el

@@ -31,7 +31,7 @@
       (setq i (1+ i)))))
 
 (defun describe-display-table (DT)
-  "Describe the display-table DT in a help buffer."
+  "Describe the display table DT in a help buffer."
   (with-output-to-temp-buffer "*Help*"
     (princ "\nTruncation glyf: ")
     (prin1 (aref dt 256))
@@ -56,7 +56,7 @@
     (print-help-return-message)))
 
 (defun describe-current-display-table ()
-   "Describe the display-table in use in the selected window and buffer."
+   "Describe the display table in use in the selected window and buffer."
    (interactive)
    (describe-display-table
     (or (window-display-table (selected-window))
@@ -67,7 +67,7 @@
   (make-vector 261 nil))
 
 (defun standard-display-8bit (l h)
-  "Display characters in the range [L, H] literally."
+  "Display characters in the range L to H literally."
   (while (<= l h)
     (if (and (>= l ?\ ) (< l 127))
 	(if standard-display-table (aset standard-display-table l nil))

lisp/ehelp.el

@@ -17,8 +17,6 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 (require 'electric)
-(provide 'ehelp) 
-
 (defvar electric-help-map ()
   "Keymap defining commands available in `electric-help-mode'.")
 
@@ -305,3 +303,6 @@ will select it.)"
     (fset 'ehelp-command map)))
 
 ;; Do (define-key global-map "\C-h" 'ehelp-command) if you want to win
+
+(provide 'ehelp) 
+

lisp/electric.el

@@ -19,7 +19,7 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
-(provide 'electric)                           ; zaaaaaaap
+; zaaaaaaap
 
 ;; perhaps this should be in subr.el...
 (defun shrink-window-if-larger-than-buffer (window)
@@ -179,3 +179,5 @@
 		 (enlarge-window (- target-height (window-height win)))))
       (goto-char (point-min))
       win)))
+
+(provide 'electric)                           

lisp/emacs-lisp/backquote.el

@@ -57,8 +57,6 @@
  ;;; this or changing the syntax to ... ,(<form>).  RMS: opinion?
 
 
-(provide 'backquote)
-
 ;;; a raft of general-purpose macros follows.  See the nearest
  ;;; Commonlisp manual.
 (defmacro bq-push (v l)
@@ -353,3 +351,6 @@ for making the list so far."
 (defun bq-splicenil (form)
   (setq state 'append
 	tailmaker (list form)))
+
+(provide 'backquote)
+

lisp/emacs-lisp/float.el

@@ -46,8 +46,6 @@
 ;; June 20, 1986
 ;;
 
-(provide 'float)
-
 ;; fundamental implementation constants
 (defconst exp-base 2
   "Base of exponent in this floating point representation.")
@@ -446,3 +444,6 @@ are recognized."
 	   (funcall func exponent (aref powers-of-10 tens)))))
 		  
     _f0))				; if invalid, return 0
+
+(provide 'float)
+

lisp/emacs-lisp/helper.el

@@ -21,7 +21,7 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
-(provide 'helper)			; hey, here's a helping hand.
+; hey, here's a helping hand.
 
 ;; Bind this to a string for <blank> in "... Other keys <blank>".
 ;; Helper-help uses this to construct help string when scrolling.
@@ -147,3 +147,4 @@
 	     (ding)
 	     (setq continue nil))))))
 
+(provide 'helper)			

lisp/emacs-lisp/lisp-mode.el

@@ -17,8 +17,6 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'lisp-mode)
-
 (defvar lisp-mode-syntax-table nil "")
 (defvar emacs-lisp-mode-syntax-table nil "")
 (defvar lisp-mode-abbrev-table nil "")
@@ -613,3 +611,6 @@ means don't indent that line."
 					(progn
 					  (forward-line 1) (point))
 					nil nil state))))))
+
+(provide 'lisp-mode)
+

lisp/emulation/mlsupport.el

@@ -18,8 +18,6 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
-(provide 'mlsupport)
-
 (defmacro ml-defun (&rest defs)
   (list 'ml-defun-1 (list 'quote defs)))
 
@@ -403,3 +401,6 @@
     (if (< from 0) (setq from (+ from length)))
     (if (< to 0) (setq to (+ to length)))
     (substring string from (+ from to))))
+
+(provide 'mlsupport)
+

lisp/env.el

@@ -17,8 +17,6 @@
 ;;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'setenv)
-
 (defun setenv (variable value)
   "Set the value of the environment variable named VARIABLE to VALUE.
 VARIABLE and VALUE should both be strings.
@@ -35,3 +33,6 @@ This function works by modifying process-environment."
 	 ((null (setq scan (cdr scan)))
 	  (setq process-environment
 		(cons (concat variable "=" value) process-environment))))))))
+
+(provide 'setenv)
+

lisp/find-dired.el

@@ -46,8 +46,6 @@
 ;; in your ~/.emacs.
 
 (require 'dired)
-(provide 'find-dired)
-
 ;;;###autoload
 (defvar find-ls-option (if (eq system-type 'berkeley-unix) "-ls"
 			 "-exec ls -ldi {} \\;")
@@ -200,3 +198,5 @@ Wildcards and redirection are handle as usual in the shell."
 	(start-process name buffer shell-file-name "-c"
 		       (concat "exec " (mapconcat 'identity args " "))))))
 
+(provide 'find-dired)
+

lisp/float-sup.el

@@ -27,8 +27,6 @@
   (error "Floating point was disabled at compile time"))
 
 ;; provide an easy hook to tell if we are running with floats or not.
-(provide 'lisp-float-type)
-
 ;; define pi and e via math-lib calls. (much less prone to killer typos.)
 (defconst pi (* 4 (atan 1)) "The value of Pi (3.1415926...)")
 (defconst e (exp 1) "The value of e (2.7182818...)")
@@ -50,3 +48,6 @@
 (defmacro radians-to-degrees (x)
   "Convert ARG from radians to degrees."
   (list '* (/ 180.0 pi) x))
+
+(provide 'lisp-float-type)
+

lisp/flow-ctrl.el

@@ -80,7 +80,7 @@ and C-q characters to OS."
     (and (memstr= term losing-terminal-types) (evade-flow-control)))
   )
 
-(provide 'flow-ctrl)
-
 ;;; flow-ctrl.el ends here
 
+(provide 'flow-ctrl)
+

lisp/frame.el

@@ -1,5 +1,5 @@
 ;;;; Multi-screen management that is independent of window systems.
-;;;; Copyright (C) 1990 Free Software Foundation, Inc.
+;;;; Copyright (C) 1990, 1992 Free Software Foundation, Inc.
 
 ;;; This file is part of GNU Emacs.
 ;;;
@@ -17,8 +17,6 @@
 ;;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'screen)
-
 (defvar screen-creation-function nil
   "Window-system dependent function to call to create a new screen.
 The window system startup file should set this to its screen creation
@@ -270,3 +268,5 @@ under the X Window System."
 
 (define-key ctl-x-3-map "2" 'new-screen)
 (define-key ctl-x-3-map "0" 'delete-screen)
+
+(provide 'screen)

lisp/gnus.el

@@ -48,7 +48,6 @@
 ;; (3) Multi-GNUS (Talking to many hosts same time).
 ;; (4) Asynchronous transmission of large messages.
 
-(provide 'gnus)
 (require 'nntp)
 (require 'mail-utils)
 
@@ -6079,3 +6078,5 @@ Range of OBJ is expressed as `((beg1 . end1) (beg2 . end2) ...)."
 ;;Local variables:
 ;;eval: (put 'gnus-eval-in-buffer-window 'lisp-indent-function 1)
 ;;end:
+
+(provide 'gnus)

lisp/gnusmail.el

@@ -19,7 +19,6 @@
 ;; file named COPYING.  Among other things, the copyright notice
 ;; and this notice must be preserved on all copies.
 
-(provide 'gnusmail)
 (require 'gnus)
 
 ;; Provides mail reply and mail other window command using usual mail
@@ -146,3 +145,5 @@ The command \\[mh-yank-cur-msg] yanks the original message into current buffer."
     (mh-send-other-window to cc subject)
     (setq mh-sent-from-folder (current-buffer))
     (setq mh-sent-from-msg 1)))
+
+(provide 'gnusmail)

lisp/gnusmisc.el

@@ -20,7 +20,6 @@
 ;; file named COPYING.  Among other things, the copyright notice
 ;; and this notice must be preserved on all copies.
 
-(provide 'gnusmisc)
 (require 'gnus)
 
 ;;;
@@ -212,3 +211,5 @@ inserting it before the newsgroup on the line containging point."
     (forward-line -1)
     (search-forward ":" nil t)
     ))
+
+(provide 'gnusmisc)

lisp/gnuspost.el

@@ -20,7 +20,6 @@
 ;; file named COPYING.  Among other things, the copyright notice
 ;; and this notice must be preserved on all copies.
 
-(provide 'gnuspost)
 (require 'gnus)
 
 (defvar gnus-organization-file "/usr/lib/news/organization"
@@ -670,3 +669,5 @@ containing the organization."
 	       )))
 	  (t organization))
     ))
+
+(provide 'gnuspost)

lisp/info.el

@@ -17,8 +17,6 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'info)
-
 (defvar Info-history nil
   "List of info nodes user has visited.
 Each element of list is a list (FILENAME NODENAME BUFFERPOS).")
@@ -994,3 +992,6 @@ Interactively, if the binding is execute-extended-command, a command is read."
 	   (Info-goto-emacs-command-node command)))))
 ;;;###autoload
 (define-key help-map "\C-k" 'Info-goto-emacs-key-command-node)
+
+(provide 'info)
+

lisp/mail/mail-utils.el

@@ -18,8 +18,6 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
-(provide 'mail-utils)
-
 ;;; We require lisp-mode to make sure that lisp-mode-syntax-table has
 ;;; been initialized.
 (require 'lisp-mode)
@@ -199,3 +197,6 @@ If third arg ALL is non-nil, concatenate all such fields with commas between."
 		    "\\|"
 		    (substring labels (match-end 0))))))
   labels)
+
+(provide 'mail-utils)
+

lisp/mail/mailabbrev.el

@@ -427,6 +427,6 @@ mail-mode-syntax-table is used when the cursor is not in an address header.")
 		   t))))
   (setq mail-aliases nil)
   (build-mail-aliases file))
-  
+
 (provide 'mail-abbrevs)
 

lisp/mail/rfc822.el

@@ -18,8 +18,6 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'rfc822)
-
 ;; uses address-start free, throws to address
 (defun rfc822-bad-address (reason)
   (save-restriction
@@ -304,3 +302,5 @@
 	    (nreverse list)))
       (and buf (kill-buffer buf))))))
 
+(provide 'rfc822)
+

lisp/mail/rmail.el

@@ -24,8 +24,6 @@
 ;;   expunging by dispatch table, sticky options for file commands.
 
 (require 'mail-utils)
-(provide 'rmail)
-
 ; These variables now declared paths.el
 ;(defvar rmail-spool-directory "/usr/spool/mail/"
 ;  "This is the name of the directory used by the system mailer for\n\
@@ -1605,3 +1603,6 @@ buffer visiting that file."
   "Break up a digest message into its constituent messages.
 Leaves original message, deleted, before the undigestified messages."
   t)
+
+(provide 'rmail)
+

lisp/mail/rmailsort.el

@@ -19,7 +19,6 @@
 ;; file named COPYING.  Among other things, the copyright notice
 ;; and this notice must be preserved on all copies.
 
-(provide 'rmailsort)
 (require 'rmail)
 (require 'sort)
 
@@ -201,3 +200,5 @@ Arguments are MSG and FIELD."
   (if (<= (length year-string) 2)
       (concat "19" year-string)
     year-string))
+
+(provide 'rmailsort)

lisp/mail/rnews.el

@@ -42,8 +42,7 @@
 ;;	tower@prep Oct 29 1986
 ;; added caesar-region, rename news-caesar-buffer-body, hacked accordingly
 ;;	tower@prep Nov 21 1986
-;; added (provide 'rnews)	tower@prep 22 Apr 87
-(provide 'rnews)
+;; added tower@prep 22 Apr 87
 (require 'mail-utils)
 
 (autoload 'rmail-output "rmailout"
@@ -977,3 +976,5 @@ Mail and USENET news headers are not rotated."
       (goto-char (point-max))
       (caesar-region rotnum)
       (setq buffer-read-only buffer-status))))
+
+(provide 'rnews)	(provide 'rnews)

lisp/mail/sendmail.el

@@ -18,8 +18,6 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
-(provide 'sendmail)
-
 ;;;###autoload
 (defconst mail-self-blind nil "\
 Non-nil means insert BCC to self in messages to be sent.
@@ -660,3 +658,6 @@ The seventh argument ACTIONS is a list of actions to take
 
 
 ;;; Do not add anything but external entries on this page.
+
+(provide 'sendmail)
+

lisp/mhspool.el

@@ -20,7 +20,6 @@
 ;; file named COPYING.  Among other things, the copyright notice
 ;; and this notice must be preserved on all copies.
 
-(provide 'mhspool)
 (require 'nntp)
 
 ;; This package enables you to read mail or articles in MH folders, or
@@ -402,3 +401,5 @@ If the stream is opened, return T, otherwise return NIL."
       (setq idx (1+ idx)))
     string
     ))
+
+(provide 'mhspool)

lisp/mim-mode.el

@@ -19,8 +19,6 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
-(provide 'mim-mode)
-
 (autoload 'fast-syntax-check-mim "mim-syntax"
 	  "Checks Mim syntax quickly.
 Answers correct or incorrect, cannot point out the error context."
@@ -839,3 +837,6 @@ You need type only enough of the name to be unambiguous."
 (defun next-char (direction)
   "Returns preceding-char if DIRECTION < 0, otherwise following-char."
   (if (>= direction 0) (following-char) (preceding-char)))
+
+(provide 'mim-mode)
+

lisp/mouse.el

@@ -17,8 +17,6 @@
 ;;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'mouse)
-
 
 ;;; Utility functions.
 
@@ -454,3 +452,6 @@ This does not delete the region; it acts like \\[kill-ring-save]."
 (global-set-key   [mouse-1]	'mouse-set-point)
 (global-set-key [S-mouse-1]	'mouse-set-mark)
 (global-set-key   [mouse-3]	'mouse-delete-other-windows)
+
+(provide 'mouse)
+

lisp/nnspool.el

@@ -20,7 +20,6 @@
 ;; file named COPYING.  Among other things, the copyright notice
 ;; and this notice must be preserved on all copies.
 
-(provide 'nnspool)
 (require 'nntp)
 
 (defvar nnspool-inews-program news-inews-program
@@ -372,3 +371,5 @@ If the stream is opened, return T, otherwise return NIL."
       (setq idx (1+ idx)))
     string
     ))
+
+(provide 'nnspool)

lisp/nntp.el

@@ -42,8 +42,6 @@
 ;;  system, please send me the diffs. I'll include some of them in the
 ;;  future releases.
 
-(provide 'nntp)
-
 (defvar nntp-server-hook nil
   "*Hooks for the NNTP server.
 If the kanji code of the NNTP server is different from the local kanji
@@ -665,3 +663,6 @@ defining this function as macro."
 	      (signal (car errorcode) (cdr errorcode))))
        ))
     ))
+
+(provide 'nntp)
+

lisp/play/gomoku.el

@@ -23,9 +23,6 @@
 ;;; with precious advices from J.-F. Rit.
 ;;; This has been tested with GNU Emacs 18.50.
 
-(provide 'gomoku)
-
-
 ;; RULES:
 ;;
 ;; Gomoku is a game played between two players on a rectangular board.	Each
@@ -1158,4 +1155,6 @@ If the game is finished, this command requests for another game."
   (gomoku-move-down)
   (gomoku-move-left))
 
+(provide 'gomoku)
+
 

lisp/play/life.el

@@ -18,8 +18,6 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'life)
-
 (defconst life-patterns
   [("@@@" " @@" "@@@")
    ("@@@ @@@" "@@  @@ " "@@@ @@@")
@@ -272,3 +270,6 @@ generations (this defaults to 1)."
 
 (put 'life-extinct 'error-conditions '(life-extinct quit))
 (put 'life-extinct 'error-message "All life has perished")
+
+(provide 'life)
+

lisp/play/yow.el

@@ -16,8 +16,6 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'yow)
-
 ; Randomize the seed in the random number generator.
 (random t)
 
@@ -86,3 +84,5 @@
     (doctor-ret-or-read 1)
     (doctor-ret-or-read 1)))
 
+(provide 'yow)
+

lisp/progmodes/etags.el

@@ -18,8 +18,6 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
-(provide 'etags)
-
 ;;;###autoload
 (defvar tags-file-name nil "\
 *File name of tag table.
@@ -354,3 +352,6 @@ unless it has one in the tag table."
        (forward-line 1)))))
 
 ;; etags.el ends here
+
+(provide 'etags)
+

lisp/progmodes/fortran.el

@@ -89,8 +89,6 @@
 
 ;;; Bugs to bug-fortran-mode@erl.mit.edu
 
-(provide 'fortran)
-
 ;;;###autoload
 (defvar fortran-tab-mode-default nil
   "*Default tabbing/carriage control style for empty files in fortran mode.
@@ -995,3 +993,5 @@ character format style."
 			    '(fortran-tab-mode-string fortran-tab-mode-string)
 			    minor-mode-alist)))
 
+(provide 'fortran)
+

lisp/progmodes/inf-lisp.el

@@ -48,8 +48,6 @@
 ;;; text to the process? Switch selectable?
 
 (require 'comint)
-(provide 'cmulisp)
-
 ;; YOUR .EMACS FILE
 ;;=============================================================================
 ;; Some suggestions for your .emacs file.
@@ -599,3 +597,6 @@ This is a good place to put keybindings.")
 ;;; 3/12/90 Olin
 ;;; - lisp-load-file and lisp-compile-file no longer switch-to-lisp.
 ;;;   Tale suggested this.
+
+(provide 'cmulisp)
+

lisp/progmodes/scheme.el

@@ -25,7 +25,6 @@
 
 ;;; $Header: scheme.el,v 1.7 88/07/15 20:20:00 GMT cph Exp $
 
-(provide 'scheme)
 
 (defvar scheme-mode-syntax-table nil "")
 (if (not scheme-mode-syntax-table)
@@ -498,3 +497,5 @@ of the start of the containing expression."
 	    (if (/= (current-column) this-indent)
 		(progn (delete-region bol (point))
 		       (indent-to this-indent)))))))))
+
+(provide 'scheme)

lisp/sort.el

@@ -17,8 +17,6 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'sort)
-
 ;; Original version of most of this contributed by Howie Kaye
 
 (defun sort-subr (reverse nextrecfun endrecfun &optional startkeyfun endkeyfun)
@@ -444,3 +442,6 @@ From a program takes two point or marker arguments, BEG and END."
 	(insert (car ll) "\n")
 	(setq ll (cdr ll)))
       (insert (car ll)))))
+
+(provide 'sort)
+

lisp/sun-curs.el

@@ -23,8 +23,6 @@
 ;;;
 ;;; 9-dec-86 Jeff Peck, Sun Microsystems Inc. <peck@sun.com>
 
-(provide 'sm-cursors)
-
 (defvar sc::cursors nil "List of known cursors")
 
 (defmacro defcursor (name x y string)
@@ -205,3 +203,5 @@ Otherwise, ICON should be a vector or the name of a vector of [x y 32-chars]"
     (setq char (1+ (lsh char 1))))
   (if (not (eolp))(forward-char)))
 
+(provide 'sm-cursors)
+

lisp/sun-fns.el

@@ -24,7 +24,6 @@
 ;;; GoodIdeas Feb. 1987, Steve Greenbaum
 ;;; & UpClicks           Reasoning Systems, Inc.
 ;;;
-(provide 'sun-fns)
 (require 'sun-mouse)
 ;;;
 ;;; Functions for manipulating via the mouse and mouse-map definitions
@@ -628,3 +627,4 @@ To unmark a buffer marked for deletion, select it with LEFT."
 (global-set-mouse '(minibuffer shift  control meta right)  'mouse-help-region)
 (global-set-mouse '(minibuffer double control meta right)  'mouse-help-region)
 
+(provide 'sun-fns)

lisp/superyank.el

@@ -88,8 +88,6 @@
 ;; require and provide features
 ;;
 (require 'sendmail)
-(provide 'superyank)
-
 ;;
 ;; ======================================================================
 ;;
@@ -1210,3 +1208,5 @@ inserts that many newlines."
 	(forward-line 1)
 	(setq arg (- arg 1))))))
 
+(provide 'superyank)
+

lisp/tar-mode.el

@@ -66,9 +66,6 @@
 ;;;    know how to print an arbitrary date, and I don't really want to have to
 ;;;    implement decode-universal-time.
 ;;;
-;;; o  There's code to update the datestamp of edited subfiles, but we set it
-;;;    to zero because I don't know how to get the current time as an integer.
-;;;
 ;;; o  The code is less efficient that it could be - in a lot of places, I
 ;;;    pull a 512-character string out of the buffer and parse it, when I could
 ;;;    be parsing it in place, not garbaging a string.  Should redo that.
@@ -108,11 +105,7 @@ tar file will update its datestamp.  If false, the datestamp is unchanged.
 You may or may not want this - it is good in that you can tell when a file
 in a tar archive has been changed, but it is bad for the same reason that
 editing a file in the tar archive at all is bad - the changed version of 
-the file never exists on disk.
-
-## This doesn't work yet because there's no way to get the current time as
-## an integer - if this var is true, then editing a file sets its date to
-## December 31, 1969 (which happens to be what 0 encodes).")
+the file never exists on disk.")
 
 
 
@@ -978,7 +971,7 @@ to make your changes permanent."
 		  nil
 		(goto-char (+ header-start tar-time-offset))
 		(delete-region (point) (+ (point) 12))
-		(insert (format "%11o" 0))  ; ## oops - how to get it??
+		(insert (format "%11o" (current-time)))
 		(insert ? ))
 	      ;;
 	      ;; compute a new checksum and insert it.

lisp/telnet.el

@@ -27,8 +27,6 @@
 ;; manner
 
 (require 'comint)
-(provide 'telnet)
-
 (defvar telnet-new-line "\r")
 (defvar telnet-mode-map nil)
 (defvar telnet-prompt-pattern "^[^#$%>]*[#$%>] *")
@@ -179,3 +177,6 @@ Bugs:
 	     (setq quit-flag nil))
       (setq answ (concat answ (char-to-string tem))))
     answ))
+
+(provide 'telnet)
+

lisp/term/bg-mouse.el

@@ -22,8 +22,6 @@
 ;;;  Original version by John Robinson (jr@bbn-unix.arpa, bbncca!jr), Oct 1985
 ;;;  Modularized and enhanced by gildea@bbn.com Nov 1987
 
-(provide 'bg-mouse)
-
 ;;;  User customization option:
 
 (defvar bg-mouse-fast-select-window nil
@@ -302,3 +300,5 @@ X and Y are 0-based character positions on the screen."
 (bind-bg-mouse-click (+ bg-in-minibuf bg-button-m) 'suspend-emacs)
 (bind-bg-mouse-click (+ bg-in-minibuf bg-button-r) 'eval-expression)
 
+(provide 'bg-mouse)
+

lisp/term/sun-mouse.el

@@ -20,8 +20,6 @@
 ;;; Jeff Peck, Sun Microsystems, Jan 1987.
 ;;; Original idea by Stan Jefferson
 
-(provide 'sun-mouse)
-
 ;;;
 ;;;     Modelled after the GNUEMACS keymap interface.
 ;;;
@@ -666,3 +664,6 @@ just close the window, and wait for reopening."
 (make-variable-buffer-local 'current-local-mousemap)
 (setq-default current-local-mousemap nil)
 (defvar current-global-mousemap (make-mousemap))
+
+(provide 'sun-mouse)
+

lisp/terminal.el

@@ -26,7 +26,6 @@
 ;;>> One probably wants to do setenv MORE -c when running with
 ;;>>   more-processing enabled.
 
-(provide 'terminal)
 (require 'ehelp)
 
 (defvar terminal-escape-char ?\C-^
@@ -1228,3 +1227,5 @@ of the terminal-emulator"
 					     (1+ end)))
 		   start (1+ end)))
 	   (concat "\"" harder "\"")))))
+
+(provide 'terminal)

lisp/textmodes/bib-mode.el

@@ -24,8 +24,6 @@
 ;;   bibliography file.  Keys are automagically inserted as you type,
 ;;   and appropriate keys are presented for various kinds of entries.
 
-(provide 'bib-mode)
-
 (defvar bib-file "~/my-bibliography.bib" 
    "Default name of file used by `addbib'.")
 
@@ -231,3 +229,6 @@ in the title).")
       (insert s)
       (capitalize-title-region (point-min) (point-max))
       (buffer-string)))
+
+(provide 'bib-mode)
+

lisp/textmodes/bibtex.el

@@ -69,7 +69,7 @@
 ;;; Bengt Martensson, March 6
 ;;;   Adapted to Bibtex 0.99 by updating the optional fields according
 ;;;   to the document BibTeXing, Oren Patashnik, dated January 31, 1988.
-;;;   Updated documentation strings accordingly.  Added (provide 'bibtex).
+;;;   Updated documentation strings accordingly.  Added .
 ;;;   If bibtex-include-OPT-crossref is non-nil, every entry will have
 ;;;   an OPTcrossref field, analogously for bibtex-include-OPTkey and
 ;;;   bibtex-include-OPTannote.  Added bibtex-preamble, bound to ^C^EP,
@@ -139,8 +139,6 @@
 ;;; Trouble is, in Emacs 18.44 you can't have a mode-specific mouse binding,
 ;;; so it will remain active in all windows.  Yuck!
 
-(provide 'bibtex)
-
 (defvar bibtex-mode-syntax-table nil "")
 (defvar bibtex-mode-abbrev-table nil "")
 (define-abbrev-table 'bibtex-mode-abbrev-table ())
@@ -1101,3 +1099,6 @@ an undefined location.
 ))  ; matches (if...
 
 ;;; ------------- end bibtex-mode.el -------------------------------
+
+(provide 'bibtex)(provide 'bibtex)
+

lisp/textmodes/picture.el

@@ -19,8 +19,6 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
-(provide 'picture)
-
 (defun move-to-column-force (column)
   "Move to column COLUMN in current line.
 Differs from `move-to-column' in that it creates or modifies whitespace
@@ -558,3 +556,6 @@ With no argument strips whitespace from end of every line in Picture buffer
    (goto-char (point-min))
    (while (re-search-forward "[ \t][ \t]*$" nil t)
      (delete-region (match-beginning 0) (point)))))
+
+(provide 'picture)
+

lisp/textmodes/refbib.el

@@ -44,7 +44,6 @@
 ; modified 3/1/89,  fixed capitialize-title for first words all caps
 ; modified 3/15/89, allow use of " to delimit fields
 ; modified 4/18/89, properly "quote" special characters on output
-(provide 'refer-to-bibtex)
 ;**********************************************************
 ; User Parameters
 
@@ -708,3 +707,5 @@ To see this message again, perform
    (r2b-help))
 
 (message "r2b loaded")
+
+(provide 'refer-to-bibtex)

lisp/textmodes/tex-mode.el

@@ -33,8 +33,6 @@
 ;;  The code for finding matching $ needs to be fixed.
 
 (require 'oshell)
-(provide 'tex-mode)
-
 (defvar tex-directory "./"
   "*Directory in which to run TeX subjob.  Temporary files are created here.")
 
@@ -803,3 +801,5 @@ Runs the shell command defined by tex-show-queue-command."
 		 (concat tex-bibtex-command " \"" tex-out-file "\"\n")))
   (tex-recenter-output-buffer 0))
 
+(provide 'tex-mode)
+

lisp/textmodes/texinfo.el

@@ -23,8 +23,6 @@
 
 (require 'texnfo-upd)
 (require 'tex-mode)
-(provide 'texinfo)
-
 (defvar texinfo-mode-syntax-table nil)
 
 (if texinfo-mode-syntax-table
@@ -413,3 +411,5 @@ Runs the shell command defined by tex-dvi-print-command."
                        " " tex-zap-file ".dvi" "\n"))
   (tex-recenter-output-buffer nil))
 
+(provide 'texinfo)
+

lisp/textmodes/texnfo-upd.el

@@ -21,8 +21,6 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'texnfo-upd)
-
 
 ;;;; Summary
 
@@ -1724,3 +1722,6 @@ chapter."
   (message "Multiple files updated."))
 
 ;;;;;;;;;;;;;;;; end texnfo-upd.el ;;;;;;;;;;;;;;;;
+
+(provide 'texnfo-upd)
+

lisp/timer.el

@@ -25,6 +25,7 @@
   ;; rescheduling or people who otherwise expect to use the process frequently
   "If non-nil, don't exit the timer process when no more events are pending.")
 
+;;;###autoload
 (defun run-at-time (time repeat function &rest args)
   "Run a function at a time, and optionally on a regular interval.
 Arguments are TIME, REPEAT, FUNCTION &rest ARGS.

lisp/view.el

@@ -19,8 +19,6 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
-(provide 'view)
-
 (defvar view-mode-map nil)
 (if view-mode-map
     nil
@@ -438,3 +436,6 @@ invocations return to earlier marks."
 
 ;;;###autoload
 (define-key ctl-x-4-map "v" 'view-file-other-window)
+
+(provide 'view)
+