Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix caml-help 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4547 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Jacques Garrigue 2002-03-19 09:45:46 +00:00
parent 9157ee804f
commit d1a4a714b5
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
emacs/Makefile
View File

@ -4,7 +4,7 @@ include ../config/Makefile
# Files to install
FILES= caml-font.el caml-hilit.el caml.el camldebug.el \
inf-caml.el caml-compat.el
inf-caml.el caml-compat.el caml-help.el
# Where to install. If empty, automatically determined.
#EMACSDIR=
@ -20,6 +20,7 @@ COMPILECMD=(progn \
(setq load-path (cons "." load-path)) \
(byte-compile-file "caml.el") \
(byte-compile-file "inf-caml.el") \
(byte-compile-file "caml-help.el") \
(byte-compile-file "camldebug.el"))
install:

4
emacs/caml-help.el
View File

@ -450,7 +450,7 @@ This uses info files produced by ocamldoc."
))
(defun ocaml-buffer-substring (region)
(and region (buffer-substring (car region) (cdr region))))
(and region (buffer-substring-no-properties (car region) (cdr region))))
;; Help function.
@ -467,7 +467,7 @@ current buffer using \\[ocaml-qualified-identifier]."
(and (file-exists-p
(concat (ocaml-uncapitalize module) ".mli"))
(ocaml-get-or-make-module module))))
(location (cdadr module-info)))
(location (cdr (car (cdr module-info)))))
(cond
(location
(view-file (concat location (ocaml-uncapitalize module) ".mli"))