Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-xmas.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents e04119814345
children 131b0175ea99
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
179 (select-window (get-buffer-window (current-buffer) t)) 179 (select-window (get-buffer-window (current-buffer) t))
180 (gnus-summary-position-point) 180 (gnus-summary-position-point)
181 (gnus-horizontal-recenter) 181 (gnus-horizontal-recenter)
182 (select-window selected)))))) 182 (select-window selected))))))
183 183
184 (defun gnus-xmas-summary-set-display-table ()
185 ;; Setup the display table -- like gnus-summary-setup-display-table,
186 ;; but done in an XEmacsish way.
187 (let ((table (make-display-table))
188 ;; Nix out all the control chars...
189 (i 32))
190 (while (>= (setq i (1- i)) 0)
191 (aset table i [??]))
192 ;; ... but not newline and cr, of course. (cr is necessary for the
193 ;; selective display).
194 (aset table ?\n nil)
195 (aset table ?\r nil)
196 ;; We nix out any glyphs over 126 that are not set already.
197 (let ((i 256))
198 (while (>= (setq i (1- i)) 127)
199 ;; Only modify if the entry is nil.
200 (or (aref table i)
201 (aset table i [??]))))
202 (add-spec-to-specifier current-display-table table (current-buffer) nil)))
203
184 (defun gnus-xmas-add-hook (hook function &optional append local) 204 (defun gnus-xmas-add-hook (hook function &optional append local)
185 (add-hook hook function)) 205 (add-hook hook function))
186 206
187 (defun gnus-xmas-add-text-properties (start end props &optional object) 207 (defun gnus-xmas-add-text-properties (start end props &optional object)
188 (add-text-properties start end props object) 208 (add-text-properties start end props object)
440 (color-instance-rgb-components 460 (color-instance-rgb-components
441 (make-color-instance color)))))) 461 (make-color-instance color))))))
442 462
443 (defun gnus-xmas-redefine () 463 (defun gnus-xmas-redefine ()
444 "Redefine lots of Gnus functions for XEmacs." 464 "Redefine lots of Gnus functions for XEmacs."
445 (fset 'gnus-summary-make-display-table 'ignore) 465 (fset 'gnus-summary-set-display-table 'gnus-xmas-summary-set-display-table)
446 (fset 'gnus-visual-turn-off-edit-menu 'identity) 466 (fset 'gnus-visual-turn-off-edit-menu 'identity)
447 (fset 'gnus-summary-recenter 'gnus-xmas-summary-recenter) 467 (fset 'gnus-summary-recenter 'gnus-xmas-summary-recenter)
448 (fset 'gnus-extent-start-open 'gnus-xmas-extent-start-open) 468 (fset 'gnus-extent-start-open 'gnus-xmas-extent-start-open)
449 (fset 'gnus-article-push-button 'gnus-xmas-article-push-button) 469 (fset 'gnus-article-push-button 'gnus-xmas-article-push-button)
450 (fset 'gnus-article-add-button 'gnus-xmas-article-add-button) 470 (fset 'gnus-article-add-button 'gnus-xmas-article-add-button)