From mboxrd@z Thu Jan  1 00:00:00 1970
From: Thomas Baumann <thomas.baumann@ch.tum.de>
Subject: Bug in 4.19a
Date: Tue, 04 Apr 2006 10:26:57 +0200
Message-ID: <1710.1144139217@mafu.ws.chemie.tu-muenchen.de>
Reply-To: thomas.baumann@ch.tum.de
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1FQgsV-00012X-Ru
	for emacs-orgmode@gnu.org; Tue, 04 Apr 2006 04:27:07 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1FQgsT-00010s-Vg
	for emacs-orgmode@gnu.org; Tue, 04 Apr 2006 04:27:07 -0400
Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1FQgsT-00010W-CT
	for emacs-orgmode@gnu.org; Tue, 04 Apr 2006 04:27:05 -0400
Received: from [129.187.254.102] (helo=mailrelay2.lrz-muenchen.de)
	by monty-python.gnu.org with esmtp (Exim 4.52) id 1FQgvi-0000b1-EM
	for emacs-orgmode@gnu.org; Tue, 04 Apr 2006 04:30:26 -0400
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org

Hi Carsten,

in version 4.19a the interactive setting of file links is not working
anymore:

C-u C-c C-l

fails with

string-match: Wrong type argument: stringp, nil

Backtrace:

  expand-file-name(nil)
  (string-match (concat "^" (regexp-quote pwd) "\\(.+\\)") (expand-file-name link))
  (cond ((equal complete-file ...) (setq link ...)) ((string-match ... ...) (setq link ...)) (t (setq link ...)))
  (let ((pwd ...)) (cond (... ...) (... ...) (t ...)))
  (cond ((save-excursion ... ...) (setq remove ...) (setq desc ...) (setq link ...)) (complete-file (setq file ...) (let ... ...)) (t (setq link ...) (setq entry ...) (if ... ...) (setq link ... desc ...)))
  (let (link desc entry remove file (pos ...)) (cond (... ... ... ...) (complete-file ... ...) (t ... ... ... ...)) (if (string-match org-link-regexp link) (setq link ...)) (when (string-match "\\<file:\\(.+?\\)::\\([^>]+\\)" link) (let* ... ...)) (setq desc (read-string "Description: " desc)) (unless (string-match "\\S-" desc) (setq desc nil)) (if remove (apply ... remove)) (insert (org-make-link-string link desc)))
  org-insert-link((4))
  call-interactively(org-insert-link)

Greetings
Thomas