[nongnu] elpa/systemd 5b68986 024/131: add C-c C-d for opening systemd.directives(7)

[ELPA Syncer]

branch: elpa/systemd
commit 5b6898630dbb6629bdb7152248d74f63540c9f55
Author: Mark Oteiza <mvoteiza@udel.edu>
Commit: Mark Oteiza <mvoteiza@udel.edu>

    add C-c C-d for opening systemd.directives(7)
---
 systemd.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/systemd.el b/systemd.el
index a0141fa..a5ecd7c 100644
--- a/systemd.el
+++ b/systemd.el
@@ -125,6 +125,11 @@ current unit file, defaulting to the link under point, if 
any."
       ((or "http" "https") (funcall systemd-browse-url-function url))
       (_ (user-error "Invalid link")))))
 
+(defun systemd-doc-directives ()
+  "Open systemd.directives(7)"
+  (interactive)
+  (man "systemd.directives(7)"))
+
 (defvar systemd-mode-syntax-table
   (let ((table (make-syntax-table)))
     (modify-syntax-entry ?\" ".   " table)
@@ -135,6 +140,7 @@ current unit file, defaulting to the link under point, if 
any."
 
 (defvar systemd-mode-map
   (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "C-c C-d") 'systemd-doc-directives)
     (define-key map (kbd "C-c C-o") 'systemd-doc-open)
     map)
   "Keymap used in `systemd-mode' buffers.")