diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2006-12-04 10:24:04 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2006-12-04 10:24:04 +0000 |
commit | def7167bdf6aa3326bea073bedc4518de17279cd (patch) | |
tree | 231e5a4dd1c679694be4c19c2066e3368e8b126d /lisp/descr-text.el | |
parent | ee77eef5189c4fe644ac44518bab5e05d8fd18f0 (diff) |
(describe-char-unicode-data): Use a hidden buffer for Unicode data file pointed
to by `describe-char-unicodedata-file'.
Diffstat (limited to 'lisp/descr-text.el')
-rw-r--r-- | lisp/descr-text.el | 9 |
1 files changed, 4 insertions, 5 deletions
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) |