Mercurial > emacs

comparison lisp/emacs-lisp/tcover-ses.el @ 87114:a4e9022bb904

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Re-fill copyright. Remove directory part from filenames in function declarations.
author Glenn Morris <rgm@gnu.org>
date Thu, 06 Dec 2007 04:06:27 +0000
parents fc93e9674475
children 107ccd98fa12
comparison
equal deleted inserted replaced
87113:aa25402f888a 87114:a4e9022bb904
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, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. 3 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007
4 ;; Free Software Foundation, Inc.
4 5
5 ;; Author: Jonathan Yavner <jyavner@engineer.com> 6 ;; Author: Jonathan Yavner <jyavner@engineer.com>
6 ;; Maintainer: Jonathan Yavner <jyavner@engineer.com> 7 ;; Maintainer: Jonathan Yavner <jyavner@engineer.com>
7 ;; Keywords: spreadsheet lisp utility 8 ;; Keywords: spreadsheet lisp utility
8 9
24 (require 'testcover) 25 (require 'testcover)
25 26
26 (defvar ses-initial-global-parameters) 27 (defvar ses-initial-global-parameters)
27 (defvar ses-mode-map) 28 (defvar ses-mode-map)
28 29
29 (declare-function ses-set-curcell "../ses") 30 (declare-function ses-set-curcell "ses")
30 (declare-function ses-update-cells "../ses") 31 (declare-function ses-update-cells "ses")
31 (declare-function ses-load "../ses") 32 (declare-function ses-load "ses")
32 (declare-function ses-vector-delete "../ses") 33 (declare-function ses-vector-delete "ses")
33 (declare-function ses-create-header-string "../ses") 34 (declare-function ses-create-header-string "ses")
34 (declare-function ses-read-cell "../ses") 35 (declare-function ses-read-cell "ses")
35 (declare-function ses-read-symbol "../ses") 36 (declare-function ses-read-symbol "ses")
36 (declare-function ses-command-hook "../ses") 37 (declare-function ses-command-hook "ses")
37 (declare-function ses-jump "../ses") 38 (declare-function ses-jump "ses")
38 39
39 40
40 ;;;Here are some macros that exercise SES. Set `pause' to t if you want the 41 ;;;Here are some macros that exercise SES. Set `pause' to t if you want the
41 ;;;macros to pause after each step. 42 ;;;macros to pause after each step.
42 (let* ((pause nil) 43 (let* ((pause nil)