all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
From: Glenn Morris <rgm@gnu.org>
To: Juanma Barranquero <lekktu@gmail.com>
Cc: Emacs developers <emacs-devel@gnu.org>
Subject: Re: Unexpected behavior byte-compiling (with-no-warnings (require...))
Date: Mon, 07 Sep 2009 21:28:57 -0400	[thread overview]
Message-ID: <t8ws4a9qcm.fsf@fencepost.gnu.org> (raw)
In-Reply-To: <f7ccd24b0909071627sbcc270ma65fe00ab1d9579d@mail.gmail.com> (Juanma Barranquero's message of "Tue, 8 Sep 2009 01:27:40 +0200")

Juanma Barranquero wrote:

>   (with-no-warnings (require 'cl))
>
> the byte-compilation output is this:
>
>   In toplevel form:
>   test.el:4:15:Error: Wrong type argument: sequencep, two

Try this patch:

*** bytecomp.el.~2.257.~	2009-09-05 12:00:44.000000000 -0700
--- bytecomp.el	2009-09-07 18:03:35.000000000 -0700
***************
*** 2387,2392 ****
--- 2387,2400 ----
    ;; Return nil so the forms are not output twice.
    nil)
  
+ (put 'with-no-warnings 'byte-hunk-handler
+      'byte-compile-file-form-with-no-warnings)
+ (defun byte-compile-file-form-with-no-warnings (form)
+   ;; cf byte-compile-file-form-progn.
+   (let (byte-compile-warnings)
+     (mapc 'byte-compile-file-form (cdr form))
+     nil))
+ 
  ;; This handler is not necessary, but it makes the output from dont-compile
  ;; and similar macros cleaner.
  (put 'eval 'byte-hunk-handler 'byte-compile-file-form-eval)




  reply	other threads:[~2009-09-08  1:28 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2009-09-07 23:27 Unexpected behavior byte-compiling (with-no-warnings (require...)) Juanma Barranquero
2009-09-08  1:28 ` Glenn Morris [this message]
2009-09-08  1:41   ` Juanma Barranquero

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=t8ws4a9qcm.fsf@fencepost.gnu.org \
    --to=rgm@gnu.org \
    --cc=emacs-devel@gnu.org \
    --cc=lekktu@gmail.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.