bug#17446: 24.4.50; What is the situation around `called-interactively-p'?

[Stefan Monnier]

> How 'bout the patch below,

BTW, for older Emacsen, you can probably use a hack along the lines of
the guaranteed 100% untested code below:

   (defun funcall-interactively (fun &rest args)
     (call-interactively
       (cond
        ((consp fun)
         (mapcar (lambda (x)
                   (if (eq (car-safe x) 'interactive))
                     `(interactive ',args) x)
                 fun))
        ((byte-code-function-p)
         (apply #'make-byte-code
                (aref 0 fun)
                (aref 1 fun)
                (aref 2 fun)
                (aref 3 fun)
                (aref 4 fun)
                `',args)))))

-- Stefan