Mercurial > emacs
comparison lisp/gnus/gnus-sum.el @ 80613:9110741da209
Merge from gnus--rel--5.10
Revision: emacs@sv.gnu.org/emacs--rel--22--patch-281
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 17 Jul 2008 23:21:03 +0000 |
parents | 1e3a4955a638 |
children |
comparison
equal
deleted
inserted
replaced
80612:0436fdfe2a5f | 80613:9110741da209 |
---|---|
3254 (let ((table (or (copy-sequence standard-display-table) | 3254 (let ((table (or (copy-sequence standard-display-table) |
3255 (make-display-table))) | 3255 (make-display-table))) |
3256 (i 32)) | 3256 (i 32)) |
3257 ;; Nix out all the control chars... | 3257 ;; Nix out all the control chars... |
3258 (while (>= (setq i (1- i)) 0) | 3258 (while (>= (setq i (1- i)) 0) |
3259 (aset table i [??])) | 3259 (gnus-put-display-table i [??] table)) |
3260 ;; ... but not newline and cr, of course. (cr is necessary for the | 3260 ;; ... but not newline and cr, of course. (cr is necessary for the |
3261 ;; selective display). | 3261 ;; selective display). |
3262 (aset table ?\n nil) | 3262 (gnus-put-display-table ?\n nil table) |
3263 (aset table ?\r nil) | 3263 (gnus-put-display-table ?\r nil table) |
3264 ;; We keep TAB as well. | 3264 ;; We keep TAB as well. |
3265 (aset table ?\t nil) | 3265 (gnus-put-display-table ?\t nil table) |
3266 ;; We nix out any glyphs 127 through 255, or 127 through 159 in | 3266 ;; We nix out any glyphs 127 through 255, or 127 through 159 in |
3267 ;; Emacs 23 (unicode), that are not set already. | 3267 ;; Emacs 23 (unicode), that are not set already. |
3268 (let ((i (if (ignore-errors (= (make-char 'latin-iso8859-1 160) 160)) | 3268 (let ((i (if (ignore-errors (= (make-char 'latin-iso8859-1 160) 160)) |
3269 160 | 3269 160 |
3270 256))) | 3270 256))) |
3271 (while (>= (setq i (1- i)) 127) | 3271 (while (>= (setq i (1- i)) 127) |
3272 ;; Only modify if the entry is nil. | 3272 ;; Only modify if the entry is nil. |
3273 (unless (aref table i) | 3273 (unless (gnus-get-display-table i table) |
3274 (aset table i [??])))) | 3274 (gnus-put-display-table i [??] table)))) |
3275 (setq buffer-display-table table))) | 3275 (setq buffer-display-table table))) |
3276 | 3276 |
3277 (defun gnus-summary-set-article-display-arrow (pos) | 3277 (defun gnus-summary-set-article-display-arrow (pos) |
3278 "Update the overlay arrow to point to line at position POS." | 3278 "Update the overlay arrow to point to line at position POS." |
3279 (when (and gnus-summary-display-arrow | 3279 (when (and gnus-summary-display-arrow |