[Emacs-diffs] Changes to emacs/lisp/nxml/nxml-uchnm.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/11/28 04:55:18

Index: nxml-uchnm.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/nxml/nxml-uchnm.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- nxml-uchnm.el       28 Nov 2007 04:11:18 -0000      1.3
+++ nxml-uchnm.el       28 Nov 2007 04:55:18 -0000      1.4
@@ -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))))
+(mapc (lambda (block)
             (nxml-autoload-char-name-set
-             sym
+         (nxml-unicode-block-char-name-set (car block))
              (expand-file-name
-              (format "char-name/unicode/%05X-%05X"
+          (format "nxml/%05X-%05X"
                       (nth 1 block)
                       (nth 2 block))
-              dir))))
-        nxml-unicode-blocks))
+          data-directory)))
+      nxml-unicode-blocks)
 
 (defvar nxml-enable-unicode-char-name-sets-flag nil)