Commit def7167b authored by Juanma Barranquero's avatar Juanma Barranquero

(describe-char-unicode-data): Use a hidden buffer for Unicode data file pointed

to by `describe-char-unicodedata-file'.
parent ee77eef5
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
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment