; *** hp.ime:/users/am/emacs/tar-x.el, Tue Nov 27 13:26:26 1990, edit by am *** ;;;; A [file of] X mouse function[s] for use in Tar mode [, more later..]. (require 'tar-mode) (provide 'tar-x) (defun x-mouse-tar-inspect-entry (arg &optional other-window-p) "Inspect the entry the mouse is pointing at. If optional second arg OTHER-WINDOW-P is non-nil do it in another window." (eval-in-window x-mouse-window (x-mouse-set-point arg) (tar-extract other-window-p))) (defun x-mouse-tar-inspect-entry-other-window (arg) "Inspect the entry the mouse is pointing at in another window" (x-mouse-tar-inspect-entry arg t))