Mercurial > emacs

diff lisp/emulation/tpu-edt.el @ 105138:515700d42454

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tpu-copy-keyfile): Fix condition-case handler.
author Glenn Morris <rgm@gnu.org>
date Tue, 22 Sep 2009 02:28:43 +0000
parents e22977dd0d51
children bd2966850aac
line wrap: on
line diff
--- a/lisp/emulation/tpu-edt.el	Tue Sep 22 02:28:28 2009 +0000
+++ b/lisp/emulation/tpu-edt.el	Tue Sep 22 02:28:43 2009 +0000
@@ -1,7 +1,7 @@
 ;;; tpu-edt.el --- Emacs emulating TPU emulating EDT
 
-;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004, 2005,
+;;   2006, 2007, 2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: Rob Riepel <riepel@networking.stanford.edu>
 ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu>
@@ -2374,7 +2374,7 @@
     (and (tpu-y-or-n-p "Copy key definitions to the new file now? ")
 	 (condition-case conditions
              (copy-file oldname newname)
-	   (tpu-error (message "Sorry, couldn't copy - %s." (cdr conditions)))))
+	   (error (message "Sorry, couldn't copy - %s." (cdr conditions)))))
     (kill-buffer "*TPU-Notice*")))
 
 (defvar tpu-edt-old-global-values nil)