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: Strange `file-name-sans-extension' behavior Date: Sat, 27 Jul 2002 12:53:41 -0600 (MDT) Sender: emacs-devel-admin@gnu.org Message-ID: <200207271853.g6RIrf310840@aztec.santafe.edu> References: Reply-To: rms@gnu.org NNTP-Posting-Host: localhost.gmane.org X-Trace: main.gmane.org 1027796145 19376 127.0.0.1 (27 Jul 2002 18:55:45 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sat, 27 Jul 2002 18:55:45 +0000 (UTC) Cc: 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 17YWj9-00052O-00 for ; Sat, 27 Jul 2002 20:55:43 +0200 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 17YWzX-0005Mv-00 for ; Sat, 27 Jul 2002 21:12:39 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.35 #1 (Debian)) id 17YWjU-0005LO-00; Sat, 27 Jul 2002 14:56:04 -0400 Original-Received: from pele.santafe.edu ([192.12.12.119]) by fencepost.gnu.org with esmtp (Exim 3.35 #1 (Debian)) id 17YWhD-0004vT-00; Sat, 27 Jul 2002 14:53:43 -0400 Original-Received: from aztec.santafe.edu (aztec [192.12.12.49]) by pele.santafe.edu (8.11.6+Sun/8.11.6) with ESMTP id g6RIrpB17954; Sat, 27 Jul 2002 12:53:51 -0600 (MDT) Original-Received: (from rms@localhost) by aztec.santafe.edu (8.10.2+Sun/8.9.3) id g6RIrf310840; Sat, 27 Jul 2002 12:53:41 -0600 (MDT) X-Authentication-Warning: aztec.santafe.edu: rms set sender to rms@aztec using -f Original-To: Jens.Schmidt27@epost.de In-Reply-To: (message from Jens Schmidt on 26 Jul 2002 11:15:05 +0000) Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.11 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:6092 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:6092 Does this fix it? *** files.el.~1.598.~ Fri Jul 26 11:47:31 2002 --- files.el Sat Jul 27 14:16:42 2002 *************** *** 2468,2475 **** (if (and (string-match "\\.[^.]*\\'" file) (not (eq 0 (match-beginning 0)))) (if (setq directory (file-name-directory filename)) ! (expand-file-name (substring file 0 (match-beginning 0)) ! directory) (substring file 0 (match-beginning 0))) filename)))) --- 2468,2476 ---- (if (and (string-match "\\.[^.]*\\'" file) (not (eq 0 (match-beginning 0)))) (if (setq directory (file-name-directory filename)) ! ;; Don't use expand-file-name here; if DIRECTORY is relative, ! ;; we don't want to expand it. ! (concat directory (substring file 0 (match-beginning 0))) (substring file 0 (match-beginning 0))) filename))))