Eager macroexpansion failure in Emacs 24.3

[Michael Olson <mwolson@gnu.org>]

[-- Attachment #1.1: Type: text/plain, Size: 596 bytes --]

emacs --no-init-file --load ~/test-case.el

In *Messages* buffer:

Eager macro-expansion failure: (error "(erc-response\\.contents parsed) is
not a valid place expression")

I can work around this by putting (require 'erc) and the function
definition in different 'when' blocks, but it's not ideal.

The erc-response struct is defined in erc-backend.el, which is loaded by
erc.el.

Putting (require 'erc) inside of a 'when' statement along with code that
relies on functions provided by a struct defined by a file it loads seems
to trigger the problem.

-- 
Michael Olson  |  http://mwolson.org/

[-- Attachment #1.2: Type: text/html, Size: 899 bytes --]

[-- Attachment #2: test-case.el --]
[-- Type: application/octet-stream, Size: 545 bytes --]


(when t
  (require 'erc)
  (defun my-erc-remove-trailing-whitespace (proc parsed)
    "Remove trailing whitespace from the current message.
Some IM clients use an OTR plug-in that sends some annoying
trailing space to the screen, so we want to clean that up."
    (let ((msg (erc-response.contents parsed)))
      (when (stringp msg)
        (setf (erc-response.contents parsed)
              (erc-replace-regexp-in-string "[[:space:]]+\\'" "" msg))
        nil)))
  (add-hook 'erc-server-PRIVMSG-functions 'my-erc-remove-trailing-whitespace))