diff options
| author | Didier Rémy <Didier.Remy@inria.fr> | 2003-07-29 07:30:03 +0000 |
|---|---|---|
| committer | Didier Rémy <Didier.Remy@inria.fr> | 2003-07-29 07:30:03 +0000 |
| commit | 2f8d5ba5f634eb35719efe164d9a7d632a0c11d9 (patch) | |
| tree | 615f1f476ad3ac24bac7d3a14448feba1f7b9a49 | |
| parent | 066b0b1391b948325bdd76d068709ee2c982bd41 (diff) | |
changed defmacro -> defalias
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5754 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | emacs/caml-emacs.el | 4 | ||||
| -rw-r--r-- | emacs/caml-types.el | 2 | ||||
| -rw-r--r-- | emacs/caml-xemacs.el | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/emacs/caml-emacs.el b/emacs/caml-emacs.el index aa35c7c2c..01a575ebf 100644 --- a/emacs/caml-emacs.el +++ b/emacs/caml-emacs.el @@ -5,10 +5,10 @@ (defalias 'caml-line-beginning-position 'line-beginning-position) -(defun caml-event-window (e) (event-window (event-start e))) +(defun caml-event-window (e) (posn-window (event-start e))) (defun caml-event-point-start (e) (posn-point (event-stact e))) (defun caml-event-point-end (e) (posn-point (event-end e))) -(defmacro caml-track-mouse (el) (track-mouse el)) +(defalias 'caml-track-mouse 'track-mouse) (defalias 'caml-read-event 'read-event) (defun caml-mouse-movement-p mouse-mouvement) diff --git a/emacs/caml-types.el b/emacs/caml-types.el index 643125f54..01167b589 100644 --- a/emacs/caml-types.el +++ b/emacs/caml-types.el @@ -411,7 +411,7 @@ and its type is displayed in the minibuffer, until the move is released." (setq limits (caml-types-find-interval target-buf target-pos tree)) )) - (message (format "type: %s" type)) + (message (setq mes (format "type: %s" type))) (insert type) )) (setq event (caml-read-event)) diff --git a/emacs/caml-xemacs.el b/emacs/caml-xemacs.el index fae561c3f..9fae982c9 100644 --- a/emacs/caml-xemacs.el +++ b/emacs/caml-xemacs.el @@ -12,7 +12,7 @@ (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-track-mouse 'progn) (defalias 'caml-read-event 'next-event) (defun mouse-movement-p (e) (equal (event-type e) 'motion)) |