[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/nxml/nxml-uchnm.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/nxml/nxml-uchnm.el,v |
Date: |
Wed, 28 Nov 2007 04:55:18 +0000 |
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)