This commit was generated by cvs2svn to compensate for changes in r6593,

[elisp/gnus.git-] / lisp / earcon.el

diff --git a/lisp/earcon.el b/lisp/earcon.el
index 7c42e8b..4302182 100644 (file)
--- a/lisp/earcon.el
+++ b/lisp/earcon.el
@@ -1,11 +1,7 @@
 ;;; earcon.el --- Sound effects for messages
-
-;; Copyright (C) 1996, 2000 Free Software Foundation
+;; Copyright (C) 1996 Free Software Foundation
 
 ;; Author: Steven L. Baur <steve@miranova.com>
-
-;; This file is part of GNU Emacs.
-
 ;; GNU Emacs 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 2, or (at your option)
@@ -26,6 +22,9 @@
 
 ;;; Code:
 
+(if (null (boundp 'running-xemacs))
+    (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)))
+
 (eval-when-compile (require 'cl))
 (require 'gnus)
 (require 'gnus-audio)
@@ -75,6 +74,8 @@
 (defvar earcon-button-marker-list nil)
 (make-variable-buffer-local 'earcon-button-marker-list)
 
+
+
 ;;; FIXME!! clone of code from gnus-vis.el FIXME!!
 (defun earcon-article-push-button (event)
   "Check text under the mouse pointer for a callback function.
@@ -155,6 +156,7 @@ If N is negative, move backward instead."
        (setq entry nil)))
     entry))
 
+
 (defun earcon-button-push (marker)
   ;; Push button starting at MARKER.
   (save-excursion