Mercurial > vim
annotate src/testdir/test_lispindent.vim @ 33761:ffe9ffcb57e7
runtime(termdebug): improve the breakpoint sign label (#13525)
Commit: https://github.com/vim/vim/commit/2dd613f57bf17eb8ff050bcb5510eb0279f5c9ab
Author: Shane-XB-Qian <shane.qian@foxmail.com>
Date: Sun Nov 12 23:53:39 2023 +0800
runtime(termdebug): improve the breakpoint sign label (https://github.com/vim/vim/issues/13525)
// related https://github.com/vim/vim/issues/12589
// that should be the last chat (I) with Bram, r.i.p
Signed-off-by: shane.xb.qian <shane.qian@foxmail.com>
Signed-off-by: Christian Brabandt <cb@256bit.org>
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Sun, 12 Nov 2023 17:00:04 +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 |