Mercurial > emacs

comparison lisp/net/eudc.el @ 105074:45b5d5aae703

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix typos in condition-case handlers.
author Glenn Morris <rgm@gnu.org>
date Fri, 18 Sep 2009 07:07:33 +0000
parents a9dc0e7c3f2b
children bd2966850aac
comparison
equal deleted inserted replaced
105073:3d8175dd6918 105074:45b5d5aae703
1 ;;; eudc.el --- Emacs Unified Directory Client 1 ;;; eudc.el --- Emacs Unified Directory Client
2 2
3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. 4 ;; 2007, 2008, 2009 Free Software Foundation, Inc.
5 5
6 ;; Author: Oscar Figueiredo <oscar@cpe.fr> 6 ;; Author: Oscar Figueiredo <oscar@cpe.fr>
7 ;; Maintainer: Pavel Janík <Pavel@Janik.cz> 7 ;; Maintainer: Pavel Janík <Pavel@Janik.cz>
8 ;; Keywords: comm 8 ;; Keywords: comm
9 9
929 ((eq eudc-multiple-match-handling-method 'abort) 929 ((eq eudc-multiple-match-handling-method 'abort)
930 (error "There is more than one match for the query")))) 930 (error "There is more than one match for the query"))))
931 (or (and (equal eudc-server eudc-former-server) 931 (or (and (equal eudc-server eudc-former-server)
932 (equal eudc-protocol eudc-former-protocol)) 932 (equal eudc-protocol eudc-former-protocol))
933 (eudc-set-server eudc-former-server eudc-former-protocol t))) 933 (eudc-set-server eudc-former-server eudc-former-protocol t)))
934 (t 934 (error
935 (or (and (equal eudc-server eudc-former-server) 935 (or (and (equal eudc-server eudc-former-server)
936 (equal eudc-protocol eudc-former-protocol)) 936 (equal eudc-protocol eudc-former-protocol))
937 (eudc-set-server eudc-former-server eudc-former-protocol t)) 937 (eudc-set-server eudc-former-server eudc-former-protocol t))
938 (signal (car signal) (cdr signal)))))) 938 (signal (car signal) (cdr signal))))))
939 939