mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-10 09:43:26 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1995-08-27 17:15:57 +00:00
parent f1f20cec38
commit a4eecfc9a3
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/modula2.el
View file

@ -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\\) *$")