Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
def7167b
Commit
def7167b
authored
Dec 04, 2006
by
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
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
5 deletions
+9
-5
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/descr-text.el
lisp/descr-text.el
+4
-5
No files found.
lisp/ChangeLog
View file @
def7167b
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
lisp/descr-text.el
View file @
def7167b
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment