From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: David Kastrup Newsgroups: gmane.emacs.help Subject: Re: fixing M$ character codes, redux Date: Fri, 08 Oct 2004 00:37:21 +0200 Organization: Organization?!? Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Message-ID: References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1097188720 10086 80.91.229.6 (7 Oct 2004 22:38:40 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 7 Oct 2004 22:38:40 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Oct 08 00:38:35 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CFguA-0008C7-00 for ; Fri, 08 Oct 2004 00:38:34 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CFh0v-00070c-LB for geh-help-gnu-emacs@m.gmane.org; Thu, 07 Oct 2004 18:45:33 -0400 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!newsmi-us.news.garr.it!newsmi-eu.news.garr.it!NewsITBone-GARR!fu-berlin.de!uni-berlin.de!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 57 Original-X-Trace: news.uni-berlin.de QUMeM9CCkbIJp9x0lSNC/wm8KZHKn0oMN+90znPX4600j2m/VS X-Face: 2FEFf>]>q>2iw=B6, xrUubRI>pR&Ml9=ao@P@i)L:\urd*t9M~y1^:+Y]'C0~{mAl`oQuAl \!3KEIp?*w`|bL5qr,H)LFO6Q=qx~iH4DN; i"; /yuIsqbLLCh/!U#X[S~(5eZ41to5f%E@'ELIi$t^ Vc\LWP@J5p^rst0+('>Er0=^1{]M9!p?&:\z]|;&=NP3AhB!B_bi^]Pfkw User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/21.3.50 (gnu/linux) Cancel-Lock: sha1:4BA7uSZER6+jfGQP6YH2jC4czaU= Original-Xref: shelby.stanford.edu gnu.emacs.help:125774 Original-To: help-gnu-emacs@gnu.org X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.help:21136 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:21136 ken writes: > Because I often confronted much the same set of goofy M$ (or whatever) > characters, I followed the earlier thread about programmatically > translating the bad characters into something useful. Unfortunately, > like one other poster here, the supplied script didn't work at all for > me. I'm guessing that the set of screwy characters I was getting > might have been coming from somewhere else, maybe not from Windoze or > maybe it's something to do with the input method or charset I'm set up > for. > > So I created these handful of commands: > > (replace-string "\205" "..." nil nil nil) ; might be a dash (-) (??) > (replace-string "\222" "'" nil nil nil) > (replace-string "\223" "``" nil nil nil) > (replace-string "\224" "''" nil nil nil) > (replace-string "\226" "-" nil nil nil) > (replace-string "\227" "-- " nil nil nil) > (replace-string "\240" " " nil nil nil) ;soft space > > They all work just peachy. I run each one separately by doing C-x C-[ > C-[ (for me, the same as C-x ESC ESC) which minibuffer prompts me to > run (redo) the last command. I delete the default that "redo" > provides and paste in each of the above "replace-string ..." commands. > I developed and tried it on one file today, and it works great. (Note > please that the "characters" which appear in the file edited appear > just as they do in the first arguments of the above commands, except > that C-f acts like all four characters-- e.g., in "\234" are just one > character... in a sense it is.) > > What I'd like to do is wrap all the above commands into one defun. I > tried using some other code: > > (defun kef.de8 () > "Turn 8bit characters into 7bit equivalents." > (interactive) > (mapcar > (function (lambda (old_and_new) > (save-excursion (apply 'query-replace old_and_new)))) You are missing '( here > ("\205" "...") ; might be a dash (-) (??) > ("\222" "'") > ("\223" "``" ) > ("\224" "''") > ("\226" "-") > ("\227" "-- ") > ("\240" " ") ;soft space > ))) > > But running this didn't work-- the minibuffer told me it made no > replacements; however, the above "(replace-string ...)" things did > work. I could write a little utility in C and some other languages to > do this, but elisp still makes an idiot out of me. Any help? -- David Kastrup, Kriemhildstr. 15, 44793 Bochum