aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/url/ChangeLog4
-rw-r--r--lisp/url/url-util.el2
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 04483a8539e..a40e5831485 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
12009-01-13 Juanma Barranquero <lekktu@gmail.com>
2
3 * url-util.el (url-truncate-url-for-viewing): Doc fix.
4
12009-01-09 Glenn Morris <rgm@gnu.org> 52009-01-09 Glenn Morris <rgm@gnu.org>
2 6
3 * url-cid.el (url-cid-gnus): Fix typo in header name. 7 * url-cid.el (url-cid-gnus): Fix typo in header name.
diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index ed47781b175..6218a5cd1cb 100644
--- a/lisp/url/url-util.el
+++ b/lisp/url/url-util.el
@@ -387,7 +387,7 @@ of the file with the extension stripped off."
387 387
388;;;###autoload 388;;;###autoload
389(defun url-truncate-url-for-viewing (url &optional width) 389(defun url-truncate-url-for-viewing (url &optional width)
390 "Return a shortened version of URL that is WIDTH characters or less wide. 390 "Return a shortened version of URL that is WIDTH characters wide or less.
391WIDTH defaults to the current frame width." 391WIDTH defaults to the current frame width."
392 (let* ((fr-width (or width (frame-width))) 392 (let* ((fr-width (or width (frame-width)))
393 (str-width (length url)) 393 (str-width (length url))