diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-22 02:28:43 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-22 02:28:43 +0000 |
| commit | a8d789f079ec333b9eef00263c8aeb4783dbc5fe (patch) | |
| tree | 06bd0aa60951c26d007f2769f0a74ffa4c0cad94 /lisp/emulation/tpu-edt.el | |
| parent | 76f2c576919a3794e91ca9f6150d3b4cbbffb384 (diff) | |
| download | emacs-a8d789f079ec333b9eef00263c8aeb4783dbc5fe.tar.gz | |
(tpu-copy-keyfile): Fix condition-case handler.
Diffstat (limited to 'lisp/emulation/tpu-edt.el')
| -rw-r--r-- | lisp/emulation/tpu-edt.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el index 864b2db46a4..c0fca58a5a8 100644 --- a/lisp/emulation/tpu-edt.el +++ b/lisp/emulation/tpu-edt.el @@ -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 @@ If FILE is nil, try to load a default file. The default file names are (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) |