diff options
| author | Pavel Janík <Pavel@Janik.cz> | 2002-01-06 16:41:07 +0000 |
|---|---|---|
| committer | Pavel Janík <Pavel@Janik.cz> | 2002-01-06 16:41:07 +0000 |
| commit | ff41c6f670bbfcf71e3c89ee8ef64bda04f29de9 (patch) | |
| tree | 1d21054c524cbc307e7ffabcacdf59e197786893 /lisp/net/eudc.el | |
| parent | ab6511276ea156d3a47455e443edab49f8279c83 (diff) | |
| download | emacs-ff41c6f670bbfcf71e3c89ee8ef64bda04f29de9.tar.gz emacs-ff41c6f670bbfcf71e3c89ee8ef64bda04f29de9.tar.bz2 emacs-ff41c6f670bbfcf71e3c89ee8ef64bda04f29de9.zip | |
(top-level): Revert previous change.
Diffstat (limited to 'lisp/net/eudc.el')
| -rw-r--r-- | lisp/net/eudc.el | 6 |
1 files changed, 3 insertions, 3 deletions
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] |