diff options
| -rw-r--r-- | lisp/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/net/eww.el | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 188db7f7a5f..a1d60d158ae 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -2,6 +2,7 @@ | |||
| 2 | 2 | ||
| 3 | * net/eww.el (eww-follow-link): Revert prefix behaviour to | 3 | * net/eww.el (eww-follow-link): Revert prefix behaviour to |
| 4 | previous behavior. | 4 | previous behavior. |
| 5 | (eww-copy-page-url): Add doc string. | ||
| 5 | 6 | ||
| 6 | 2014-12-07 Ivan Shmakov <ivan@siamics.net> | 7 | 2014-12-07 Ivan Shmakov <ivan@siamics.net> |
| 7 | 8 | ||
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 139c0b1372d..58e0ff36f6a 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el | |||
| @@ -1346,6 +1346,7 @@ Differences in #targets are ignored." | |||
| 1346 | (equal (url-recreate-url obj1) (url-recreate-url obj2)))) | 1346 | (equal (url-recreate-url obj1) (url-recreate-url obj2)))) |
| 1347 | 1347 | ||
| 1348 | (defun eww-copy-page-url () | 1348 | (defun eww-copy-page-url () |
| 1349 | "Copy the URL of the current page into the kill ring." | ||
| 1349 | (interactive) | 1350 | (interactive) |
| 1350 | (message "%s" (plist-get eww-data :url)) | 1351 | (message "%s" (plist-get eww-data :url)) |
| 1351 | (kill-new (plist-get eww-data :url))) | 1352 | (kill-new (plist-get eww-data :url))) |