imenu and ocaml-mode 1.05

From: Fritz Heinrichmeyer (fritz.heinrichmeyer@fernuni-hagen.de)
Date: Tue Nov 25 1997 - 09:03:50 MET


To: caml-list@pauillac.inria.fr
Subject: imenu and ocaml-mode 1.05
From: Fritz Heinrichmeyer <fritz.heinrichmeyer@fernuni-hagen.de>
Date: 25 Nov 1997 09:03:50 +0100
In-Reply-To: Fabrice Le Fessant's message of Fri, 21 Nov 1997 15:38:23 +0100

Ocaml-mode 1.05 did not work with emacs-20.2 due a changed imenu
interface.

Here is a patch included (sorry, attachments are not allowed in this
list):

*** caml-mode/caml.el Thu Jul 17 15:06:05 1997
--- /home/jfh/lisp/caml.el Mon Nov 24 10:53:45 1997
***************
*** 423,428 ****
--- 423,430 ----
      ;imenu support (not for Xemacs)
      (make-local-variable 'imenu-create-index-function)
      (setq imenu-create-index-function 'caml-create-index-function)
+ (make-local-variable 'imenu-generic-expression)
+ (setq imenu-generic-expression caml-imenu-generic-expression)
      (if caml-imenu-disable nil
        (require 'imenu)
        (imenu-add-to-menubar "Defs")))
***************
*** 451,457 ****
  (defun caml-show-subshell () (inferior-caml-show-subshell))
  
  ;;; Imenu support
! (defconst caml-imenu-search-regexp
    (concat "\\<in\\>\\|"
            "^[ \t]*\\(let\\|class\\|type\\|m\\(odule\\|ethod\\)"
            "\\|functor\\|and\\|val\\)[ \t]+"
--- 453,459 ----
  (defun caml-show-subshell () (inferior-caml-show-subshell))
  
  ;;; Imenu support
! (defconst caml-imenu-generic-expression
    (concat "\\<in\\>\\|"
            "^[ \t]*\\(let\\|class\\|type\\|m\\(odule\\|ethod\\)"
            "\\|functor\\|and\\|val\\)[ \t]+"
***************
*** 461,467 ****
  (defun caml-prev-index-position-function ()
    (let (found data)
      (while (and (setq found
! (re-search-backward caml-imenu-search-regexp nil 'move))
                  (progn (setq data (match-data)) t)
                  (or (caml-in-literal-p)
                      (caml-in-comment-p)
--- 463,470 ----
  (defun caml-prev-index-position-function ()
    (let (found data)
      (while (and (setq found
! (re-search-backward caml-imenu-generic-expression
! nil 'move))
                  (progn (setq data (match-data)) t)
                  (or (caml-in-literal-p)
                      (caml-in-comment-p)



This archive was generated by hypermail 2b29 : Sun Jan 02 2000 - 11:58:13 MET