((eq (car value) 'cua-mode)
(insert "You are using `cua-mode'."
"You have enabled CUA mode" would be clearer.
" If the region is not active then C-c will"
" work as it normally does in Emacs."))
Please stick to present tense except when present tense is incorrect.
Please understand that it is ok to change key bindings, but the
tutorial may not work correctly. (See also " )
Change that to
It is legitimate to change key bindings, but changed bindings
do not correspond to what the tutorial says. (See also " )
This code
(let (initial-bad-keys)
(with-temp-buffer
...
(unless
(cond ( (eq key-fun def-fun)
...
is awfully complex, and most of the job it does is irrelevant. The
tutorial describes a small set of keys, perhaps 40. I think this code
should not concern itself with keys that the tutorial does not teach.
It should simply have a list of those keys and their standard
bindings. That way it would not need to read bindings.el.
(Not all the default bindings are in bindings.el, so this code won't
get them all.)