From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: martin rudalics Newsgroups: gmane.emacs.devel Subject: Re: "Attempt to modify read-only object" error with set-frame-configuration Date: Mon, 24 Dec 2007 23:53:49 +0100 Message-ID: <4770387D.2040102@gmx.at> References: <47698DF5.2080106@gmx.at> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------010306050801020706090204" X-Trace: ger.gmane.org 1198536849 17654 80.91.229.12 (24 Dec 2007 22:54:09 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 24 Dec 2007 22:54:09 +0000 (UTC) Cc: Juanma Barranquero , emacs-devel@gnu.org To: Eli Zaretskii Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Dec 24 23:54:22 2007 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 1J6wBi-0004z8-EP for ged-emacs-devel@m.gmane.org; Mon, 24 Dec 2007 23:54:22 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1J6wBO-000666-18 for ged-emacs-devel@m.gmane.org; Mon, 24 Dec 2007 17:54:02 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1J6wBJ-00062m-CB for emacs-devel@gnu.org; Mon, 24 Dec 2007 17:53:57 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1J6wBH-0005zN-Sl for emacs-devel@gnu.org; Mon, 24 Dec 2007 17:53:56 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1J6wBH-0005yv-MV for emacs-devel@gnu.org; Mon, 24 Dec 2007 17:53:55 -0500 Original-Received: from mail.gmx.net ([213.165.64.20]) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1J6wBH-0008Df-JS for emacs-devel@gnu.org; Mon, 24 Dec 2007 17:53:55 -0500 Original-Received: (qmail invoked by alias); 24 Dec 2007 22:53:53 -0000 Original-Received: from N960P010.adsl.highway.telekom.at (EHLO [62.47.63.234]) [62.47.63.234] by mail.gmx.net (mp052) with SMTP; 24 Dec 2007 23:53:53 +0100 X-Authenticated: #14592706 X-Provags-ID: V01U2FsdGVkX1/XCVoMFNfXqSVsiwRzrFYZ07+Mh3I38xee/TkxrH KNwYpeJ9ZYldQ+ User-Agent: Mozilla Thunderbird 1.0 (Windows/20041206) X-Accept-Language: de-DE, de, en-us, en In-Reply-To: X-Y-GMX-Trusted: 0 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:85437 Archived-At: This is a multi-part message in MIME format. --------------010306050801020706090204 Content-Type: text/plain; charset=ISO-8859-15; format=flowed Content-Transfer-Encoding: 7bit With my previous patch and (let ((cfg (current-frame-configuration))) (set-frame-configuration cfg)) the following bug still persists: Debugger entered--Lisp error: (wrong-type-argument symbolp (left-fringe)) modify-frame-parameters(# ((parent-id) (explicit-name) (display . "") (icon-name) (window-id . "1448") (top + -4) (left + -4) (buried-buffer-list) (buffer-list # # #) (unsplittable) (modeline . t) (width . 124) (height . 49) (environment) (background-mode . light) (display-type . color) ((left-fringe) (right-fringe) (left-fringe) (right-fringe)) (visibility . t) (window-system . w32) (visibility) (scroll-bar-width . 20) (cursor-type . box) (auto-lower) (auto-raise) (icon-type) (title) (buffer-predicate) (tool-bar-lines . 0) (menu-bar-lines . 1) (right-fringe . 10) (left-fringe . 10) (line-spacing) (screen-gamma) (border-color . "black") (cursor-color . "red3") (mouse-color . "black") (background-color . "grey92") (foreground-color . "black") (vertical-scroll-bars . right) (internal-border-width . 0) (border-width . 2) (font . "-outline-Courier New-normal-r-normal-normal-16-96-120-120-c-*-iso8859-1"))) set-frame-configuration((frame-configuration (# (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) #))) (let ((cfg ...)) (set-frame-configuration cfg)) eval((let ((cfg ...)) (set-frame-configuration cfg))) eval-last-sexp-1(nil) eval-last-sexp(nil) call-interactively(eval-last-sexp) To cure this I'd propose the attached patch to fringe.el (it also gets rid of stale occurrences of left/right fringes in `frame-parameters'). --------------010306050801020706090204 Content-Type: text/plain; name="fringe.patch" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="fringe.patch" *** fringe.el.~1.30.~ Wed Aug 29 08:28:06 2007 --- fringe.el Mon Dec 24 23:47:12 2007 *************** *** 104,116 **** See `fringe-mode' for possible values and their effect." (setq fringe-mode value) ! (modify-all-frames-parameters ! (list (cons 'left-fringe (if (consp fringe-mode) ! (car fringe-mode) ! fringe-mode)) ! (cons 'right-fringe (if (consp fringe-mode) ! (cdr fringe-mode) ! fringe-mode))))) ;; For initialization of fringe-mode, take account of changes ;; made explicitly to default-frame-alist. --- 104,118 ---- See `fringe-mode' for possible values and their effect." (setq fringe-mode value) ! (when (and (fboundp 'frame-notice-user-settings) ! (not frame-notice-user-settings)) ! (modify-all-frames-parameters ! (list (cons 'left-fringe (if (consp fringe-mode) ! (car fringe-mode) ! fringe-mode)) ! (cons 'right-fringe (if (consp fringe-mode) ! (cdr fringe-mode) ! fringe-mode)))))) ;; For initialization of fringe-mode, take account of changes ;; made explicitly to default-frame-alist. --------------010306050801020706090204 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-devel --------------010306050801020706090204--