Mercurial > vim
annotate src/testdir/test33.in @ 10670:bce3eccea39a v8.0.0225
patch 8.0.0225: put in Visual block mode terminates early
commit https://github.com/vim/vim/commit/9957a10d0f0c34d8083af6ed66e198e4796038e0
Author: Bram Moolenaar <Bram@vim.org>
Date: Mon Jan 23 21:53:53 2017 +0100
patch 8.0.0225: put in Visual block mode terminates early
Problem: When a block is visually selected and put is used on the end of
the selection only one line is changed.
Solution: Check for the end properly. (Christian Brabandt, neovim issue
5781)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Mon, 23 Jan 2017 22:00: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>"))) |