GNU bug report logs - #10392
mention ad-handle-definition startup warnings

Previous Next

Full log

Message #15 received at 10392 <at> debbugs.gnu.org (full text, mbox):

From: jidanni <at> jidanni.org
To: 10392 <at> debbugs.gnu.org
Cc: yamaoka <at> jpl.org
Subject: Re: I need to turn off defadvice warnings
Date: Sat, 07 Jan 2012 06:47:13 +0800

OK,
(info "(elisp) Advising Functions")
should mention that advising functions will produce warnings.
And to turn off the warnings, one needs to (setq ad-redefinition-action 'accept),
and one cannot just turn them off for one advice, with e.g., let().

;(let ((ad-redefinition-action 'accept))
  (setq ad-redefinition-action 'accept)
  (defadvice gnus-summary-select-article-buffer (after jump-to-html-part
						     activate)
  "Jump to an html part that emacs-w3m rendered, if any."
  (unless (get-text-property (point) 'mm-inline-text-html-with-w3m)
    (let ((pos (text-property-any (point-min) (point-max)
				  'mm-inline-text-html-with-w3m t)))
      (gnus-goto-char pos))))
;)

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.