procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
to by `describe-char-unicodedata-file'.
This commit is contained in:
Juanma Barranquero 2006-12-04 10:24:04 +00:00
parent ee77eef518
commit def7167bdf
2 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

9
lisp/descr-text.el
View file

@ -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)