--- a/lisp/ChangeLog	Sun Jun 06 21:50:31 2004 +0000
+++ b/lisp/ChangeLog	Sun Jun 06 23:58:46 2004 +0000
@@ -1,3 +1,16 @@
+2004-06-07  Adrian Aichner  <adrian@xemacs.org>
+
+	* mule/ethio-util.el (ethio-sera-to-fidel-region): Phrase
+	duplication typo fixes for typos found by
+	xemacs-builds/adrian/typology/phrase-duplication-typo.pl.
+	* mule/mule-charset.el (make-translation-table): Ditto.
+
+2004-06-07  Adrian Aichner  <adrian@xemacs.org>
+
+	* files.el (basic-save-buffer): Ditto.
+	* lisp-mode.el (eval-interactive-verbose): Ditto.
+	* newcomment.el (uncomment-region): Ditto.
+
 2003-12-03  Adrian Aichner  <adrian@xemacs.org>
 
 	* files.el (delete-old-versions): Avoid going interactive during

--- a/lisp/files.el	Sun Jun 06 21:50:31 2004 +0000
+++ b/lisp/files.el	Sun Jun 06 23:58:46 2004 +0000
@@ -2806,7 +2806,7 @@
   "Save the current buffer in its visited file, if it has been modified.
 The hooks `write-contents-hooks', `local-write-file-hooks' and
 `write-file-hooks' get a chance to do the job of saving; if they do not,
-then the buffer is saved in the visited file file in the usual way.
+then the buffer is saved in the visited file in the usual way.
 After saving the buffer, this function runs `after-save-hook'."
   (interactive)
   (save-current-buffer

--- a/lisp/lisp-mode.el	Sun Jun 06 21:50:31 2004 +0000
+++ b/lisp/lisp-mode.el	Sun Jun 06 23:58:46 2004 +0000
@@ -428,8 +428,8 @@
 (defcustom eval-interactive-verbose t
   "*Non-nil means that interactive evaluation can print messages.
 The messages are printed when the expression is treated differently
-using `\\[eval-last-sexp]' and `\\[eval-defun]' than it than it would have been
-treated noninteractively.
+using `\\[eval-last-sexp]' and `\\[eval-defun]' than it would have
+been treated noninteractively.
 
 The printed messages are \"defvar treated as defconst\" and \"defcustom
  evaluation forced\".  See `eval-interactive' for more details."

--- a/lisp/mule/ethio-util.el	Sun Jun 06 21:50:31 2004 +0000
+++ b/lisp/mule/ethio-util.el	Sun Jun 06 23:58:46 2004 +0000
@@ -431,7 +431,7 @@
 and `ethio-secondary-language' specifies the secondary.
 
 If the 3rd parameter SECONDARY is given and non-nil, assume the region
-begins begins with the secondary language; otherwise with the primary
+begins with the secondary language; otherwise with the primary
 language.
 
 If the 4th parameter FORCE is given and non-nil, perform conversion

--- a/lisp/mule/mule-charset.el	Sun Jun 06 21:50:31 2004 +0000
+++ b/lisp/mule/mule-charset.el	Sun Jun 06 23:58:46 2004 +0000
@@ -167,8 +167,8 @@
 
 (defun make-translation-table (&rest args)
   "Make a translation table from arguments.
-A translation table is a char table intended for for character
-translation in CCL programs.
+A translation table is a char table intended for character translation
+in CCL programs.
 
 Each argument is a list of elemnts of the form (FROM . TO), where FROM
 is a character to be translated to TO.

--- a/lisp/newcomment.el	Sun Jun 06 21:50:31 2004 +0000
+++ b/lisp/newcomment.el	Sun Jun 06 23:58:46 2004 +0000
@@ -5,7 +5,7 @@
 ;; Author: code extracted from Emacs-20's simple.el
 ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: comment uncomment
-;; Revision: $Id: newcomment.el,v 1.1 2003/03/02 09:38:40 ben Exp $
+;; Revision: $Id: newcomment.el,v 1.2 2004/06/06 23:58:44 adrian Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -714,7 +714,7 @@
 			 (forward-line 1)
 			 (re-search-forward sre (line-end-position) t))
 		  (replace-match "" t t nil (if (match-end 2) 2 1)))))
-	    ;; Go the the end for the next comment.
+	    ;; Go to the end for the next comment.
 	    (goto-char (point-max)))))
       (set-marker end nil))))
 

--- a/lisp/term/tvi970.el	Sun Jun 06 21:50:31 2004 +0000
+++ b/lisp/term/tvi970.el	Sun Jun 06 23:58:46 2004 +0000
@@ -44,7 +44,7 @@
 	  ;; ("\eOR"	[kp-f3])
 	  ;; ("\eOS"	[kp-f4])
 
-	  ;; These might br set by terminfo
+	  ;; These might be set by terminfo
 	  ("\e[H"	[home])
 	  ("\e[Z"	[backtab])
 	  ("\e[i"	[print])
@@ -59,7 +59,7 @@
 	  ("\eOn"	[kp-decimal])
 	  ("\eOM"	[kp-enter])
 
-	  ;; These won't be set up by either either
+	  ;; These won't be set up by either
 	  ("\e[K"	[key-eol])	;; Not an X keysym
 	  ("\e[J"	[key-eos])	;; Not an X keysym
 	  ("\e[2J"	[key-clear])	;; Not an X keysym

--- a/src/ChangeLog	Sun Jun 06 21:50:31 2004 +0000
+++ b/src/ChangeLog	Sun Jun 06 23:58:46 2004 +0000
@@ -1,3 +1,9 @@
+2004-06-07  Adrian Aichner  <adrian@xemacs.org>
+
+	* device-x.c (x_IO_error_handler): Phrase duplication typo fixes
+	for typos found by
+	xemacs-builds/adrian/typology/phrase-duplication-typo.pl.
+
 2004-06-06  Ilya N. Golubev  <gin@mo.msk.ru>
 
 	* extw-Xt.c (_XT_WAIT_FOR_SOMETHING): Fix: complete macro

--- a/src/device-x.c	Sun Jun 06 21:50:31 2004 +0000
+++ b/src/device-x.c	Sun Jun 06 23:58:46 2004 +0000
@@ -1184,7 +1184,7 @@
       warn_when_safe
 	(Qx, Qcritical,
 	 "I/O Error %d (%s) on display connection\n"
-	 "  \"%s\" after after %lu requests (%lu known processed)\n"
+	 "  \"%s\" after %lu requests (%lu known processed)\n"
 	 "  with %d events remaining.\n"
 	 "  Throwing to top level.\n",
 	 errno, errmess, DisplayString (disp),