emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] trunk r113176: Use `w' for copying URLs in shr and eww


From: Lars Ingebrigtsen
Subject: [Emacs-diffs] trunk r113176: Use `w' for copying URLs in shr and eww
Date: Tue, 25 Jun 2013 19:25:18 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 113176
revision-id: address@hidden
parent: address@hidden
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Tue 2013-06-25 21:25:14 +0200
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/eww.el                eww.el-20130610114603-80ap3gwnw4x4m5ix-1
  lisp/net/shr.el                shr.el-20101002102929-yfzewk55rsg0mn93-1
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-25 16:13:49 +0000
+++ b/lisp/ChangeLog    2013-06-25 19:25:14 +0000
@@ -1,3 +1,12 @@
+2013-06-25  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * 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  <address@hidden>
 
        * emacs-lisp/package.el: Use lexical-binding.  Include obsolete

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2013-06-25 15:39:13 +0000
+++ b/lisp/net/eww.el   2013-06-25 19:25:14 +0000
@@ -324,8 +324,8 @@
     (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 @@
   (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

=== modified file 'lisp/net/shr.el'
--- a/lisp/net/shr.el   2013-06-24 17:41:26 +0000
+++ b/lisp/net/shr.el   2013-06-25 19:25:14 +0000
@@ -144,7 +144,7 @@
     (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)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]