unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* Unwanted ^M in the output from shell-command-on-region
@ 2006-05-16 20:07 Lennart Borgman
  2006-05-17  1:33 ` Kenichi Handa
  0 siblings, 1 reply; 3+ messages in thread
From: Lennart Borgman @ 2006-05-16 20:07 UTC (permalink / raw)


This is a problem on w32, but might be more general. I can not 
understand how to get rid of ^M from the output of the program Tidy when 
I run it with `shell-command-on-region' (or in other ways). From the 
documentation it looks like `coding-system-for-read' or 
`coding-system-for-write' should be used, but setting them does not 
remove ^M.

I have made an example below. It uses the program Tidy from 
http://tidy.sourceforge.net/trt/tidy_win32.zip. (Tidy is a program for 
(X)HTML curing.)

I am doing this on w32 with GNU Emacs 22.0.50.1 (i386-mingw-nt5.0.2195) 
of 2006-05-13


*** Example code:

(defvar temp-html
  ;; Start-here
  "
<html>
<head>
</head>
</html>
") ;; Stop-here

(defun temp-c-m()
  (let* ((temp-buffer (get-buffer-create "temp-c-m"))
         (start (save-excursion
                  (goto-char (point-min))
                  (search-forward "Start-here")
                  (forward-line 2)
                  (point)))
         (end (save-excursion
                (goto-char start)
                (search-forward "Stop-here")
                (beginning-of-line)
                (point)))
         (command
          (concat "c:/dl/programs/Tidy.exe"
                  ))
         (coding-system-for-read 'undecided-dos)
         (coding-system-for-write 'undecided-dos)
         )
    (with-current-buffer temp-buffer
      (erase-buffer))
    (shell-command-on-region start end command temp-buffer nil)
    (with-current-buffer temp-buffer
      (goto-char (point-max))
      (insert (current-time-string) "\n\n"))
    ))

(temp-c-m)

^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~2006-05-17  6:14 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2006-05-16 20:07 Unwanted ^M in the output from shell-command-on-region Lennart Borgman
2006-05-17  1:33 ` Kenichi Handa
2006-05-17  6:14   ` Lennart Borgman

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).