Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml-mode/trunk/sml-proc.el
ViewVC logotype

Diff of /sml-mode/trunk/sml-proc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 699, Mon Aug 21 22:13:39 2000 UTC revision 700, Thu Aug 24 20:35:39 2000 UTC
# Line 256  Line 256 
256    
257  (defmap inferior-sml-mode-map  (defmap inferior-sml-mode-map
258    '(("\C-c\C-s" . run-sml)    '(("\C-c\C-s" . run-sml)
259        ("\C-c\C-l" . sml-load-file)
260      ("\t"       . comint-dynamic-complete))      ("\t"       . comint-dynamic-complete))
261    "Keymap for inferior-sml mode"    "Keymap for inferior-sml mode"
262    :inherit (list sml-bindings comint-mode-map)    :inherit comint-mode-map
263    :group 'sml-proc)    :group 'sml-proc)
264    
265    
# Line 348  Line 349 
349    (setq comint-prompt-regexp sml-prompt-regexp)    (setq comint-prompt-regexp sml-prompt-regexp)
350    (sml-mode-variables)    (sml-mode-variables)
351    
352      (set (make-local-variable 'font-lock-defaults)
353           inferior-sml-font-lock-defaults)
354    ;; For sequencing through error messages:    ;; For sequencing through error messages:
355    (set (make-local-variable 'sml-error-cursor) (point-max-marker))    (set (make-local-variable 'sml-error-cursor) (point-max-marker))
356    (set-marker-insertion-type sml-error-cursor nil)    (set-marker-insertion-type sml-error-cursor nil)
   (set (make-local-variable 'font-lock-defaults)  
        inferior-sml-font-lock-defaults)  
357    
358    ;; compilation support (used for next-error)    ;; compilation support (used for next-error)
359    (set (make-local-variable 'compilation-error-regexp-alist)    (set (make-local-variable 'compilation-error-regexp-alist)
# Line 411  Line 412 
412        (setq args (list* host "cd" default-directory ";" cmd args))        (setq args (list* host "cd" default-directory ";" cmd args))
413        (setq cmd remote-shell-program))        (setq cmd remote-shell-program))
414      ;; go for it      ;; go for it
415      (setq sml-buffer (apply 'make-comint pname cmd file args))      (let ((exec-path (if (file-name-directory cmd)
416                             ;; If the command has slashes, make sure we
417                             ;; first look relative to the current directory.
418                             ;; Emacs-21 does it for us, but not Emacs-20.
419                             (cons default-directory exec-path) exec-path)))
420          (setq sml-buffer (apply 'make-comint pname cmd file args)))
421    
422      (pop-to-buffer sml-buffer)      (pop-to-buffer sml-buffer)
423      ;;(message (format "Starting \"%s\" in background." pname))      ;;(message (format "Starting \"%s\" in background." pname))

Legend:
Removed from v.699  
changed lines
  Added in v.700

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0