[gnus git] branch master updated: =1= (shr-expand-newlines): Switch to using overlays to enable kill'n'yank in a more sensible manner.
Lars Magne Ingebrigtsen <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via ff1ccae1ed1087b5978d6c8cf89da860e5e3900d (commit)
from 99604ca3152531d850d81dd5caa24122f2948e62 (commit)
- Log -----------------------------------------------------------------
commit ff1ccae1ed1087b5978d6c8cf89da860e5e3900d
Author: Lars Magne Ingebrigtsen <[email protected]>
Date: Mon Jan 24 15:24:18 2011 -0800
(shr-expand-newlines): Switch to using overlays to enable kill'n'yank in a more sensible manner.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd5e4f6..3778616 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
* shr.el (shr-expand-newlines): Proof of concept implemantation of boxy
backgrounds.
+ (shr-expand-newlines): Switch to using overlays to enable kill'n'yank
+ in a more sensible manner.
2011-01-24 Teodor Zlatanov <[email protected]>
diff --git a/lisp/shr.el b/lisp/shr.el
index be87ec6..e2c51bb 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -655,12 +655,11 @@ ones, in case fg and bg are nil."
(while (not (eobp))
(end-of-line)
(when (and (< (setq current-column (current-column)) width)
- (not (get-text-property (point) 'display)))
- (put-text-property
- (point) (1+ (point)) 'display
- (concat (propertize (make-string (- width current-column) ? )
- 'face (list :background color))
- "\n")))
+ (not (overlays-at (point))))
+ (let ((overlay (make-overlay (point) (1+ (point)))))
+ (overlay-put overlay 'before-string
+ (propertize (make-string (- width current-column) ? )
+ 'face (list :background color)))))
(forward-line 1)))))
(defun shr-put-color-1 (start end type color)
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/ChangeLog | 2 ++
lisp/shr.el | 11 +++++------
2 files changed, 7 insertions(+), 6 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project