From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Drew Adams" Newsgroups: gmane.emacs.devel,gmane.emacs.pretest.bugs Subject: 23.0.60; x-create-frame: wrong-type-argument number-or-markerp nil Date: Thu, 24 Apr 2008 10:37:01 -0700 Message-ID: <010601c8a631$cddc14e0$c2b22382@us.oracle.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 1209058897 19489 80.91.229.12 (24 Apr 2008 17:41:37 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 24 Apr 2008 17:41:37 +0000 (UTC) To: Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Apr 24 19:42:12 2008 connect(): Connection refused Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1Jp5SR-0004En-B6 for ged-emacs-devel@m.gmane.org; Thu, 24 Apr 2008 19:42:07 +0200 Original-Received: from localhost ([127.0.0.1]:57197 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Jp5Rl-0001MN-BJ for ged-emacs-devel@m.gmane.org; Thu, 24 Apr 2008 13:41:25 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Jp5ON-0006e0-TQ for emacs-devel@gnu.org; Thu, 24 Apr 2008 13:37:55 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Jp5OL-0006d4-Rb for emacs-devel@gnu.org; Thu, 24 Apr 2008 13:37:55 -0400 Original-Received: from [199.232.76.173] (port=45653 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Jp5OL-0006d1-OP for emacs-devel@gnu.org; Thu, 24 Apr 2008 13:37:53 -0400 Original-Received: from fencepost.gnu.org ([140.186.70.10]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1Jp5OL-0005CT-9u for emacs-devel@gnu.org; Thu, 24 Apr 2008 13:37:53 -0400 Original-Received: from mail.gnu.org ([199.232.76.166]:44949 helo=mx10.gnu.org) by fencepost.gnu.org with esmtp (Exim 4.67) (envelope-from ) id 1Jp5OL-0002PO-02 for emacs-pretest-bug@gnu.org; Thu, 24 Apr 2008 13:37:53 -0400 Original-Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim 4.60) (envelope-from ) id 1Jp5OD-0005Ab-LC for emacs-pretest-bug@gnu.org; Thu, 24 Apr 2008 13:37:52 -0400 Original-Received: from rgminet01.oracle.com ([148.87.113.118]) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1Jp5OD-0005A9-7Z for emacs-pretest-bug@gnu.org; Thu, 24 Apr 2008 13:37:45 -0400 Original-Received: from rgmgw1.us.oracle.com (rgmgw1.us.oracle.com [138.1.186.110]) by rgminet01.oracle.com (Switch-3.2.4/Switch-3.1.6) with ESMTP id m3OHbgTD006291 for ; Thu, 24 Apr 2008 11:37:42 -0600 Original-Received: from acsmt351.oracle.com (acsmt351.oracle.com [141.146.40.151]) by rgmgw1.us.oracle.com (Switch-3.2.4/Switch-3.2.4) with ESMTP id m3OHbgko023173 for ; Thu, 24 Apr 2008 11:37:42 -0600 Original-Received: from inet-141-146-46-1.oracle.com by acsmt350.oracle.com with ESMTP id 3658744251209058619; Thu, 24 Apr 2008 10:36:59 -0700 Original-Received: from dradamslap1 (/130.35.178.194) by bhmail.oracle.com (Oracle Beehive Gateway v4.0) with ESMTP ; Thu, 24 Apr 2008 10:36:59 -0700 X-Mailer: Microsoft Office Outlook 11 Thread-Index: AcimMc2NjILMbd10Rk6JG8z/YkRNdw== X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3198 X-Brightmail-Tracker: AAAAAQAAAAI= X-Brightmail-Tracker: AAAAAQAAAAI= X-Whitelist: TRUE X-Whitelist: TRUE X-detected-kernel: by monty-python.gnu.org: Linux 2.4-2.6 X-detected-kernel: by monty-python.gnu.org: Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:95896 gmane.emacs.pretest.bugs:22126 Archived-At: I have this code: (define-key global-map [menu-bar pop-up-tool-bar] '(menu-item "Buttons" show-tool-bar-for-one-command :visible (and tool-bar-pop-up-mode (not tool-bar-mode) (not tool-bar-here-mode)) :enable (and tool-bar-pop-up-mode (not tool-bar-mode) (not tool-bar-here-mode)) :help "Use tool bar for one command")) Because of this, apparently, x-create-frame gives this error: Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil) >(nil 0) The `and' for :visible and :enable returns t. That's the last thing I see eval'd in the debugger before the error message. It appears that there is some problem in the C code of x-create-frame. I have no such problem prior to Emacs 23. Here is what the backtrace looks like just before the error. The `and' evals to t, then `d' in the debugger gives the error. * (and tool-bar-pop-up-mode (not tool-bar-mode) (not tool-bar-here-mode)) * x-create-frame(((visibility) (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))) * (let ((visibility-spec ...) (frame ...) success) (unwind-protect (progn ... ... ... ... ... ... ...) (unless success ...)) frame) * 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))) funcall(special-display-popup-frame # ((background-color . "LavenderBlush2") (mouse-color . "VioletRed") (cursor-color . "VioletRed") (width . 100))) I do not see this problem for all frame creations. I see it for the creation of a special-display buffer using this function: (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)) ; In `zoom-frm.el'. (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) ; Hard-code 7 here - what does it depend on? `((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)) And this is how that function gets called: (add-to-list 'special-display-buffer-names `("*Completions*" 1on1-display-*Completions*-frame ((background-color ,@1on1-completions-frame-background) (mouse-color ,@1on1-completions-frame-mouse+cursor-color) (cursor-color ,@1on1-completions-frame-mouse+cursor-color) ,@(and 1on1-completions-frame-width `((width ,@1on1-completions-frame-width)))))) [I also got a fatal error when I tried to quit Emacs with C-x C-c.] In GNU Emacs 23.0.60.1 (i386-mingw-nt5.1.2600) of 2008-04-04 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' Important settings: value of $LC_ALL: nil value of $LC_COLLATE: nil value of $LC_CTYPE: nil value of $LC_MESSAGES: nil value of $LC_MONETARY: nil value of $LC_NUMERIC: nil value of $LC_TIME: nil value of $LANG: ENU value of $XMODIFIERS: nil locale-coding-system: cp1252 default-enable-multibyte-characters: t Major mode: Emacs-Lisp Minor modes in effect: eldoc-mode: t display-time-mode: t savehist-mode: t icomplete-mode: t tool-bar-pop-up-mode: t icicle-mode: t minibuffer-indicate-depth-mode: t pretty-control-l-mode: t delete-selection-mode: t tabbar-mode: t show-paren-mode: t mouse-wheel-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t blink-cursor-mode: t global-auto-composition-mode: t auto-composition-mode: t auto-compression-mode: t size-indication-mode: t column-number-mode: t line-number-mode: t transient-mark-mode: t Recent input: q M-x g r e p C-g C-x 4 f t o o l - c c C-s f r a m e C-s C-s C-s C-M-l C-M-l C-M-l C-s C-s C-s C-s C-s C-s C-s C-s C-a M-< C-s a d v i C-g M-x c d d c d d d c d d d c c d C-s C-w C-w C-w C-w C-w C-w C-w C-w C-w C-w C-w C-w C-w C-w C-w C-w C-w C-w C-a C-s C-s C-a C-g M-w d c d c d d c d M-w q q M-x t o o l - b a r - m o d e M-x M-p M-x c d c d d c d d c d d c c d c d q q Recent messages: Entering debugger... Continuing. Entering debugger... Proceeding, will debug on next eval or call. Entering debugger... Continuing. Entering debugger... Proceeding, will debug on next eval or call. Entering debugger... [2 times] Back to top level.