Extracting elisp functions is confused by quoted variables

[Wilfred]

Given the elisp code:

(let ((x 1))
  (message "foo: %s %s" x 'bar))

emr-el-extraction-function on message gives:

(defun foo (x bar)
  (message "foo: %s %s" x 'bar))

(let ((x 1))
  (foo x bar))

Expected result:

(defun foo (x)
  (message "foo: %s %s" x 'bar))

(let ((x 1))
  (foo x))

[Wilfred]

This is due to the flattening of the list when extracting variables.

[Wilfred]

There's a similar issue with backquoting and with vectors.