From: Nicolas N. <Nic...@iw...> - 2002-04-16 11:59:02
|
"Clementson, Bill" <Bil...@jd...> writes: > (defun acl-ilisp-display-output-default (output ilisp-output-sink) > "strip ^M characters from Allegro CL ILISP buffer" > (ilisp-display-output-default output ilisp-output-sink) > (save-excursion > ;(set-buffer (get-buffer "*allegro*")) > (goto-char (point-min)) > (while (search-forward "\r" nil t) (replace-match "")))) > > (defvar ilisp-display-output-function 'acl-ilisp-display-output-default) > > However, this doesn't have any impact at all - the "^M"s aren't affected > by the change. Any ideas why this approach isn't working or suggestions > for other approaches that I can try? Hi, Bill. I'm sorry that I probably have led you on a wrong track. I was under the impression that ilisp would be using the version of comint-mode which comes built-in with GNU Emacs (and which has got the strip-ctrl-m facility). Unfortunately, this is not the case. Instead, ilisp appears to be using a quite old modified version of comint mode (or its XEmacs version?). Maybe an ilisp maintainer could comment on this? Yours, Nicolas. P.S.: Your approach of scanning the whole buffer with every output is hardly satisfactory. Maybe you could merge those parts with strip-ctrl-m from GNU Emacs comint-mode into the ilisp version? |