changeset 87714:2c349cf3a783

(nxml-internal-unicode-char-name-sets-enabled): Rename from nxml-enable-unicode-char-name-sets-flag. (nxml-enable-unicode-char-name-sets-1): Merge into nxml-enable-unicode-char-name-sets. (nxml-enable-unicode-char-name-sets): Don't unconditionally set nxml-char-name-ignore-case here.
author Jason Rumney <jasonr@gnu.org>
date Fri, 11 Jan 2008 16:00:09 +0000
parents 382c7e50d28c
children 39844b05431b
files lisp/nxml/nxml-uchnm.el
diffstat 1 files changed, 6 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/nxml/nxml-uchnm.el	Fri Jan 11 15:12:17 2008 +0000
+++ b/lisp/nxml/nxml-uchnm.el	Fri Jan 11 16:00:09 2008 +0000
@@ -28,9 +28,6 @@
 ;; Standard.  The use of the names can be controlled on a per-block
 ;; basis, so as both to reduce memory usage and loading time,
 ;; and to make completion work better.
-;; The main entry point is `nxml-enable-unicode-char-name-sets'.  Typically,
-;; this is added to `nxml-mode-hook' (rng-auto.el does this already).
-;; To customize the blocks for which names are used
 
 ;;; Code:
 
@@ -213,7 +210,9 @@
           data-directory)))
       nxml-unicode-blocks)
 
-(defvar nxml-enable-unicode-char-name-sets-flag nil)
+;; Internal flag to control whether customize reloads the character tables.
+;; Should be set the first time the 
+(defvar nxml-internal-unicode-char-name-sets-enabled nil)
 
 (defcustom nxml-enabled-unicode-blocks nxml-enabled-unicode-blocks-default
   "List of Unicode blocks for which Unicode character names are enabled.
@@ -222,8 +221,8 @@
   :group 'nxml
   :set (lambda (sym value)
 	 (set-default 'nxml-enabled-unicode-blocks value)
-	 (when nxml-enable-unicode-char-name-sets-flag
-	   (nxml-enable-unicode-char-name-sets-1)))
+	 (when nxml-internal-unicode-char-name-sets-enabled
+	   (nxml-enable-unicode-char-name-sets)))
   :type (cons 'set
 	      (mapcar (lambda (block)
 			`(const :tag ,(format "%s (%04X-%04X)"
@@ -240,11 +239,7 @@
 The Unicode blocks for which names are enabled is controlled by
 the variable `nxml-enabled-unicode-blocks'."
   (interactive)
-  (setq nxml-char-name-ignore-case t)
-  (setq nxml-enable-unicode-char-name-sets-flag t)
-  (nxml-enable-unicode-char-name-sets-1))
-
-(defun nxml-enable-unicode-char-name-sets-1 ()
+  (setq nxml-internal-unicode-char-name-sets-enabled t)
   (mapc (lambda (block)
           (nxml-disable-char-name-set
            (nxml-unicode-block-char-name-set (car block))))