From: Juanma Barranquero <lekktu@gmail.com>
To: 10851@debbugs.gnu.org
Subject: bug#10851: Error edebugging read-char-by-name
Date: Mon, 20 Feb 2012 13:49:27 +0100 [thread overview]
Message-ID: <CAAeL0SSr_DK=j-4uWob8ynQORiLWXM1gQzV2BuQMSZm8ErfdYQ@mail.gmail.com> (raw)
Package: emacs
Version: 24.0.93
This is a regression against 23.X.
emacs -Q lisp/international/mule-cmds.el
then look for `read-char-by-name', instrument it with C-u C-M-x, then
C-x b <RET> ; to switch to *scratch*
M-x ucs-insert <RET> <space> <space> <space> ; until the prompt
<space> ; at the prompt
Debugger entered--Lisp error: (error "Window #<window 4 on
*Minibuf-1*> too small for splitting")
apply(debug error (error "Window #<window 4 on *Minibuf-1*> too
small for splitting"))
edebug(error (error "Window #<window 4 on *Minibuf-1*> too small
for splitting"))
signal(error ("Window #<window 4 on *Minibuf-1*> too small for splitting"))
edebug-signal(error ("Window #<window 4 on *Minibuf-1*> too small
for splitting"))
signal(error ("Window #<window 4 on *Minibuf-1*> too small for splitting"))
error("Window %s too small for splitting" #<window 4 on *Minibuf-1*>)
byte-code(... [ignore-window-parameters function window size side
atom-root t functionp throw done window-parameter window-atom
window-atom-root split-window window-side 0 window-total-size
window-combined-p window-split-min-size window-min-size
window-combinations 2 nil window-sizable-p error "Window %s too small
for splitting" window--resize-reset float 0.5 1.0 window-normal-size
2.0 window--resize-child-windows 1.0 window-child
set-window-new-normal window-right set-window-new-total
window--resize-this-window 1.0 split-window-internal
set-window-parameter window-parent
run-window-configuration-change-hook window--check parent
window-combination-limit window-combination-resize horizontal
parent-size ...] 7)
split-window()
edebug-pop-to-buffer(#<buffer mule-cmds.el> #<window 11>)
edebug-display()
edebug-debugger(0 before nil)
edebug-before(0)
(edebug-after (edebug-before 0) 11 (if (edebug-after (edebug-before
1) 3 (eq (edebug-after 0 2 action) (quote metadata))) (quote (metadata
(category . unicode-name))) (edebug-after (edebug-before 4) 10
(complete-with-action (edebug-after 0 5 action) (edebug-after
(edebug-before 6) 7 (ucs-names)) (edebug-after 0 8 string)
(edebug-after 0 9 pred)))))
(lambda nil (edebug-after (edebug-before 0) 11 (if (edebug-after
(edebug-before 1) 3 (eq (edebug-after 0 2 action) (quote metadata)))
(quote (metadata (category . unicode-name))) (edebug-after
(edebug-before 4) 10 (complete-with-action (edebug-after 0 5 action)
(edebug-after (edebug-before 6) 7 (ucs-names)) (edebug-after 0 8
string) (edebug-after 0 9 pred))))))()
edebug-enter(edebug-anon0 ("" nil metadata) (lambda nil
(edebug-after (edebug-before 0) 11 (if (edebug-after (edebug-before 1)
3 (eq (edebug-after 0 2 action) (quote metadata))) (quote (metadata
(category . unicode-name))) (edebug-after (edebug-before 4) 10
(complete-with-action (edebug-after 0 5 action) (edebug-after
(edebug-before 6) 7 (ucs-names)) (edebug-after 0 8 string)
(edebug-after 0 9 pred)))))))
(lambda (string pred action) (edebug-enter (quote edebug-anon0)
(list string pred action) (function (lambda nil (edebug-after
(edebug-before 0) 11 (if (edebug-after (edebug-before 1) 3 (eq ...
...)) (quote (metadata ...)) (edebug-after (edebug-before 4) 10
(complete-with-action ... ... ... ...))))))))("" nil metadata)
completion-metadata("" (lambda (string pred action) (edebug-enter
(quote edebug-anon0) (list string pred action) (function (lambda nil
(edebug-after (edebug-before 0) 11 (if (edebug-after (edebug-before 1)
3 (eq ... ...)) (quote (metadata ...)) (edebug-after (edebug-before 4)
10 (complete-with-action ... ... ... ...)))))))) nil)
completion--field-metadata(24)
completion--do-completion(completion--try-word-completion)
minibuffer-complete-word()
call-interactively(minibuffer-complete-word nil nil)
read-from-minibuffer("Unicode (name or hex): " nil (keymap (menu-bar
keymap (minibuf "Minibuf" keymap (tab menu-item "Complete"
minibuffer-complete :help "Complete as far as possible") (space
menu-item "Complete Word" minibuffer-complete-word :help "Complete at
most one word") (63 menu-item "List Completions"
minibuffer-completion-help :help "Display all possible completions")
"Minibuf")) (27 keymap (118 . switch-to-completions)) (prior .
switch-to-completions) (63 . minibuffer-completion-help) (32 .
minibuffer-complete-word) (9 . minibuffer-complete) keymap (menu-bar
keymap (minibuf "Minibuf" keymap (previous menu-item "Previous History
Item" previous-history-element :help "Put previous minibuffer history
element in the minibuffer") (next menu-item "Next History Item"
next-history-element :help "Put next minibuffer history element in the
minibuffer") (isearch-backward menu-item "Isearch History Backward"
isearch-backward :help "Incrementally search minibuffer history
backward") (isearch-forward menu-item "Isearch History Forward"
isearch-forward :help "Incrementally search minibuffer history
forward") (return menu-item "Enter" exit-minibuffer :key-sequence "
" :help "Terminate input and exit minibuffer") (quit menu-item "Quit"
abort-recursive-edit :help "Abort input and exit minibuffer")
"Minibuf")) (10 . exit-minibuffer) (13 . exit-minibuffer) (7 .
abort-recursive-edit) (C-tab . file-cache-minibuffer-complete) (9 .
self-insert-command) (up . previous-history-element) (prior .
previous-history-element) (down . next-history-element) (next .
next-history-element) (27 keymap (114 .
previous-matching-history-element) (115 .
next-matching-history-element) (112 . previous-history-element) (110 .
next-history-element))) nil nil nil nil)
completing-read-default("Unicode (name or hex): " (lambda (string
pred action) (edebug-enter (quote edebug-anon0) (list string pred
action) (function (lambda nil (edebug-after (edebug-before 0) 11 (if
(edebug-after (edebug-before 1) 3 (eq ... ...)) (quote (metadata ...))
(edebug-after (edebug-before 4) 10 (complete-with-action ... ... ...
...)))))))) nil nil nil nil nil nil)
completing-read("Unicode (name or hex): " (lambda (string pred
action) (edebug-enter (quote edebug-anon0) (list string pred action)
(function (lambda nil (edebug-after (edebug-before 0) 11 (if
(edebug-after (edebug-before 1) 3 (eq ... ...)) (quote (metadata ...))
(edebug-after (edebug-before 4) 10 (complete-with-action ... ... ...
...)))))))))
(edebug-after (edebug-before 1) 3 (completing-read (edebug-after 0 2
prompt) (lambda (string pred action) (edebug-enter (quote
edebug-anon0) (list string pred action) (function (lambda nil
(edebug-after (edebug-before 0) 11 (if ... ... ...))))))))
(let* ((completion-ignore-case t) (input (edebug-after
(edebug-before 1) 3 (completing-read (edebug-after 0 2 prompt) (lambda
(string pred action) (edebug-enter (quote edebug-anon0) (list string
pred action) (function ...))))))) (edebug-after (edebug-before 4) 24
(cond ((edebug-after (edebug-before 5) 7 (string-match-p
"^[0-9a-fA-F]+$" (edebug-after 0 6 input))) (edebug-after
(edebug-before 8) 10 (string-to-number (edebug-after 0 9 input) 16)))
((edebug-after (edebug-before 11) 13 (string-match-p "^#"
(edebug-after 0 12 input))) (edebug-after (edebug-before 14) 16 (read
(edebug-after 0 15 input)))) (t (edebug-after (edebug-before 17) 23
(cdr (edebug-after (edebug-before 18) 22 (assoc-string ... ...
t))))))))
(edebug-after (edebug-before 0) 25 (let* ((completion-ignore-case t)
(input (edebug-after (edebug-before 1) 3 (completing-read
(edebug-after 0 2 prompt) (lambda (string pred action) (edebug-enter
... ... ...)))))) (edebug-after (edebug-before 4) 24 (cond
((edebug-after (edebug-before 5) 7 (string-match-p "^[0-9a-fA-F]+$"
(edebug-after 0 6 input))) (edebug-after (edebug-before 8) 10
(string-to-number (edebug-after 0 9 input) 16))) ((edebug-after
(edebug-before 11) 13 (string-match-p "^#" (edebug-after 0 12 input)))
(edebug-after (edebug-before 14) 16 (read (edebug-after 0 15 input))))
(t (edebug-after (edebug-before 17) 23 (cdr (edebug-after ... 22
...))))))))
(lambda nil (edebug-after (edebug-before 0) 25 (let*
((completion-ignore-case t) (input (edebug-after (edebug-before 1) 3
(completing-read (edebug-after 0 2 prompt) (lambda ... ...)))))
(edebug-after (edebug-before 4) 24 (cond ((edebug-after (edebug-before
5) 7 (string-match-p "^[0-9a-fA-F]+$" ...)) (edebug-after
(edebug-before 8) 10 (string-to-number ... 16))) ((edebug-after
(edebug-before 11) 13 (string-match-p "^#" ...)) (edebug-after
(edebug-before 14) 16 (read ...))) (t (edebug-after (edebug-before 17)
23 (cdr ...))))))))()
edebug-enter(read-char-by-name ("Unicode (name or hex): ") (lambda
nil (edebug-after (edebug-before 0) 25 (let* ((completion-ignore-case
t) (input (edebug-after (edebug-before 1) 3 (completing-read
(edebug-after 0 2 prompt) (lambda ... ...))))) (edebug-after
(edebug-before 4) 24 (cond ((edebug-after (edebug-before 5) 7
(string-match-p "^[0-9a-fA-F]+$" ...)) (edebug-after (edebug-before 8)
10 (string-to-number ... 16))) ((edebug-after (edebug-before 11) 13
(string-match-p "^#" ...)) (edebug-after (edebug-before 14) 16 (read
...))) (t (edebug-after (edebug-before 17) 23 (cdr ...)))))))))
edebug-enter(read-char-by-name ("Unicode (name or hex): ") (lambda
nil (edebug-after (edebug-before 0) 25 (let* ((completion-ignore-case
t) (input (edebug-after (edebug-before 1) 3 (completing-read
(edebug-after 0 2 prompt) (lambda ... ...))))) (edebug-after
(edebug-before 4) 24 (cond ((edebug-after (edebug-before 5) 7
(string-match-p "^[0-9a-fA-F]+$" ...)) (edebug-after (edebug-before 8)
10 (string-to-number ... 16))) ((edebug-after (edebug-before 11) 13
(string-match-p "^#" ...)) (edebug-after (edebug-before 14) 16 (read
...))) (t (edebug-after (edebug-before 17) 23 (cdr ...)))))))))
read-char-by-name("Unicode (name or hex): ")
(list (read-char-by-name "Unicode (name or hex): ")
(prefix-numeric-value current-prefix-arg) t)
call-interactively(ucs-insert t nil)
execute-extended-command(nil)
call-interactively(execute-extended-command nil nil)
next reply other threads:[~2012-02-20 12:49 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-02-20 12:49 Juanma Barranquero [this message]
2012-02-20 12:52 ` bug#10851: Error edebugging read-char-by-name Juanma Barranquero
2012-10-06 12:57 ` martin rudalics
2012-10-07 0:47 ` Juanma Barranquero
2012-10-08 6:56 ` martin rudalics
2012-10-08 11:17 ` Juanma Barranquero
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='CAAeL0SSr_DK=j-4uWob8ynQORiLWXM1gQzV2BuQMSZm8ErfdYQ@mail.gmail.com' \
--to=lekktu@gmail.com \
--cc=10851@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).