From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: David Biesack Newsgroups: gmane.emacs.bugs Subject: bug#9276: 23.3; quickurl-add-url saves truncated list when url list length exceeds print-length Date: Wed, 10 Aug 2011 09:34:53 -0400 Message-ID: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" X-Trace: dough.gmane.org 1312991020 23505 80.91.229.12 (10 Aug 2011 15:43:40 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 10 Aug 2011 15:43:40 +0000 (UTC) To: 9276@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Aug 10 17:43:35 2011 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1QrAwR-0005j5-G1 for geb-bug-gnu-emacs@m.gmane.org; Wed, 10 Aug 2011 17:43:35 +0200 Original-Received: from localhost ([::1]:46166 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QrAwR-00043P-3q for geb-bug-gnu-emacs@m.gmane.org; Wed, 10 Aug 2011 11:43:35 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:39362) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QrAuk-0003Ur-VX for bug-gnu-emacs@gnu.org; Wed, 10 Aug 2011 11:41:52 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QrAuj-0003ro-6L for bug-gnu-emacs@gnu.org; Wed, 10 Aug 2011 11:41:50 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:36484) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QrAui-0003qX-Vw for bug-gnu-emacs@gnu.org; Wed, 10 Aug 2011 11:41:49 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1QrAvu-00076S-Ep; Wed, 10 Aug 2011 11:43:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: David Biesack Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 10 Aug 2011 15:43:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 9276 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: Original-Received: via spool by submit@debbugs.gnu.org id=B.131299097427285 (code B ref -1); Wed, 10 Aug 2011 15:43:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 10 Aug 2011 15:42:54 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QrAvi-00075z-73 for submit@debbugs.gnu.org; Wed, 10 Aug 2011 11:42:54 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Qr9yx-0005gt-G4 for submit@debbugs.gnu.org; Wed, 10 Aug 2011 10:42:11 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Qr9xi-0007HQ-2U for submit@debbugs.gnu.org; Wed, 10 Aug 2011 10:40:53 -0400 Original-Received: from lists.gnu.org ([140.186.70.17]:56792) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qr9xh-0007HH-U0 for submit@debbugs.gnu.org; Wed, 10 Aug 2011 10:40:49 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:52510) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qr9xe-0005pi-Ac for bug-gnu-emacs@gnu.org; Wed, 10 Aug 2011 10:40:49 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Qr9xa-0007GC-S5 for bug-gnu-emacs@gnu.org; Wed, 10 Aug 2011 10:40:46 -0400 Original-Received: from tx2ehsobe003.messaging.microsoft.com ([65.55.88.13]:48589 helo=TX2EHSOBE006.bigfish.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qr9xa-0007Fu-N5 for bug-gnu-emacs@gnu.org; Wed, 10 Aug 2011 10:40:42 -0400 Original-Received: from mail26-tx2-R.bigfish.com (10.9.14.251) by TX2EHSOBE006.bigfish.com (10.9.40.26) with Microsoft SMTP Server id 14.1.225.22; Wed, 10 Aug 2011 14:10:34 +0000 Original-Received: from mail26-tx2 (localhost.localdomain [127.0.0.1]) by mail26-tx2-R.bigfish.com (Postfix) with ESMTP id DA11B5803D3 for ; Wed, 10 Aug 2011 14:10:34 +0000 (UTC) X-SpamScore: 0 X-BigFish: S0(zz936eKzz1202h1082kzz8275bh8275dhz2fh2a8h668h839h944h66h) X-Forefront-Antispam-Report: CIP:149.173.6.147; KIP:(null); UIP:(null); IPVD:NLI; H:mercav04d.na.sas.com; RD:mercav04d.na.sas.com; EFVD:NLI Received-SPF: pass (mail26-tx2: domain of sas.com designates 149.173.6.147 as permitted sender) client-ip=149.173.6.147; envelope-from=David.Biesack@sas.com; helo=mercav04d.na.sas.com ; d.na.sas.com ; Original-Received: from mail26-tx2 (localhost.localdomain [127.0.0.1]) by mail26-tx2 (MessageSwitch) id 1312985384473162_8308; Wed, 10 Aug 2011 14:09:44 +0000 (UTC) Original-Received: from TX2EHSMHS026.bigfish.com (unknown [10.9.14.240]) by mail26-tx2.bigfish.com (Postfix) with ESMTP id 0BCE013003A2 for ; Wed, 10 Aug 2011 14:09:21 +0000 (UTC) Original-Received: from mercav04d.na.sas.com (149.173.6.147) by TX2EHSMHS026.bigfish.com (10.9.99.126) with Microsoft SMTP Server (TLS) id 14.1.225.22; Wed, 10 Aug 2011 14:09:17 +0000 X-TM-IMSS-Message-ID: <86422cb5000ed679@mercav04d.na.sas.com> Original-Received: from d72933.na.sas.com ([10.40.16.229]) by mercav04d.na.sas.com ([10.36.10.9]) with ESMTP (TREND IMSS SMTP Service 7.1) id 86422cb5000ed679 ; Wed, 10 Aug 2011 10:09:16 -0400 X-OriginatorOrg: sas.com X-detected-operating-system: by eggs.gnu.org: Windows 2000 SP2+, XP SP1+ (seldom 98) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Mailman-Approved-At: Wed, 10 Aug 2011 11:42:49 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Wed, 10 Aug 2011 11:43:02 -0400 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 1) X-Received-From: 140.186.70.43 X-Mailman-Approved-At: Wed, 10 Aug 2011 11:43:32 -0400 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:49986 Archived-At: Start emacs -q backup your ~/.quickurls file if you have one. M-x load-library quickurl M-x eval-expression (setq print-length 10) In *scratch* insert the text manual0 http://www.gnu.org/software/emacs/manual0 manual1 http://www.gnu.org/software/emacs/manual1 manual2 http://www.gnu.org/software/emacs/manual2 manual3 http://www.gnu.org/software/emacs/manual3 manual4 http://www.gnu.org/software/emacs/manual4 manual5 http://www.gnu.org/software/emacs/manual5 manual6 http://www.gnu.org/software/emacs/manual6 manual7 http://www.gnu.org/software/emacs/manual7 manual8 http://www.gnu.org/software/emacs/manual8 manual9 http://www.gnu.org/software/emacs/manual9 manuala http://www.gnu.org/software/emacs/manuala Place point before each "http" and do: M-x quickurl-add-url After the length exceeds 10, the add operation will fail with quickurl-url-comment: Wrong type argument: listp, \.\.\. and future sessions will also fail to load the .quickurls file because it contains a shorted list with "..." in it: ;; -*- lisp -*- (("manual0" "http://www.gnu.org/software/emacs/manual0") ("manual1" "http://www.gnu.org/software/emacs/manual1") ("manual2" "http://www.gnu.org/software/emacs/manual2") ("manual3" "http://www.gnu.org/software/emacs/manual3") ("manual4" "http://www.gnu.org/software/emacs/manual4") ("manual5" "http://www.gnu.org/software/emacs/manual5") ("manual6" "http://www.gnu.org/software/emacs/manual6") ("manual7" "http://www.gnu.org/software/emacs/manual7") ("manual8" "http://www.gnu.org/software/emacs/manual8") ("manual9" "http://www.gnu.org/software/emacs/manual9") ...) The fix is trivial - bind print-length to nil in quickurl-save-urls. See this patch. d72933. # diff -c quickurl.el.orig quickurl.el *** quickurl.el.orig Wed Aug 10 09:20:24 2011 --- quickurl.el Wed Aug 10 09:21:27 2011 *************** *** 268,274 **** (defun quickurl-save-urls () "Save the contents of `quickurl-urls' to `quickurl-url-file'." (with-temp-buffer ! (let ((standard-output (current-buffer))) (princ quickurl-prefix) (pp quickurl-urls) (princ quickurl-postfix) --- 268,275 ---- (defun quickurl-save-urls () "Save the contents of `quickurl-urls' to `quickurl-url-file'." (with-temp-buffer ! (let ((standard-output (current-buffer)) ! (print-length nil)) (princ quickurl-prefix) (pp quickurl-urls) (princ quickurl-postfix) In GNU Emacs 23.3.1 (x86_64-unknown-linux-gnu, GTK+ Version 2.22.0) of 2011-03-30 on Hippie Windowing system distributor `The X.Org Foundation', version 11.0.10900000 configured using `configure '--prefix=/u/sasdjb/ubuntu'' Important settings: value of $LC_ALL: C 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: en_US.UTF-8 value of $XMODIFIERS: nil locale-coding-system: nil default enable-multibyte-characters: t Major mode: Lisp Interaction Minor modes in effect: tooltip-mode: t mouse-wheel-mode: t tool-bar-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t blink-cursor-mode: t auto-encryption-mode: t auto-compression-mode: t line-number-mode: t transient-mark-mode: t Recent input: C-x C-f ~ / . q u i c k u r SPC M-> M-< M-> C-x C-g C-g C-x b * s c SPC C-e C-y C-p C-j C-n C-e C-j M-x q r l u p l SPC C-a C-d C-e C-a C-SPC C-e C-w M-x c u s t r o m i z o m i z e - h r SPC g SPC q u i c k u r l C-h v p r i n t - l e SPC n g t h C-x C-g C-g M-x c u s t o C-g C-g M-x s e t - v a r SPC p r i n t - l e n SPC g t h SPC C-g C-x b * s c SPC ( s e t q SPC p r i n t - l e n g t h SPC 1 0 ) C-e C-j x x x M-x q r l u i c k - u r l - a d d SPC M-b C-e a d SPC SPC C-f M-x q r l - a d SPC C-x C-f ~ / . q u i c k u r l s y e s M-x r e p o r t - b SPC < return> Recent messages: Creating group state... Creating group... done Creating customization items ...done Resetting customization items...done Creating customization setup...done Making completion list... Type C-x 1 to delete the help window. Quit [5 times] beginning-of-thing: No url here Added http://sww.sas.com/saspedia/Help:Uploading Load-path shadows: None found. Features: (shadow sort mail-extr message sendmail regexp-opt ecomplete rfc822 mml mml-sec ...) -- David J. Biesack, SAS SAS Campus Dr. Cary, NC 27513 www.sas.com (919) 531-7771