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
bcd79f83
Commit
bcd79f83
authored
May 22, 2008
by
Kenichi Handa
Browse files
(font-show-log): Limit each listing
to 20 items.
parent
955b979c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
1 deletion
+10
-1
lisp/international/mule-diag.el
lisp/international/mule-diag.el
+10
-1
No files found.
lisp/international/mule-diag.el
View file @
bcd79f83
...
...
@@ -1304,7 +1304,16 @@ character)")
(insert (format "
%s:
%s\n
" (car elt) (cadr elt)))
(setq elt (nth 2 elt))
(if (or (vectorp elt) (listp elt))
(mapc #'(lambda (x) (insert (format "
%s\n
" x))) elt)
(let ((limit 20)
(i 0))
(catch 'tag
(mapc #'(lambda (x)
(setq i (1+ i))
(when (= i 20)
(insert "
...
\n
")
(throw 'tag nil))
(insert (format "
%s\n
" x)))
elt)))
(insert (format "
%s\n
"
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