From: Pavel Janík <Pavel@Janik.cz>
Date: Sun, 6 Jan 2002 16:41:07 +0000 (+0000)
Subject: (top-level): Revert previous change.
X-Git-Tag: ttn-vms-21-2-B4~17282
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ff41c6f670bbfcf71e3c89ee8ef64bda04f29de9;p=emacs.git

(top-level): Revert previous change.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7742823155e..e40d0303778 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2002-01-06  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
+	* net/eudc.el (top-level): Revert previous change.
+
 	* net/net-utils.el (nslookup-font-lock-keywords): Defvar font-lock
 	variables to prevent warning from byte-compiler.
 
@@ -5776,7 +5778,7 @@
 	* textmodes/reftex-ref.el, textmodes/reftex-sel.el,
 	* textmodes/reftex-toc.el, textmodes/reftex-vars.el,
 	* textmodes/reftex.el: Some fixes to follow coding
-	conventions in Eshell files with known maintainers.
+	conventions in Elisp files with known maintainers.
 
 	* emulation/viper.el: A fix to follow coding conventions.
 
@@ -5790,7 +5792,7 @@
 	* eshell/esh-mode.el, eshell/esh-module.el, eshell/esh-opt.el,
 	* eshell/esh-proc.el, eshell/esh-test.el, eshell/esh-util.el,
 	* eshell/esh-var.el, eshell/eshell.el: Some fixes to follow coding
-	conventions in Eshell files.
+	conventions in Elisp files.
 
 	* composite.el, diff.el, emacs-lisp/levents.el,
 	* emacs-lisp/lmenu.el, emacs-lisp/lselect.el, emacs-lisp/lucid.el,
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index 78076e5ee5f..ba46daad44d 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -4,7 +4,7 @@
 
 ;; Author: Oscar Figueiredo <oscar@xemacs.org>
 ;; Maintainer: Oscar Figueiredo <oscar@xemacs.org>
-;; Keywords: help
+;; Keywords: comm
 
 ;; This file is part of GNU Emacs.
 
@@ -622,7 +622,7 @@ otherwise they are formatted according to `eudc-user-attribute-names-alist'."
       result)))
 
 (defun eudc-filter-partial-records (records attrs)
-  "Eliminate records that do not caontain all ATTRS from RECORDS."
+  "Eliminate records that do not contain all ATTRS from RECORDS."
   (delq nil
 	(mapcar
 	 (function
@@ -1240,7 +1240,7 @@ This does nothing except loading eudc by autoload side-effect."
   nil)
 
 ;;;###autoload
-(cond ((not eudc-xemacs-p)
+(cond ((not (string-match "XEmacs" emacs-version))
        (defvar eudc-tools-menu (make-sparse-keymap "Directory Search"))
        (fset 'eudc-tools-menu (symbol-value 'eudc-tools-menu))
        (define-key eudc-tools-menu [phone]