From: David Biesack <sasdjb@d72933.na.sas.com>
Date: Thu, 14 Feb 2013 07:50:57 +0000 (-0800)
Subject: * net/quickurl.el (quickurl-save-urls): Ensure quickurl-urls is not truncated
X-Git-Tag: emacs-24.3.90~173^2~7^2~45
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ca2c0150d5e482b62d368cf1633ff1587af6ce0;p=emacs.git

* net/quickurl.el (quickurl-save-urls): Ensure quickurl-urls is not truncated
on printing.

Fixes: debbugs:9276
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6daf062814e..362567cbe41 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-14  David Biesack  <sasdjb@d72933.na.sas.com>  (tiny change)
+
+	* net/quickurl.el (quickurl-save-urls):
+	Ensure quickurl-urls is not truncated on printing.  (Bug#9276)
+
 2013-02-14  Dmitry Gutov  <dgutov@yandex.ru>
 
 	* progmodes/ruby-mode.el (ruby-parse-partial): Don't increase
diff --git a/lisp/net/quickurl.el b/lisp/net/quickurl.el
index ce9ef55f499..1de9feb1341 100644
--- a/lisp/net/quickurl.el
+++ b/lisp/net/quickurl.el
@@ -272,7 +272,8 @@ It also restores point after the `read'."
 (defun quickurl-save-urls ()
   "Save the contents of `quickurl-urls' to `quickurl-url-file'."
   (with-temp-buffer
-    (let ((standard-output (current-buffer)))
+    (let ((standard-output (current-buffer))
+          (print-length nil))
       (princ quickurl-prefix)
       (pp quickurl-urls)
       (princ quickurl-postfix)