*** empty log message ***

lisp/abbrevlist.el

 ;; 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)                           
\ No newline at end of file

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)			
\ No newline at end of file

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

 ;;;; 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)