Commit def7167b authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(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> 2006-12-04 Stefan Monnier <monnier@iro.umontreal.ca>
   
* textmodes/sgml-mode.el (sgml-font-lock-keywords-1): Fix pathological * 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'." ...@@ -212,11 +212,10 @@ The list is null if CHAR isn't found in `describe-char-unicodedata-file'."
(when describe-char-unicodedata-file (when describe-char-unicodedata-file
(unless (file-exists-p describe-char-unicodedata-file) (unless (file-exists-p describe-char-unicodedata-file)
(error "`unicodedata-file' %s not found" describe-char-unicodedata-file)) (error "`unicodedata-file' %s not found" describe-char-unicodedata-file))
(with-current-buffer (with-current-buffer (get-buffer-create " *Unicode Data*")
;; Find file in fundamental mode to avoid, e.g. flyspell turned (when (zerop (buffer-size))
;; on for .txt. Don't use RAWFILE arg in case of DOS line endings. ;; Don't use -literally in case of DOS line endings.
(let ((auto-mode-alist)) (insert-file-contents describe-char-unicodedata-file))
(find-file-noselect describe-char-unicodedata-file))
(goto-char (point-min)) (goto-char (point-min))
(let ((hex (format "%04X" char)) (let ((hex (format "%04X" char))
found first last) 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