Problem with define-minor-mode with :global t.

[storm@cua.dk (Kim F. Storm)]

In CUA, I have this:

(define-minor-mode cua-mode
  "..."
  :global t
  ...)


Now, assume I have a buffer `xyz' which definitely don't want
cua-mode enabled.

If I do things in the following sequence, it works alright:

M-x cua-mode RET
C-x b xyz RET
M-: (set (make-local-variable 'cua-mode) nil) RET


But if I (accidentally) do it in this sequence:

C-x b xyz RET
M-: (set (make-local-variable 'cua-mode) nil) RET
M-x cua-mode RET

then I end up _enabling_ cua mode in just the xyz buffer,
while the global setting is still nil.


I think that it would make sense if specifying :global t on
define-minor-mode would enforce changing the default (global) value of
the mode variable rather than the potentially buffer-local value.

-- 
Kim F. Storm <storm@cua.dk> http://www.cua.dk