diff options
| -rw-r--r-- | rust-mode-tests.el | 21 | ||||
| -rw-r--r-- | rust-mode.el | 2 |
2 files changed, 22 insertions, 1 deletions
diff --git a/rust-mode-tests.el b/rust-mode-tests.el index 343b6c1..b234771 100644 --- a/rust-mode-tests.el +++ b/rust-mode-tests.el @@ -3283,3 +3283,24 @@ impl Two<'a> { (equal "tmp<T>" (buffer-substring-no-properties (point-min) (point-max))))) (electric-pair-mode (or old-electric-pair-mode 1)))))) + +(ert-deftest rust-mode-map () + (with-temp-buffer + (let (from to match (match-count 0)) + (rust-mode) + (describe-buffer-bindings (current-buffer)) + (goto-char (point-min)) + (re-search-forward "Major Mode Bindings") + (setq from (point)) + (re-search-forward " ") + (setq to (point)) + (goto-char from) + (while (re-search-forward "^C-c.*$" to t) + (setq match-count (1+ match-count)) + (setq match (match-string 0)) + (eval + `(should + (or + (string-match "Prefix Command" ,match) + (string-match "^C-c C" ,match))))) + (should (< 0 match-count))))) diff --git a/rust-mode.el b/rust-mode.el index b381893..b839558 100644 --- a/rust-mode.el +++ b/rust-mode.el @@ -1583,7 +1583,7 @@ Return the created process." (defvar rust-mode-map (let ((map (make-sparse-keymap))) (define-key map (kbd "C-c C-f") 'rust-format-buffer) - (define-key map (kbd "C-c d") 'rust-dbg-wrap-or-unwrap) + (define-key map (kbd "C-c C-d") 'rust-dbg-wrap-or-unwrap) map) "Keymap for Rust major mode.") |