From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juanma Barranquero Newsgroups: gmane.emacs.bugs Subject: bug#10851: Error edebugging read-char-by-name Date: Mon, 20 Feb 2012 13:49:27 +0100 Message-ID: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 X-Trace: dough.gmane.org 1329742268 32640 80.91.229.3 (20 Feb 2012 12:51:08 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 20 Feb 2012 12:51:08 +0000 (UTC) To: 10851@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon Feb 20 13:51:07 2012 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RzShu-0005C3-A9 for geb-bug-gnu-emacs@m.gmane.org; Mon, 20 Feb 2012 13:51:06 +0100 Original-Received: from localhost ([::1]:36457 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RzSht-0007WI-Ub for geb-bug-gnu-emacs@m.gmane.org; Mon, 20 Feb 2012 07:51:05 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]:36665) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RzShm-0007WC-N6 for bug-gnu-emacs@gnu.org; Mon, 20 Feb 2012 07:51:03 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RzShg-00078M-HT for bug-gnu-emacs@gnu.org; Mon, 20 Feb 2012 07:50:58 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:43319) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RzShg-00078I-Ab for bug-gnu-emacs@gnu.org; Mon, 20 Feb 2012 07:50:52 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1RzSjm-0006al-8U for bug-gnu-emacs@gnu.org; Mon, 20 Feb 2012 07:53:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Juanma Barranquero Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 20 Feb 2012 12:53:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 10851 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: Bug-Gnu-Emacs Original-Received: via spool by submit@debbugs.gnu.org id=B.132974236925318 (code B ref -1); Mon, 20 Feb 2012 12:53:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 20 Feb 2012 12:52:49 +0000 Original-Received: from localhost ([127.0.0.1]:46942 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1RzSjX-0006aE-BL for submit@debbugs.gnu.org; Mon, 20 Feb 2012 07:52:48 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]:44732) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1RzSjS-0006Zw-JW for submit@debbugs.gnu.org; Mon, 20 Feb 2012 07:52:44 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RzShB-00074M-RV for submit@debbugs.gnu.org; Mon, 20 Feb 2012 07:50:26 -0500 Original-Received: from lists.gnu.org ([140.186.70.17]:59633) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RzShB-00074I-Pt for submit@debbugs.gnu.org; Mon, 20 Feb 2012 07:50:21 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]:36517) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RzSh5-0007SM-KK for bug-gnu-emacs@gnu.org; Mon, 20 Feb 2012 07:50:21 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RzSgy-000735-MW for bug-gnu-emacs@gnu.org; Mon, 20 Feb 2012 07:50:15 -0500 Original-Received: from mail-pz0-f41.google.com ([209.85.210.41]:39535) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RzSgy-00072a-BJ for bug-gnu-emacs@gnu.org; Mon, 20 Feb 2012 07:50:08 -0500 Original-Received: by dadv6 with SMTP id v6so6021580dad.0 for ; Mon, 20 Feb 2012 04:50:07 -0800 (PST) Received-SPF: pass (google.com: domain of lekktu@gmail.com designates 10.68.236.167 as permitted sender) client-ip=10.68.236.167; Authentication-Results: mr.google.com; spf=pass (google.com: domain of lekktu@gmail.com designates 10.68.236.167 as permitted sender) smtp.mail=lekktu@gmail.com; dkim=pass header.i=lekktu@gmail.com Original-Received: from mr.google.com ([10.68.236.167]) by 10.68.236.167 with SMTP id uv7mr16974049pbc.113.1329742207195 (num_hops = 1); Mon, 20 Feb 2012 04:50:07 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=mime-version:from:date:message-id:subject:to:content-type; bh=xKXRDik6wi0JEJ8a8Sk0BDyXcafgFW0oy7+g7sW1Va0=; b=Z1rJKSAFErlS8Xt6I/+1ABVW8sCvWDel78dVflxwwqqv+YORs6A7h4NQ5iSiHNV+QU a5OCANZpRJ9NnqR7RddelEM1d8p23t2TNYjeEGKpjvV3SsXsfX23Bmh8wzf/inVpoNus lr59nnTLTkQN82gnylmjTwlIftYLpJXiMcOx4= Original-Received: by 10.68.236.167 with SMTP id uv7mr14480832pbc.113.1329742207139; Mon, 20 Feb 2012 04:50:07 -0800 (PST) Original-Received: by 10.143.37.9 with HTTP; Mon, 20 Feb 2012 04:49:27 -0800 (PST) X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:57021 Archived-At: 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 ; to switch to *scratch* M-x ucs-insert ; until the prompt ; at the prompt Debugger entered--Lisp error: (error "Window # too small for splitting") apply(debug error (error "Window # too small for splitting")) edebug(error (error "Window # too small for splitting")) signal(error ("Window # too small for splitting")) edebug-signal(error ("Window # too small for splitting")) signal(error ("Window # too small for splitting")) error("Window %s too small for splitting" #) 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(# #) 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)