Mercurial > emacs

changeset 86565:1f32aa6d8ea7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(top-level): Adapt for moved unicode files.
author Glenn Morris <rgm@gnu.org>
date Wed, 28 Nov 2007 04:55:18 +0000
parents f33f3cb72cfc
children e65aa0c7c5cf
files lisp/nxml/nxml-uchnm.el
diffstat 1 files changed, 9 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/nxml/nxml-uchnm.el	Wed Nov 28 04:52:59 2007 +0000
+++ b/lisp/nxml/nxml-uchnm.el	Wed Nov 28 04:55:18 2007 +0000
@@ -203,17 +203,15 @@
     mathematical-alphanumeric-symbols)
   "Default value for `nxml-enabled-unicode-blocks'.")
 
-(let ((dir (file-name-directory load-file-name)))
-  (mapc (lambda (block)
-          (let ((sym (nxml-unicode-block-char-name-set (car block))))
-            (nxml-autoload-char-name-set
-             sym
-             (expand-file-name
-              (format "char-name/unicode/%05X-%05X"
-                      (nth 1 block)
-                      (nth 2 block))
-              dir))))
-        nxml-unicode-blocks))
+(mapc (lambda (block)
+        (nxml-autoload-char-name-set
+         (nxml-unicode-block-char-name-set (car block))
+         (expand-file-name
+          (format "nxml/%05X-%05X"
+                  (nth 1 block)
+                  (nth 2 block))
+          data-directory)))
+      nxml-unicode-blocks)
 
 (defvar nxml-enable-unicode-char-name-sets-flag nil)