diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-18 07:07:33 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-18 07:07:33 +0000 |
| commit | 8561a3b1aae01970d0286c5818b2f0ff35cc2845 (patch) | |
| tree | 7a86044e6f13264b303f3c6aced989a37a25e0d1 | |
| parent | 8fd3126600b89c1729c34c731b9619a73be4ee6a (diff) | |
| download | emacs-8561a3b1aae01970d0286c5818b2f0ff35cc2845.tar.gz | |
Fix typos in condition-case handlers.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/net/eudc-bob.el | 2 | ||||
| -rw-r--r-- | lisp/net/eudc.el | 6 | ||||
| -rw-r--r-- | lisp/net/newst-backend.el | 4 |
4 files changed, 13 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 28c45486308..78485a62ff0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2009-09-18 Glenn Morris <rgm@gnu.org> + + * net/eudc-bob.el (eudc-bob-pipe-object-to-external-program): + * net/eudc.el (eudc-expand-inline): + * net/newst-backend.el (newsticker--cache-read-feed): Fix typos in + condition-case handlers. + 2009-09-18 Nick Roberts <nickrob@snap.net.nz> * progmodes/gdb-mi.el (gdb-frame-address): New variable. diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el index 8c30819dd23..d65f0f12423 100644 --- a/lisp/net/eudc-bob.el +++ b/lisp/net/eudc-bob.el @@ -252,7 +252,7 @@ display a button." (car (cdr viewer)) (cdr (cdr viewer))) (call-process-region (point-min) (point-max) program))) - (t + (error (kill-buffer buffer))))) (defun eudc-bob-menu () diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el index 6494e01f739..be3654728d8 100644 --- a/lisp/net/eudc.el +++ b/lisp/net/eudc.el @@ -1,7 +1,7 @@ ;;; eudc.el --- Emacs Unified Directory Client -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, +;; 2007, 2008, 2009 Free Software Foundation, Inc. ;; Author: Oscar Figueiredo <oscar@cpe.fr> ;; Maintainer: Pavel Janík <Pavel@Janik.cz> @@ -931,7 +931,7 @@ see `eudc-inline-expansion-servers'" (or (and (equal eudc-server eudc-former-server) (equal eudc-protocol eudc-former-protocol)) (eudc-set-server eudc-former-server eudc-former-protocol t))) - (t + (error (or (and (equal eudc-server eudc-former-server) (equal eudc-protocol eudc-former-protocol)) (eudc-set-server eudc-former-server eudc-former-protocol t)) diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el index 6d8b32965b9..23c7e1450f9 100644 --- a/lisp/net/newst-backend.el +++ b/lisp/net/newst-backend.el @@ -2177,8 +2177,8 @@ FEED is a symbol!" (read (current-buffer)))) (error (message "Error while reading newsticker cache file %s!" - file-name)) - (setq newsticker--cache nil)))))) + file-name) + (setq newsticker--cache nil))))))) ;; ====================================================================== ;;; Statistics |