Lines Matching +defs:command +defs:line
34 (defvar command-prefix-string "$ "
40 (defvar command-mode-map
42 (define-key map "\C-m" 'command-send-input)
43 (define-key map "\C-u" 'command-kill-line)
61 the last line to the subprocess or to bring another line to
67 (use-local-map command-mode-map))
73 (send-command-to-subprocess 1 "ON SEVERE_ERROR THEN CONTINUE")))
75 (defun subprocess-command-to-buffer (command buffer)
78 (setq cmd (substring command 0 (string-match " " command)))
79 (setq args (substring command (string-match " " command)))
90 ;; (send-command-to-subprocess 1 command)
91 ;; (send-command-to-subprocess 1 (concat
100 (defun subprocess-command ()
108 (defun command-send-input ()
109 "If at last line of buffer, send the current line to
111 line to the last line for resubmission."
113 (beginning-of-line)
114 (let ((current-line (buffer-substring (point) (line-end-position))))
121 (beginning-of-line)
122 (send-command-to-subprocess 1 current-line)
123 (if command-prefix-string
124 (progn (beginning-of-line) (insert command-prefix-string)))
125 (next-line 1))))
126 ;; else -- if not at last line in buffer
129 (next-line 1)
131 (if (compare-strings command-prefix-string nil nil
132 current-line 0 (length command-prefix-string))
133 (substring current-line (length command-prefix-string))
134 current-line)))))
136 (defun command-kill-line ()
137 "Kill the current line. Used in command mode."
139 (beginning-of-line)
140 (kill-line))
142 (define-key esc-map "$" 'subprocess-command)