From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Drew Adams" Newsgroups: gmane.emacs.bugs,gmane.emacs.pretest.bugs Subject: bug#1077: 23.0.60; x-create-frame: (wrong-type-argument number-or-marker-p nil) Date: Sat, 4 Oct 2008 09:38:20 -0700 Message-ID: <009701c9263f$9cce7120$0200a8c0@us.oracle.com> References: <003e01c9257c$a385d800$0200a8c0@us.oracle.com> Reply-To: Drew Adams , 1077@emacsbugs.donarmstrong.com NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1223139021 18359 80.91.229.12 (4 Oct 2008 16:50:21 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 4 Oct 2008 16:50:21 +0000 (UTC) To: <1077@emacsbugs.donarmstrong.com>, Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Oct 04 18:51:18 2008 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1KmALb-0008Rb-EO for geb-bug-gnu-emacs@m.gmane.org; Sat, 04 Oct 2008 18:51:15 +0200 Original-Received: from localhost ([127.0.0.1]:54603 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KmAKY-0003Xz-33 for geb-bug-gnu-emacs@m.gmane.org; Sat, 04 Oct 2008 12:50:10 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1KmAKQ-0003W6-3C for bug-gnu-emacs@gnu.org; Sat, 04 Oct 2008 12:50:02 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1KmAKO-0003VH-Le for bug-gnu-emacs@gnu.org; Sat, 04 Oct 2008 12:50:01 -0400 Original-Received: from [199.232.76.173] (port=43756 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KmAKO-0003V8-4B for bug-gnu-emacs@gnu.org; Sat, 04 Oct 2008 12:50:00 -0400 Original-Received: from rzlab.ucr.edu ([138.23.92.77]:34197) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1KmAKN-0007Fa-Ao for bug-gnu-emacs@gnu.org; Sat, 04 Oct 2008 12:49:59 -0400 Original-Received: from rzlab.ucr.edu (rzlab.ucr.edu [127.0.0.1]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m94Gnu8Z009494; Sat, 4 Oct 2008 09:49:56 -0700 Original-Received: (from debbugs@localhost) by rzlab.ucr.edu (8.13.8/8.13.8/Submit) id m94Gj3Hi008467; Sat, 4 Oct 2008 09:45:03 -0700 X-Loop: don@donarmstrong.com Resent-From: "Drew Adams" Resent-To: bug-submit-list@donarmstrong.com Resent-CC: Emacs Bugs Resent-Date: Sat, 04 Oct 2008 16:45:03 +0000 Resent-Message-ID: Resent-Sender: don@donarmstrong.com X-Emacs-PR-Message: report 1077 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: moreinfo Original-Received: via spool by 1077-submit@emacsbugs.donarmstrong.com id=B1077.12231383067107 (code B ref 1077); Sat, 04 Oct 2008 16:45:03 +0000 Original-Received: (at 1077) by emacsbugs.donarmstrong.com; 4 Oct 2008 16:38:26 +0000 Original-Received: from rgminet01.oracle.com (rgminet01.oracle.com [148.87.113.118]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m94GcLRR007100 for <1077@emacsbugs.donarmstrong.com>; Sat, 4 Oct 2008 09:38:22 -0700 Original-Received: from agmgw1.us.oracle.com (agmgw1.us.oracle.com [152.68.180.212]) by rgminet01.oracle.com (Switch-3.2.4/Switch-3.1.6) with ESMTP id m94GcFQw013885; Sat, 4 Oct 2008 10:38:15 -0600 Original-Received: from acsmt701.oracle.com (acsmt701.oracle.com [141.146.40.71]) by agmgw1.us.oracle.com (Switch-3.2.0/Switch-3.2.0) with ESMTP id m94GcEdI011399; Sat, 4 Oct 2008 10:38:14 -0600 Original-Received: from dradamslap1 (/24.23.165.218) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Sat, 04 Oct 2008 09:38:13 -0700 X-Mailer: Microsoft Office Outlook 11 In-Reply-To: <003e01c9257c$a385d800$0200a8c0@us.oracle.com> Thread-Index: AcklfKMogyzuwpKNQfi7bBVuuBtQ1gAwkUgQ X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3350 X-Brightmail-Tracker: AAAAAQAAAAI= X-Brightmail-Tracker: AAAAAQAAAAI= X-Whitelist: TRUE X-Whitelist: TRUE X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 3) Resent-Date: Sat, 04 Oct 2008 12:50:00 -0400 X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:21102 gmane.emacs.pretest.bugs:23142 Archived-At: No, I take back my guess about `visibility'. Just evaluating (x-create-frame ((visibility) (width . 100) (width . 80) (height . 14) (menu-bar-lines . 1) (top . 0) (left . 0) (unsplittable . t) (user-position . t) (vertical-scroll-bars . right) (height . 14) (width . 80) (unsplittable . t))) does not necessarily lead to the bug (error). Something is happening inside `x-create-frame' - for some reason, it tries to do (> nil 0). > From: Drew Adams Sent: Friday, October 03, 2008 10:23 AM > > My guess is that the error is coming from a `visibility' > value of nil. And `visibility' should probably not be nil anyway > here - the frame should be displayed visibly, presumably. There is > no `visibility' parameter value given to `x-create-frame-with-faces', > so it must be coming up with that on its own when it calls > `x-create-frame'. > > Debugger entered--Lisp error: (wrong-type-argument > number-or-marker-p nil) > >(nil 0) > x-create-frame(((visibility) (width . 100) (width . 80) (height > . 14) (menu-bar-lines . 1) (top . 0) (left . 0) (unsplittable . t) > (user-position . t) (vertical-scroll-bars . right) (height . 14) > (width . 80) (unsplittable . t))) > x-create-frame-with-faces(((background-color . "LavenderBlush2") > (mouse-color . "VioletRed") (cursor-color . "VioletRed") (width > . 100) (font . "-*-Lucida > Console-normal-r-*-*-14-112-96-96-c-*-iso8859-1") > (width . 80) > (height . 14) (mouse-color . "Yellow") (cursor-color . "Yellow") > (menu-bar-lines . 1) (foreground-color . "Black") (background-color > . "LightSteelBlue") (top . 0) (left . 0) (unsplittable . t) > (user-position . t) (vertical-scroll-bars . right) (height . 14) > (width . 80) (unsplittable . t))) > make-frame(((background-color . "LavenderBlush2") (mouse-color > . "VioletRed") (cursor-color . "VioletRed") (width . 100) (font > . "-*-Lucida Console-normal-r-*-*-14-112-96-96-c-*-iso8859-1") > (width . 80) (height . 14) (mouse-color . "Yellow") (cursor-color > . "Yellow") (menu-bar-lines . 1) (foreground-color . "Black") > (background-color . "LightSteelBlue") (top . 0) (left . 0) > (unsplittable . t) (user-position . t) (vertical-scroll-bars > . right) (height . 14) (width . 80) (unsplittable . t))) > special-display-popup-frame(# > ((background-color . "LavenderBlush2") (mouse-color . "VioletRed") > (cursor-color . "VioletRed") (width . 100))) > 1on1-display-*Completions*-frame(# > ((background-color . "LavenderBlush2") (mouse-color . "VioletRed") > (cursor-color . "VioletRed") (width . 100))) > apply(1on1-display-*Completions*-frame # > ((background-color . "LavenderBlush2") (mouse-color . "VioletRed") > (cursor-color . "VioletRed") (width . 100))) > special-display-popup-frame(# > (1on1-display-*Completions*-frame ((background-color > . "LavenderBlush2") (mouse-color . "VioletRed") (cursor-color > . "VioletRed") (width . 100)))) > old-display-buffer(# nil nil) > display-buffer(# nil nil) > (with-output-to-temp-buffer "*Completions*" (let* (... ...) (when > last ...) (display-completion-list ...))) > (if (and completions (or ... ...)) (with-output-to-temp-buffer > "*Completions*" (let* ... ... ...)) (let (...) (when ... ...)) > (ding) (minibuffer-message (if completions "Sole completion" "No > completions"))) > (let* ((string ...) (completions ...)) (message nil) (if (and > completions ...) (with-output-to-temp-buffer "*Completions*" ...) > (let ... ...) (ding) (minibuffer-message ...)) nil) > minibuffer-completion-help() > (if (case completion-auto-help (lazy ...) (t completion-auto-help)) > (minibuffer-completion-help) (minibuffer-message "Next char not > unique")) > (cond ((not exact) (if ... ... ...)) ((eq this-command last-command) > (if completion-auto-help ...))) > (if completed nil (cond (... ...) (... ...))) > (unless completed (cond (... ...) (... ...))) > (let ((exact ...)) (unless completed (cond ... ...)) > (minibuffer--bitset completed t exact)) > (if (not (or unchanged completed)) (completion--do-completion > try-completion-function) (let (...) (unless completed ...) > (minibuffer--bitset completed t exact))) > (let* ((comp-pos ...) (completion ...) (completed ...) (unchanged > ...)) (unless unchanged (goto-char end) (insert completion) > (delete-region beg end)) (goto-char (+ beg comp-pos)) (if (not ...) > (completion--do-completion try-completion-function) (let > ... ... ...))) > (cond ((null comp) (ding) (minibuffer-message "No match") > (minibuffer--bitset nil nil nil)) ((eq t comp) (minibuffer--bitset > nil nil t)) (t (let* ... ... ... ...))) > (let* ((beg ...) (end ...) (string ...) (comp ...)) (cond > (... ... ... ...) (... ...) (t ...))) > completion--do-completion() > (let ((--cl-var-- ...)) (cond (... nil) (... ... ... t) > (... ... ... t) (t t))) > (case (completion--do-completion) (0 nil) (1 (goto-char ...) > (minibuffer-message "Sole completion") t) (3 (goto-char ...) > (minibuffer-message "Complete, but not unique") t) (t t)) > (if (window-live-p window) (with-current-buffer (window-buffer > window) (if ... ... ...) nil) (case (completion--do-completion) (0 > nil) (1 ... ... t) (3 ... ... t) (t t))) > (let ((window minibuffer-scroll-window)) (if (window-live-p window) > (with-current-buffer ... ... nil) (case ... ... ... ... ...))) > minibuffer-complete() > (unwind-protect (minibuffer-complete) (delete-overlay ol)) > (let ((ol ...)) (unwind-protect (minibuffer-complete) > (delete-overlay ol))) > crm-complete() > call-interactively(crm-complete nil nil) > read-from-minibuffer("Friends: " nil (keymap (remap keymap > (minibuffer-completion-help . crm-completion-help) > (minibuffer-complete-word . crm-complete-word) (minibuffer-complete > . crm-complete) keymap (mouse-yank-secondary) (yank-pop) > (transpose-sexps) (transpose-words) (transpose-chars) > (reposition-window) (kill-line) (kill-paragraph) > (backward-kill-paragraph) (backward-kill-sentence) (kill-sexp) > (backward-kill-sexp) (kill-word) (backward-kill-word) (delete-char) > (delete-backward-char) (backward-delete-char-untabify) > (digit-argument) (negative-argument) (universal-argument) > (self-insert-command)) keymap (24 keymap (124) (119)) (33554464) > (33554433) (30) (67108923) (67108899) (67108910) (67108927) > (67108900) (67108924) (67108960) (67108908) (67108922) (67108901) > (67108987) (67108989) (67108905) (67108904) (67108926) (67108906) > (67108907) (67108909) (67108990) (33554444) (12) (insert) (C-insert) > (C-pause) (M-pause) (67108988) (67108897) (C-return) (23) (S-delete) > (delete) (C-S-next) (C-S-prior) (C-S-down) (C-S-up) (C-S-return) > (M-return) (C-M-return) (C-M-f1) (C-f1) (C-M-help) (C-help) > (C-M-next) ...) nil nil nil nil) > (let* ((minibuffer-completion-table ...) > (minibuffer-completion-predicate predicate) > (minibuffer-completion-confirm ...) (crm-completion-table table) > (map ...) (input ...)) (and def (string-equal input "") (setq input > def)) (split-string input crm-separator)) > completing-read-multiple("Friends: " ("Luke " David "Robert")) > eval((completing-read-multiple "Friends: " (quote ("Luke " David > "Robert")))) > pp-eval-expression((completing-read-multiple "Friends: " (quote > ("Luke " David "Robert")))) > pp-eval-last-sexp(nil) > call-interactively(pp-eval-last-sexp nil nil) > > This is my value of `special-display-buffer-names': > > (("*Completions*" 1on1-display-*Completions*-frame > ((background-color . "LavenderBlush2") > (mouse-color . "VioletRed") > (cursor-color . "VioletRed") > (width . 100))) > ("*Help*" 1on1-display-*Help*-frame > ((background-color . "Thistle") > (mouse-color . "Blue Violet") > (cursor-color . "Blue Violet") > (height . 40)))) > > And this is `1on1-display-*Completions*-frame': > > (defun 1on1-display-*Completions*-frame (buf &optional args) > "Display *Completions* buffer in its own frame. > `special-display-function' is used to do the actual displaying. > Completion input events are redirected to `1on1-minibuffer-frame'. > BUF and ARGS are the arguments to `special-display-function'." > (let ((old-ptr-shape x-pointer-shape) > return-window) > (when (and 1on1-*Completions*-frame-flag > (boundp 'x-pointer-box-spiral)) > (setq x-pointer-shape x-pointer-box-spiral)) > (setq return-window > (select-window > (funcall special-display-function buf args))) > (when (fboundp 'zoom-frm-out) > (condition-case nil > (progn (zoom-frm-out) (zoom-frm-out)) > (error nil))) > > ;; We reposition frame this way, instead of binding > ;; `special-display-frame-alist' with this value, because > ;; `after-make-frame-functions' might resize frame. > (when 1on1-*Completions*-frame-at-right-flag > (modify-frame-parameters > (selected-frame) > `((left . ,(- (x-display-pixel-width) > (+ (frame-pixel-width) 7)))))) > (raise-frame) > (when (boundp '1on1-minibuffer-frame) > (redirect-frame-focus > (selected-frame) > 1on1-minibuffer-frame)) > (when (and 1on1-*Completions*-frame-flag > (boundp 'x-pointer-box-spiral)) > (setq x-pointer-shape old-ptr-shape)) > return-window)) > > > In GNU Emacs 23.0.60.1 (i386-mingw-nt5.1.2600) > of 2008-10-03 on LENNART-69DE564 > Windowing system distributor `Microsoft Corp.', version 5.1.2600 > configured using `configure --with-gcc (3.4) --no-opt > --cflags -Ic:/g/include > -fno-crossjumping' > > > > > > >