|
|
@@ -230,13 +230,26 @@ the indentation. Otherwise it retains the same position on the line"
|
|
|
;;
|
|
|
(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.
|
|
|
;;
|
|
|
(defun cmake-mode ()
|
|
|
- "Major mode for editing CMake listfiles."
|
|
|
+ "Major mode for editing CMake listfiles.
|
|
|
+
|
|
|
+\\{cmake-mode-map}"
|
|
|
(interactive)
|
|
|
(kill-all-local-variables)
|
|
|
(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)
|
|
|
(setq comment-start "#")
|
|
|
|
|
|
+ ; Setup keymap.
|
|
|
+ (use-local-map cmake-mode-map)
|
|
|
+
|
|
|
; Run user hooks.
|
|
|
(run-hooks 'cmake-mode-hook))
|
|
|
|