Mercurial > hg > xemacs-beta
comparison lisp/behavior.el @ 897:7da79fbe37bb
[xemacs-hg @ 2002-07-02 19:09:22 by stephent]
Omitted credit to ville. <873cv26jdv.fsf@tleepslib.sk.tsukuba.ac.jp>
Fix up includes. <20020627160318.A30273@nemesis.ncsl.nist.gov>
Untrigger assert. <20020627164659.A31430@nemesis.ncsl.nist.gov>
| author | stephent |
|---|---|
| date | Tue, 02 Jul 2002 19:09:31 +0000 |
| parents | a5954632b187 |
| children | 01c57eb70ae9 |
comparison
equal
deleted
inserted
replaced
| 896:04749aeb5414 | 897:7da79fbe37bb |
|---|---|
| 57 (enable-list (set-difference val old-val))) | 57 (enable-list (set-difference val old-val))) |
| 58 (dolist (b disable-list) | 58 (dolist (b disable-list) |
| 59 (disable-behavior b t)) | 59 (disable-behavior b t)) |
| 60 (dolist (b enable-list) | 60 (dolist (b enable-list) |
| 61 (enable-behavior b t)) | 61 (enable-behavior b t)) |
| 62 (assert (equal enabled-behavior-list val))))) | 62 (assert (equal (sort (copy-sequence enabled-behavior-list) 'string-lessp) |
| 63 (sort (copy-sequence val) 'string-lessp)))))) | |
| 63 :type '(repeat (symbol :tag "Behavior")) | 64 :type '(repeat (symbol :tag "Behavior")) |
| 64 :group 'behaviors) | 65 :group 'behaviors) |
| 65 | 66 |
| 66 | 67 |
| 67 (defvar behavior-history nil | 68 (defvar behavior-history nil |