Mercurial > vim
annotate src/testdir/test_lispindent.vim @ 33776:9503dc55b5ed v9.0.2108
patch 9.0.2108: [security]: overflow with count for :s command
Commit: https://github.com/vim/vim/commit/ac63787734fda2e294e477af52b3bd601517fa78
Author: Christian Brabandt <cb@256bit.org>
Date: Tue Nov 14 20:45:48 2023 +0100
patch 9.0.2108: [security]: overflow with count for :s command
Problem: [security]: overflow with count for :s command
Solution: Abort the :s command if the count is too large
If the count after the :s command is larger than what fits into a
(signed) long variable, abort with e_value_too_large.
Adds a test with INT_MAX as count and verify it correctly fails.
It seems the return value on Windows using mingw compiler wraps around,
so the initial test using :s/./b/9999999999999999999999999990 doesn't
fail there, since the count is wrapping around several times and finally
is no longer larger than 2147483647. So let's just use 2147483647 in the
test, which hopefully will always cause a failure
Signed-off-by: Christian Brabandt <cb@256bit.org>
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 16 Nov 2023 22:15:10 +0100 |
parents | 40df8a6515f6 |
children |
rev | line source |
---|---|
30805
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
1 " Tests for 'lispwords' settings being global-local. |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
2 " And other lisp indent stuff. |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
3 |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
4 set nocompatible viminfo+=nviminfo |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
5 |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
6 func Test_global_local_lispwords() |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
7 setglobal lispwords=foo,bar,baz |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
8 setlocal lispwords-=foo | setlocal lispwords+=quux |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
9 call assert_equal('foo,bar,baz', &g:lispwords) |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
10 call assert_equal('bar,baz,quux', &l:lispwords) |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
11 call assert_equal('bar,baz,quux', &lispwords) |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
12 |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
13 setlocal lispwords< |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
14 call assert_equal('foo,bar,baz', &g:lispwords) |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
15 call assert_equal('foo,bar,baz', &l:lispwords) |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
16 call assert_equal('foo,bar,baz', &lispwords) |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
17 endfunc |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
18 |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
19 def Test_lisp_indent() |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
20 enew! |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
21 |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
22 append(0, [ |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
23 '(defun html-file (base)', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
24 '(format nil "~(~A~).html" base))', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
25 '', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
26 '(defmacro page (name title &rest body)', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
27 '(let ((ti (gensym)))', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
28 '`(with-open-file (*standard-output*', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
29 '(html-file ,name)', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
30 ':direction :output', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
31 ':if-exists :supersede)', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
32 '(let ((,ti ,title))', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
33 '(as title ,ti)', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
34 '(with center ', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
35 '(as h2 (string-upcase ,ti)))', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
36 '(brs 3)', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
37 ',@body))))', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
38 '', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
39 ';;; Utilities for generating links', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
40 '', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
41 '(defmacro with-link (dest &rest body)', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
42 '`(progn', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
43 '(format t "<a href=\"~A\">" (html-file ,dest))', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
44 ',@body', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
45 '(princ "</a>")))' |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
46 ]) |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
47 assert_equal(7, lispindent(2)) |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
48 assert_equal(5, 6->lispindent()) |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
49 assert_fails('lispindent(-1)', 'E966: Invalid line number: -1') |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
50 |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
51 set lisp |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
52 set lispwords& |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
53 var save_copt = &cpoptions |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
54 set cpoptions+=p |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
55 normal 1G=G |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
56 |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
57 assert_equal([ |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
58 '(defun html-file (base)', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
59 ' (format nil "~(~A~).html" base))', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
60 '', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
61 '(defmacro page (name title &rest body)', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
62 ' (let ((ti (gensym)))', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
63 ' `(with-open-file (*standard-output*', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
64 ' (html-file ,name)', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
65 ' :direction :output', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
66 ' :if-exists :supersede)', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
67 ' (let ((,ti ,title))', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
68 ' (as title ,ti)', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
69 ' (with center ', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
70 ' (as h2 (string-upcase ,ti)))', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
71 ' (brs 3)', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
72 ' ,@body))))', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
73 '', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
74 ';;; Utilities for generating links', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
75 '', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
76 '(defmacro with-link (dest &rest body)', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
77 ' `(progn', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
78 ' (format t "<a href=\"~A\">" (html-file ,dest))', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
79 ' ,@body', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
80 ' (princ "</a>")))', |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
81 '' |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
82 ], getline(1, "$")) |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
83 |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
84 enew! |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
85 &cpoptions = save_copt |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
86 set nolisp |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
87 enddef |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
88 |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
89 func Test_lispindent_negative() |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
90 " in legacy script there is no error |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
91 call assert_equal(-1, lispindent(-1)) |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
92 endfunc |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
93 |
30839
942f1b3bc694
patch 9.0.0754: 'indentexpr' overrules lisp indenting in one situation
Bram Moolenaar <Bram@vim.org>
parents:
30805
diff
changeset
|
94 func Test_lispindent_with_indentexpr() |
942f1b3bc694
patch 9.0.0754: 'indentexpr' overrules lisp indenting in one situation
Bram Moolenaar <Bram@vim.org>
parents:
30805
diff
changeset
|
95 enew |
942f1b3bc694
patch 9.0.0754: 'indentexpr' overrules lisp indenting in one situation
Bram Moolenaar <Bram@vim.org>
parents:
30805
diff
changeset
|
96 setl ai lisp nocin indentexpr=11 |
942f1b3bc694
patch 9.0.0754: 'indentexpr' overrules lisp indenting in one situation
Bram Moolenaar <Bram@vim.org>
parents:
30805
diff
changeset
|
97 exe "normal a(x\<CR>1\<CR>2)\<Esc>" |
942f1b3bc694
patch 9.0.0754: 'indentexpr' overrules lisp indenting in one situation
Bram Moolenaar <Bram@vim.org>
parents:
30805
diff
changeset
|
98 let expected = ['(x', ' 1', ' 2)'] |
942f1b3bc694
patch 9.0.0754: 'indentexpr' overrules lisp indenting in one situation
Bram Moolenaar <Bram@vim.org>
parents:
30805
diff
changeset
|
99 call assert_equal(expected, getline(1, 3)) |
30853
40df8a6515f6
patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting
Bram Moolenaar <Bram@vim.org>
parents:
30839
diff
changeset
|
100 " with Lisp indenting the first line is not indented |
30839
942f1b3bc694
patch 9.0.0754: 'indentexpr' overrules lisp indenting in one situation
Bram Moolenaar <Bram@vim.org>
parents:
30805
diff
changeset
|
101 normal 1G=G |
942f1b3bc694
patch 9.0.0754: 'indentexpr' overrules lisp indenting in one situation
Bram Moolenaar <Bram@vim.org>
parents:
30805
diff
changeset
|
102 call assert_equal(expected, getline(1, 3)) |
30853
40df8a6515f6
patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting
Bram Moolenaar <Bram@vim.org>
parents:
30839
diff
changeset
|
103 |
40df8a6515f6
patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting
Bram Moolenaar <Bram@vim.org>
parents:
30839
diff
changeset
|
104 %del |
40df8a6515f6
patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting
Bram Moolenaar <Bram@vim.org>
parents:
30839
diff
changeset
|
105 setl lispoptions=expr:1 indentexpr=5 |
40df8a6515f6
patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting
Bram Moolenaar <Bram@vim.org>
parents:
30839
diff
changeset
|
106 exe "normal a(x\<CR>1\<CR>2)\<Esc>" |
40df8a6515f6
patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting
Bram Moolenaar <Bram@vim.org>
parents:
30839
diff
changeset
|
107 let expected_expr = ['(x', ' 1', ' 2)'] |
40df8a6515f6
patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting
Bram Moolenaar <Bram@vim.org>
parents:
30839
diff
changeset
|
108 call assert_equal(expected_expr, getline(1, 3)) |
40df8a6515f6
patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting
Bram Moolenaar <Bram@vim.org>
parents:
30839
diff
changeset
|
109 normal 2G2<<=G |
40df8a6515f6
patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting
Bram Moolenaar <Bram@vim.org>
parents:
30839
diff
changeset
|
110 call assert_equal(expected_expr, getline(1, 3)) |
40df8a6515f6
patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting
Bram Moolenaar <Bram@vim.org>
parents:
30839
diff
changeset
|
111 |
40df8a6515f6
patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting
Bram Moolenaar <Bram@vim.org>
parents:
30839
diff
changeset
|
112 setl lispoptions=expr:0 |
40df8a6515f6
patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting
Bram Moolenaar <Bram@vim.org>
parents:
30839
diff
changeset
|
113 " with Lisp indenting the first line is not indented |
40df8a6515f6
patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting
Bram Moolenaar <Bram@vim.org>
parents:
30839
diff
changeset
|
114 normal 1G3<<=G |
40df8a6515f6
patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting
Bram Moolenaar <Bram@vim.org>
parents:
30839
diff
changeset
|
115 call assert_equal(expected, getline(1, 3)) |
40df8a6515f6
patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting
Bram Moolenaar <Bram@vim.org>
parents:
30839
diff
changeset
|
116 |
30839
942f1b3bc694
patch 9.0.0754: 'indentexpr' overrules lisp indenting in one situation
Bram Moolenaar <Bram@vim.org>
parents:
30805
diff
changeset
|
117 bwipe! |
942f1b3bc694
patch 9.0.0754: 'indentexpr' overrules lisp indenting in one situation
Bram Moolenaar <Bram@vim.org>
parents:
30805
diff
changeset
|
118 endfunc |
942f1b3bc694
patch 9.0.0754: 'indentexpr' overrules lisp indenting in one situation
Bram Moolenaar <Bram@vim.org>
parents:
30805
diff
changeset
|
119 |
30805
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
120 func Test_lisp_indent_works() |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
121 " This was reading beyond the end of the line |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
122 new |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
123 exe "norm a\tü(\<CR>=" |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
124 set lisp |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
125 norm == |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
126 bwipe! |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
127 endfunc |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
128 |
4edfa418f8ba
patch 9.0.0737: Lisp word only recognized when a space follows
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
129 " vim: shiftwidth=2 sts=2 expandtab |