Use `w' for copying URLs in shr and eww

* net/eww.el (eww-mode-map): Ditto.

* net/eww.el (eww-copy-page-url): Changed name of command.

* net/shr.el (shr-map): Change `shr-copy-url' from `u' to `w' to
be more consistent with Info and dired.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e4a42f955d358b2bc5a319eb74506b2d57fed025..2f6f2df3221297030dad02aa3c8e384059886c1b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2013-06-25  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * net/eww.el (eww-copy-page-url): Changed name of command.
+
+       * net/shr.el (shr-map): Change `shr-copy-url' from `u' to `w' to
+       be more consistent with Info and dired.
+
+       * net/eww.el (eww-mode-map): Ditto.
+
 2013-06-25  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/package.el: Use lexical-binding.  Include obsolete

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index a77bed52a96d23f588f23d6430aa3042920d2c0c..9d6e42792ec2fbd1d63d749e92377a24de0a5320 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -324,8 +324,8 @@ word(s) will be searched for via `eww-search-prefix'."
     (define-key map "p" 'eww-previous-url)
     (define-key map "u" 'eww-up-url)
     (define-key map "t" 'eww-top-url)
-    (define-key map "w" 'eww-browse-with-external-browser)
-    (define-key map "y" 'eww-yank-page-url)
+    (define-key map "&" 'eww-browse-with-external-browser)
+    (define-key map "w" 'eww-copy-page-url)
     map))
 
 (define-derived-mode eww-mode nil "eww"
@@ -871,10 +871,11 @@ The browser to used is specified by the `shr-external-browser' variable."
   (interactive)
   (funcall shr-external-browser eww-current-url))
 
-(defun eww-yank-page-url ()
+(defun eww-copy-page-url ()
   (interactive)
-  (message eww-current-url)
+  (message "%s" eww-current-url)
   (kill-new eww-current-url))
+
 (provide 'eww)
 
 ;;; eww.el ends here

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 886308d55efa243448d7918c5da9b81c12670046..e1b1d4a93f71574161082f2a65829e10ed721864 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -144,7 +144,7 @@ cid: URL as the argument.")
     (define-key map [backtab] 'shr-previous-link)
     (define-key map [follow-link] 'mouse-face)
     (define-key map "I" 'shr-insert-image)
-    (define-key map "u" 'shr-copy-url)
+    (define-key map "w" 'shr-copy-url)
     (define-key map "v" 'shr-browse-url)
     (define-key map "o" 'shr-save-contents)
     (define-key map "\r" 'shr-browse-url)