From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Tue, 25 Jun 2013 19:25:14 +0000 (+0200)
Subject: Use `w' for copying URLs in shr and eww
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1992^2~38
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=16f74f10ba890564e6d93b221ec38091af781bf3;p=emacs.git

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 e4a42f955d3..2f6f2df3221 100644
--- 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 a77bed52a96..9d6e42792ec 100644
--- 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 886308d55ef..e1b1d4a93f7 100644
--- 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)