Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- diff -pruN riece-7.0.0.orig/lisp/riece-ctlseq.el riece-7.0.0/lisp/riece-ctlseq.el
- --- riece-7.0.0.orig/lisp/riece-ctlseq.el 2010-05-29 08:58:38.000000000 +0900
- +++ riece-7.0.0/lisp/riece-ctlseq.el 2010-10-14 16:21:47.000000000 +0900
- @@ -136,7 +136,13 @@
- (cond
- ((eq (aref tag 0) ?\x2) ;^B
- (plist-put attrs 'bold (not (plist-get attrs 'bold))))
- - ((eq (aref tag 0) ?\xF)) ;^O
- + ((eq (aref tag 0) ?\xF) ;^O
- + (progn
- + (plist-put attrs 'bold nil)
- + (plist-put attrs 'inverse-video nil)
- + (plist-put attrs 'underline nil)
- + (plist-put attrs 'foreground nil)
- + (plist-put attrs 'background nil)))
- ((eq (aref tag 0) ?\x16) ;^V
- (plist-put attrs 'inverse-video (not (plist-get attrs 'inverse-video))))
- ((eq (aref tag 0) ?\x1F) ;^_
Add Comment
Please, Sign In to add comment