Mercurial > emacs

comparison lisp/gnus/gnus-sum.el @ 80613:9110741da209

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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