Mercurial > vim
annotate src/testdir/test33.ok @ 10930:126405b39964 v8.0.0354
patch 8.0.0354: test to check that setting termcap key fails sometimes
commit https://github.com/vim/vim/commit/1c410400fad79068b16dc4c6c7a023463a0858cf
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Feb 23 15:20:03 2017 +0100
patch 8.0.0354: test to check that setting termcap key fails sometimes
Problem: Test to check that setting termcap key fails sometimes.
Solution: Check for "t_k1" to exist. (Christian Brabandt, closes https://github.com/vim/vim/issues/1459)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 23 Feb 2017 15:30:05 +0100 |
parents | 3fc0f57ecb91 |
children |
rev | line source |
---|---|
7 | 1 (defun html-file (base) |
2 (format nil "~(~A~).html" base)) | |
3 | |
4 (defmacro page (name title &rest body) | |
5 (let ((ti (gensym))) | |
6 `(with-open-file (*standard-output* | |
7 (html-file ,name) | |
8 :direction :output | |
9 :if-exists :supersede) | |
10 (let ((,ti ,title)) | |
11 (as title ,ti) | |
12 (with center | |
13 (as h2 (string-upcase ,ti))) | |
14 (brs 3) | |
15 ,@body)))) | |
16 | |
17 ;;; Utilities for generating links | |
18 | |
19 (defmacro with-link (dest &rest body) | |
20 `(progn | |
21 (format t "<a href=\"~A\">" (html-file ,dest)) | |
22 ,@body | |
23 (princ "</a>"))) |