[ESS-bugs] ess-mode 5.3.2; a prompt appears in last line of special buffers
Martin Maechler
maechler at stat.math.ethz.ch
Wed Sep 20 23:09:13 CEST 2006
>>>>> "SebL" == Sebastian Luque <spluque at gmail.com>
>>>>> on Wed, 20 Sep 2006 09:08:41 -0500 writes:
SebL> Special buffers, such as help and rdired, are catching the prompt
SebL> following their respective outputs. For example, the last few lines of
SebL> the buffer shown by 'C-c C-v attr' are:
---<---------------cut here---------------start-------------->---
Examples:
# create a 2 by 5 matrix
x <- 1:10
attr(x,"dim") <- c(2, 5)
R>
---<---------------cut here---------------end---------------->---
SebL> Note my customized prompt ("R>") at the end. This
SebL> started occurring with the recent ESS 5.3.2.
Yes, indeed. That's a new buglet --- probably introduced by me,
when removing the ".Last.value" saving and resetting.
oh dear...
Thanks a lot, for the report, Sebastian!
Martin Maechler
SebL> Emacs : GNU Emacs 22.0.50.1 (x86_64-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
SebL> of 2006-09-08 on nautilus, modified by Debian
SebL> Package: ess-mode 5.3.2
SebL> current state:
SebL> ==============
SebL> (setq
SebL> ess-language "S"
SebL> ess-dialect "R"
SebL> ess-ask-for-ess-directory t
SebL> ess-ask-about-transfile nil
SebL> ess-directory nil
SebL> ess-keep-dump-files "always"
SebL> ess-source-directory "~/scripts/R"
SebL> )
SebL> Cheers,
SebL> --
SebL> Seb
SebL> [ess-site.el]: ess-customize-alist=nil
SebL> [ess-site.el _2_]: ess-customize-alist=nil
SebL> (S): ess-s-versions-create making M-x defuns for (R): ess-r-versions-create making M-x defuns for (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
SebL> (ess-mode-1): ess-language=S, ess-dialect=R buf=dive-crozet.R
SebL> (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()
SebL> ) (inferior-ess-help-command . help("%s", htmlhelp=FALSE)
SebL> ) (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()
SebL> ) (inferior-ess-language-start eval inferior-S-language-start) (comint-use-prompt-regexp-instead-of-fields . t))
SebL> (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-set-style . ess-default-style) (ess-local-process-name) (ess-mode-syntax-table . S-syntax-table) (add-log-current-defun-header-regexp . ^\(.+\)\s-+<-[
SebL> ]*function) (font-lock-defaults quote (ess-R-mode-font-lock-keywords nil nil ((46 . w) (95 . w)))))
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
SebL> Finished setting up ESS-mode.
SebL> (R): ess-dialect=R, buf=dive-crozet.R, start-arg=nil
SebL> current-prefix-arg=nil
SebL> (inferior-ess 0): ess-start-args=--no-readline
SebL> ess-setq-vars-default 0: ess-language=Initial, -dialect=nil, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
SebL> ess-setq-vars-default 1: ess-language=S, -dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
SebL> (inf-ess 1): lang=S, dialect=R, tmp-dialect=R, buf=dive-crozet.R
SebL> (inf-ess 1.1): procname=R temp-dialect=R, buf-name=*R*
SebL> (inferior-ess) Method #3 start=/home/sluque/Documents/PhDThesis/Diving-Movements/TDR-files/Adult-females/work-dir/ buf=*R*
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
SebL> (inf-ess 2.1): ess-language=S, ess-dialect=R buf=*R*
SebL> (inf-ess 2.2): start args = --no-readline , inf-ess-start-args=--no-readline
SebL> (inf-ess finish [S(R), R(nil,nil)]
SebL> (ess-multi 0): inf-ess-start-args=--no-readline , comint-..echoes=nil
SebL> (i-ess 1): buf=*R*, lang=S, comint..echo=nil, comint..sender=comint-simple-send,
SebL> (i-ess 2): buf=*R*, lang=S, comint..echo=t, comint..sender=inferior-R-input-sender,
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=t, comint..sender=inferior-R-input-sender
SebL> (i-ess 3): curr-buf=*R*, comint..echo=t, comint..sender=inferior-R-input-sender,
SebL> (ess-multi post inf-ess: start-args=--no-readline , comint-echoes=t
SebL> (ess-multi 1): start-args=--no-readline
SebL> Making Process...Buf *R*, Proc R, Prog R
SebL> Start File=nil, Args= --no-readline .
SebL> (R): inferior-ess-language-start=options(STERM='iESS', editor='emacsclient')
SebL> (get-object-list R) ..--> (ess-get-modtime-list)
SebL> (ess-search-list: re-computing..) after 'search()
SebL> ', point-max=309
SebL> (ess-object-names obj=.GlobalEnv): no directory - trying names
SebL> (ess-object-names obj=package:lattice): no directory - trying names
SebL> (ess-object-names obj=package:diveMove): no directory - trying names
SebL> (ess-object-names obj=package:reshape): no directory - trying names
SebL> (ess-object-names obj=package:slmisc): no directory - trying names
SebL> (ess-object-names obj=package:chron): no directory - trying names
SebL> (ess-object-names obj=package:methods): no directory - trying names
SebL> (ess-object-names obj=package:stats): no directory - trying names
SebL> (ess-object-names obj=package:graphics): no directory - trying names
SebL> (ess-object-names obj=package:grDevices): no directory - trying names
SebL> (ess-object-names obj=package:utils): no directory - trying names
SebL> (ess-object-names obj=package:datasets): no directory - trying names
SebL> (ess-object-names obj=Autoloads): no directory - trying names
SebL> (ess-object-names obj=package:base): no directory - trying names
SebL> ess-get-modtime-list: new alist of length 14
SebL> (length alist) : 14
SebL> (ess-object-names obj=.GlobalEnv): no directory - trying names
SebL> have re-read pos=1: -> length 15
SebL> (get-object-list R) .. using existing ess-*-alist
SebL> (length alist) : 14
SebL> (ess-object-names obj=.GlobalEnv): no directory - trying names
SebL> have re-read pos=1: -> length 16
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
SebL> (get-object-list R) .. using existing ess-*-alist
SebL> (length alist) : 14
SebL> (ess-object-names obj=.GlobalEnv): no directory - trying names
SebL> have re-read pos=1: -> length 16
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
SebL> (get-object-list R) .. using existing ess-*-alist
SebL> (length alist) : 14
SebL> (ess-object-names obj=.GlobalEnv): no directory - trying names
SebL> have re-read pos=1: -> length 17
SebL> (get-object-list R) .. using existing ess-*-alist
SebL> (length alist) : 14
SebL> (ess-object-names obj=.GlobalEnv): no directory - trying names
SebL> have re-read pos=1: -> length 18
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
SebL> (get-object-list R) .. using existing ess-*-alist
SebL> (length alist) : 14
SebL> (ess-object-names obj=.GlobalEnv): no directory - trying names
SebL> have re-read pos=1: -> length 18
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
SebL> (get-object-list R) .. using existing ess-*-alist
SebL> (length alist) : 14
SebL> (ess-object-names obj=.GlobalEnv): no directory - trying names
SebL> have re-read pos=1: -> length 19
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
SebL> (get-object-list R) .. using existing ess-*-alist
SebL> (length alist) : 14
SebL> (ess-object-names obj=.GlobalEnv): no directory - trying names
SebL> have re-read pos=1: -> length 20
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
SebL> (get-object-list R) .. using existing ess-*-alist
SebL> (length alist) : 14
SebL> (ess-object-names obj=.GlobalEnv): no directory - trying names
SebL> have re-read pos=1: -> length 15
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
SebL> (get-object-list R) .. using existing ess-*-alist
SebL> (length alist) : 14
SebL> (ess-object-names obj=.GlobalEnv): no directory - trying names
SebL> have re-read pos=1: -> length 15
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil, comint..echoes=nil, comint..sender=comint-simple-send
SebL> _______________________________________________
SebL> ESS-bugs ESS-bugs at stat.math.ethz.ch
SebL> https://stat.ethz.ch/mailman/listinfo/ess-bugs
SebL> _______________________________________________
SebL> ESS-core list: https://stat.ethz.ch/mailman/listinfo/ess-core
SebL> Special buffers, such as help and rdired, are catching
SebL> the prompt following their respective outputs. For
SebL> example, the last few lines of the buffer shown by
SebL> 'C-c C-v attr' are:
SebL> ---<---------------cut
SebL> here---------------start-------------->---
SebL> Examples:
SebL> # create a 2 by 5 matrix x <- 1:10 attr(x,"dim")
SebL> <- c(2, 5)
R>
SebL> ---<---------------cut
SebL> here---------------end---------------->---
SebL> Note my customized prompt ("R>") at the end. This
SebL> started occurring with the recent ESS 5.3.2.
SebL> Information from ess-submit-bug-report follows.
SebL> Emacs : GNU Emacs 22.0.50.1 (x86_64-pc-linux-gnu, X
SebL> toolkit, Xaw3d scroll bars) of 2006-09-08 on nautilus,
SebL> modified by Debian Package: ess-mode 5.3.2
SebL> current state: ============== (setq ess-language "S"
SebL> ess-dialect "R" ess-ask-for-ess-directory t
SebL> ess-ask-about-transfile nil ess-directory nil
SebL> ess-keep-dump-files "always" ess-source-directory
SebL> "~/scripts/R" )
SebL> Cheers,
SebL> -- Seb
SebL> [ess-site.el]: ess-customize-alist=nil [ess-site.el
SebL> _2_]: ess-customize-alist=nil (S):
SebL> ess-s-versions-create making M-x defuns for (R):
SebL> ess-r-versions-create making M-x defuns for
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil,
SebL> comint..echoes=nil, comint..sender=comint-simple-send
SebL> (ess-mode-1): ess-language=S, ess-dialect=R
SebL> buf=dive-crozet.R (ess-mode-1.5):
SebL> alist=((ess-local-customize-alist quote
SebL> R-customize-alist) (ess-dialect . R) (ess-suffix . R)
SebL> (ess-dump-filename-template
SebL> ess-replace-regexp-in-string S$ ess-suffix
SebL> ess-dump-filename-template-proto)
SebL> (ess-mode-syntax-table . R-syntax-table)
SebL> (ess-mode-editing-alist . R-editing-alist)
SebL> (ess-change-sp-regexp . ess-R-change-sp-regexp)
SebL> (ess-help-sec-regex . ess-help-R-sec-regex)
SebL> (ess-help-sec-keys-alist . ess-help-R-sec-keys-alist)
SebL> (ess-loop-timeout . ess-S-loop-timeout) (ess-cmd-delay
SebL> . ess-R-cmd-delay) (ess-function-pattern
SebL> . ess-R-function-pattern) (ess-object-name-db-file
SebL> . ess-r-namedb.el) (ess-imenu-mode-function quote
SebL> ess-imenu-R) (inferior-ess-program
SebL> . inferior-R-program-name)
SebL> (inferior-ess-objects-command
SebL> . inferior-R-objects-command)
SebL> (inferior-ess-font-lock-keywords
SebL> . inferior-ess-R-font-lock-keywords)
SebL> (inferior-ess-search-list-command . search() )
SebL> (inferior-ess-help-command . help("%s",
SebL> htmlhelp=FALSE) ) (inferior-ess-help-filetype)
SebL> (inferior-ess-exit-command . q())
SebL> (inferior-ess-exit-prompt . Save workspace image?
SebL> [y/n/c]: ) (inferior-ess-primary-prompt
SebL> . \([A-Z][][A-Za-z0-9.]*\)*> )
SebL> (inferior-ess-secondary-prompt . + ?)
SebL> (inferior-ess-start-file) (inferior-ess-start-args . )
SebL> (ess-STERM . iESS) (ess-editor . R-editor) (ess-pager
SebL> . R-pager) (ess-language . S)
SebL> (inferior-ess-exit-command . q() )
SebL> (inferior-ess-language-start eval
SebL> inferior-S-language-start)
SebL> (comint-use-prompt-regexp-instead-of-fields . t))
SebL> (ess-mode-1.6): editing-alist=((paragraph-start concat
SebL> \s-*$\| page-delimiter) (paragraph-separate concat
SebL> \s-*$\| page-delimiter) (paragraph-ignore-fill-prefix
SebL> . t) (require-final-newline . t) (comment-start . #)
SebL> (comment-add . 1) (comment-start-skip . #+ *)
SebL> (comment-column . 40) (indent-line-function quote
SebL> S-indent-line) (parse-sexp-ignore-comments . t)
SebL> (ess-set-style . ess-default-style)
SebL> (ess-local-process-name) (ess-mode-syntax-table
SebL> . S-syntax-table) (add-log-current-defun-header-regexp
SebL> . ^\(.+\)\s-+<-[ ]*function) (font-lock-defaults quote
SebL> (ess-R-mode-font-lock-keywords nil nil ((46 . w) (95
SebL> . w))))) (ess-setq-vars-LOCAL): language=S, dialect=R,
SebL> buf=nil, comint..echoes=nil,
SebL> comint..sender=comint-simple-send
SebL> Finished setting up ESS-mode.
SebL> (R): ess-dialect=R, buf=dive-crozet.R, start-arg=nil
SebL> current-prefix-arg=nil (inferior-ess 0):
SebL> ess-start-args=--no-readline ess-setq-vars-default 0:
SebL> ess-language=Initial, -dialect=nil, buf=nil,
SebL> comint..echoes=nil, comint..sender=comint-simple-send
SebL> ess-setq-vars-default 1: ess-language=S, -dialect=R,
SebL> buf=nil, comint..echoes=nil,
SebL> comint..sender=comint-simple-send (inf-ess 1): lang=S,
SebL> dialect=R, tmp-dialect=R, buf=dive-crozet.R (inf-ess
SebL> 1.1): procname=R temp-dialect=R, buf-name=*R*
SebL> (inferior-ess) Method #3
SebL> start=/home/sluque/Documents/PhDThesis/Diving-Movements/TDR-files/Adult-females/work-dir/
SebL> buf=*R* (ess-setq-vars-LOCAL): language=S, dialect=R,
SebL> buf=nil, comint..echoes=nil,
SebL> comint..sender=comint-simple-send (inf-ess 2.1):
SebL> ess-language=S, ess-dialect=R buf=*R* (inf-ess 2.2):
SebL> start args = --no-readline ,
SebL> inf-ess-start-args=--no-readline (inf-ess finish
SebL> [S(R), R(nil,nil)] (ess-multi 0):
SebL> inf-ess-start-args=--no-readline , comint-..echoes=nil
SebL> (i-ess 1): buf=*R*, lang=S, comint..echo=nil,
SebL> comint..sender=comint-simple-send, (i-ess 2): buf=*R*,
SebL> lang=S, comint..echo=t,
SebL> comint..sender=inferior-R-input-sender,
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil,
SebL> comint..echoes=t,
SebL> comint..sender=inferior-R-input-sender (i-ess 3):
SebL> curr-buf=*R*, comint..echo=t,
SebL> comint..sender=inferior-R-input-sender, (ess-multi
SebL> post inf-ess: start-args=--no-readline ,
SebL> comint-echoes=t (ess-multi 1):
SebL> start-args=--no-readline Making Process...Buf *R*,
SebL> Proc R, Prog R Start File=nil, Args= --no-readline .
SebL> (R): inferior-ess-language-start=options(STERM='iESS',
SebL> editor='emacsclient') (get-object-list R) ..-->
SebL> (ess-get-modtime-list) (ess-search-list:
SebL> re-computing..) after 'search() ', point-max=309
SebL> (ess-object-names obj=.GlobalEnv): no directory -
SebL> trying names (ess-object-names obj=package:lattice):
SebL> no directory - trying names (ess-object-names
SebL> obj=package:diveMove): no directory - trying names
SebL> (ess-object-names obj=package:reshape): no directory -
SebL> trying names (ess-object-names obj=package:slmisc): no
SebL> directory - trying names (ess-object-names
SebL> obj=package:chron): no directory - trying names
SebL> (ess-object-names obj=package:methods): no directory -
SebL> trying names (ess-object-names obj=package:stats): no
SebL> directory - trying names (ess-object-names
SebL> obj=package:graphics): no directory - trying names
SebL> (ess-object-names obj=package:grDevices): no directory
SebL> - trying names (ess-object-names obj=package:utils):
SebL> no directory - trying names (ess-object-names
SebL> obj=package:datasets): no directory - trying names
SebL> (ess-object-names obj=Autoloads): no directory -
SebL> trying names (ess-object-names obj=package:base): no
SebL> directory - trying names ess-get-modtime-list: new
SebL> alist of length 14 (length alist) : 14
SebL> (ess-object-names obj=.GlobalEnv): no directory -
SebL> trying names have re-read pos=1: -> length 15
SebL> (get-object-list R) .. using existing ess-*-alist
SebL> (length alist) : 14 (ess-object-names obj=.GlobalEnv):
SebL> no directory - trying names have re-read pos=1: ->
SebL> length 16 (ess-setq-vars-LOCAL): language=S,
SebL> dialect=R, buf=nil, comint..echoes=nil,
SebL> comint..sender=comint-simple-send (get-object-list R)
SebL> .. using existing ess-*-alist (length alist) : 14
SebL> (ess-object-names obj=.GlobalEnv): no directory -
SebL> trying names have re-read pos=1: -> length 16
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil,
SebL> comint..echoes=nil, comint..sender=comint-simple-send
SebL> (get-object-list R) .. using existing ess-*-alist
SebL> (length alist) : 14 (ess-object-names obj=.GlobalEnv):
SebL> no directory - trying names have re-read pos=1: ->
SebL> length 17 (get-object-list R) .. using existing
SebL> ess-*-alist (length alist) : 14 (ess-object-names
SebL> obj=.GlobalEnv): no directory - trying names have
SebL> re-read pos=1: -> length 18 (ess-setq-vars-LOCAL):
SebL> language=S, dialect=R, buf=nil, comint..echoes=nil,
SebL> comint..sender=comint-simple-send (get-object-list R)
SebL> .. using existing ess-*-alist (length alist) : 14
SebL> (ess-object-names obj=.GlobalEnv): no directory -
SebL> trying names have re-read pos=1: -> length 18
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil,
SebL> comint..echoes=nil, comint..sender=comint-simple-send
SebL> (get-object-list R) .. using existing ess-*-alist
SebL> (length alist) : 14 (ess-object-names obj=.GlobalEnv):
SebL> no directory - trying names have re-read pos=1: ->
SebL> length 19 (ess-setq-vars-LOCAL): language=S,
SebL> dialect=R, buf=nil, comint..echoes=nil,
SebL> comint..sender=comint-simple-send (get-object-list R)
SebL> .. using existing ess-*-alist (length alist) : 14
SebL> (ess-object-names obj=.GlobalEnv): no directory -
SebL> trying names have re-read pos=1: -> length 20
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil,
SebL> comint..echoes=nil, comint..sender=comint-simple-send
SebL> (get-object-list R) .. using existing ess-*-alist
SebL> (length alist) : 14 (ess-object-names obj=.GlobalEnv):
SebL> no directory - trying names have re-read pos=1: ->
SebL> length 15 (ess-setq-vars-LOCAL): language=S,
SebL> dialect=R, buf=nil, comint..echoes=nil,
SebL> comint..sender=comint-simple-send (get-object-list R)
SebL> .. using existing ess-*-alist (length alist) : 14
SebL> (ess-object-names obj=.GlobalEnv): no directory -
SebL> trying names have re-read pos=1: -> length 15
SebL> (ess-setq-vars-LOCAL): language=S, dialect=R, buf=nil,
SebL> comint..echoes=nil, comint..sender=comint-simple-send
SebL> _______________________________________________
SebL> ESS-bugs ESS-bugs at stat.math.ethz.ch
SebL> https://stat.ethz.ch/mailman/listinfo/ess-bugs
SebL> _______________________________________________
SebL> ESS-core list:
SebL> https://stat.ethz.ch/mailman/listinfo/ess-core
More information about the ESS-bugs
mailing list