[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r102010: shr.el (shr-find-fill-point)
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r102010: shr.el (shr-find-fill-point): Don't leave blanks at the start of some lines. |
Date: |
Tue, 19 Oct 2010 23:26:28 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 102010
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2010-10-19 23:26:28 +0000
message:
shr.el (shr-find-fill-point): Don't leave blanks at the start of some lines.
modified:
lisp/gnus/ChangeLog
lisp/gnus/shr.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-10-19 23:06:50 +0000
+++ b/lisp/gnus/ChangeLog 2010-10-19 23:26:28 +0000
@@ -1,5 +1,8 @@
2010-10-19 Lars Magne Ingebrigtsen <address@hidden>
+ * shr.el (shr-find-fill-point): Don't leave blanks at the start of some
+ lines.
+
* nndoc.el (nndoc-type-alist): Add git support.
(nndoc-git-type-p): New function.
(nndoc-transform-git-article): Ditto.
=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el 2010-10-19 22:20:47 +0000
+++ b/lisp/gnus/shr.el 2010-10-19 23:26:28 +0000
@@ -241,8 +241,8 @@
(insert "\n"))
(put-text-property (1- (point)) (point) 'shr-break t)
;; No space is needed at the beginning of a line.
- (if (eq (following-char) ? )
- (delete-char 1)))
+ (when (eq (following-char) ? )
+ (delete-char 1)))
(when (> shr-indentation 0)
(shr-indent))
(end-of-line))
@@ -280,6 +280,8 @@
(while (and (> count 0)
(aref (char-category-set (following-char)) ?>))
(forward-char 1)))
+ (when (eq (following-char) ? )
+ (forward-char 1))
t)))))
(defun shr-ensure-newline ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r102010: shr.el (shr-find-fill-point): Don't leave blanks at the start of some lines.,
Katsumi Yamaoka <=