diff options
| author | Miles Bader | 2008-06-30 08:00:27 +0000 |
|---|---|---|
| committer | Miles Bader | 2008-06-30 08:00:27 +0000 |
| commit | 08fc78fe05b336871a81e14bbc67831829764efc (patch) | |
| tree | 9277200fb5fee3ec2931e632986e4e8193614da2 | |
| parent | 1cf6763fdbc156b9ba341d4fd193129c0605e6ef (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/rcirc.el | 2 |
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 @@ | |||
| 1 | 2008-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 | |||
| 1 | 2008-06-29 Michael Albinus <michael.albinus@gmx.de> | 6 | 2008-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)))) |