Hi.
With no completions the result is a cons cell and not a nil symbol (empty list)
testable against 'not'. There was also a mistake with the 'if' parenthesis.
Cheers,
Pete.
PS. Caveat everything written above with 'noob'!
--- cedet-1.1bzr8051/semantic/senator.el 2011-06-09 14:15:18.000000000
+0100
+++ cedet-1.1bzr8066/semantic/senator.el 2011-06-09 14:12:11.000000000
+0100
@@ -970,9 +970,8 @@
(setq symbol (buffer-substring-no-properties symstart (point))
regexp (regexp-quote symbol)
complst (senator-find-tag-for-completion regexp)))
-
- (if (not (car complst))
- (error "No completions available")
+ (if (not complst)
+ (error "No completions available"))
;; We have a completion list, build a menu
(let ((index (delq nil
(mapcar #'senator-completion-menu-item
@@ -1013,7 +1012,7 @@
(senator-completion-menu-point-as-event)
title)))
(if item
- (senator-completion-menu-do-complete (cdr item)))))))
+ (senator-completion-menu-do-complete (cdr item))))))
;;;;
;;;; Search commands
|