nxhtml/tests/inemacs/bug1013.el

   1 ;; Setup
   2 (defvar word-wrap2 nil)
   3 (make-variable-buffer-local 'word-wrap2)
   4 (set-default 'word-wrap2 nil)
   5
   6 (defcustom word-wrap3 nil
   7   "doc 3"
   8   :type 'boolean)
   9 (make-variable-buffer-local 'word-wrap3)
  10 (set-default 'word-wrap3 nil)
  11
  12 (set-default 'word-wrap nil)
  13 (set-default 'truncate-lines nil)
  14
  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)
  19
  20 (setq truncate-lines t)
  21 (setq word-wrap t)
  22 (setq word-wrap2 t)
  23 (setq word-wrap3 t)
  24
  25 (kill-all-local-variables)
  26
  27 ;; Test
  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))