# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1165227650 0
# Node ID 04f1edde004dc27b7d92c9876b91e9f54112bf75
# Parent  91577a136109391be919670c047c9f80e68bedf2
(describe-char-unicode-data): Use a hidden buffer for Unicode data file pointed
to by `describe-char-unicodedata-file'.

diff -r 91577a136109 -r 04f1edde004d lisp/descr-text.el
--- a/lisp/descr-text.el	Mon Dec 04 08:18:09 2006 +0000
+++ b/lisp/descr-text.el	Mon Dec 04 10:20:50 2006 +0000
@@ -212,11 +212,10 @@
   (when describe-char-unicodedata-file
     (unless (file-exists-p describe-char-unicodedata-file)
       (error "`unicodedata-file' %s not found" describe-char-unicodedata-file))
-    (with-current-buffer
-	;; Find file in fundamental mode to avoid, e.g. flyspell turned
-	;; on for .txt.  Don't use RAWFILE arg in case of DOS line endings.
-	(let ((auto-mode-alist))
-	  (find-file-noselect describe-char-unicodedata-file))
+    (with-current-buffer (get-buffer-create " *Unicode Data*")
+      (when (zerop (buffer-size))
+	;; Don't use -literally in case of DOS line endings.
+	(insert-file-contents describe-char-unicodedata-file))
       (goto-char (point-min))
       (let ((hex (format "%04X" char))
 	    found first last)