diff options
Diffstat (limited to 'emacs/caml-help.el')
| -rw-r--r-- | emacs/caml-help.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/emacs/caml-help.el b/emacs/caml-help.el index f67ed1a51..69e5b1c9f 100644 --- a/emacs/caml-help.el +++ b/emacs/caml-help.el @@ -27,8 +27,10 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(if (and (boundp 'running-xemacs) running-xemacs) - (require 'caml-xemacs)) +(eval-and-compile + (if (and (boundp 'running-xemacs) running-xemacs) + (require 'caml-xemacs) + (require 'caml-emacs))) ;; Loading or building databases. ;; @@ -566,7 +568,7 @@ current buffer using \\[ocaml-qualified-identifier]." (let ((window (selected-window)) (info-section (assoc module (ocaml-info-alist)))) (if info-section - (info-other-window (cdr info-section)) + (caml-info-other-window (cdr info-section)) (ocaml-visible-modules) (let* ((module-info (or (assoc module (ocaml-module-alist)) @@ -717,9 +719,8 @@ buffer positions." (defun ocaml-link-goto (click) (interactive "e") - (let* ((start (event-start click)) - (pos (posn-point start)) - (buf (window-buffer (posn-window start))) + (let* ((pos (caml-event-point-start click)) + (buf (caml-event-window click)) (window (selected-window)) (link)) (setq link |