X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/22e1b8c34780d0ada1387977f00a68b7befd8343..3fa9aa2502686aa90b4d55a1a980eca00f4cc5c1:/el/dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 24d076d..001fa29 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -1012,6 +1012,9 @@ If NEW-SESSION-P, start a new session."
 	    (w3m-browse-url url new-session-p))
 	(select-window window)))))
 
+(eval-after-load 'w3m
+  '(define-key w3m-mode-map [?\e ?\r] 'w3m-view-this-url-new-session))
+
 (defvar mdw-good-url-browsers
   '(browse-url-chromium
     browse-url-mozilla
@@ -4006,7 +4009,7 @@ This allows you to pass a list of arguments through `ansi-term'."
   (ansi-term (list "ssh" host) (format "ssh@%s" host)))
 
 (defvar git-grep-command
-  "env PAGER=cat git grep --no-color -nH -e "
+  "env GIT_PAGER=cat git grep --no-color -nH -e "
   "*The default command for \\[git-grep].")
 
 (defvar git-grep-history nil)
@@ -4016,7 +4019,8 @@ This allows you to pass a list of arguments through `ansi-term'."
   (interactive
    (list (read-shell-command "Run git grep (like this): "
 			     git-grep-command 'git-grep-history)))
-  (grep command-args))
+  (let ((grep-use-null-device nil))
+    (grep command-args)))
 
 ;;;--------------------------------------------------------------------------
 ;;; Magit configuration.