From 7a7628df8e743e2e2bae890049a2849a62a507ab Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 4 Aug 2022 14:45:42 +0200 Subject: [PATCH] ; * lisp/progmodes/meta-mode.el: Delete some commented out code. --- lisp/progmodes/meta-mode.el | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/lisp/progmodes/meta-mode.el b/lisp/progmodes/meta-mode.el index 37dff599f2f..30d37cf7ecd 100644 --- a/lisp/progmodes/meta-mode.el +++ b/lisp/progmodes/meta-mode.el @@ -802,11 +802,6 @@ The environment marked is the one that contains point or follows point." (defvar meta-common-mode-map (let ((map (make-sparse-keymap))) - ;; Comment Paragraphs: - ;; (define-key map "\M-a" 'backward-sentence) - ;; (define-key map "\M-e" 'forward-sentence) - ;; (define-key map "\M-h" 'mark-paragraph) - ;; (define-key map "\M-q" 'fill-paragraph) ;; Navigation: (define-key map "\M-\C-a" 'meta-beginning-of-defun) (define-key map "\M-\C-e" 'meta-end-of-defun) @@ -823,10 +818,6 @@ The environment marked is the one that contains point or follows point." (define-key map "\C-c:" 'meta-uncomment-region) ;; Symbol Completion: (define-key map "\M-\t" 'completion-at-point) - ;; Shell Commands: - ;; (define-key map "\C-c\C-c" 'meta-command-file) - ;; (define-key map "\C-c\C-k" 'meta-kill-job) - ;; (define-key map "\C-c\C-l" 'meta-recenter-output) map) "Keymap used in Metafont or MetaPost mode.") @@ -851,10 +842,6 @@ The environment marked is the one that contains point or follows point." :active mark-active] "--" ["Complete Symbol" completion-at-point t] -; "--" -; ["Command on Buffer" meta-command-file t] -; ["Kill Job" meta-kill-job t] -; ["Recenter Output Buffer" meta-recenter-output-buffer t] )) -- 2.39.2