Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-xmas.el @ 28:1917ad0d78d7 r19-15b97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b97
author cvs
date Mon, 13 Aug 2007 08:51:55 +0200
parents 441bb1e64a06
children ec9a17fef872
comparison
equal deleted inserted replaced
27:0a3286277d9b 28:1917ad0d78d7
326 (defun gnus-xmas-read-event-char () 326 (defun gnus-xmas-read-event-char ()
327 "Get the next event." 327 "Get the next event."
328 (let ((event (next-command-event))) 328 (let ((event (next-command-event)))
329 (sit-for 0) 329 (sit-for 0)
330 ;; We junk all non-key events. Is this naughty? 330 ;; We junk all non-key events. Is this naughty?
331 (while (not (key-press-event-p event)) 331 (while (not (or (key-press-event-p event)
332 (button-press-event-p event)))
333 (dispatch-event event)
332 (setq event (next-command-event))) 334 (setq event (next-command-event)))
333 (cons (and (key-press-event-p event) 335 (cons (and (key-press-event-p event)
334 (event-to-character event)) 336 (event-to-character event))
335 event))) 337 event)))
336 338
434 (if (fboundp 'x-color-values) 436 (if (fboundp 'x-color-values)
435 'x-color-values 437 'x-color-values
436 (lambda (color) 438 (lambda (color)
437 (color-instance-rgb-components 439 (color-instance-rgb-components
438 (make-color-instance color)))))) 440 (make-color-instance color))))))
439
440 (defun gnus-xmas-region-active-p ()
441 (and (fboundp 'region-active-p)
442 (region-active-p)))
443 441
444 (defun gnus-xmas-redefine () 442 (defun gnus-xmas-redefine ()
445 "Redefine lots of Gnus functions for XEmacs." 443 "Redefine lots of Gnus functions for XEmacs."
446 (fset 'gnus-summary-make-display-table 'ignore) 444 (fset 'gnus-summary-make-display-table 'ignore)
447 (fset 'gnus-visual-turn-off-edit-menu 'identity) 445 (fset 'gnus-visual-turn-off-edit-menu 'identity)
459 (fset 'gnus-add-hook 'gnus-xmas-add-hook) 457 (fset 'gnus-add-hook 'gnus-xmas-add-hook)
460 (fset 'gnus-character-to-event 'character-to-event) 458 (fset 'gnus-character-to-event 'character-to-event)
461 (fset 'gnus-mode-line-buffer-identification 459 (fset 'gnus-mode-line-buffer-identification
462 'gnus-xmas-mode-line-buffer-identification) 460 'gnus-xmas-mode-line-buffer-identification)
463 (fset 'gnus-key-press-event-p 'key-press-event-p) 461 (fset 'gnus-key-press-event-p 'key-press-event-p)
464 (fset 'gnus-region-active-p 'gnus-xmas-region-active-p) 462 (fset 'gnus-region-active-p 'region-active-p)
465 463
466 (add-hook 'gnus-group-mode-hook 'gnus-xmas-group-menu-add) 464 (add-hook 'gnus-group-mode-hook 'gnus-xmas-group-menu-add)
467 (add-hook 'gnus-summary-mode-hook 'gnus-xmas-summary-menu-add) 465 (add-hook 'gnus-summary-mode-hook 'gnus-xmas-summary-menu-add)
468 (add-hook 'gnus-article-mode-hook 'gnus-xmas-article-menu-add) 466 (add-hook 'gnus-article-mode-hook 'gnus-xmas-article-menu-add)
469 (add-hook 'gnus-score-mode-hook 'gnus-xmas-score-menu-add) 467 (add-hook 'gnus-score-mode-hook 'gnus-xmas-score-menu-add)