From: Julien Danjou <julien@danjou.info>
Date: Fri, 29 Oct 2010 10:44:17 +0000 (+0200)
Subject: xmas: remove gnus-characterp definition
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=938585cc97233f134cfc0bd13a1b887d6772da19

xmas: remove gnus-characterp definition

Signed-off-by: Julien Danjou <julien@danjou.info>
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79bab663b..1f89b2eb6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-29  Julien Danjou  <julien@danjou.info>
 
+	* gnus-xmas.el (gnus-xmas-define): Remove unused gnus-characterp
+	definition.
+
 	* gnus-group.el (gnus-group-make-tool-bar): Check for display graphic
 	capability before doing anything.
 	(gnus-group-insert-group-line): Remove useless
diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 2e0586d4d..3d7dd0cff 100644
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -406,14 +406,6 @@ then we display only bindings that start with that prefix."
   (unless (face-differs-from-default-p 'underline)
     (funcall (intern "set-face-underline-p") 'underline t))
 
-  (cond
-   ((fboundp 'char-or-char-int-p)
-    ;; Handle both types of marks for XEmacs-20.x.
-    (defalias 'gnus-characterp 'char-or-char-int-p))
-   ;; V19 of XEmacs, probably.
-   (t
-    (defalias 'gnus-characterp 'characterp)))
-
   (defalias 'gnus-make-overlay
     (lambda (beg end &optional buffer front-advance rear-advance)
       "Create a new overlay with range BEG to END in BUFFER.
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 98df77801..3c8545740 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -349,7 +349,6 @@ be set in `.emacs' instead."
 		     (list str))
 	    line)))
     (defalias 'gnus-mode-line-buffer-identification 'identity))
-  (defalias 'gnus-characterp 'numberp)
   (defalias 'gnus-deactivate-mark 'deactivate-mark)
   (defalias 'gnus-window-edges 'window-edges)
   (defalias 'gnus-key-press-event-p 'numberp)