Mercurial > emacs
comparison lisp/gnus/shr.el @ 110754:fa69a70cd62e
shr.el (shr-insert): Use string anchors instead of line anchors.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 04 Oct 2010 07:42:58 +0000 |
| parents | 0defef1647a5 |
| children | 5c603f558199 |
comparison
equal
deleted
inserted
replaced
| 110753:d9ff3c5329a6 | 110754:fa69a70cd62e |
|---|---|
| 235 ((eq shr-folding-mode 'none) | 235 ((eq shr-folding-mode 'none) |
| 236 (insert t)) | 236 (insert t)) |
| 237 (t | 237 (t |
| 238 (let ((first t) | 238 (let ((first t) |
| 239 column) | 239 column) |
| 240 (when (and (string-match "^[ \t\n]" text) | 240 (when (and (string-match "\\`[ \t\n]" text) |
| 241 (not (bolp))) | 241 (not (bolp))) |
| 242 (insert " ")) | 242 (insert " ")) |
| 243 (dolist (elem (split-string text)) | 243 (dolist (elem (split-string text)) |
| 244 (setq column (current-column)) | 244 (setq column (current-column)) |
| 245 (when (> column 0) | 245 (when (> column 0) |
| 256 ;; upwards the first point in the buffer where the text really | 256 ;; upwards the first point in the buffer where the text really |
| 257 ;; starts. | 257 ;; starts. |
| 258 (unless shr-start | 258 (unless shr-start |
| 259 (setq shr-start (point))) | 259 (setq shr-start (point))) |
| 260 (insert elem)) | 260 (insert elem)) |
| 261 (when (and (string-match "[ \t\n]$" text) | 261 (when (and (string-match "[ \t\n]\\'" text) |
| 262 (not (bolp))) | 262 (not (bolp))) |
| 263 (insert " ")))))) | 263 (insert " ")))))) |
| 264 | 264 |
| 265 (defun shr-get-image-data (url) | 265 (defun shr-get-image-data (url) |
| 266 "Get image data for URL. | 266 "Get image data for URL. |