diff options
Diffstat (limited to 'elisp/erbot/erbcompat.el')
-rw-r--r-- | elisp/erbot/erbcompat.el | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/elisp/erbot/erbcompat.el b/elisp/erbot/erbcompat.el new file mode 100644 index 0000000..8e9e518 --- /dev/null +++ b/elisp/erbot/erbcompat.el @@ -0,0 +1,55 @@ +;;; erbcompat.el --- Erbot GNU Emacs/XEmacs compatibility issues +;; Time-stamp: <2007-11-23 11:30:12 deego> +;; Copyright (C) 2004 S. Freundt +;; Emacs Lisp Archive entry +;; Filename: erbcompat.el +;; Package: erbot +;; Author: Sebastian Freundt <freundt@math.TU-Berlin.DE> +;; Version: NA +;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ErBot + + + + +;; This file is NOT (yet) part of GNU Emacs. + +;; This is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3, or (at your option) +;; any later version. + +;; This is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + + +(defvar erbot-on-xemacs-p nil + "Whether erbot is run on xemacs.") + +(setq erbot-on-xemacs-p + (and (string-match "xemacs" emacs-version) t)) + + +;;; local-variable-p stuff +(or (and erbot-on-xemacs-p + (defun erbcompat-local-variable-p (variable &optional buffer) + "Just in compatibilty to GNU Emacs" + (local-variable-p variable (or buffer (current-buffer))))) + (defalias 'erbcompat-local-variable-p 'local-variable-p)) + +;;; help-xref stuff +(and erbot-on-xemacs-p + (defun help-setup-xref (&rest ignore)) + (defun help-xref-button (&rest ignore)) + (defun help-xref-stack (&rest ignore))) + + +(provide 'erbcompat) + +;; erbcompat.el ends here |