From: Stefan Monnier <monnier@iro.umontreal.ca>
To: help-gnu-emacs@gnu.org
Subject: Re: How to get rid of Microsoft dumb quotes, e.g. \222 for apostrophe?
Date: Fri, 16 Feb 2007 20:47:11 -0500 [thread overview]
Message-ID: <jwvsld5imn4.fsf-monnier+gnu.emacs.help@gnu.org> (raw)
In-Reply-To: 87zm7e8e7j.fsf@wivenhoe.staff8.ul.ie
> (while (re-search-forward "[€-Ÿ]" nil t)
> (let ((mschar (buffer-substring-no-properties
> (match-beginning 0) (match-end 0))))
> (cond
> ((string= mschar "‘") (replace-match "`" ))
> ((string= mschar "’") (replace-match "'" ))
> ((string= mschar "“") (replace-match "``"))
> ((string= mschar "”") (replace-match "''"))
> ((string= mschar "–") (replace-match "--")))))
Better work on chars rather than strings of one-char. Also better not use
those special chars that are sometimes displayed as \200 and use the \
2 0 0 escape sequence instead:
(require 'cl)
(defun my-fun-foo ()
(interactive)
(goto-char (point-min))
(while (re-search-forward "[\200-\237]" nil t)
(case (char-before)
(?\221 (replace-match "`" ))
(?\222 (replace-match "'" ))
(?\233 (replace-match "``"))
(?\224 (replace-match "''"))
(?\226 (replace-match "--")))))
-- Stefan
PS: Guaranteed 100% untested.
next prev parent reply other threads:[~2007-02-17 1:47 UTC|newest]
Thread overview: 22+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-02-16 12:19 How to get rid of Microsoft dumb quotes, e.g. \222 for apostrophe? Endless Story
2007-02-16 12:44 ` Brendan Halpin
2007-02-16 16:02 ` ken
2007-02-16 16:14 ` Sebastian P. Luque
2007-02-17 11:04 ` ken
[not found] ` <mailman.4605.1171641752.2155.help-gnu-emacs@gnu.org>
2007-02-16 16:59 ` Brendan Halpin
2007-02-16 22:22 ` ken
2007-02-17 1:47 ` Stefan Monnier [this message]
2007-02-17 12:06 ` ken
[not found] ` <mailman.4653.1171713988.2155.help-gnu-emacs@gnu.org>
2007-02-17 17:29 ` Stefan Monnier
2007-02-19 14:17 ` ken
2007-02-19 16:28 ` Shanks N
2007-02-19 18:48 ` ken
[not found] ` <mailman.4721.1171894691.2155.help-gnu-emacs@gnu.org>
2007-02-20 2:00 ` Stefan Monnier
2007-02-20 10:45 ` ken
2007-02-20 10:56 ` Juanma Barranquero
2007-02-20 12:46 ` ken
2007-02-20 13:07 ` Juanma Barranquero
2007-02-21 9:29 ` Endless Story
2007-02-16 16:22 ` Stefan Monnier
2007-02-16 17:00 ` Endless Story
2007-02-16 22:00 ` Radamanthe
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=jwvsld5imn4.fsf-monnier+gnu.emacs.help@gnu.org \
--to=monnier@iro.umontreal.ca \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).