event-modifiers with control in mouse events

[Miguel Frasson]

Symptoms:

Hi

I am running a more-or-less recent version of Emacs cvs on windows.

Very strangly, the `C-mouse-1' key does not have modifiers according
to `event-modifiers'. According to info, it should return at least
`click'.  If I evaluate

 (event-convert-list '(control mouse-1)) -> C-mouse-1

I get C-mouse-1, so I hope that this is a good key...  Probably we
have a bug here, that is reproduced in the code bellow.  It is
possible I am missing something.

(event-modifiers 'C-mouse-1) -> nil  ; trigger bug !!!
                                     ; should return (control click)

(event-modifiers 'mouse-1) -> (click)  ; ok

(event-modifiers 'S-mouse-1) -> (shift click)  ; ok (?)

(event-modifiers 'C-S-mouse-1) -> nil  ; bug again !!!
                                       ; should return
                                       ; (control shift click)

>From here to the end, strange results (at least for me...)

(event-convert-list '(meta mouse-1)) -> M-mouse-1

(event-modifiers 'M-mouse-1) -> (meta click)

(event-convert-list '(meta shift mouse-1)) -> M-S-mouse-1

(event-modifiers 'M-S-mouse-1) -> nil

(event-convert-list '(meta control mouse-1)) -> C-M-mouse-1

(event-modifiers 'C-M-mouse-1)

I also run this code in the stable Emacs in Linux

(emacs-version) -> "GNU Emacs 21.3.1 (i386-redhat-linux-gnu, X toolkit, Xaw3d 
scroll bars)
 of 2003-10-27 on daffy.perf.redhat.com"

and I get the following strange results as well:

(event-convert-list '(control mouse-1)) -> C-mouse-1  ; ok

(event-modifiers 'C-mouse-1) -> (control)  ; should not be (control click)?

(event-modifiers 'mouse-1) -> (click)  ; ok

(event-modifiers 'S-mouse-1) ->  nil ; ????

(event-modifiers 'C-S-mouse-1) -> nil ; ???

(event-modifiers 'M-mouse-1) -> (meta click)

(event-modifiers 'M-S-mouse-1) -> nil  ; ?

(event-modifiers 'C-M-mouse-1) ->  nil  ; ?

Thanks.

Miguel Frasson.

In GNU Emacs 21.3.50.1 (i386-mingw-nt5.1.2600)
 of 2004-07-09 on FARIBA
configured using `configure --with-gcc (3.2) --cflags
 -I/home/fariba_soleymani/dev/include'

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: 1033
  locale-coding-system: cp1250
  default-enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  TeX-source-specials-mode: t
  file-name-shadow-mode: t
  delete-selection-mode: t
  pc-selection-mode: t
  show-paren-mode: t
  tool-bar-mode: t
  encoded-kbd-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<C-left> <left> <backspace> C <end> C-x C-e <down-mouse-1>
<mouse-movement> <mouse-movement> <drag-mouse-1> <down-mouse-1>
<mouse-1> C-x C-e <C-left> <C-left> <C-left> <end>
C-x C-e C-x C-e C-x C-e C-x C-e C-x C-e C-x C-e C-x
C-e <C-left> <C-left> s <backspace> S - <end> C-x C-e
C-x C-e <C-left> <C-left> <C-left> <right> <right>
M - <end> C-x C-e <C-left> <left> <C-left> <C-left>
<C-S-left> <C-S-left> <delete> <end> C-x C-e <C-left>
<C-left> <C-left> <delete> C <end> C-x C-e <S-home>
<C-insert> <help-echo> <help-echo> <help-echo> <help-echo>
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo>
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo>
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo>
<help-echo> <help-echo> <help-echo> <help-echo> <menu-bar>
<help-menu> <report-emacs-bug>

Recent messages:
nil
(shift click) [2 times]
nil
Auto-saving...done
nil [11 times]
Mark set
(meta click)
nil
Mark set
Loading emacsbug...done