diff options
| author | Stefan Monnier | 2010-08-18 12:21:43 +0200 |
|---|---|---|
| committer | Stefan Monnier | 2010-08-18 12:21:43 +0200 |
| commit | 0193499fe1b0666b73bdd4a4e628e0af065ea42f (patch) | |
| tree | ea5419d08ab50404dc7135215c33fc3e7e98d18d /src/eval.c | |
| parent | c785836ddc6ac51fd46f4a476c75c3b2327cc2b0 (diff) | |
| download | emacs-0193499fe1b0666b73bdd4a4e628e0af065ea42f.tar.gz emacs-0193499fe1b0666b73bdd4a4e628e0af065ea42f.zip | |
* lisp/emacs-lisp/autoload.el (make-autoload): Preload the macros's
declarations that are useful before running the macro.
* src/eval.c (Fdefmacro): Only obey one declaration.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index f127ef03293..5c6b268187b 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -690,8 +690,8 @@ usage: (defmacro NAME ARGLIST [DOCSTRING] [DECL] BODY...) */) | |||
| 690 | tail = XCDR (tail); | 690 | tail = XCDR (tail); |
| 691 | } | 691 | } |
| 692 | 692 | ||
| 693 | while (CONSP (Fcar (tail)) | 693 | if (CONSP (Fcar (tail)) |
| 694 | && EQ (Fcar (Fcar (tail)), Qdeclare)) | 694 | && EQ (Fcar (Fcar (tail)), Qdeclare)) |
| 695 | { | 695 | { |
| 696 | if (!NILP (Vmacro_declaration_function)) | 696 | if (!NILP (Vmacro_declaration_function)) |
| 697 | { | 697 | { |