diff options
| -rw-r--r-- | modules/face-diagnostic.el | 7 | ||||
| -rw-r--r-- | tests/test-face-diagnostic.el | 6 |
2 files changed, 12 insertions, 1 deletions
diff --git a/modules/face-diagnostic.el b/modules/face-diagnostic.el index 83c81d92c..6b1b547f1 100644 --- a/modules/face-diagnostic.el +++ b/modules/face-diagnostic.el @@ -8,7 +8,7 @@ ;; Load shape: eager. ;; Eager reason: none; a diagnostic command, a command-loaded deferral candidate. ;; Top-level side effects: defines cj/face-diagnostic-mode and the -;; cj/describe-face-at-point command; binds no global key. +;; cj/describe-face-at-point command; binds it to C-h F in help-map. ;; Runtime requires: seq. ;; Direct test load: yes (the pure core is tested by requiring this module). ;; @@ -447,5 +447,10 @@ See docs/specs/face-font-diagnostic-popup-spec-implemented.org." (cj/--face-diag-render-region (region-beginning) (region-end)) (cj/--face-diag-render (cj/--face-diagnosis-at (point)))))) +;; Bound on C-h F (Face) in the help cluster. This shadows helpful-function, +;; which also sits on C-h F here; face-diagnostic loads after help-config, so +;; this binding wins. +(keymap-set help-map "F" #'cj/describe-face-at-point) + (provide 'face-diagnostic) ;;; face-diagnostic.el ends here diff --git a/tests/test-face-diagnostic.el b/tests/test-face-diagnostic.el index f75d5b679..241425fc5 100644 --- a/tests/test-face-diagnostic.el +++ b/tests/test-face-diagnostic.el @@ -322,5 +322,11 @@ (should (string-match-p "Face stack" (buffer-string))))) (when (buffer-live-p buf) (kill-buffer buf)))))) +;;; keybinding + +(ert-deftest test-face-diag-bound-on-c-h-F () + "Normal: loading the module binds C-h F to the diagnostic command." + (should (eq (keymap-lookup help-map "F") 'cj/describe-face-at-point))) + (provide 'test-face-diagnostic) ;;; test-face-diagnostic.el ends here |