[ESS] hitting return won't move the cursor down

[Stephen Eglen]

 > (M-x emacs-version)
 > XEmacs 21.4 (patch15) "Security Trough Obscurity" [Lucid} 
 > (powerpc-apple-darwin7.4.0) of Fri Jul 16 2004

Thanks Tiago; this is very helpful. 

You've found a bug in the newly introduced defun ess-do-autofill,
clearly from the backtrace.  The variable enable-multibyte-characters
exists in Emacs but not XEmacs.  I am copying this to Kurt, author of
ess-do-autofill to see if he can pursue this on XEmacs.

Yet another case where Emacs v XEmacs bites us... 

Stephen



 > "M-x set-variable RET debug-on-error RET t RET" and then the backtrace buffer:
 > Signaling: (void-variable enable-multibyte-characters)
 >    (if enable-multibyte-characters (if (not ...) 
 > (fill-find-break-point after-prefix)))
 >    (save-excursion (beginning-of-line) (setq after-prefix (point)) 
 > (and fill-prefix (looking-at ...) (setq after-prefix ...)) 
 > (move-to-column (1+ fc)) (while (or first ... ...) (setq first nil) 
 > (re-search-backward "[	]\\|\\c|.\\|.\\c|\\|^") (if ... ... ...)) (if 
 > enable-multibyte-characters (if ... ...)) (skip-chars-backward " 
 > 	") (point))
 >    (let ((opoint ...) bounce (first t)) (save-excursion 
 > (beginning-of-line) (setq after-prefix ...) (and fill-prefix ... ...) 
 > (move-to-column ...) (while ... ... ... ...) (if 
 > enable-multibyte-characters ...) (skip-chars-backward "	") (point)))
 >    (let* (after-prefix (fill-point ...)) (if (save-excursion ... ...) 
 > (let ... ... ... ...) (setq give-up t)))
 >    (while (and (not give-up) (> ... fc)) (let* (after-prefix ...) (if 
 > ... ... ...)))
 >    (if (or (not ...) (null ...) (and ... ...) (save-excursion ... ... 
 > ...)) nil (if (memq justify ...) (save-excursion ...)) (if (and 
 > adaptive-fill-mode ...) (let ... ...)) (while (and ... ...) (let* ... 
 > ...)) (justify-current-line justify t t) t)
 >    (let (fc justify bol give-up (fill-prefix fill-prefix)) (if (or ... 
 > ... ... ...) nil (if ... ...) (if ... ...) (while ... ...) 
 > (justify-current-line justify t t) t))
 >    ess-do-auto-fill()
 >    self-insert-command(1)
 >    newline()
 >    #<compiled-function nil "...(14)" ["	" nil newline 
 > indent-according-to-mode] 3 784486 "*">()
 >    call-interactively(newline-and-indent)
 >