Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2306a6c7
Commit
2306a6c7
authored
May 21, 2002
by
Colin Walters
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(describe-char-after): Order display of text properties by the size of
their value, for clarity.
parent
9969dd6c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
5 deletions
+15
-5
lisp/international/mule-diag.el
lisp/international/mule-diag.el
+15
-5
No files found.
lisp/international/mule-diag.el
View file @
2306a6c7
...
...
@@ -659,11 +659,21 @@ which font is being used for displaying the character."
").\n"
"See the variable `reference-point-alist' for "
"the meaning of the rule.\n"
)))
(
if
props
(
insert
"\nText properties\n"
))
(
while
props
(
insert
(
format
" %s: %s"
(
car
props
)
(
cadr
props
)))
(
setq
props
(
cddr
props
)))
(
when
props
(
insert
"\nText properties\n"
))
;; List the text properties, sorted by the size of the printed
;; representation of their value. This makes it easier to
;; read.
(
dolist
(
elt
(
sort
(
let
((
ret
nil
))
(
while
props
(
push
(
cons
(
pop
props
)
(
prin1-to-string
(
pop
props
)))
ret
))
ret
)
(
lambda
(
a
b
)
(
<
(
length
(
cdr
a
))
(
length
(
cdr
b
))))))
(
insert
(
format
" %s: %s\n"
(
car
elt
)
(
cdr
elt
))))
))))
...
...
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