(m2-execute-monitor-command): Renamed from execute-monitor-command.

diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el
index ada150732c39437a52a9d39cd20f60992d03c023..c80fbab844b010bb9090c158f400f4d2975b1ae0 100644 (file)
--- a/lisp/progmodes/modula2.el
+++ b/lisp/progmodes/modula2.el
@@ -398,7 +398,7 @@ FROM SysStreams IMPORT sysIn, sysOut, sysErr;
                     (setq m2-link-name (read-string "Name of executable: "
                                                     modulename))))))
 
-(defun execute-monitor-command (command)
+(defun m2-execute-monitor-command (command)
   (let* ((shell shell-file-name)
         (csh (equal (file-name-nondirectory shell) "csh")))
     (call-process shell nil t t "-cf" (concat "exec " command))))
@@ -412,7 +412,7 @@ FROM SysStreams IMPORT sysIn, sysOut, sysErr;
       (setq modulename
            (read-string "Module name: "))
       (switch-to-buffer "*Command Execution*")
-      (execute-monitor-command (concat "m2whereis " modulename))
+      (m2-execute-monitor-command (concat "m2whereis " modulename))
       (goto-char (point-min))
       (condition-case ()
          (progn (re-search-forward "\\(.*\\.def\\) *$")