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

a4eecfc9 · Richard M. Stallman · f1f20cec · a4eecfc9
Commit a4eecfc9 authored Aug 27, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/progmodes/modula2.el lisp/progmodes/modula2.el +2 -2

No files found.
--- 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\\) *$")