cmake-mode.el: add local keybindings

Signed-off-by: Eric NOULARD <eric.noulard@gmail.com>
This commit is contained in:
Tom Schutter 2012-09-19 20:45:15 -06:00 committed by Eric NOULARD
parent 6d1e4efd00
commit 301e67e3ba
1 changed files with 17 additions and 1 deletions

View File

@ -230,13 +230,26 @@ the indentation. Otherwise it retains the same position on the line"
;; ;;
(defvar cmake-tab-width 2) (defvar cmake-tab-width 2)
;;
;; Keymap.
;;
(defvar cmake-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "\C-ch" 'cmake-help-command)
(define-key map "\C-cl" 'cmake-help-list-commands)
(define-key map "\C-cu" 'unscreamify-cmake-buffer)
map)
"Keymap used in cmake-mode buffers.")
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
;; ;;
;; CMake mode startup function. ;; CMake mode startup function.
;; ;;
(defun cmake-mode () (defun cmake-mode ()
"Major mode for editing CMake listfiles." "Major mode for editing CMake listfiles.
\\{cmake-mode-map}"
(interactive) (interactive)
(kill-all-local-variables) (kill-all-local-variables)
(setq major-mode 'cmake-mode) (setq major-mode 'cmake-mode)
@ -263,6 +276,9 @@ the indentation. Otherwise it retains the same position on the line"
(make-local-variable 'comment-start) (make-local-variable 'comment-start)
(setq comment-start "#") (setq comment-start "#")
; Setup keymap.
(use-local-map cmake-mode-map)
; Run user hooks. ; Run user hooks.
(run-hooks 'cmake-mode-hook)) (run-hooks 'cmake-mode-hook))