*** empty log message ***

5 files changed, 27 insertions, 21 deletions

diff --git a/lisp/mail/rfc822.el b/lisp/mail/rfc822.el
index b6550005f0..9c741dde0b 100644
--- a/lisp/mail/rfc822.el
+++ b/lisp/mail/rfc822.el
@@ -4,13 +4,13 @@
 ;; Maintainer: FSF
 ;; Last-Modified: 26 Nov 1990
 
-;; Copyright (C) 1986-1990 Free Software Foundation, Inc.
+;; Copyright (C) 1986, 87, 1990 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/mh-e.el b/lisp/mh-e.el
index b5f741219d..3151de7b6f 100644
--- a/lisp/mh-e.el
+++ b/lisp/mh-e.el
@@ -7,7 +7,7 @@
 (defvar mh-e-RCS-id)
 (setq mh-e-RCS-id "$Header: /var/home/larus/lib/emacs/RCS/mh-e.el,v 3.1 90/09/28 15:47:58 larus Exp Locker: larus $")
 
-;;;  Copyright (C) 1985-89 Free Software Foundation
+;;;  Copyright (C) 1985, 86, 87, 88, 89, 92 Free Software Foundation
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
 ;; but without any warranty.  No author or distributor
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index a1596617ee..f3643de008 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1,28 +1,28 @@
 ;;; compile.el --- run compiler as inferior of Emacs, parse error messages.
 
+;; Author: Roland McGrath <[email protected]>
 ;; Maintainer: FSF
 ;; Last-Modified: 05 Jul 1992
 
 ;;;!!! dup removal is broken.
 
-;; Copyright (C) 1985-1991 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 86, 87, 92 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
 ;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY.  No author or distributor
-;; accepts responsibility to anyone for the consequences of using it
-;; or for whether it serves any particular purpose or works at all,
-;; unless he says so in writing.  Refer to the GNU Emacs General Public
-;; License for full details.
-
-;; Everyone is granted permission to copy, modify and redistribute
-;; GNU Emacs, but only under the conditions described in the
-;; GNU Emacs General Public License.   A copy of this license is
-;; supposed to have been given to you along with GNU Emacs so you
-;; can know your rights and responsibilities.  It should be in a
-;; file named COPYING.  Among other things, the copyright notice
-;; and this notice must be preserved on all copies.
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 ;;; Code:
 
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 174a185571..485ce39320 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -477,6 +477,7 @@ See documentation of variable `tags-file-name'."
   (switch-to-buffer-other-window (find-tag-noselect tagname next-p)))
 ;;;###autoload (define-key ctl-x-4-map "." 'find-tag-other-window)
 
+;;;###autoload
 (defun find-tag-other-frame (tagname &optional next-p)
   "Find tag (in current tag table) whose name contains TAGNAME.
  Selects the buffer that the tag is contained in in another frame
@@ -920,8 +921,12 @@ with the command \\[tags-loop-continue].
 See documentation of variable `tags-file-name'."
   (interactive
    "sTags query replace (regexp): \nsTags query replace %s by: \nP")
-  (setq tags-loop-scan (list 'prog1 (list 're-search-forward from nil t)
-			     '(goto-char (point-min))) ;??? XXX
+  (setq tags-loop-scan (list 'prog1
+			     (list 'if (list 're-search-forward form nil t)
+				   ;; When we find a match, move back
+				   ;; to the beginning of it so perform-replace
+				   ;; will see it.
+				   '(goto-char (match-beginning 0))))
 	tags-loop-operate (list 'perform-replace from to t t delimited))
   (tags-loop-continue t))
 
@@ -961,6 +966,7 @@ unless it has one in the tags table."
 ;;; XXX Kludge interface.
 
 ;; XXX If a file is in multiple tables, selection may get the wrong one.
+;;;###autoload
 (defun select-tags-table ()
   "Select a tags table file from a menu of those you have already used.
 The list of tags tables to select from is stored in `tags-table-file-list';
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index 09678f0d8b..1936f71186 100644
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -3,13 +3,13 @@
 ;; Maintainer: FSF
 ;; Last-Modified: 13 May 1991
 
-;; Copyright (C) 1985-1991 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 86, 87, 1991 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,