# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 861684141 0
# Node ID 5c77f95c5dd15caed0234126f7a541af2df4016e
# Parent  b891e41b401106cc50b742b91048fe87a0c23f69
(m2-end-comment-column): New defvar.
(modula-2-mode, m2-end-comment): Use m2-end-comment-column
instead of end-comment-column.
(m2-compile, m2-link): Don't set `modulename',

diff -r b891e41b4011 -r 5c77f95c5dd1 lisp/progmodes/modula2.el
--- a/lisp/progmodes/modula2.el	Tue Apr 22 04:37:22 1997 +0000
+++ b/lisp/progmodes/modula2.el	Tue Apr 22 04:42:21 1997 +0000
@@ -32,6 +32,8 @@
 (defvar m2-link-name nil
   "Name of the executable.")
 
+(defvar m2-end-comment-column nil
+  "*Column for aligning the end of a comment, in Modula-2.")
 
 (if m2-mode-syntax-table
     ()
@@ -119,8 +121,8 @@
   (setq mode-name "Modula-2")
   (make-local-variable 'comment-column)
   (setq comment-column 41)
-  (make-local-variable 'end-comment-column)
-  (setq end-comment-column 75)
+  (make-local-variable 'm2-end-comment-column)
+  (setq m2-end-comment-column 75)
   (set-syntax-table m2-mode-syntax-table)
   (make-local-variable 'paragraph-start)
   (setq paragraph-start (concat "$\\|" page-delimiter))
@@ -486,22 +488,20 @@
 (defun m2-end-comment ()
   (interactive)
   (if (not (bolp))
-      (indent-to end-comment-column))
+      (indent-to m2-end-comment-column))
   (insert "*)"))
 
 (defun m2-compile ()
   (interactive)
-  (setq modulename (buffer-name))
-  (compile (concat m2-compile-command " " modulename)))
+  (compile (concat m2-compile-command " " (buffer-name))))
 
 (defun m2-link ()
   (interactive)
-  (setq modulename (buffer-name))
   (if m2-link-name
       (compile (concat m2-link-command " " m2-link-name))
     (compile (concat m2-link-command " "
 		     (setq m2-link-name (read-string "Name of executable: "
-						     modulename))))))
+						     (buffer-name)))))))
 
 (defun m2-execute-monitor-command (command)
   (let* ((shell shell-file-name)