aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiles Bader2008-06-30 08:00:27 +0000
committerMiles Bader2008-06-30 08:00:27 +0000
commit08fc78fe05b336871a81e14bbc67831829764efc (patch)
tree9277200fb5fee3ec2931e632986e4e8193614da2
parent1cf6763fdbc156b9ba341d4fd193129c0605e6ef (diff)
downloademacs-08fc78fe05b336871a81e14bbc67831829764efc.tar.gz
emacs-08fc78fe05b336871a81e14bbc67831829764efc.zip
Fix a bug with parsing of overlapping markup sequences in rcirc
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1299
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/net/rcirc.el2
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b550cdcc481..2297d1c35b5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12008-06-30 Miles Bader <miles@gnu.org>
2
3 * net/rcirc.el (rcirc-markup-attributes): Don't skip a character
4 after processing an escape sequence.
5
12008-06-29 Michael Albinus <michael.albinus@gmx.de> 62008-06-29 Michael Albinus <michael.albinus@gmx.de>
2 7
3 * net/tramp-ftp.el (tramp-ftp-file-name-handler): Revert patch 8 * net/tramp-ftp.el (tramp-ftp-file-name-handler): Revert patch
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 5eb96c0b5dc..228b55c01ba 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -2196,7 +2196,7 @@ keywords when no KEYWORD is given."
2196 (when (not (eq ?\C-o (char-before (match-end 2)))) 2196 (when (not (eq ?\C-o (char-before (match-end 2))))
2197 (delete-region (match-beginning 2) (match-end 2))) 2197 (delete-region (match-beginning 2) (match-end 2)))
2198 (delete-region (match-beginning 1) (match-end 1)) 2198 (delete-region (match-beginning 1) (match-end 1))
2199 (goto-char (1+ (match-beginning 1)))) 2199 (goto-char (match-beginning 1)))
2200 ;; remove the ^O characters now 2200 ;; remove the ^O characters now
2201 (while (re-search-forward "\C-o+" nil t) 2201 (while (re-search-forward "\C-o+" nil t)
2202 (delete-region (match-beginning 0) (match-end 0)))) 2202 (delete-region (match-beginning 0) (match-end 0))))