diff options
| author | Richard M. Stallman | 1995-08-27 17:15:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-08-27 17:15:57 +0000 |
| commit | a4eecfc9a36e30db3f07c7f0deddc94244ae80a2 (patch) | |
| tree | 2cfee11a21642b6b37b09bcc43a7050908b95ab8 | |
| parent | f1f20cec38b42ee5c8c2aef19a6cb41c840f9b1a (diff) | |
| download | emacs-a4eecfc9a36e30db3f07c7f0deddc94244ae80a2.tar.gz emacs-a4eecfc9a36e30db3f07c7f0deddc94244ae80a2.zip | |
(m2-execute-monitor-command): Renamed from execute-monitor-command.
| -rw-r--r-- | lisp/progmodes/modula2.el | 4 |
1 files 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; | |||
| 398 | (setq m2-link-name (read-string "Name of executable: " | 398 | (setq m2-link-name (read-string "Name of executable: " |
| 399 | modulename)))))) | 399 | modulename)))))) |
| 400 | 400 | ||
| 401 | (defun execute-monitor-command (command) | 401 | (defun m2-execute-monitor-command (command) |
| 402 | (let* ((shell shell-file-name) | 402 | (let* ((shell shell-file-name) |
| 403 | (csh (equal (file-name-nondirectory shell) "csh"))) | 403 | (csh (equal (file-name-nondirectory shell) "csh"))) |
| 404 | (call-process shell nil t t "-cf" (concat "exec " command)))) | 404 | (call-process shell nil t t "-cf" (concat "exec " command)))) |
| @@ -412,7 +412,7 @@ FROM SysStreams IMPORT sysIn, sysOut, sysErr; | |||
| 412 | (setq modulename | 412 | (setq modulename |
| 413 | (read-string "Module name: ")) | 413 | (read-string "Module name: ")) |
| 414 | (switch-to-buffer "*Command Execution*") | 414 | (switch-to-buffer "*Command Execution*") |
| 415 | (execute-monitor-command (concat "m2whereis " modulename)) | 415 | (m2-execute-monitor-command (concat "m2whereis " modulename)) |
| 416 | (goto-char (point-min)) | 416 | (goto-char (point-min)) |
| 417 | (condition-case () | 417 | (condition-case () |
| 418 | (progn (re-search-forward "\\(.*\\.def\\) *$") | 418 | (progn (re-search-forward "\\(.*\\.def\\) *$") |