Mercurial > vim
annotate src/testdir/test33.in @ 10962:6da4287fd735 v8.0.0370
patch 8.0.0370: invalid memory access when setting wildchar empty
commit https://github.com/vim/vim/commit/a12e40351d1357687e8b5dc3122fffef705bdc08
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat Feb 25 21:37:57 2017 +0100
patch 8.0.0370: invalid memory access when setting wildchar empty
Problem: Invalid memory access when setting wildchar empty.
Solution: Avoid going over the end of the option value. (Dominique Pelle,
closes #1509) Make option test check all number options with
empty value.
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Sat, 25 Feb 2017 21:45:04 +0100 |
parents | 3fc0f57ecb91 |
children |
rev | line source |
---|---|
7 | 1 Test for 'lisp' |
2 If the lisp feature is not enabled, this will fail! | |
3 | |
4 STARTTEST | |
5 :so small.vim | |
6 :set lisp | |
7 /^(defun | |
8 =G:/^(defun/,$w! test.out | |
9 :q! | |
10 ENDTEST | |
11 | |
12 (defun html-file (base) | |
13 (format nil "~(~A~).html" base)) | |
14 | |
15 (defmacro page (name title &rest body) | |
16 (let ((ti (gensym))) | |
17 `(with-open-file (*standard-output* | |
18 (html-file ,name) | |
19 :direction :output | |
20 :if-exists :supersede) | |
21 (let ((,ti ,title)) | |
22 (as title ,ti) | |
23 (with center | |
24 (as h2 (string-upcase ,ti))) | |
25 (brs 3) | |
26 ,@body)))) | |
27 | |
28 ;;; Utilities for generating links | |
29 | |
30 (defmacro with-link (dest &rest body) | |
31 `(progn | |
32 (format t "<a href=\"~A\">" (html-file ,dest)) | |
33 ,@body | |
34 (princ "</a>"))) |