[Emacs-diffs] Changes to emacs/lisp/net/eudc.el

[Pavel Janík]

Index: emacs/lisp/net/eudc.el
diff -c emacs/lisp/net/eudc.el:1.4 emacs/lisp/net/eudc.el:1.5
*** emacs/lisp/net/eudc.el:1.4  Sun Jan  6 10:06:14 2002
--- emacs/lisp/net/eudc.el      Sun Jan  6 11:38:33 2002
***************
*** 4,10 ****
  
  ;; Author: Oscar Figueiredo <address@hidden>
  ;; Maintainer: Oscar Figueiredo <address@hidden>
! ;; Keywords: help
  
  ;; This file is part of GNU Emacs.
  
--- 4,10 ----
  
  ;; Author: Oscar Figueiredo <address@hidden>
  ;; Maintainer: Oscar Figueiredo <address@hidden>
! ;; Keywords: comm
  
  ;; This file is part of GNU Emacs.
  
***************
*** 622,628 ****
        result)))
  
  (defun eudc-filter-partial-records (records attrs)
!   "Eliminate records that do not caontain all ATTRS from RECORDS."
    (delq nil
        (mapcar
         (function
--- 622,628 ----
        result)))
  
  (defun eudc-filter-partial-records (records attrs)
!   "Eliminate records that do not contain all ATTRS from RECORDS."
    (delq nil
        (mapcar
         (function
***************
*** 1240,1246 ****
    nil)
  
  ;;;###autoload
! (cond ((not eudc-xemacs-p)
         (defvar eudc-tools-menu (make-sparse-keymap "Directory Search"))
         (fset 'eudc-tools-menu (symbol-value 'eudc-tools-menu))
         (define-key eudc-tools-menu [phone]
--- 1240,1246 ----
    nil)
  
  ;;;###autoload
! (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]