[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: rcirc bug
From: |
Ryan Yeske |
Subject: |
Re: rcirc bug |
Date: |
Tue, 05 Sep 2006 14:27:45 -0700 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (berkeley-unix) |
"Alfred M. Szmidt" <address@hidden> writes:
> Hey,
>
> rcirc tries to use member* without (require 'cl), which causes
> breakage.
The following patch fixes this:
*** rcirc.el 05 Sep 2006 12:14:49 -0700 1.26
--- rcirc.el 05 Sep 2006 14:22:05 -0700
***************
*** 1544,1552 ****
(with-current-buffer b
(dolist (type rcirc-activity-types)
(rcirc-add-face 0 (length s)
! (case type
! ('nick 'rcirc-track-nick)
! ('keyword 'rcirc-track-keyword))
s)))
s))
buffers ","))
--- 1544,1552 ----
(with-current-buffer b
(dolist (type rcirc-activity-types)
(rcirc-add-face 0 (length s)
! (cond
! ((eq type 'nick) 'rcirc-track-nick)
! ((eq type 'keyword) 'rcirc-track-keyword))
s)))
s))
buffers ","))
***************
*** 1936,1945 ****
(defun rcirc-markup-attributes (process sender response channel-buffer)
(while (re-search-forward "\\([\C-b\C-_\C-v]\\).*?\\(\\1\\|\C-o\\)" nil t)
(rcirc-add-face (match-beginning 0) (match-end 0)
! (case (char-after (match-beginning 1))
! (?\C-b 'bold)
! (?\C-v 'italic)
! (?\C-_ 'underline)))
;; keep the ^O since it could terminate other attributes
(when (not (eq ?\C-o (char-before (match-end 2))))
(delete-region (match-beginning 2) (match-end 2)))
--- 1936,1945 ----
(defun rcirc-markup-attributes (process sender response channel-buffer)
(while (re-search-forward "\\([\C-b\C-_\C-v]\\).*?\\(\\1\\|\C-o\\)" nil t)
(rcirc-add-face (match-beginning 0) (match-end 0)
! (let ((ch (char-after (match-beginning 1))))
! (cond ((eq ch ?\C-b) 'bold)
! ((eq ch ?\C-v) 'italic)
! ((eq ch ?\C-_) 'underline))))
;; keep the ^O since it could terminate other attributes
(when (not (eq ?\C-o (char-before (match-end 2))))
(delete-region (match-beginning 2) (match-end 2)))
- rcirc bug, Alfred M. Szmidt, 2006/09/04
- Re: rcirc bug, Richard Stallman, 2006/09/05
- Re: rcirc bug,
Ryan Yeske <=
- Re: rcirc bug, Alfred M. Szmidt, 2006/09/05
- Re: rcirc bug, Ryan Yeske, 2006/09/07
- Re: rcirc bug, Richard Stallman, 2006/09/08
- RE: rcirc bug, Drew Adams, 2006/09/08
- Re: rcirc bug, Chong Yidong, 2006/09/10
- Re: rcirc bug, Stuart D. Herring, 2006/09/11
- Re: rcirc bug, Richard Stallman, 2006/09/11