Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-xmas.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 9f59509498e1
children cca96a509cfe
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
183 183
184 (defun gnus-xmas-summary-set-display-table () 184 (defun gnus-xmas-summary-set-display-table ()
185 ;; Setup the display table -- like gnus-summary-setup-display-table, 185 ;; Setup the display table -- like gnus-summary-setup-display-table,
186 ;; but done in an XEmacsish way. 186 ;; but done in an XEmacsish way.
187 (let ((table (make-display-table)) 187 (let ((table (make-display-table))
188 ;; Nix out all the control chars...
189 (i 32)) 188 (i 32))
189 ;; Nix out all the control chars...
190 (while (>= (setq i (1- i)) 0) 190 (while (>= (setq i (1- i)) 0)
191 (aset table i [??])) 191 (aset table i [??]))
192 ;; ... but not newline and cr, of course. (cr is necessary for the 192 ;; ... but not newline and cr, of course. (cr is necessary for the
193 ;; selective display). 193 ;; selective display).
194 (aset table ?\n nil) 194 (aset table ?\n nil)
195 (aset table ?\r nil) 195 (aset table ?\r nil)
196 ;; We nix out any glyphs over 126 that are not set already. 196 ;; We nix out any glyphs over 126 that are not set already.
197 (let ((i 256)) 197 (let ((i 256))
198 (while (>= (setq i (1- i)) 127) 198 (while (>= (setq i (1- i)) 127)
199 ;; Only modify if the entry is nil. 199 ;; Only modify if the entry is nil.
200 (or (aref table i) 200 (unless (aref table i)
201 (aset table i [??])))) 201 (aset table i [??]))))
202 (add-spec-to-specifier current-display-table table (current-buffer) nil))) 202 (add-spec-to-specifier current-display-table table (current-buffer) nil)))
203 203
204 (defun gnus-xmas-add-hook (hook function &optional append local) 204 (defun gnus-xmas-add-hook (hook function &optional append local)
205 (add-hook hook function)) 205 (add-hook hook function))
206 206