[ESS-bugs] ess-mode 5.3.7; ess-eval-visibly-p nil leaves artifacts in process buffer

[tyler]

Here's today's problem: I have ess-eval-visibly set to nil, to speed up
submission of code to the R process. However, this leaves a + for
every line in the submitted code:

> + + + + + + + + + + >

For some reason, this plays havoc with the command-line history.
C-<up> and C-<down> a few times, and those pluses seem to propagate
themselves, and it also interferes with sending commands from further
up the transcript on occasion.

One possible solution to this is to add a few lines to
ess-eval-region, to clean out the last line of the process buffer. I
had to wait a second to make this work, as the + symbols apparently
don't actually return immediately, so it is possible to clean the
prompt line before they arrive.

This has solved my problem, but with the side-effect that sending
regions from a .R file to the process causes the .R file to bounce
around a bit, sometimes just recentering, sometimes actually moving
point. I've tried both save-excursion and save-current-buffer, and
both have this behaviour.

Since sending code to the process visibly leaves a blank line after
evaluation, this code doesn't change the apparent behaviour of sending
code visibly. However, due to the strange movement in the source
buffer, it might be preferable to wrap the new code in an 

(if (not (ess-eval-visibly-p))
    ...
	)

Anyways, here's my code. Let me know if anyone else has had this
problem, if this is a reasonable approach to fix it, and if there's a
better way to do it.

Thanks,

Tyler

;; From ess-inf.el, ca. line 1050
(defun ess-eval-region (start end toggle &optional message)
  "Send the current region to the inferior ESS process.
With prefix argument toggle the meaning of `ess-eval-visibly-p';
this does not apply when using the S-plus GUI, see `ess-eval-region-ddeclient'."
  (interactive "r\nP")
  ;;(untabify (point-min) (point-max))
  ;;(untabify start end); do we really need to save-excursion?
  (ess-force-buffer-current "Process to load into: ")
  (message "Starting evaluation...")

  (if (ess-ddeclient-p)
      (ess-eval-region-ddeclient start end 'even-empty)
    ;; else: "normal", non-DDE behavior:
    (let ((visibly (if toggle (not ess-eval-visibly-p) ess-eval-visibly-p)))
      (if visibly
	  (ess-eval-linewise (buffer-substring start end))
	(if ess-synchronize-evals
	    (ess-eval-linewise (buffer-substring start end)
			       (or message "Eval region"))
	  ;; else [almost always!]
	  (let ((sprocess (get-ess-process ess-current-process-name)))
	    (process-send-region sprocess start end)
	    (process-send-string sprocess "\n"))))))

;; begin Tyler's modification:
  (sleep-for 1)
  (save-current-buffer
    (set-buffer (get-ess-buffer ess-current-process-name))
    (end-of-buffer)
    (comint-bol)
    (kill-line))
;; end Tyler's modification

  (message "Finished evaluation")
  ;; return value
  (list start end))


[ess-site.el]: ess-customize-alist=nil 
[ess-site.el _2_]: ess-customize-alist=nil 
(S): ess-s-versions-create making M-x defuns for 
 
(R): ess-r-versions-create making M-x defuns for 
 

(R): ess-dialect=nil, buf=*shell*, start-arg=nil
 current-prefix-arg=nil
(inferior-ess 0): ess-start-args=--no-readline --no-restore  
ess-setq-vars-default 0: ess-language=Initial, -dialect=nil, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
ess-setq-vars-default 1: ess-language=S, -dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
(inf-ess 1): lang=S, dialect=R, tmp-dialect=R, buf=*shell*
(inf-ess 1.1): procname=R temp-dialect=R, buf-name=*R* 
(inferior-ess) Method #3 start=/home/tyler/rworkingdirectory/ buf=*R*
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
(inf-ess 2.1): ess-language=S, ess-dialect=R buf=*R* 
(inf-ess 2.2): start args = --no-readline --no-restore , inf-ess-start-args=--no-readline --no-restore  
(inf-ess finish [S(R), R(nil,nil)]
(ess-multi 0):  inf-ess-start-args=--no-readline --no-restore , comint-..echoes=nil
(i-ess 1): buf=*R*, lang=S, comint..echo=nil, comint..sender=comint-simple-send,
(i-ess 2): buf=*R*, lang=S, comint..echo=t, comint..sender=inferior-R-input-sender,
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=t, comint..sender=inferior-R-input-sender
(i-ess 3): curr-buf=*R*, comint..echo=t, comint..sender=inferior-R-input-sender,
(ess-multi post inf-ess: start-args=--no-readline --no-restore , comint-echoes=t
(ess-multi 1):  start-args=--no-readline --no-restore  
Making Process...Buf *R*, Proc R, Prog R
 Start File=nil, Args= --no-readline --no-restore .
(R): inferior-ess-language-start=options(STERM='iESS', editor='emacsclient')
 (ess-search-list: re-computing..) after 'search()
', point-max=189
(get-object-list R) ..--> (ess-get-modtime-list)
(ess-object-names obj=.GlobalEnv): no directory - trying names
(ess-object-names obj=package:stats): no directory - trying names
(ess-object-names obj=package:graphics): no directory - trying names
(ess-object-names obj=package:grDevices): no directory - trying names
(ess-object-names obj=package:utils): no directory - trying names
(ess-object-names obj=package:datasets): no directory - trying names
(ess-object-names obj=package:methods): no directory - trying names
(ess-object-names obj=Autoloads): no directory - trying names
(ess-object-names obj=package:base): no directory - trying names
ess-get-modtime-list: new alist of length 9
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 0
 (ess-search-list: re-computing..) after 'search()
', point-max=211
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 0
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 9
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
(ess-mode-1): ess-language=S, ess-dialect=R buf=bell2003.R 
(ess-mode-1.5): alist=((ess-local-customize-alist quote R-customize-alist) (ess-dialect . R) (ess-suffix . R) (ess-dump-filename-template ess-replace-regexp-in-string S$ ess-suffix ess-dump-filename-template-proto) (ess-mode-syntax-table . R-syntax-table) (ess-mode-editing-alist . R-editing-alist) (ess-change-sp-regexp . ess-R-change-sp-regexp) (ess-help-sec-regex . ess-help-R-sec-regex) (ess-help-sec-keys-alist . ess-help-R-sec-keys-alist) (ess-loop-timeout . ess-S-loop-timeout) (ess-cmd-delay . ess-R-cmd-delay) (ess-function-pattern . ess-R-function-pattern) (ess-object-name-db-file . ess-r-namedb.el) (ess-imenu-mode-function quote ess-imenu-R) (inferior-ess-program . inferior-R-program-name) (inferior-ess-objects-command . inferior-R-objects-command) (inferior-ess-font-lock-keywords . inferior-ess-R-font-lock-keywords) (inferior-ess-search-list-command . search()
) (inferior-ess-help-command . help("%s", htmlhelp=FALSE)
) (inferior-ess-help-filetype) (inferior-ess-exit-command . q()) (inferior-ess-exit-prompt . Save workspace image? [y/n/c]: ) (inferior-ess-primary-prompt . \([A-Z][][A-Za-z0-9.]*\)?> ) (inferior-ess-secondary-prompt . + ?) (inferior-ess-start-file) (inferior-ess-start-args . ) (ess-STERM . iESS) (ess-editor . R-editor) (ess-pager . R-pager) (ess-language . S) (inferior-ess-exit-command . q()
) (inferior-ess-language-start eval inferior-S-language-start) (comint-use-prompt-regexp-instead-of-fields . t)) 
(ess-mode-1.6): editing-alist=((paragraph-start concat \s-*$\| page-delimiter) (paragraph-separate concat \s-*$\| page-delimiter) (paragraph-ignore-fill-prefix . t) (require-final-newline . t) (comment-start . #) (comment-add . 1) (comment-start-skip . #+ *) (comment-column . 40) (indent-line-function quote S-indent-line) (parse-sexp-ignore-comments . t) (ess-style . ess-default-style) (ess-local-process-name) (ess-mode-syntax-table . S-syntax-table) (add-log-current-defun-header-regexp . ^\(.+\)\s-+<-[ 	
]*function) (font-lock-defaults quote (ess-R-mode-font-lock-keywords nil nil ((46 . w) (95 . w))))) 
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send

Finished setting up ESS-mode.
ess-BEG-of-fun after 'search-FWD (': Ini-pt 1538, (p)-Ini-pt = 78
ELSE  not in setMethod() header ...
	Match,Pt:(1416,1437),1416
ess-END-of-fun: S4=nil, beginning = 1416
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=*ESS-errors*, comint..echoes=nil, comint..sender=comint-simple-send
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
(ess-mode-1): ess-language=S, ess-dialect=R buf=neut_ord.R 
(ess-mode-1.5): alist=((ess-local-customize-alist quote R-customize-alist) (ess-dialect . R) (ess-suffix . R) (ess-dump-filename-template ess-replace-regexp-in-string S$ ess-suffix ess-dump-filename-template-proto) (ess-mode-syntax-table . R-syntax-table) (ess-mode-editing-alist . R-editing-alist) (ess-change-sp-regexp . ess-R-change-sp-regexp) (ess-help-sec-regex . ess-help-R-sec-regex) (ess-help-sec-keys-alist . ess-help-R-sec-keys-alist) (ess-loop-timeout . ess-S-loop-timeout) (ess-cmd-delay . ess-R-cmd-delay) (ess-function-pattern . ess-R-function-pattern) (ess-object-name-db-file . ess-r-namedb.el) (ess-imenu-mode-function quote ess-imenu-R) (inferior-ess-program . inferior-R-program-name) (inferior-ess-objects-command . inferior-R-objects-command) (inferior-ess-font-lock-keywords . inferior-ess-R-font-lock-keywords) (inferior-ess-search-list-command . search()
) (inferior-ess-help-command . help("%s", htmlhelp=FALSE)
) (inferior-ess-help-filetype) (inferior-ess-exit-command . q()) (inferior-ess-exit-prompt . Save workspace image? [y/n/c]: ) (inferior-ess-primary-prompt . \([A-Z][][A-Za-z0-9.]*\)?> ) (inferior-ess-secondary-prompt . + ?) (inferior-ess-start-file) (inferior-ess-start-args . ) (ess-STERM . iESS) (ess-editor . R-editor) (ess-pager . R-pager) (ess-language . S) (inferior-ess-exit-command . q()
) (inferior-ess-language-start eval inferior-S-language-start) (comint-use-prompt-regexp-instead-of-fields . t)) 
(ess-mode-1.6): editing-alist=((paragraph-start concat \s-*$\| page-delimiter) (paragraph-separate concat \s-*$\| page-delimiter) (paragraph-ignore-fill-prefix . t) (require-final-newline . t) (comment-start . #) (comment-add . 1) (comment-start-skip . #+ *) (comment-column . 40) (indent-line-function quote S-indent-line) (parse-sexp-ignore-comments . t) (ess-style . ess-default-style) (ess-local-process-name) (ess-mode-syntax-table . S-syntax-table) (add-log-current-defun-header-regexp . ^\(.+\)\s-+<-[ 	
]*function) (font-lock-defaults quote (ess-R-mode-font-lock-keywords nil nil ((46 . w) (95 . w))))) 
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send

Finished setting up ESS-mode.
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 22
ess-BEG-of-fun after 'search-FWD (': Ini-pt 4686, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(4570,4594),4570
ess-END-of-fun: S4=nil, beginning = 4570
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 23
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 24
ess-BEG-of-fun after 'search-FWD (': Ini-pt 4655, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(4570,4594),4570
ess-END-of-fun: S4=nil, beginning = 4570
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 25
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 25
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 26
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 26
(ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 26
(ess-object-names obj=bell.10): no directory - trying names
ess-BEG-of-fun after 'search-FWD (': Ini-pt 1104, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(864,880),864
	Match,Pt:(279,299),279
ess-END-of-fun: S4=nil, beginning = 279
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 26
(ess-object-names obj=bell.10): no directory - trying names
(ess-object-names obj=bell.10): no directory - trying names
(ess-object-names obj=bell.10): no directory - trying names
(ess-object-names obj=bell.01): no directory - trying names
(ess-object-names obj=bell.01): no directory - trying names
ess-BEG-of-fun after 'search-FWD (': Ini-pt 1256, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(864,880),864
	Match,Pt:(279,299),279
ess-END-of-fun: S4=nil, beginning = 279
ess-BEG-of-fun after 'search-FWD (': Ini-pt 1035, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(864,880),864
	Match,Pt:(279,299),279
ess-END-of-fun: S4=nil, beginning = 279
ess-BEG-of-fun after 'search-FWD (': Ini-pt 1035, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(864,880),864
	Match,Pt:(279,299),279
ess-END-of-fun: S4=nil, beginning = 279
ess-BEG-of-fun after 'search-FWD (': Ini-pt 1035, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(864,880),864
	Match,Pt:(279,299),279
ess-END-of-fun: S4=nil, beginning = 279
ess-BEG-of-fun after 'search-FWD (': Ini-pt 1035, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(864,880),864
	Match,Pt:(279,299),279
ess-END-of-fun: S4=nil, beginning = 279
ess-BEG-of-fun after 'search-FWD (': Ini-pt 5167, (p)-Ini-pt = 24
ELSE  not in setMethod() header ...
	Match,Pt:(5036,5062),5036
ess-END-of-fun: S4=nil, beginning = 5036
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 32
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 37
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 38
(ess-object-names obj=bell.01vp): no directory - trying names
(ess-object-names obj=bell.01vp): no directory - trying names
(ess-object-names obj=bell.01vp$part): no directory - trying names
(ess-object-names obj=bell.01vp$part): no directory - trying names
(ess-object-names obj=bell.01vp$part$fract): no directory - trying names
(ess-object-names obj=bell.01vp$part$fract): no directory - trying names
ess-BEG-of-fun after 'search-FWD (': Ini-pt 6660, (p)-Ini-pt = 23
ELSE  not in setMethod() header ...
	Match,Pt:(6501,6521),6501
ess-END-of-fun: S4=nil, beginning = 6501
ess-BEG-of-fun after 'search-FWD (': Ini-pt 6703, (p)-Ini-pt = 4
ELSE  not in setMethod() header ...
	Match,Pt:(6501,6521),6501
ess-END-of-fun: S4=nil, beginning = 6501
ess-BEG-of-fun after 'search-FWD (': Ini-pt 6773, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(6501,6521),6501
ess-END-of-fun: S4=nil, beginning = 6501
ess-BEG-of-fun after 'search-FWD (': Ini-pt 6817, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(6501,6521),6501
ess-END-of-fun: S4=nil, beginning = 6501
ess-BEG-of-fun after 'search-FWD (': Ini-pt 6817, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(6501,6521),6501
ess-END-of-fun: S4=nil, beginning = 6501
ess-BEG-of-fun after 'search-FWD (': Ini-pt 6809, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(6501,6521),6501
ess-END-of-fun: S4=nil, beginning = 6501
ess-BEG-of-fun after 'search-FWD (': Ini-pt 6809, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(6501,6521),6501
ess-END-of-fun: S4=nil, beginning = 6501
ess-BEG-of-fun after 'search-FWD (': Ini-pt 6768, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(6501,6521),6501
ess-END-of-fun: S4=nil, beginning = 6501
ess-BEG-of-fun after 'search-FWD (': Ini-pt 6768, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(6501,6521),6501
ess-END-of-fun: S4=nil, beginning = 6501
ess-BEG-of-fun after 'search-FWD (': Ini-pt 6821, (p)-Ini-pt = 12
ELSE  not in setMethod() header ...
	Match,Pt:(6501,6521),6501
ess-END-of-fun: S4=nil, beginning = 6501
ess-BEG-of-fun after 'search-FWD (': Ini-pt 6762, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(6501,6521),6501
ess-END-of-fun: S4=nil, beginning = 6501
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 24
ess-BEG-of-fun after 'search-FWD (': Ini-pt 6716, (p)-Ini-pt = 11
ELSE  not in setMethod() header ...
	Match,Pt:(6501,6521),6501
ess-END-of-fun: S4=nil, beginning = 6501
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 25
ess-BEG-of-fun after 'search-FWD (': Ini-pt 6414, (p)-Ini-pt = 12
ELSE  not in setMethod() header ...
	Match,Pt:(5983,6003),5983
ess-END-of-fun: S4=nil, beginning = 5983
(ess-object-names obj=bell.01): no directory - trying names
ess-BEG-of-fun after 'search-FWD (': Ini-pt 6457, (p)-Ini-pt = 75
ELSE  not in setMethod() header ...
	Match,Pt:(5983,6003),5983
ess-END-of-fun: S4=nil, beginning = 5983
(ess-object-names obj=bell.02): no directory - trying names
ess-BEG-of-fun after 'search-FWD (': Ini-pt 4868, (p)-Ini-pt = 16
ELSE  not in setMethod() header ...
	Match,Pt:(4337,4365),4337
ess-END-of-fun: S4=nil, beginning = 4337
(get-object-list R) .. using existing ess-*-alist
 (length alist) : 9
(ess-object-names obj=.GlobalEnv): no directory - trying names
 have re-read pos=1: -> length 33
ess-BEG-of-fun after 'search-FWD (': Ini-pt 4772, (p)-Ini-pt = 35
ELSE  not in setMethod() header ...
	Match,Pt:(4337,4365),4337
ess-END-of-fun: S4=nil, beginning = 4337
ess-BEG-of-fun after 'search-FWD (': Ini-pt 5533, (p)-Ini-pt = 10
ELSE  not in setMethod() header ...
	Match,Pt:(4337,4365),4337
ess-END-of-fun: S4=nil, beginning = 4337
ess-BEG-of-fun after 'search-FWD (': Ini-pt 5691, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(4337,4365),4337
ess-END-of-fun: S4=nil, beginning = 4337
ess-BEG-of-fun after 'search-FWD (': Ini-pt 5509, (p)-Ini-pt = 19
ELSE  not in setMethod() header ...
	Match,Pt:(4337,4365),4337
ess-END-of-fun: S4=nil, beginning = 4337
ess-BEG-of-fun after 'search-FWD (': Ini-pt 5631, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(4337,4365),4337
ess-END-of-fun: S4=nil, beginning = 4337
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3483, (p)-Ini-pt = 24
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3483, (p)-Ini-pt = 24
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3481, (p)-Ini-pt = 26
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3404, (p)-Ini-pt = 12
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3712, (p)-Ini-pt = 26
ELSE  not in setMethod() header ...
	Match,Pt:(3656,3677),3656
ess-END-of-fun: S4=nil, beginning = 3656
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3557, (p)-Ini-pt = 41
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3557, (p)-Ini-pt = 41
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3557, (p)-Ini-pt = 41
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3481, (p)-Ini-pt = 26
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3074, (p)-Ini-pt = 21
ELSE  not in setMethod() header ...
	Match,Pt:(2937,2953),2937
	Match,Pt:(1632,1653),1632
ess-END-of-fun: S4=nil, beginning = 1632
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3588, (p)-Ini-pt = 10
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3588, (p)-Ini-pt = 10
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3588, (p)-Ini-pt = 10
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3682, (p)-Ini-pt = 21
ELSE  not in setMethod() header ...
	Match,Pt:(3656,3677),3656
ess-END-of-fun: S4=nil, beginning = 3656
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3682, (p)-Ini-pt = 21
ELSE  not in setMethod() header ...
	Match,Pt:(3656,3677),3656
ess-END-of-fun: S4=nil, beginning = 3656
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3682, (p)-Ini-pt = 21
ELSE  not in setMethod() header ...
	Match,Pt:(3656,3677),3656
ess-END-of-fun: S4=nil, beginning = 3656
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3481, (p)-Ini-pt = 26
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3557, (p)-Ini-pt = 41
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3557, (p)-Ini-pt = 41
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3557, (p)-Ini-pt = 41
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3404, (p)-Ini-pt = 12
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3404, (p)-Ini-pt = 12
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3712, (p)-Ini-pt = 26
ELSE  not in setMethod() header ...
	Match,Pt:(3656,3677),3656
ess-END-of-fun: S4=nil, beginning = 3656
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3897, (p)-Ini-pt = 15
ELSE  not in setMethod() header ...
	Match,Pt:(3802,3826),3802
ess-END-of-fun: S4=nil, beginning = 3802
ess-BEG-of-fun after 'search-FWD (': Ini-pt 4349, (p)-Ini-pt = 8
ELSE  not in setMethod() header ...
	Match,Pt:(4166,4188),4166
ess-END-of-fun: S4=nil, beginning = 4166
ess-BEG-of-fun after 'search-FWD (': Ini-pt 4349, (p)-Ini-pt = 8
ELSE  not in setMethod() header ...
	Match,Pt:(4166,4188),4166
ess-END-of-fun: S4=nil, beginning = 4166
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3955, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(3802,3826),3802
ess-END-of-fun: S4=nil, beginning = 3802
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3557, (p)-Ini-pt = 41
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3481, (p)-Ini-pt = 26
ELSE  not in setMethod() header ...
	Match,Pt:(3289,3310),3289
ess-END-of-fun: S4=nil, beginning = 3289
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3712, (p)-Ini-pt = 26
ELSE  not in setMethod() header ...
	Match,Pt:(3656,3677),3656
ess-END-of-fun: S4=nil, beginning = 3656
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3712, (p)-Ini-pt = 26
ELSE  not in setMethod() header ...
	Match,Pt:(3656,3677),3656
ess-END-of-fun: S4=nil, beginning = 3656
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3955, (p)-Ini-pt = 0
ELSE  not in setMethod() header ...
	Match,Pt:(3802,3826),3802
ess-END-of-fun: S4=nil, beginning = 3802
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3682, (p)-Ini-pt = 21
ELSE  not in setMethod() header ...
	Match,Pt:(3656,3677),3656
ess-END-of-fun: S4=nil, beginning = 3656
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3682, (p)-Ini-pt = 21
ELSE  not in setMethod() header ...
	Match,Pt:(3656,3677),3656
ess-END-of-fun: S4=nil, beginning = 3656
ess-BEG-of-fun after 'search-FWD (': Ini-pt 3682, (p)-Ini-pt = 21
ELSE  not in setMethod() header ...
	Match,Pt:(3656,3677),3656
ess-END-of-fun: S4=nil, beginning = 3656



Emacs  : GNU Emacs 22.2.1 (i686-pc-linux-gnu, X toolkit)
 of 2008-03-28 on blackbart
Package: ess-mode 5.3.7

current state:
==============
(setq
 ess-language "S"
 ess-dialect "R"
 ess-ask-for-ess-directory nil
 ess-ask-about-transfile nil
 ess-directory "/home/tyler/rworkingdirectory/"
 ess-keep-dump-files "always"
 ess-source-directory "/tmp/"
 )