* 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 6daf062814e64cac1355efcbd815a19f8eebb353..362567cbe41141473cd2950c25a3d2d9c2341492 100644 (file)
--- 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 ce9ef55f49906355742aacaa858befa3e56a33a1..1de9feb1341980e5399ab4966eabb017e7021692 100644 (file)
--- 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)