From 6678dc115d07a7c352747e9441eed4641a145e3a Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 22 Aug 2007 07:51:39 +0000 Subject: [PATCH] (x_find_image_file): Search in etc/images/ rather than etc/. --- src/image.c | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/src/image.c b/src/image.c index 2f2fbf3a596..72f8a7ba47b 100644 --- a/src/image.c +++ b/src/image.c @@ -1,6 +1,7 @@ /* Functions for image support on window system. Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, - 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. + 2001, 2002, 2003, 2004, 2005, 2006, 2007 + Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -2353,7 +2354,7 @@ x_put_x_image (f, ximg, pixmap, width, height) static unsigned char *slurp_file P_ ((char *, int *)); -/* Find image file FILE. Look in data-directory, then +/* Find image file FILE. Look in data-directory/images, then x-bitmap-file-path. Value is the encoded full name of the file found, or nil if not found. */ @@ -2366,7 +2367,11 @@ x_find_image_file (file) int fd; file_found = Qnil; - search_path = Fcons (Vdata_directory, Vx_bitmap_file_path); + /* TODO I think this should use something like image-load-path + instead. Unfortunately, that can contain non-string elements. */ + search_path = Fcons (Fexpand_file_name (build_string ("images"), + Vdata_directory), + Vx_bitmap_file_path); GCPRO2 (file_found, search_path); /* Try to find FILE in data-directory, then x-bitmap-file-path. */ -- 2.39.2