emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 7a7628df8e 3/4: ; * lisp/progmodes/meta-mode.el: Delete some comm


From: Stefan Kangas
Subject: master 7a7628df8e 3/4: ; * lisp/progmodes/meta-mode.el: Delete some commented out code.
Date: Thu, 4 Aug 2022 08:49:28 -0400 (EDT)

branch: master
commit 7a7628df8e743e2e2bae890049a2849a62a507ab
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    ; * 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 37dff599f2..30d37cf7ec 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]
        ))
 
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]