From: Juanma Barranquero <lekktu@gmail.com>
Date: Mon, 4 Dec 2006 10:24:04 +0000 (+0000)
Subject: (describe-char-unicode-data): Use a hidden buffer for Unicode data file pointed
X-Git-Tag: emacs-pretest-22.0.92~319
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=def7167bdf6aa3326bea073bedc4518de17279cd;p=emacs.git

(describe-char-unicode-data): Use a hidden buffer for Unicode data file pointed
to by `describe-char-unicodedata-file'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4d3e30b3452..0e9c2c352b2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-04  Juanma Barranquero  <lekktu@gmail.com>
+
+	* descr-text.el (describe-char-unicode-data): Use a hidden buffer for
+	Unicode data file pointed to by `describe-char-unicodedata-file'.
+
 2006-12-04  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* textmodes/sgml-mode.el (sgml-font-lock-keywords-1): Fix pathological
diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 8fb28930fbf..361c3b8c15c 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -212,11 +212,10 @@ The list is null if CHAR isn't found in `describe-char-unicodedata-file'."
   (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)