Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
105137:1ca02a761eac 105138:515700d42454
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>
8 ;; Version: 4.5 8 ;; Version: 4.5
9 ;; Keywords: emulations 9 ;; Keywords: emulations
2372 (goto-char (point-min)) 2372 (goto-char (point-min))
2373 (beep) 2373 (beep)
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)
2381 2381
2382 ;;; 2382 ;;;