sh-mode: after-change-major-mode-hook not executed (OS X?)

[David Reitter]

When I start an Emacs with -Q (the Carbon port, recent CVS compile),  
then do

(add-hook 'after-change-major-mode-hook
    (lambda () (message (format "New mode: %s" major-mode))))

and then do M-x sh-mode, I would expect to see "New mode..." at least  
in the *Messages* buffer.
I don't get that; the hook is not executed even though sh-mode loads  
up alright.

If I change to c-mode or emacs-lisp-mode, the hook is executed just  
fine.

If I do the same on a very recent CVS build on GNU/Linux  
(2005-06-08), everything works as expected.

I tried doing this on a recent CVS build (2005-06-06) on the Mac;  
same result.


===




In GNU Emacs 22.0.50.1 (powerpc-apple-darwin7.9.0)
 of 2005-06-04 on madonna - Aquamacs Distribution 0.9.2 beta-8
Distributor `Apple Computers' version (10 4 1) .
configured using `configure '--without-x' '--prefix=/usr/local''

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: nil
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

Major mode: Shell-script

Minor modes in effect:
  show-paren-mode: t
  delete-selection-mode: t
  pc-selection-mode: t
  cua-mode: t
  aquamacs-tool-bar-mode: t
  smart-frame-positioning-mode: t
  recentf-mode: t
  encoded-kbd-mode: t
  osx-key-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  tooltip-mode: t
  auto-compression-mode: t
  menu-bar-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-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
  next-error-follow-minor-mode:  Fol

Recent input:
<down-mouse-1> <mouse-1> <help-echo> H-v H-z <help-echo> <help-echo>  
<help-echo> <tool-bar> <paste> <help-echo> <up> <up> <up> <up> <left>  
C-x C-e <down> <down> <down> <left> C-x C-e <down> <down> <down>  
<escape> x s h - m o d e <return> <help-echo> <down-mouse-1>  
<mouse-1> <switch-frame> <help-echo> <down-mouse-1> <mouse-1> H-w  
<help-echo> <menu-bar> <help-menu> <report-emacs-bug>

Recent messages:
Loading sh-script...done
Setting up indent for shell type bash
Loading regexp-opt...done
setting up indent stuff
Indentation variable are now local.
Indentation setup for shell type bash
Loading jit-lock...done

nil