From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Re: recursive load case in openp Date: Thu, 11 Apr 2002 21:12:06 -0600 (MDT) Sender: emacs-devel-admin@gnu.org Message-ID: <200204120312.g3C3C6L22215@aztec.santafe.edu> References: <200204102343.IAA06716@etlken.m17n.org> Reply-To: rms@gnu.org NNTP-Posting-Host: localhost.gmane.org X-Trace: main.gmane.org 1018581321 11608 127.0.0.1 (12 Apr 2002 03:15:21 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 12 Apr 2002 03:15:21 +0000 (UTC) Cc: eliz@is.elta.co.il, walters@debian.org, emacs-devel@gnu.org Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 16vrWz-000317-00 for ; Fri, 12 Apr 2002 05:15:21 +0200 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 16vrn3-0002wy-00 for ; Fri, 12 Apr 2002 05:31:58 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 16vrWr-00018X-00; Thu, 11 Apr 2002 23:15:13 -0400 Original-Received: from pele.santafe.edu ([192.12.12.119]) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 16vrTt-0000mT-00; Thu, 11 Apr 2002 23:12:09 -0400 Original-Received: from aztec.santafe.edu (aztec [192.12.12.49]) by pele.santafe.edu (8.11.6+Sun/8.9.3) with ESMTP id g3C3C7a15548; Thu, 11 Apr 2002 21:12:07 -0600 (MDT) Original-Received: (from rms@localhost) by aztec.santafe.edu (8.10.2+Sun/8.9.3) id g3C3C6L22215; Thu, 11 Apr 2002 21:12:06 -0600 (MDT) X-Authentication-Warning: aztec.santafe.edu: rms set sender to rms@aztec using -f Original-To: handa@etl.go.jp In-Reply-To: <200204102343.IAA06716@etlken.m17n.org> (message from Kenichi Handa on Thu, 11 Apr 2002 08:43:35 +0900 (JST)) Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.9 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:2558 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:2558 Does this do the job? *** coding.c.~1.240.~ Mon Mar 11 22:53:04 2002 --- coding.c Thu Apr 11 16:02:47 2002 *************** *** 5797,5813 **** int count = specpdl_ptr - specpdl; struct gcpro gcpro1; int multibyte = STRING_MULTIBYTE (str); record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); record_unwind_protect (code_convert_region_unwind, Qnil); GCPRO1 (str); ! temp_output_buffer_setup (" *code-converting-work*"); ! set_buffer_internal (XBUFFER (Vstandard_output)); /* We must insert the contents of STR as is without unibyte<->multibyte conversion. For that, we adjust the multibyteness of the working buffer to that of STR. */ Ferase_buffer (); ! current_buffer->enable_multibyte_characters = multibyte ? Qt : Qnil; insert_from_string (str, 0, 0, XSTRING (str)->size, STRING_BYTES (XSTRING (str)), 0); UNGCPRO; --- 5797,5826 ---- int count = specpdl_ptr - specpdl; struct gcpro gcpro1; int multibyte = STRING_MULTIBYTE (str); + Lisp_Object buffer; + struct buffer *buf; record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); record_unwind_protect (code_convert_region_unwind, Qnil); GCPRO1 (str); ! ! buffer = Fget_buffer_create (build_string (" *code-converting-work*")); ! buf = XBUFFER (buffer); ! ! buf->directory = current_buffer->directory; ! buf->read_only = Qnil; ! buf->filename = Qnil; ! buf->undo_list = Qt; ! buf->overlays_before = Qnil; ! buf->overlays_after = Qnil; ! ! set_buffer_internal (buf); /* We must insert the contents of STR as is without unibyte<->multibyte conversion. For that, we adjust the multibyteness of the working buffer to that of STR. */ Ferase_buffer (); ! buf->enable_multibyte_characters = multibyte ? Qt : Qnil; ! insert_from_string (str, 0, 0, XSTRING (str)->size, STRING_BYTES (XSTRING (str)), 0); UNGCPRO;