Mercurial > emacs

comparison lisp/emacs-lisp/tcover-ses.el @ 83353:532e0a9335a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged in changes from CVS trunk. Plus added lisp/term tweaks. Patches applied: * lorentey@elte.hu--2004/emacs--cvs-trunk--0--base-0 tag of miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-474 * lorentey@elte.hu--2004/emacs--cvs-trunk--0--patch-1 Add CVS metadata files. * lorentey@elte.hu--2004/emacs--cvs-trunk--0--patch-2 Update from CVS. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-393
author Karoly Lorentey <lorentey@elte.hu>
date Sun, 04 Sep 2005 03:48:17 +0000
parents 21b1d1193e46
children 067115a6e738
comparison
equal deleted inserted replaced
83352:b258b3492423 83353:532e0a9335a9
1 ;;;; testcover-ses.el -- Example use of `testcover' to test "SES" 1 ;;;; testcover-ses.el -- Example use of `testcover' to test "SES"
2 2
3 ;; Copyright (C) 2002 Free Software Foundation, Inc. 3 ;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
4 4
5 ;; Author: Jonathan Yavner <jyavner@engineer.com> 5 ;; Author: Jonathan Yavner <jyavner@engineer.com>
6 ;; Maintainer: Jonathan Yavner <jyavner@engineer.com> 6 ;; Maintainer: Jonathan Yavner <jyavner@engineer.com>
7 ;; Keywords: spreadsheet lisp utility 7 ;; Keywords: spreadsheet lisp utility
8 8
20 ;; along with GNU Emacs; see the file COPYING. If not, write to the 20 ;; along with GNU Emacs; see the file COPYING. If not, write to the
21 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 21 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
22 ;; Boston, MA 02110-1301, USA. 22 ;; Boston, MA 02110-1301, USA.
23 23
24 (require 'testcover) 24 (require 'testcover)
25
26 (defvar ses-initial-global-parameters)
27 (defvar ses-mode-map)
25 28
26 ;;;Here are some macros that exercise SES. Set `pause' to t if you want the 29 ;;;Here are some macros that exercise SES. Set `pause' to t if you want the
27 ;;;macros to pause after each step. 30 ;;;macros to pause after each step.
28 (let* ((pause nil) 31 (let* ((pause nil)
29 (x (if pause "q" "")) 32 (x (if pause "q" ""))