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: Fri, 3 Oct 2008 10:22:40 -0700 Message-ID: <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 1223056225 2693 80.91.229.12 (3 Oct 2008 17:50:25 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 3 Oct 2008 17:50:25 +0000 (UTC) To: Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Oct 03 19:51:19 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 1Kloo3-0003QV-6B for geb-bug-gnu-emacs@m.gmane.org; Fri, 03 Oct 2008 19:51:11 +0200 Original-Received: from localhost ([127.0.0.1]:60877 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Klomz-0003Fz-F3 for geb-bug-gnu-emacs@m.gmane.org; Fri, 03 Oct 2008 13:50:05 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Klomv-0003Fn-Kh for bug-gnu-emacs@gnu.org; Fri, 03 Oct 2008 13:50:01 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Klomt-0003FX-Ox for bug-gnu-emacs@gnu.org; Fri, 03 Oct 2008 13:50:01 -0400 Original-Received: from [199.232.76.173] (port=40725 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Klomt-0003FU-Ex for bug-gnu-emacs@gnu.org; Fri, 03 Oct 2008 13:49:59 -0400 Original-Received: from rzlab.ucr.edu ([138.23.92.77]:60886) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1Kloms-0000W2-LT for bug-gnu-emacs@gnu.org; Fri, 03 Oct 2008 13: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 m93Hnu1K021779; Fri, 3 Oct 2008 10:49:56 -0700 Original-Received: (from debbugs@localhost) by rzlab.ucr.edu (8.13.8/8.13.8/Submit) id m93HU2Yu016955; Fri, 3 Oct 2008 10:30:02 -0700 X-Loop: don@donarmstrong.com Resent-From: "Drew Adams" Resent-To: bug-submit-list@donarmstrong.com Resent-CC: Emacs Bugs Resent-Date: Fri, 03 Oct 2008 17:30:02 +0000 Resent-Message-ID: Resent-Sender: don@donarmstrong.com X-Emacs-PR-Message: report 1077 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Original-Received: via spool by submit@emacsbugs.donarmstrong.com id=B.122305459215659 (code B ref -1); Fri, 03 Oct 2008 17:30:02 +0000 Original-Received: (at submit) by emacsbugs.donarmstrong.com; 3 Oct 2008 17:23:12 +0000 Original-Received: from fencepost.gnu.org (fencepost.gnu.org [140.186.70.10]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m93HN7th015651 for ; Fri, 3 Oct 2008 10:23:08 -0700 Original-Received: from mx10.gnu.org ([199.232.76.166]:55508) by fencepost.gnu.org with esmtp (Exim 4.67) (envelope-from ) id 1KloKf-0001rD-J2 for emacs-pretest-bug@gnu.org; Fri, 03 Oct 2008 13:20:50 -0400 Original-Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim 4.60) (envelope-from ) id 1KloMo-0004D7-JG for emacs-pretest-bug@gnu.org; Fri, 03 Oct 2008 13:23:05 -0400 Original-Received: from agminet01.oracle.com ([141.146.126.228]:13961) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1KloMn-00049z-Jc for emacs-pretest-bug@gnu.org; Fri, 03 Oct 2008 13:23:02 -0400 Original-Received: from agmgw1.us.oracle.com (agmgw1.us.oracle.com [152.68.180.212]) by agminet01.oracle.com (Switch-3.2.4/Switch-3.1.7) with ESMTP id m93HMetn021238 for ; Fri, 3 Oct 2008 12:22:40 -0500 Original-Received: from acsmt705.oracle.com (acsmt705.oracle.com [141.146.40.83]) by agmgw1.us.oracle.com (Switch-3.2.0/Switch-3.2.0) with ESMTP id m93HMec8014505 for ; Fri, 3 Oct 2008 11:22:40 -0600 Original-Received: from dradamslap1 (/24.23.165.218) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Fri, 03 Oct 2008 10:22:39 -0700 X-Mailer: Microsoft Office Outlook 11 Thread-Index: AcklfKMogyzuwpKNQfi7bBVuuBtQ1g== 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.4-2.6 X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 3) Resent-Date: Fri, 03 Oct 2008 13:50:01 -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:21052 gmane.emacs.pretest.bugs:23138 Archived-At: 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'