From 938585cc97233f134cfc0bd13a1b887d6772da19 Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Fri, 29 Oct 2010 12:44:17 +0200 Subject: [PATCH] xmas: remove gnus-characterp definition Signed-off-by: Julien Danjou --- lisp/ChangeLog | 3 +++ lisp/gnus-xmas.el | 8 -------- lisp/gnus.el | 1 - 3 files changed, 3 insertions(+), 9 deletions(-) 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 + * 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) -- 2.25.1