From: Stefan Kangas <stefan@marxist.se>
Date: Thu, 4 Aug 2022 12:45:42 +0000 (+0200)
Subject: ; * lisp/progmodes/meta-mode.el: Delete some commented out code.
X-Git-Tag: emacs-29.0.90~1447^2~456
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a7628df8e743e2e2bae890049a2849a62a507ab;p=emacs.git

; * lisp/progmodes/meta-mode.el: Delete some commented out code.
---

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]
        ))