From: Po Lu <luangruo@yahoo.com>
Date: Mon, 9 May 2022 08:22:03 +0000 (+0000)
Subject: Fix file-based launching on Haiku
X-Git-Tag: emacs-29.0.90~1910^2~884
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=52a27a67c1f501898bdb13841ce07609bbe4772e;p=emacs.git

Fix file-based launching on Haiku

* src/haikuselect.c (Fhaiku_roster_launch): Canonicalize file
names before using them.
---

diff --git a/src/haikuselect.c b/src/haikuselect.c
index 6d62f395c16..8ce71822983 100644
--- a/src/haikuselect.c
+++ b/src/haikuselect.c
@@ -821,7 +821,7 @@ after it starts.  */)
   team_id team_id;
   status_t rc;
   ptrdiff_t i, nargs;
-  Lisp_Object tem;
+  Lisp_Object tem, canonical;
   void *message;
   specpdl_ref depth;
 
@@ -840,9 +840,10 @@ after it starts.  */)
     {
       CHECK_LIST (file_or_type);
       tem = XCAR (file_or_type);
+      canonical = Fexpand_file_name (tem, Qnil);
 
       CHECK_STRING (tem);
-      SAFE_ALLOCA_STRING (file, ENCODE_FILE (tem));
+      SAFE_ALLOCA_STRING (file, ENCODE_FILE (canonical));
       CHECK_LIST_END (XCDR (file_or_type), file_or_type);
     }