[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/mail-extr.el, v [EMACS_22_BASE]
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/mail-extr.el, v [EMACS_22_BASE] |
Date: |
Mon, 04 Jun 2007 23:21:08 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Chong Yidong <cyd> 07/06/04 23:21:07
Index: mail-extr.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/mail-extr.el,v
retrieving revision 1.52
retrieving revision 1.52.2.1
diff -u -b -r1.52 -r1.52.2.1
--- mail-extr.el 21 Jan 2007 02:59:07 -0000 1.52
+++ mail-extr.el 4 Jun 2007 23:21:07 -0000 1.52.2.1
@@ -873,7 +873,17 @@
(mail-extr-nuke-char-at (point))
(forward-char 1))
(t
- (forward-word 1)))
+ ;; Do `(forward-word 1)', recognizing non-ASCII characters
+ ;; except Latin-1 nbsp as words.
+ (while (progn
+ (skip-chars-forward "^\000-\177 ")
+ (and (not (eobp))
+ (eq ?w (char-syntax (char-after)))
+ (progn
+ (forward-word 1)
+ (and (not (eobp))
+ (> (char-after) ?\177)
+ (not (eq (char-after) ? )))))))))
(or (eq char ?\()
;; At the end of first address of a multiple address header.
(and (eq char ?,)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mail/mail-extr.el, v [EMACS_22_BASE],
Chong Yidong <=