[Emacs-diffs] Changes to emacs/lisp/progmodes/m4-mode.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   08/04/21 05:02:07

Index: progmodes/m4-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/m4-mode.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- progmodes/m4-mode.el        10 Apr 2008 14:10:39 -0000      1.22
+++ progmodes/m4-mode.el        21 Apr 2008 05:02:06 -0000      1.23
@@ -103,10 +103,21 @@
 (modify-syntax-entry ?\"  "w" m4-mode-syntax-table)
 
 (defvar m4-mode-map
-  (let ((map (make-sparse-keymap)))
+  (let ((map (make-sparse-keymap))
+       (menu-map (make-sparse-keymap)))
     (define-key map "\C-c\C-b" 'm4-m4-buffer)
     (define-key map "\C-c\C-r" 'm4-m4-region)
     (define-key map "\C-c\C-c" 'comment-region)
+    (define-key map [menu-bar m4-mode] (cons "M4" menu-map))
+    (define-key menu-map [m4c]
+      '(menu-item "Comment Region" comment-region
+                 :help "Comment Region"))
+    (define-key menu-map [m4b]
+      '(menu-item "M4 Buffer" m4-m4-buffer
+                 :help "Send contents of the current buffer to m4"))
+    (define-key menu-map [m4r]
+      '(menu-item "M4 Region" m4-m4-region
+                 :help "Send contents of the current region to m4"))
     map))
 
 (defvar m4-mode-abbrev-table nil