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).
This commit is contained in:
parent
8ba10fda9c
commit
a20b5faa42
26
init.el
26
init.el
|
@ -1828,19 +1828,15 @@ With given ARG, display files in `db/important-document-path’."
|
||||||
(put 'dired-find-alternate-file 'disabled nil)
|
(put 'dired-find-alternate-file 'disabled nil)
|
||||||
|
|
||||||
(require 'dired-x)
|
(require 'dired-x)
|
||||||
|
|
||||||
(with-demoted-errors "Non-Fatal Error (dired+): %s"
|
(with-demoted-errors "Non-Fatal Error (dired+): %s"
|
||||||
(require 'dired+)
|
(require 'dired+))
|
||||||
|
|
||||||
;; disable exaggerated fontification of dired+
|
(if (eq system-type 'windows-nt)
|
||||||
(require 'font-lock)
|
(with-demoted-errors "Non-Fatal Error (w32-browser): %s"
|
||||||
(add-to-list 'font-lock-maximum-decoration '(wdired-mode . 1))
|
(require 'w32-browser)
|
||||||
(add-to-list 'font-lock-maximum-decoration '(dired-mode . 1)))
|
(bind-key "M-RET" #'dired-w32-browser dired-mode-map)
|
||||||
|
(bind-key "<C-return>" #'dired-w32explore dired-mode-map))
|
||||||
(when (and (eq system-type 'windows-nt)
|
|
||||||
(not (package-installed-p 'w32-browser)))
|
|
||||||
(warn "`w32-browser’ not installed, dired will have reduced functionality."))
|
|
||||||
|
|
||||||
(unless (eq system-type 'windows-nt)
|
|
||||||
(with-demoted-errors "Non-Fatal Errors (dired-open): %s"
|
(with-demoted-errors "Non-Fatal Errors (dired-open): %s"
|
||||||
(require 'dired-open)
|
(require 'dired-open)
|
||||||
(bind-key "M-RET" #'dired-open-xdg dired-mode-map)))
|
(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
|
(use-package gnus-dired
|
||||||
:commands (turn-on-gnus-dired-mode))
|
: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
|
;; * Completion
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue