2 (defvar word-wrap2 nil)
3 (make-variable-buffer-local 'word-wrap2)
4 (set-default 'word-wrap2 nil)
6 (defcustom word-wrap3 nil
9 (make-variable-buffer-local 'word-wrap3)
10 (set-default 'word-wrap3 nil)
12 (set-default 'word-wrap nil)
13 (set-default 'truncate-lines nil)
15 (put 'truncate-lines 'permanent-local t)
16 (put 'word-wrap 'permanent-local t)
17 (put 'word-wrap2 'permanent-local t)
18 (put 'word-wrap3 'permanent-local t)
20 (setq truncate-lines t)
25 (kill-all-local-variables)
28 (ert-should (eq (default-value 'word-wrap3) nil))
29 (ert-should (eq word-wrap3 t))
30 (ert-should (eq (default-value 'word-wrap2) nil))
31 (ert-should (eq word-wrap2 t))
32 (ert-should (eq (default-value 'truncate-lines) nil))
33 (ert-should (eq truncate-lines t))
34 (ert-should (eq (default-value 'word-wrap) nil))
35 (ert-should (eq word-wrap t))