diff options
| author | Glenn Morris | 2009-09-22 02:28:43 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-09-22 02:28:43 +0000 |
| commit | a8d789f079ec333b9eef00263c8aeb4783dbc5fe (patch) | |
| tree | 06bd0aa60951c26d007f2769f0a74ffa4c0cad94 /lisp/emulation | |
| parent | 76f2c576919a3794e91ca9f6150d3b4cbbffb384 (diff) | |
| download | emacs-a8d789f079ec333b9eef00263c8aeb4783dbc5fe.tar.gz emacs-a8d789f079ec333b9eef00263c8aeb4783dbc5fe.zip | |
(tpu-copy-keyfile): Fix condition-case handler.
Diffstat (limited to 'lisp/emulation')
| -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 @@ | |||
| 1 | ;;; tpu-edt.el --- Emacs emulating TPU emulating EDT | 1 | ;;; tpu-edt.el --- Emacs emulating TPU emulating EDT |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. | 4 | ;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Rob Riepel <riepel@networking.stanford.edu> | 6 | ;; Author: Rob Riepel <riepel@networking.stanford.edu> |
| 7 | ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu> | 7 | ;; 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 | |||
| 2374 | (and (tpu-y-or-n-p "Copy key definitions to the new file now? ") | 2374 | (and (tpu-y-or-n-p "Copy key definitions to the new file now? ") |
| 2375 | (condition-case conditions | 2375 | (condition-case conditions |
| 2376 | (copy-file oldname newname) | 2376 | (copy-file oldname newname) |
| 2377 | (tpu-error (message "Sorry, couldn't copy - %s." (cdr conditions))))) | 2377 | (error (message "Sorry, couldn't copy - %s." (cdr conditions))))) |
| 2378 | (kill-buffer "*TPU-Notice*"))) | 2378 | (kill-buffer "*TPU-Notice*"))) |
| 2379 | 2379 | ||
| 2380 | (defvar tpu-edt-old-global-values nil) | 2380 | (defvar tpu-edt-old-global-values nil) |