* admin/unidata/unidata-gen.el (unidata-gen-files):

Fix deletion of existing output files after 2013-10-30 changes.

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 40848069b55be63cf9ab6092bd140100d2a2d82b..1b4c50bcdde4ac99127a887c17e6ffcc717b2ad0 100644 (file)
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-09  Glenn Morris  <rgm@gnu.org>
+
+       * unidata/unidata-gen.el (unidata-gen-files):
+       Fix deletion of existing output files after 2013-10-30 changes.
+
 2013-11-07  Glenn Morris  <rgm@gnu.org>
 
        * unidata/unidata-gen.el (unidata-gen-files):

diff --git a/admin/unidata/unidata-gen.el b/admin/unidata/unidata-gen.el
index 3a05dbd4ca95e2408f2e36fc1105d1d883e8fa52..2e2eebe2c907d8870d32dd5c3c03be4f45f8918b 100644 (file)
--- a/admin/unidata/unidata-gen.el
+++ b/admin/unidata/unidata-gen.el
@@ -1196,7 +1196,7 @@ is the character itself.")))
        (unidata-dir data-dir))
     (dolist (elt unidata-prop-alist)
       (let* ((prop (car elt))
-            (file (unidata-prop-file prop)))
+            (file (expand-file-name (unidata-prop-file prop) dest-dir)))
        (if (file-exists-p file)
            (delete-file file))))
     (unidata-setup-list unidata-text-file)