* elmo-file.el (elmo-file-find): Fixed the problem when file is

not found.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 03fe962..42aab59 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-file.el (elmo-file-find): Fixed the problem when file is
+       not found.
+
 2004-02-22  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-file.el (elmo-file-find): Use expand-file-name for return

diff --git a/elmo/elmo-file.el b/elmo/elmo-file.el
index a1866ec..fd8e6b6 100644 (file)
--- a/elmo/elmo-file.el
+++ b/elmo/elmo-file.el
@@ -40,7 +40,7 @@
        (setq file (car files)
              files nil))
       (setq files (cdr files)))
-    (expand-file-name file)))
+    (and file (expand-file-name file))))
 
 (defcustom elmo-file-command (exec-installed-p "file")
   "*Program name of the file type detection command `file'."