Mercurial > emacs

comparison lisp/progmodes/modula2.el @ 12953:e0db27f18a43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(m2-execute-monitor-command): Renamed from execute-monitor-command.
author Richard M. Stallman <rms@gnu.org>
date Sun, 27 Aug 1995 17:15:57 +0000
parents 13ce3a71c223
children a56ed7721b43
comparison
equal deleted inserted replaced
12952:0ad88e6d8ef1 12953:e0db27f18a43
396 (compile (concat m2-link-command " " m2-link-name)) 396 (compile (concat m2-link-command " " m2-link-name))
397 (compile (concat m2-link-command " " 397 (compile (concat m2-link-command " "
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))))
405 405
406 (defun m2-visit () 406 (defun m2-visit ()
410 modulename) 410 modulename)
411 (save-excursion 411 (save-excursion
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\\) *$")
419 (setq deffile (buffer-substring (match-beginning 1) 419 (setq deffile (buffer-substring (match-beginning 1)
420 (match-end 1)))) 420 (match-end 1))))