branch: elpa/forth-mode
commit 4868a0ff03e0cfec2f1937856ed078432a8db711
Author: Lars Brinkhoff <[email protected]>
Commit: Lars Brinkhoff <[email protected]>
Fix for imenu integration.
---
forth-mode.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/forth-mode.el b/forth-mode.el
index 19467fb58c..ea08fe29d5 100644
--- a/forth-mode.el
+++ b/forth-mode.el
@@ -70,10 +70,11 @@
(defun forth-expand-symbol ()
(let ((list (forth-words)))
- (dolist (index (imenu--make-index-alist t))
- (when (listp (rest index))
- (dolist (def (rest index))
- (push (car def) list))))
+ (when (fboundp 'imenu--make-index-alist)
+ (dolist (index (imenu--make-index-alist t))
+ (when (listp (rest index))
+ (dolist (def (rest index))
+ (push (car def) list)))))
(list (forth-symbol-start) (forth-symbol-end) list)))
(defun forth-block-p ()
