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 to install
FILES= caml-font.el caml-hilit.el caml.el camldebug.el \ 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. # Where to install. If empty, automatically determined.
#EMACSDIR= #EMACSDIR=
@ -20,6 +20,7 @@ COMPILECMD=(progn \
(setq load-path (cons "." load-path)) \ (setq load-path (cons "." load-path)) \
(byte-compile-file "caml.el") \ (byte-compile-file "caml.el") \
(byte-compile-file "inf-caml.el") \ (byte-compile-file "inf-caml.el") \
(byte-compile-file "caml-help.el") \
(byte-compile-file "camldebug.el")) (byte-compile-file "camldebug.el"))
install: install:

4
emacs/caml-help.el
View File

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