Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

shr.el (shr-render-td): Only do colours at the final rendering. Should be slightly faster.

Browse source 
(shr-insert-table): Fix up TD background colours when doing the vertical padding.
gnus-art.el (article-update-date-lapsed): Don't use current-column to find the horizontal position.  It's fragile in the presence of \003 characters.
This commit is contained in:
Lars Ingebrigtsen 2011-02-01 03:54:46 +00:00 committed by Katsumi Yamaoka
parent 8c9da040de
commit abb97fbbed
3 changed files with 21 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/gnus/ChangeLog
View file

@ -1,7 +1,14 @@
2011-02-01 Lars Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-render-td): Only do colours at the final rendering.
Should be slightly faster.
(shr-insert-table): Fix up TD background colours when doing the
vertical padding.
* gnus-art.el (article-date-ut): Protect against articles with no Date
header.
(article-update-date-lapsed): Don't use current-column to find the
horizontal position. It's fragile in the presence of \003 characters.
* gnus-start.el (gnus-read-active-file-1): Remove dead parameter infos.

2
lisp/gnus/gnus-art.el
View file

@ -3645,7 +3645,7 @@ function and want to see what the date was before converting."
(set-buffer (window-buffer w))
(when (eq major-mode 'gnus-article-mode)
(let ((old-line (count-lines (point-min) (point)))
(old-column (current-column)))
(old-column (- (point) (line-beginning-position))))
(goto-char (point-min))
(while (re-search-forward "^Date:" nil t)
(let ((type (get-text-property (match-beginning 0) 'gnus-date-type)))

22
lisp/gnus/shr.el
View file

@ -1055,8 +1055,11 @@ ones, in case fg and bg are nil."
;; possibly.
(dotimes (i (- height (length lines)))
(end-of-line)
(insert (make-string (string-width (car lines)) ? )
shr-table-vertical-line)
(let ((start (point)))
(insert (make-string (string-width (car lines)) ? )
shr-table-vertical-line)
(when (nth 4 column)
(shr-put-color start (1- (point)) :background (nth 4 column))))
(forward-line 1)))))
(shr-insert-table-ruler widths)))
@ -1173,17 +1176,18 @@ ones, in case fg and bg are nil."
(end-of-line)
(when (> (- width (current-column)) 0)
(insert (make-string (- width (current-column)) ? )))
(forward-line 1))))
(when style
(shr-colorize-region
(point-min) (point-max)
(cdr (assq 'color shr-stylesheet))
(cdr (assq 'background-color shr-stylesheet))))
(forward-line 1)))
(when style
(shr-colorize-region
(point-min) (point-max)
(cdr (assq 'color shr-stylesheet))
(cdr (assq 'background-color shr-stylesheet)))))
(if fill
(list max
(count-lines (point-min) (point-max))
(split-string (buffer-string) "\n")
(shr-collect-overlays))
(shr-collect-overlays)
(cdr (assq 'background-color shr-stylesheet)))
(list max
(shr-natural-width)))))))