Commit 7d3b9d44 authored by Glenn Morris's avatar Glenn Morris
Browse files

bytecomp.el partial fix for bug#8646.

* lisp/emacs-lisp/bytecomp.el (byte-compile-arglist-warn):
Handle symbol elements of byte-compile-initial-macro-environment.
parent 15cc1ab1
2011-05-11 Glenn Morris <rgm@gnu.org>
* emacs-lisp/bytecomp.el (byte-compile-arglist-warn):
Handle symbol elements of byte-compile-initial-macro-environment.
2011-05-10 Leo Liu <sdl.web@gmail.com>
* bookmark.el (bookmark-bmenu-mode-map): Bind
......
......@@ -1314,7 +1314,15 @@ extra args."
;; number of arguments.
(defun byte-compile-arglist-warn (form macrop)
(let* ((name (nth 1 form))
(old (byte-compile-fdefinition name macrop)))
(old (byte-compile-fdefinition name macrop))
(initial (and macrop
(cdr (assq name
byte-compile-initial-macro-environment)))))
;; Assumes an element of b-c-i-macro-env that is a symbol points
;; to a defined function. (Bug#8646)
(and initial (symbolp initial)
(setq old (byte-compile-fdefinition initial nil)
initial 'yes))
(if (and old (not (eq old t)))
(progn
(and (eq 'macro (car-safe old))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment