changeset 105074:45b5d5aae703

Fix typos in condition-case handlers.
author Glenn Morris <rgm@gnu.org>
date Fri, 18 Sep 2009 07:07:33 +0000
parents 3d8175dd6918
children 9005ea5eb958
files lisp/ChangeLog lisp/net/eudc-bob.el lisp/net/eudc.el lisp/net/newst-backend.el
diffstat 4 files changed, 13 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Sep 18 02:01:26 2009 +0000
+++ b/lisp/ChangeLog	Fri Sep 18 07:07:33 2009 +0000
@@ -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.
--- a/lisp/net/eudc-bob.el	Fri Sep 18 02:01:26 2009 +0000
+++ b/lisp/net/eudc-bob.el	Fri Sep 18 07:07:33 2009 +0000
@@ -252,7 +252,7 @@
 				   (car (cdr viewer))
 				   (cdr (cdr viewer)))
 	    (call-process-region (point-min) (point-max) program)))
-      (t
+      (error
        (kill-buffer buffer)))))
 
 (defun eudc-bob-menu ()
--- a/lisp/net/eudc.el	Fri Sep 18 02:01:26 2009 +0000
+++ b/lisp/net/eudc.el	Fri Sep 18 07:07:33 2009 +0000
@@ -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 @@
 	  (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))
--- a/lisp/net/newst-backend.el	Fri Sep 18 02:01:26 2009 +0000
+++ b/lisp/net/newst-backend.el	Fri Sep 18 07:07:33 2009 +0000
@@ -2177,8 +2177,8 @@
                                                   (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