defadvice protect / (error ...)

[David Reitter]

This code

(defadvice error (around ring-bell (&rest args) activate protect)
  (let ((ring-bell-function nil))
    (ding)
    ad-do-it))

lets ring-bell-function set to nil after (error "xxx") is called.
When I change the scope of (let ..) to not include ad-do-it,  
everything is fine of course.

Apparently, 'protect' doesn't protect against an exit from error....





In GNU Emacs 22.0.50.3 (powerpc-apple-darwin8.1.0)
 of 2005-07-06 on lucy - Aquamacs Distribution 0.9.4
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: Emacs-Lisp

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

Recent input:
) <down-mouse-1> <mouse-1> a d - d o - i t <return>
<tab> <up> <return> <tab> <up> ( d i n g ) <down-mouse-1>
<mouse-1> H-c <down-mouse-1> <mouse-1> <double-down-mouse-1>
<double-mouse-1> H-c <down-mouse-1> <mouse-1> H-v <down-mouse-1>
<mouse-1> <double-down-mouse-1> <double-mouse-1> <down-mouse-1>
<mouse-1> <double-down-mouse-1> <double-mouse-1> H-x
<down-mouse-1> <mouse-1> H-v SPC <down-mouse-1> <mouse-1>
<double-down-mouse-1> <double-mouse-1> SPC <down-mouse-1>
<mouse-1> C-x C-e H-w <switch-frame> <down-mouse-1>
<mouse-1> ) <down> <down> <down> <down> <left> C-x
C-e <down-mouse-1> <mouse-1> C-x C-e <switch-frame>
C-x C-e j q <switch-frame> H-w <down-mouse-1> <mouse-movement>
<mouse-1> <return> <return> <switch-frame> <down-mouse-1>
<mouse-movement> <mouse-1> C-x C-e <down-mouse-1> <mouse-1>
<down-mouse-1> <mouse-1> <double-down-mouse-1> <double-mouse-1>
H-c <menu-bar> <help-menu> <report-emacs-bug>

Recent messages:
nil
Entering debugger...
error
((ring-bell-function (lambda nil (message ""))))
Entering debugger...
Continuing through this frame
Entering debugger...
Back to top level.
(lambda nil (message ""))
Auto-saving...