# HG changeset patch
# User Pavel Jan���k <Pavel@Janik.cz>
# Date 1010335113 0
# Node ID 24c9948035483d15280f0dfa1ae827096033ad2f
# Parent  fcac9cd201ad906dbb51f728a8c13dcb35c520e3
(top-level): Revert previous change.

diff -r fcac9cd201ad -r 24c994803548 lisp/net/eudc.el
--- a/lisp/net/eudc.el	Sun Jan 06 16:37:36 2002 +0000
+++ b/lisp/net/eudc.el	Sun Jan 06 16:38:33 2002 +0000
@@ -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 @@
       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 @@
   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]