diff options
Diffstat (limited to 'emacs/caml-xemacs.el')
| -rw-r--r-- | emacs/caml-xemacs.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/emacs/caml-xemacs.el b/emacs/caml-xemacs.el index 9c1aaa64c..fae561c3f 100644 --- a/emacs/caml-xemacs.el +++ b/emacs/caml-xemacs.el @@ -1,20 +1,19 @@ (require 'overlay) ;; for caml-help.el -(defun info-other-window (arg) +(defun caml-info-other-window (arg) (save-excursion (info arg)) (view-buffer-other-window "*info*")) ;; for caml-types.el -(defun event-start (e) e) -(defun event-end (e) e) -(defun line-beginning-position () +(defun caml-line-beginning-position () (save-excursion (beginning-of-line) (point))) -(defvar last-mouse-position t) -(defun posn-point (e) (event-closest-point e)) -(defmacro track-mouse (el) (progn el)) -(defun read-event () (let ((e (next-event))) e)) + +(defun caml-event-window (e) (event-window e)) +(defun caml-event-point-start (e) (event-closest-point e)) +(defun caml-event-point-end (e) (event-closest-point e)) +(defmacro caml-track-mouse (el) (progn el)) +(defalias 'caml-read-event 'next-event) (defun mouse-movement-p (e) (equal (event-type e) 'motion)) -(defun posn-window (e) (event-window e)) (provide 'caml-xemacs) |