Mercurial > emacs
comparison lisp/net/eudc.el @ 42575:24c994803548
(top-level): Revert previous change.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Sun, 06 Jan 2002 16:38:33 +0000 |
| parents | df3f717a3933 |
| children | cd8db5bd4819 |
comparison
equal
deleted
inserted
replaced
| 42574:fcac9cd201ad | 42575:24c994803548 |
|---|---|
| 2 | 2 |
| 3 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: Oscar Figueiredo <oscar@xemacs.org> | 5 ;; Author: Oscar Figueiredo <oscar@xemacs.org> |
| 6 ;; Maintainer: Oscar Figueiredo <oscar@xemacs.org> | 6 ;; Maintainer: Oscar Figueiredo <oscar@xemacs.org> |
| 7 ;; Keywords: help | 7 ;; Keywords: comm |
| 8 | 8 |
| 9 ;; This file is part of GNU Emacs. | 9 ;; This file is part of GNU Emacs. |
| 10 | 10 |
| 11 ;; GNU Emacs is free software; you can redistribute it and/or modify | 11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 12 ;; it under the terms of the GNU General Public License as published by | 12 ;; it under the terms of the GNU General Public License as published by |
| 620 (eudc-distribute-field-on-records field result))))))) | 620 (eudc-distribute-field-on-records field result))))))) |
| 621 duplicates) | 621 duplicates) |
| 622 result))) | 622 result))) |
| 623 | 623 |
| 624 (defun eudc-filter-partial-records (records attrs) | 624 (defun eudc-filter-partial-records (records attrs) |
| 625 "Eliminate records that do not caontain all ATTRS from RECORDS." | 625 "Eliminate records that do not contain all ATTRS from RECORDS." |
| 626 (delq nil | 626 (delq nil |
| 627 (mapcar | 627 (mapcar |
| 628 (function | 628 (function |
| 629 (lambda (rec) | 629 (lambda (rec) |
| 630 (if (eval (cons 'and | 630 (if (eval (cons 'and |
| 1238 This does nothing except loading eudc by autoload side-effect." | 1238 This does nothing except loading eudc by autoload side-effect." |
| 1239 (interactive) | 1239 (interactive) |
| 1240 nil) | 1240 nil) |
| 1241 | 1241 |
| 1242 ;;;###autoload | 1242 ;;;###autoload |
| 1243 (cond ((not eudc-xemacs-p) | 1243 (cond ((not (string-match "XEmacs" emacs-version)) |
| 1244 (defvar eudc-tools-menu (make-sparse-keymap "Directory Search")) | 1244 (defvar eudc-tools-menu (make-sparse-keymap "Directory Search")) |
| 1245 (fset 'eudc-tools-menu (symbol-value 'eudc-tools-menu)) | 1245 (fset 'eudc-tools-menu (symbol-value 'eudc-tools-menu)) |
| 1246 (define-key eudc-tools-menu [phone] | 1246 (define-key eudc-tools-menu [phone] |
| 1247 '("Get Phone" . eudc-get-phone)) | 1247 '("Get Phone" . eudc-get-phone)) |
| 1248 (define-key eudc-tools-menu [email] | 1248 (define-key eudc-tools-menu [email] |