From a4eecfc9a36e30db3f07c7f0deddc94244ae80a2 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 27 Aug 1995 17:15:57 +0000 Subject: [PATCH] (m2-execute-monitor-command): Renamed from execute-monitor-command. --- lisp/progmodes/modula2.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el index ada150732c3..c80fbab844b 100644 --- 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\\) *$") -- 2.39.2