mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(m2-end-comment-column): New defvar.

Browse source 
(modula-2-mode, m2-end-comment): Use m2-end-comment-column
instead of end-comment-column.
(m2-compile, m2-link): Don't set `modulename',
This commit is contained in:
Richard M. Stallman 1997-04-22 04:42:21 +00:00
parent c410bd65f5
commit a80d3563db
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/progmodes/modula2.el
View file

@ -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 @@ followed by the first character of the construct.
(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 @@ FROM SysStreams IMPORT sysIn, sysOut, sysErr;
(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)