Explicitly set w32-browser keybindings

This is for when dired+ is not available (which is current the case, because
dired+ does not seem to be available from melpa and the previously used version
was too old).
master
Daniel Borchmann 2 years ago
parent 8ba10fda9c
commit a20b5faa42
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
  1. 26
      init.el

@ -1828,19 +1828,15 @@ With given ARG, display files in `db/important-document-path’."
(put 'dired-find-alternate-file 'disabled nil)
(require 'dired-x)
(with-demoted-errors "Non-Fatal Error (dired+): %s"
(require 'dired+)
;; disable exaggerated fontification of dired+
(require 'font-lock)
(add-to-list 'font-lock-maximum-decoration '(wdired-mode . 1))
(add-to-list 'font-lock-maximum-decoration '(dired-mode . 1)))
(when (and (eq system-type 'windows-nt)
(not (package-installed-p 'w32-browser)))
(warn "`w32-browser’ not installed, dired will have reduced functionality."))
(with-demoted-errors "Non-Fatal Error (dired+): %s"
(require 'dired+))
(unless (eq system-type 'windows-nt)
(if (eq system-type 'windows-nt)
(with-demoted-errors "Non-Fatal Error (w32-browser): %s"
(require 'w32-browser)
(bind-key "M-RET" #'dired-w32-browser dired-mode-map)
(bind-key "<C-return>" #'dired-w32explore dired-mode-map))
(with-demoted-errors "Non-Fatal Errors (dired-open): %s"
(require 'dired-open)
(bind-key "M-RET" #'dired-open-xdg dired-mode-map)))
@ -1927,6 +1923,14 @@ With given ARG, display files in `db/important-document-path’."
(use-package gnus-dired
:commands (turn-on-gnus-dired-mode))
(use-package dired+
:defer t
:config (progn
;; disable exaggerated fontification of dired+
(require 'font-lock)
(add-to-list 'font-lock-maximum-decoration '(wdired-mode . 1))
(add-to-list 'font-lock-maximum-decoration '(dired-mode . 1))))
;; * Completion

Loading…
Cancel
Save