From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Michael Albinus Newsgroups: gmane.emacs.help Subject: Re: Windows Emacs doesn't understand UNIX symbolic link? Date: Thu, 03 Apr 2008 21:45:27 +0200 Message-ID: <877ife204o.fsf@gmx.de> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1207251857 29604 80.91.229.12 (3 Apr 2008 19:44:17 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 3 Apr 2008 19:44:17 +0000 (UTC) Cc: help-gnu-emacs@gnu.org To: Eli Zaretskii Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Thu Apr 03 21:44:48 2008 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JhVMZ-0006Ok-SX for geh-help-gnu-emacs@m.gmane.org; Thu, 03 Apr 2008 21:44:44 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JhVLx-00031C-FF for geh-help-gnu-emacs@m.gmane.org; Thu, 03 Apr 2008 15:44:05 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JhVLe-0002yE-JL for help-gnu-emacs@gnu.org; Thu, 03 Apr 2008 15:43:46 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JhVLb-0002rP-3S for help-gnu-emacs@gnu.org; Thu, 03 Apr 2008 15:43:46 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JhVLb-0002rD-0K for help-gnu-emacs@gnu.org; Thu, 03 Apr 2008 15:43:43 -0400 Original-Received: from mail.gmx.net ([213.165.64.20]) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1JhVLa-0004mi-Q5 for help-gnu-emacs@gnu.org; Thu, 03 Apr 2008 15:43:43 -0400 Original-Received: (qmail invoked by alias); 03 Apr 2008 19:43:40 -0000 Original-Received: from p57A20159.dip0.t-ipconnect.de (EHLO arthur.local) [87.162.1.89] by mail.gmx.net (mp045) with SMTP; 03 Apr 2008 21:43:40 +0200 X-Authenticated: #3708877 X-Provags-ID: V01U2FsdGVkX1/g1JopO9PgtJvoaL6efYvo03BI9oJW/4vKDPPYVO ejr9I53C/24Bg7 In-Reply-To: (Eli Zaretskii's message of "Wed, 02 Apr 2008 20:11:44 +0300") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux) X-Y-GMX-Trusted: 0 X-detected-kernel: by monty-python.gnu.org: Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:53025 Archived-At: --=-=-= Eli Zaretskii writes: > Yes, that's what we need: to change make-symbolic-link so that only > its native part is ifdef'ed away on systems without S_IFLNK, and the > file-handler part is available on all systems. The appended patch (towards the trunk) shall do the job. I have no build environment for W32; could somebody, please, test it there? Best regards, Michael. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment *** fileio.c.~1.609.~ 2008-03-29 20:27:38.000000000 +0100 --- fileio.c 2008-04-03 21:37:26.000000000 +0200 *************** *** 2878,2884 **** return Qnil; } - #ifdef S_IFLNK DEFUN ("make-symbolic-link", Fmake_symbolic_link, Smake_symbolic_link, 2, 3, "FMake symbolic link to file: \nGMake symbolic link to file %s: \np", doc: /* Make a symbolic link to FILENAME, named LINKNAME. --- 2878,2883 ---- *************** *** 2923,2928 **** --- 2922,2928 ---- RETURN_UNGCPRO (call4 (handler, Qmake_symbolic_link, filename, linkname, ok_if_already_exists)); + #ifdef S_IFLNK encoded_filename = ENCODE_FILE (filename); encoded_linkname = ENCODE_FILE (linkname); *************** *** 2949,2956 **** } UNGCPRO; return Qnil; ! } #endif /* S_IFLNK */ #ifdef VMS --- 2949,2961 ---- } UNGCPRO; return Qnil; ! ! #else ! UNGCPRO; ! xsignal1 (Qfile_error, build_string ("Symbolic links are not supported")); ! #endif /* S_IFLNK */ + } #ifdef VMS *************** *** 6766,6774 **** defsubr (&Sdelete_file); defsubr (&Srename_file); defsubr (&Sadd_name_to_file); - #ifdef S_IFLNK defsubr (&Smake_symbolic_link); - #endif /* S_IFLNK */ #ifdef VMS defsubr (&Sdefine_logical_name); #endif /* VMS */ --- 6771,6777 ---- --=-=-=--