>From f5ccea29a6f31f3d3e742d5d224ec6140a7316e3 Mon Sep 17 00:00:00 2001 From: Ivan Kanis Date: Mon, 24 Jun 2013 08:44:58 +0200 Subject: [PATCH 3/7] key 'y' puts page url in kill ring --- emacs/gnus/eww.el | 5 +++++ 1 files changed, 5 insertions(+), 0 deletions(-) diff --git a/emacs/gnus/eww.el b/emacs/gnus/eww.el index aa39585..50737d5 100644 --- a/emacs/gnus/eww.el +++ b/emacs/gnus/eww.el @@ -321,6 +321,7 @@ It will be used when emacs runs on neither Windows or Mac." (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) map)) (define-derived-mode eww-mode nil "eww" @@ -845,6 +846,10 @@ It support Windows and Mac then calls the function specified in (t (funcall eww-external-browser url))))) +(defun eww-yank-page-url () + (interactive) + (message eww-current-url) + (kill-new eww-current-url)) (provide 'eww) ;;; eww.el ends here -- 1.7.1