Mercurial > emacs
changeset 74403:04f1edde004d
(describe-char-unicode-data): Use a hidden buffer for Unicode data file pointed
to by `describe-char-unicodedata-file'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 04 Dec 2006 10:20:50 +0000 |
| parents | 91577a136109 |
| children | 618f798d04c2 |
| files | lisp/descr-text.el |
| diffstat | 1 files changed, 4 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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)