[comp.emacs] epoch beeping on window entry

uucigj@swbatl.sbc.com (Greg Jensen - UCI - 5-3531) (08/03/90)

I don't know if this is the correct group to post this to (that is I don't
know if there is a epoch newsgroup), but I have a question about moving the
mouse into one of the windows after doing an find-file-in-other-screen.
When I move the mouse out and into the screen that came up first with epoch
everything is ok.  After I bring up another screen via the
find-file-in-other-screen (C-z4C-f) and move the mouse out and in, I am
treated with an annoying beep every time I move back into the screen.  I
have enclosed my .emacs (from Michael Meissner posted a while back) and was
hoping to have someone point out the error in my ways.  Thanks

      Gregg Jensen
   ---------------------------------------------------------------------- 
    These opinions are my own and do not necessarily reflect my companies.
      Southwestern Bell Telephone
      Send E-MAIL to the following address...
               ...!uunet!swbatl!uucigj
			   		- or you can try -
			   uucigj%gandalf.sbc.com@uunet.uu.net
   ---------------------------------------------------------------------- 

; This is a .emacs file for initializing gnuemacs.  Customize however 
; you like


;; epoch::version is an epoch-defined variable whose value is not nil.
;; By looking at it you can tell if you are running epoch.  But! on
;; the other hand, it doesnt exist in a regular gnuemacs, so defvar-ing
;; it to nil here guarantees it will be nil in gnuemacs and non-nil
;; in epoch
(defvar epoch::version nil)     ;; in epoch this wiill not set!

;; running-epoch is a better name for the variable that tells us is we are
;; in epoch or not

(setq running-epoch epoch::version)

;; target-buffer is used by random bits of the epoch code.

(setq target-buffer (get-buffer "*scratch*"))

;; live dangerously

(put 'eval-expression 'disabled nil)

;; because I have so many screens open all the time, and idle C-xC-c can
;; really screw things up for me.  So make sure we dont exit without
;; confirmation, and rebind C-xC-c appropriately

(defun my-exit-from-emacs ()
  (interactive)
  (if (yes-or-no-p "Do you want to exit ")
      (save-buffers-kill-emacs)))

(global-set-key "\C-x\C-c" 'my-exit-from-emacs)


(defun mrm-epoch-switch-screen nil
  "Switch screen and then raise it"
  (interactive)
  (switch-screen)
  (raise-current-screen)
  (raise-minibuf))

(defun mrm-epoch-recenter (prefix)
  "Recenter under epoch raising the screen as well"
  (interactive "P")
  (recenter prefix)
  (epoch::raise-screen))

(if (not (boundp 'epoch::version))
    (progn
      ;(load "term/x-win")
      ;(autoload 'x-mouse-help	  "x-mouse-help" nil t)
      ;(autoload 'x-mouse-prefix "x-mouse-help" nil t)
      ;;;(x-set-bell t)
      (x-flip-color))
  (progn
    (setq auto-raise-screen nil)
    (setq include-system-name nil)
    (setq terminal-epoch t)
    (setq load-path
          (append load-path
      	    (list "/usr/local/emacs/lisp")))
    (load "epoch")
    (load "smk-x-mouse")
    (load "motion")
    (global-set-key "\C-s" 'mrm-epoch-switch-screen)
    (global-set-key "\C-l"  'mrm-epoch-recenter)
    (setq epoch::screen-properties (append (list
      				      (cons 'font "9x15")
      				      (cons 'geometry "100x54"))
      				     epoch::screen-properties))
    (epoch::move-screen 7 68)
    (epoch::rebind-key "Prior"  0 "\e[5~")
    (epoch::rebind-key "Next"   0 "\e[6~")
    (epoch::rebind-key "KP_1"   0 "\C-v")
    (epoch::rebind-key "KP_2"   0 "\C-n")
    (epoch::rebind-key "KP_3"   0 "\e[b~")
    (epoch::rebind-key "KP_4"   0 "\C-b")
    (epoch::rebind-key "KP_5"   0 "\C-a")
    (epoch::rebind-key "KP_6"   0 "\C-f")
    (epoch::rebind-key "KP_7"   0 "\M-v")
    (epoch::rebind-key "KP_8"   0 "\C-p")
    (epoch::rebind-key "KP_9"   0 "\e[t~")
    (epoch::rebind-key "KP_F1"  0 "\e[p~")
    (epoch::rebind-key "KP_F2"  0 "\e[q~")
    (epoch::rebind-key "KP_F3"  0 "\e[r~")
    (epoch::rebind-key "KP_F4"  0 "\e[s~")
    (epoch::title "Epoch")))
(display-time)