diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2013-01-17 02:56:00 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2013-01-17 02:56:00 +0000 |
| commit | 6970ac6e719eec7955a483fe59eb90c7abf8b328 (patch) | |
| tree | bd34a9ff8f0b9741b710fc5595f68fa416ccafb5 /emacs/caml.el | |
| parent | dfed25213f1642efd3e4d37cbe94f2bfdadce303 (diff) | |
merge patch by Stefan Monnier from PR#5884
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13253 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'emacs/caml.el')
| -rw-r--r-- | emacs/caml.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/emacs/caml.el b/emacs/caml.el index a246c55ea..ea2e8abc5 100644 --- a/emacs/caml.el +++ b/emacs/caml.el @@ -692,14 +692,14 @@ the current point." ((looking-at "[ \t]*method") (setq method-alist (cons index method-alist))))) ;; build menu - (mapcar - '(lambda (pair) - (if (symbol-value (cdr pair)) - (setq menu-alist - (cons - (cons (car pair) - (sort (symbol-value (cdr pair)) 'imenu--sort-by-name)) - menu-alist)))) + (mapc + (lambda (pair) + (if (symbol-value (cdr pair)) + (setq menu-alist + (cons + (cons (car pair) + (sort (symbol-value (cdr pair)) 'imenu--sort-by-name)) + menu-alist)))) '(("Values" . value-alist) ("Types" . type-alist) ("Modules" . module-alist) |