xmas: remove gnus-characterp definition

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79bab66..1f89b2e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-29  Julien Danjou  <julien@danjou.info>
 
 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
        * 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 2e0586d..3d7dd0c 100644 (file)
--- 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))
 
   (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.
   (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 98df778..3c85457 100644 (file)
--- 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))
                     (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)
   (defalias 'gnus-deactivate-mark 'deactivate-mark)
   (defalias 'gnus-window-edges 'window-edges)
   (defalias 'gnus-key-press-event-p 'numberp)