[ESS] error "Timeout waiting for prompt ( Eval region didn't work?)

christian schulz ozric at web.de
Wed Feb 2 13:18:55 CET 2005


Hi,

the cursor is right side from the last line which i want evaluated.

i.e.

x <- 1:10
x(here is the cursor)

Below trick works and let me further work with xemacs and R
,  but only the first line is evaluated.

>>x <- 1:10

many thanks 
Christian

Where is the cursor when you get this problem?
Does C-g end the difficulty and allow you to type in the window?


----------  Weitergeleitete Nachricht  ----------

Subject: error "Timeout waiting for prompt ( Eval region didn't work?)
Date: Sonntag, 30. Januar 2005 00:09
From: christian schulz <ozric at web.de>
To: ess-help at stat.math.ethz.ch

Hi

i spend some time to fix the problem, and recognize now
error message below when i'm type  M x  R it need some time and then it comes
up. Nevrthless i have an R istance and could use C - c n , but  not  C - c r.
With mouse and buttons the same!
For 5.2.4 and 5.2.3  the same.

Perhaps anything on my
R.2.0.1 compile is a cause of the error?

many thanks  christian

[SNIP]

Signaling: (error "Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout.")
  signal(error ("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout."))
  cerror("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout.")
  apply(cerror "Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout." nil)
  error("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout.")
  ess-error("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout.")
  (if (> (setq timeout ...) ess-loop-timeout) (ess-error "Timeout waiting for
prompt. Check inferior-ess-prompt or ess-loSignaling: (error "Timeout waiting
for prompt. Check inferior-ess-prompt or ess-loop-timeout.")
  signal(error ("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout."))
  cerror("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout.")
  apply(cerror "Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout." nil)
  error("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout.")
  ess-error("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout.")
  (if (> (setq timeout ...) ess-loop-timeout) (ess-error "Timeout waiting for
prompt. Check inferior-ess-prompt or ess-loop-timeout."))
  (if (not (eq ... ...)) (ess-error "ESS process has died unexpectedly.") (if
(> ... ess-loop-timeout) (ess-error "Timeout waiting for prompt. Check
inferior-ess-prompt or ess-loop-timeout.")) (accept-process-output)
(goto-char (point-max)) (beginning-of-line) (setq r (looking-at
inferior-ess-prompt)) (not (or r ...)))
  (progn (if (not ...) (ess-error "ESS process has died unexpectedly.")
(if ... ...) (accept-process-output) (goto-char ...) (beginning-of-line)
(setq r ...) (not ...)))
  (while (progn (if ... ... ... ... ... ... ... ...)))
  (let* ((cbuffer ...) (sprocess ...) (sbuffer ...) (r nil) (timeout 0))
(set-buffer sbuffer) (while (progn ...)) (goto-char (point-max)) (set-buffer
cbuffer) (symbol-value r))
  inferior-ess-wait-for-prompt()
  (let* ((symbol-string ...) (switches-symbol ...) (switches ...)
(buf-name-str ...)) (ess-write-to-dribble-buffer (format "(ess-multi 0):
inf-ess-start-args=%s, comint-..echoes=%s\n" inf-ess-start-args
comint-process-echoes)) (set-buffer buffer) (setq-default inferior-ess-prompt
(concat "\\(" inferior-ess-primary-prompt "\\|" inferior-ess-secondary-prompt
"\\)")) (inferior-ess-mode) (ess-write-to-dribble-buffer (format "(ess-multi
post inf-ess: start-args=%s, comint-echoes=%s\n" inf-ess-start-args
comint-process-echoes)) (setq ess-local-process-name proc-name) (goto-char
(point-max)) (setq comint-input-ring-file-name (expand-file-name
ess-history-file ess-directory)) (comint-read-input-ring)
(ess-write-to-dribble-buffer (format "(ess-multi 1):  start-args=%s \n"
inf-ess-start-args)) (set-buffer (if switches ... ...)) (set-process-sentinel
(get-process proc-name) (quote ess-process-sentinel)) (let (...) (if conselt
nil ...)) (ess-make-buffer-current) (inferior-ess-wait-for-prompt) (goto-char
(point-max)) (setq ess-sl-modtime-alist nil) (setq ess-sp-change t)
(run-hooks (quote ess-post-run-hook)))
  (if (and proc (comint-check-proc ...)) (pop-to-buffer (process-buffer
 proc)) (let* (... ... ... ...) (ess-write-to-dribble-buffer ...) (set-buffer
 buffer) (setq-default inferior-ess-prompt ...) (inferior-ess-mode)
(ess-write-to-dribble-buffer ...) (setq ess-local-process-name proc-name)
(goto-char ...) (setq comint-input-ring-file-name ...)
(comint-read-input-ring) (ess-write-to-dribble-buffer ...) (set-buffer ...)
(set-process-sentinel ... ...) (let ... ...) (ess-make-buffer-current)
(inferior-ess-wait-for-prompt) (goto-char ...) (setq ess-sl-modtime-alist
nil) (setq ess-sp-change t) (run-hooks ...)) (if inferior-ess-same-window
(switch-to-buffer ...) (pop-to-buffer ...)))
  (let* ((proc-name name) (special-display-regexps nil)
(special-display-frame-alist inferior-ess-frame-alist) (proc ...)) (if
inferior-ess-own-frame (setq special-display-regexps ...)) (if (and proc ...)
(pop-to-buffer ...)
(let* ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
 ... ...) (if inferior-ess-same-window ... ...)))
  ess-multi("R" #<buffer "*R*"> "--no-readline ")
  (let ((ess-directory ...)) (ess-multi procname buf
 inferior-ess-start-args)) (let* ((process-environment process-environment)
 (defdir ...) (temp-dialect temp-ess-dialect) (temp-lang temp-ess-lang)
 (procname ...) (startdir nil) (buf nil) (buf-name-str ...))
 (ess-write-to-dribble-buffer (format "(inf-ess 1.1): procname=%s
 temp-dialect=%s, buf-name=%s \n" procname temp-dialect buf-name-str)) (cond
 (... ... ... ...) (... ... ...) (... ... ... ...)) (set-buffer buf)
 (ess-setq-vars-local ess-customize-alist) (if ess-start-args (setq
 inferior-ess-start-args ess-start-args)) (ess-write-to-dribble-buffer
 (format "(inf-ess 2.1): ess-language=%s, ess-dialect=%s buf=%s \n"
ess-language ess-dialect ...)) (ess-write-to-dribble-buffer (format "(inf-ess
2.2): start args = %s, inf-ess-start-args=%s \n" ess-start-args
inferior-ess-start-args)) (ess-write-to-dribble-buffer (format "(inf-ess
finish [%s(%s), %s(%s,%s)]\n" ess-language ess-dialect inferior-ess-program
ess-current-process-name ess-local-process-name)) (if startdir (setq
default-directory startdir)) (setq-default ess-history-file (concat "."
ess-dialect "history")) (let (...) (ess-multi procname buf
inferior-ess-start-args)))
  (let ((temp-ess-dialect ...) (temp-ess-lang ...)) (save-excursion
(set-buffer ess-dribble-buffer) (make-variable-buffer-local ...)
(ess-setq-vars-default ess-customize-alist) (setq-default
comint-use-prompt-regexp-instead-of-fields nil)) (run-hooks (quote
ess-pre-run-hook)) (ess-write-to-dribble-buffer (format "(inf-ess 1):
lang=%s, dialect=%s, tmp-dialect=%s, buf=%s\n" ess-language ess-dialect
temp-ess-dialect ...)) (let* (... ... ... ... ... ... ... ...)
(ess-write-to-dribble-buffer ...) (cond ... ... ...) (set-buffer buf)
(ess-setq-vars-local ess-customize-alist) (if ess-start-args ...)
(ess-write-to-dribble-buffer ...) (ess-write-to-dribble-buffer ...)
(ess-write-to-dribble-buffer ...) (if startdir ...) (setq-default
ess-history-file ...) (let ... ...)))
  inferior-ess("--no-readline ")
  (let* ((r-always-arg ...) (r-start-args ...) default-process-coding-system)
(if ess-microsoft-p (setq default-process-coding-system ...)) (inferior-ess
r-start-args) (ess-write-to-dribble-buffer (format "(R):
inferior-ess-language-start=%s\n" inferior-ess-language-start)) (if
inferior-ess-language-start (ess-eval-linewise inferior-ess-language-start)))
  R(nil)
  call-interactively(R)
  command-execute(R t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)op-timeout."))
  (if (not (eq ... ...)) (ess-error "ESS process has died unexpectedly.") (if
(> ... ess-loop-timeout) (ess-error "Timeout waiting for prompt. Check
inferior-ess-prompt or ess-loop-timeout.")) (accept-process-output)
(goto-char (point-max)) (beginning-of-line) (setq r (looking-at
inferior-ess-prompt)) (not (or r ...)))
  (progn (if (not ...) (ess-error "ESS process has died unexpectedly.")
(if ... ...) (accept-process-output) (goto-char ...) (beginning-of-line)
(setq r ...) (not ...)))
  (while (progn (if ... ... ... ... ... ... ... ...)))
  (let* ((cbuffer ...) (sprocess ...) (sbuffer ...) (r nil) (timeout 0))
(set-buffer sbuffer) (while (progn ...)) (goto-char (point-max)) (set-buffer
cbuffer) (symbol-value r))
  inferior-ess-wait-for-prompt()
  (let* ((symbol-string ...) (switches-symbol ...) (switches ...)
(buf-name-str ...)) (ess-write-to-dribble-buffer (format "(ess-multi 0):
inf-ess-start-args=%s, comint-..echoes=%s\n" inf-ess-start-args
comint-process-echoes)) (set-buffer buffer) (setq-default inferior-ess-prompt
(concat "\\(" inferior-ess-primary-prompt "\\|" inferior-ess-secondary-prompt
"\\)")) (inferior-ess-mode) (ess-write-to-dribble-buffer (format "(ess-multi
post inf-ess: start-args=%s, comint-echoes=Signaling: (error "Timeout waiting
for prompt. Check inferior-ess-prompt or ess-loop-timeout.")
  signal(error ("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout."))
  cerror("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout.")
  apply(cerror "Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout." nil)
  error("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout.")
  ess-error("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout.")
  (if (> (setq timeout ...) ess-loop-timeout) (ess-error "Timeout waiting for
prompt. Check inferior-ess-prompt or ess-loop-timeout."))
  (if (not (eq ... ...)) (ess-error "ESS process has died unexpectedly.") (if
(> ... ess-loop-timeout) (ess-error "Timeout waiting for prompt. Check
inferior-ess-prompt or ess-loop-timeout.")) (accept-process-output)
(goto-char (point-max)) (beginning-of-line) (setq r (looking-at
inferior-ess-prompt)) (not (or r ...)))
  (progn (if (not ...) (ess-error "ESS process has died unexpectedly.")
(if ... ...) (accept-process-output) (goto-char ...) (beginning-of-line)
(setq r ...) (not ...)))
  (while (progn (if ... ... ... ... ... ... ... ...)))
  (let* ((cbuffer ...) (sprocess ...) (sbuffer ...) (r nil) (timeout 0))
(set-buffer sbuffer) (while (progn ...)) (goto-char (point-max)) (set-buffer
cbuffer) (symbol-value r))
  inferior-ess-wait-for-prompt()
  (let* ((symbol-string ...) (switches-symbol ...) (switches ...)
(buf-name-str ...)) (ess-write-to-dribble-buffer (format "(ess-multi 0):
inf-ess-start-args=%s, comint-..echoes=%s\n" inf-ess-start-args
comint-process-echoes)) (set-buffer buffer) (setq-default inferior-ess-prompt
(concat "\\(" inferior-ess-primary-prompt "\\|" inferior-ess-secondary-prompt
"\\)")) (inferior-ess-mode) (ess-write-to-dribble-buffer (format "(ess-multi
post inf-ess: start-args=%s, comint-echoes=%s\n" inf-ess-start-args
comint-process-echoes)) (setq ess-local-process-name proc-name) (goto-char
(point-max)) (setq comint-input-ring-file-name (expand-file-name
ess-history-file ess-directory)) (comint-read-input-ring)
(ess-write-to-dribble-buffer (format "(ess-multi 1):  start-args=%s \n"
inf-ess-start-args)) (set-buffer (if switches ... ...)) (set-process-sentinel
(get-process proc-name) (quote ess-process-sentinel)) (let (...) (if conselt
nil ...)) (ess-make-buffer-current) (inferior-ess-wait-for-prompt) (goto-char
(point-max)) (setq ess-sl-modtime-alist nil) (setq ess-sp-change t)
(run-hooks (quote ess-post-run-hook)))
  (if (and proc (comint-check-proc ...)) (pop-to-buffer (process-buffer
 proc)) (let* (... ... ... ...) (ess-write-to-dribble-buffer ...) (set-buffer
 buffer) (setq-default inferior-ess-prompt ...) (inferior-ess-mode)
(ess-write-to-dribble-buffer ...) (setq ess-local-process-name proc-name)
(goto-char ...) (setq comint-input-ring-file-name ...)
(comint-read-input-ring) (ess-write-to-dribble-buffer ...) (set-buffer ...)
(set-process-sentinel ... ...) (let ... ...) (ess-make-buffer-current)
(inferior-ess-wait-for-prompt) (goto-char ...) (setq ess-sl-modtime-alist
nil) (setq ess-sp-change t) (run-hooks ...)) (if inferior-ess-same-window
(switch-to-buffer ...) (pop-to-buffer ...)))
  (let* ((proc-name name) (special-display-regexps nil)
(special-display-frame-alist inferior-ess-frame-alist) (proc ...)) (if
inferior-ess-own-frame (setq special-display-regexps ...)) (if (and proc ...)
(pop-to-buffer ...)
(let* ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
 ... ...) (if inferior-ess-same-window ... ...)))
  ess-multi("R" #<buffer "*R*"> "--no-readline ")
  (let ((ess-directory ...)) (ess-multi procname buf
 inferior-ess-start-args)) (let* ((process-environment process-environment)
 (defdir ...) (temp-dialect temp-ess-dialect) (temp-lang temp-ess-lang)
 (procname ...) (startdir nil) (buf nil) (buf-name-str ...))
 (ess-write-to-dribble-buffer (format "(inf-ess 1.1): procname=%s
 temp-dialect=%s, buf-name=%s \n" procname temp-dialect buf-name-str)) (cond
 (... ... ... ...) (... ... ...) (... ... ... ...)) (set-buffer buf)
 (ess-setq-vars-local ess-customize-alist) (if ess-start-args (setq
 inferior-ess-start-args ess-start-args)) (ess-write-to-dribble-buffer
 (format "(inf-ess 2.1): ess-language=%s, ess-dialect=%s buf=%s \n"
ess-language ess-dialect ...)) (ess-write-to-dribble-buffer (format "(inf-ess
2.2): start args = %s, inf-ess-start-args=%s \n" ess-start-args
inferior-ess-start-args)) (ess-write-to-dribble-buffer (format "(inf-ess
finish [%s(%s), %s(%s,%s)]\n" ess-language ess-dialect inferior-ess-program
ess-current-process-name ess-local-process-name)) (if startdir (setq
default-directory startdir)) (setq-default ess-history-file (concat "."
ess-dialect "history")) (let (...) (ess-multi procname buf
inferior-ess-start-args)))
  (let ((temp-ess-dialect ...) (temp-ess-lang ...)) (save-excursion
(set-buffer ess-dribble-buffer) (make-variable-buffer-local ...)
(ess-setq-vars-default ess-customize-alist) (setq-default
comint-use-prompt-regexp-instead-of-fields nil)) (run-hooks (quote
ess-pre-run-hook)) (ess-write-to-dribble-buffer (format "(inf-ess 1):
lang=%s, dialect=%s, tmp-dialect=%s, buf=%s\n" ess-language ess-dialect
temp-ess-dialect ...)) (let* (... ... ... ... ... ... ... ...)
(ess-write-to-dribble-buffer ...) (cond ... ... ...) (set-buffer buf)
(ess-setq-vars-local ess-customize-alist) (if ess-start-args ...)
(ess-write-to-dribble-buffer ...) (ess-write-to-dribble-buffer ...)
(ess-write-to-dribble-buffer ...) (if startdir ...) (setq-default
ess-history-file ...) (let ... ...)))
  inferior-ess("--no-readline ")
  (let* ((r-always-arg ...) (r-start-args ...) default-process-coding-system)
(if ess-microsoft-p (setq default-process-coding-system ...)) (inferior-ess
r-start-args) (ess-write-to-dribble-buffer (format "(R):
inferior-ess-language-start=%s\n" inferior-ess-language-start)) (if
inferior-ess-language-start (ess-eval-linewise inferior-ess-language-start)))
  R(nil)
  call-interactively(R)
  command-execute(R t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)%s\n" inf-ess-start-args
comint-process-echoes)) (setq ess-local-process-name proc-name) (goto-char
(point-max)) (setq comint-input-ring-file-name (expand-file-name
ess-history-file ess-directory)) (comint-read-input-ring)
(ess-write-to-dribble-buffer (format "(ess-multi 1):  start-args=%s \n"
inf-ess-start-args)) (set-buffer (if switches ... ...)) (set-process-sentinel
(get-process proc-name) (quote ess-process-sentinel)) (let (...) (if conselt
nil ...)) (ess-make-buffer-current) (inferior-ess-wait-for-prompt) (goto-char
(point-max)) (setq ess-sl-modtime-alist nil) (setq ess-sp-change t)
(run-hooks (quote ess-post-run-hook)))
  (if (and proc (comint-check-proc ...)) (pop-to-buffer (process-buffer
 proc)) (let* (... ... ... ...) (ess-write-to-dribble-buffer ...) (set-buffer
 buffer) (setq-default inferior-ess-prompt ...) (inferior-ess-mode)
(ess-write-to-dribble-buffer ...) (setq ess-local-process-name proc-name)
(goto-char ...) (setq comint-input-ring-file-name ...)
(comint-read-input-ring) (ess-write-to-dribble-buffer ...) (set-buffer ...)
(set-process-sentinel ... ...) (let ... ...) (ess-make-buffer-current)
(inferior-ess-wait-for-prompt) (goto-char ...) (setq ess-sl-modtime-alist
nil) (setq ess-sp-change t) (run-hooks ...)) (if inferior-ess-same-window
(switch-to-buffer ...) (pop-to-buffer ...)))
  (let* ((proc-name name) (special-display-regexps nil)
(special-display-frame-alist inferior-ess-frame-alist) (proc ...)) (if
inferior-ess-own-frame (setq special-display-regexps ...)) (if (and proc ...)
(pop-to-buffer ...)
(let* ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
 ... ...) (if inferior-ess-same-window ... ...)))
  ess-multi("R" #<buffer "*R*"> "--no-readline ")
  (let ((ess-directory ...)) (ess-multi procname buf
 inferior-ess-start-args)) (let* ((process-environment process-environment)
 (defdir ...) (temp-dialect temp-ess-dialect) (temp-lang temp-ess-lang)
 (procname ...) (startdir nil) (buf nil) (buf-name-str ...))
 (ess-write-to-dribble-buffer (format "(inf-ess 1.1): procname=%s
 temp-dialect=%s, buf-name=%s \n" procname temp-dialect buf-name-str)) (cond
 (... ... ... ...) (... ... ...) (... ... ... ...)) (set-buffer buf)
 (ess-setq-vars-local ess-customize-alist) (if ess-start-args (setq
 inferior-ess-start-args ess-start-args)) (ess-write-to-dribble-buffer
 (format "(inf-ess 2.1): ess-language=%s, ess-dialect=%s buf=%s \n"
ess-language ess-dialect ...)) (ess-write-to-dribble-buffer (format "(inf-ess
2.2): start args = %s, inf-ess-start-args=%s \n" ess-start-args
inferior-ess-start-args)) (ess-write-to-dribble-buffer (format "(inf-ess
finish [%s(%s), %s(%s,%s)]\n" ess-language ess-dialect inferior-ess-program
ess-current-process-name ess-local-process-name)) (if startdir (setq
default-directory startdir)) (setq-default ess-history-file (concat "."
ess-dialect "history")) (let (...) (ess-multi procname buf
inferior-ess-start-args)))
  (let ((temp-ess-dialect ...) (temp-essSignaling: (error "Timeout waiting
 for prompt. Check inferior-ess-prompt or ess-loop-timeout.")
  signal(error ("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout."))
  cerror("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout.")
  apply(cerror "Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout." nil)
  error("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout.")
  ess-error("Timeout waiting for prompt. Check inferior-ess-prompt or
ess-loop-timeout.")
  (if (> (setq timeout ...) ess-loop-timeout) (ess-error "Timeout waiting for
prompt. Check inferior-ess-prompt or ess-loop-timeout."))
  (if (not (eq ... ...)) (ess-error "ESS process has died unexpectedly.") (if
(> ... ess-loop-timeout) (ess-error "Timeout waiting for prompt. Check
inferior-ess-prompt or ess-loop-timeout.")) (accept-process-output)
(goto-char (point-max)) (beginning-of-line) (setq r (looking-at
inferior-ess-prompt)) (not (or r ...)))
  (progn (if (not ...) (ess-error "ESS process has died unexpectedly.")
(if ... ...) (accept-process-output) (goto-char ...) (beginning-of-line)
(setq r ...) (not ...)))
  (while (progn (if ... ... ... ... ... ... ... ...)))
  (let* ((cbuffer ...) (sprocess ...) (sbuffer ...) (r nil) (timeout 0))
(set-buffer sbuffer) (while (progn ...)) (goto-char (point-max)) (set-buffer
cbuffer) (symbol-value r))
  inferior-ess-wait-for-prompt()
  (let* ((symbol-string ...) (switches-symbol ...) (switches ...)
(buf-name-str ...)) (ess-write-to-dribble-buffer (format "(ess-multi 0):
inf-ess-start-args=%s, comint-..echoes=%s\n" inf-ess-start-args
comint-process-echoes)) (set-buffer buffer) (setq-default inferior-ess-prompt
(concat "\\(" inferior-ess-primary-prompt "\\|" inferior-ess-secondary-prompt
"\\)")) (inferior-ess-mode) (ess-write-to-dribble-buffer (format "(ess-multi
post inf-ess: start-args=%s, comint-echoes=%s\n" inf-ess-start-args
comint-process-echoes)) (setq ess-local-process-name proc-name) (goto-char
(point-max)) (setq comint-input-ring-file-name (expand-file-name
ess-history-file ess-directory)) (comint-read-input-ring)
(ess-write-to-dribble-buffer (format "(ess-multi 1):  start-args=%s \n"
inf-ess-start-args)) (set-buffer (if switches ... ...)) (set-process-sentinel
(get-process proc-name) (quote ess-process-sentinel)) (let (...) (if conselt
nil ...)) (ess-make-buffer-current) (inferior-ess-wait-for-prompt) (goto-char
(point-max)) (setq ess-sl-modtime-alist nil) (setq ess-sp-change t)
(run-hooks (quote ess-post-run-hook)))
  (if (and proc (comint-check-proc ...)) (pop-to-buffer (process-buffer
 proc)) (let* (... ... ... ...) (ess-write-to-dribble-buffer ...) (set-buffer
 buffer) (setq-default inferior-ess-prompt ...) (inferior-ess-mode)
(ess-write-to-dribble-buffer ...) (setq ess-local-process-name proc-name)
(goto-char ...) (setq comint-input-ring-file-name ...)
(comint-read-input-ring) (ess-write-to-dribble-buffer ...) (set-buffer ...)
(set-process-sentinel ... ...) (let ... ...) (ess-make-buffer-current)
(inferior-ess-wait-for-prompt) (goto-char ...) (setq ess-sl-modtime-alist
nil) (setq ess-sp-change t) (run-hooks ...)) (if inferior-ess-same-window
(switch-to-buffer ...) (pop-to-buffer ...)))
  (let* ((proc-name name) (special-display-regexps nil)
(special-display-frame-alist inferior-ess-frame-alist) (proc ...)) (if
inferior-ess-own-frame (setq special-display-regexps ...)) (if (and proc ...)
(pop-to-buffer ...)
(let* ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
 ... ...) (if inferior-ess-same-window ... ...)))
  ess-multi("R" #<buffer "*R*"> "--no-readline ")
  (let ((ess-directory ...)) (ess-multi procname buf
 inferior-ess-start-args)) (let* ((process-environment process-environment)
 (defdir ...) (temp-dialect temp-ess-dialect) (temp-lang temp-ess-lang)
 (procname ...) (startdir nil) (buf nil) (buf-name-str ...))
 (ess-write-to-dribble-buffer (format "(inf-ess 1.1): procname=%s
 temp-dialect=%s, buf-name=%s \n" procname temp-dialect buf-name-str)) (cond
 (... ... ... ...) (... ... ...) (... ... ... ...)) (set-buffer buf)
 (ess-setq-vars-local ess-customize-alist) (if ess-start-args (setq
 inferior-ess-start-args ess-start-args)) (ess-write-to-dribble-buffer
 (format "(inf-ess 2.1): ess-language=%s, ess-dialect=%s buf=%s \n"
ess-language ess-dialect ...)) (ess-write-to-dribble-buffer (format "(inf-ess
2.2): start args = %s, inf-ess-start-args=%s \n" ess-start-args
inferior-ess-start-args)) (ess-write-to-dribble-buffer (format "(inf-ess
finish [%s(%s), %s(%s,%s)]\n" ess-language ess-dialect inferior-ess-program
ess-current-process-name ess-local-process-name)) (if startdir (setq
default-directory startdir)) (setq-default ess-history-file (concat "."
ess-dialect "history")) (let (...) (ess-multi procname buf
inferior-ess-start-args)))
  (let ((temp-ess-dialect ...) (temp-ess-lang ...)) (save-excursion
(set-buffer ess-dribble-buffer) (make-variable-buffer-local ...)
(ess-setq-vars-default ess-customize-alist) (setq-default
comint-use-prompt-regexp-instead-of-fields nil)) (run-hooks (quote
ess-pre-run-hook)) (ess-write-to-dribble-buffer (format "(inf-ess 1):
lang=%s, dialect=%s, tmp-dialect=%s, buf=%s\n" ess-language ess-dialect
temp-ess-dialect ...)) (let* (... ... ... ... ... ... ... ...)
(ess-write-to-dribble-buffer ...) (cond ... ... ...) (set-buffer buf)
(ess-setq-vars-local ess-customize-alist) (if ess-start-args ...)
(ess-write-to-dribble-buffer ...) (ess-write-to-dribble-buffer ...)
(ess-write-to-dribble-buffer ...) (if startdir ...) (setq-default
ess-history-file ...) (let ... ...)))
  inferior-ess("--no-readline ")
  (let* ((r-always-arg ...) (r-start-args ...) default-process-coding-system)
(if ess-microsoft-p (setq default-process-coding-system ...)) (inferior-ess
r-start-args) (ess-write-to-dribble-buffer (format "(R):
inferior-ess-language-start=%s\n" inferior-ess-language-start)) (if
inferior-ess-language-start (ess-eval-linewise inferior-ess-language-start)))
  R(nil)
  call-interactively(R)
  command-execute(R t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)-lang ...)) (save-excursion
(set-buffer ess-dribble-buffer) (make-variable-buffer-local ...)
(ess-setq-vars-default ess-customize-alist) (setq-default
comint-use-prompt-regexp-instead-of-fields nil)) (run-hooks (quote
ess-pre-run-hook)) (ess-write-to-dribble-buffer (format "(inf-ess 1):
lang=%s, dialect=%s, tmp-dialect=%s, buf=%s\n" ess-language ess-dialect
temp-ess-dialect ...)) (let* (... ... ... ... ... ... ... ...)
(ess-write-to-dribble-buffer ...) (cond ... ... ...) (set-buffer buf)
(ess-setq-vars-local ess-customize-alist) (if ess-start-args ...)
(ess-write-to-dribble-buffer ...) (ess-write-to-dribble-buffer ...)
(ess-write-to-dribble-buffer ...) (if startdir ...) (setq-default
ess-history-file ...) (let ... ...)))
  inferior-ess("--no-readline ")
  (let* ((r-always-arg ...) (r-start-args ...) default-process-coding-system)
(if ess-microsoft-p (setq default-process-coding-system ...)) (inferior-ess
r-start-args) (ess-write-to-dribble-buffer (format "(R):
inferior-ess-language-start=%s\n" inferior-ess-language-start)) (if
inferior-ess-language-start (ess-eval-linewise inferior-ess-language-start)))
  R(nil)
  call-interactively(R)
  command-execute(R t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)


----------  Weitergeleitete Nachricht  ----------

Subject: Eval region didn't work?
Date: Mittwoch, 26. Januar 2005 11:31
From: christian schulz <ozric at web.de>
To: ess-help at stat.math.ethz.ch

Hi

know  anybody why  xemacs allways hang  if i'm trying eval a region?
Eval a line works well and i'm using R-2.01, ess5.2.4 and  suse9.2.

I ve been attempt to recognize the problem using older ess-versions but
getting no succes until yet.

Many  thanks for hints and help
Christian




More information about the ESS-help mailing list