[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv27957/Drei

Modified Files:
	lisp-syntax-swine.lisp 
Log Message:
Minor fixes to complete-symbol-at-mark-with-fn.


--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swine.lisp	2008/02/18 10:45:26	1.18
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swine.lisp	2008/05/03 08:48:03	1.19
@@ -841,8 +841,8 @@
 be displayed. If no symbol can be found at `mark', return NIL. If
 there is no symbol at `mark' and `complete-blank' is true (the
 default), all symbols available in the current package will be
-shown. If `complete-blank' is true, nothing will be shown and the
-function will return NIL."
+shown. If `complete-blank' is false, nothing will be shown and
+the function will return NIL."
   (let* ((token (form-around syntax (offset mark)))
          (useful-token (and (not (null token))
                             (form-token-p token)
@@ -870,7 +870,8 @@
                   syntax mark
                   (or (when (or useful-token
                                 (accept 'boolean
-                                 :prompt "You are asking for a list of all exported symbols, proceed?"))
+                                 :prompt "You are asking for a list of all exported symbols, proceed?")
+                                (return-from complete-symbol-at-mark-with-fn nil))
                         (frame-manager-menu-choose
                          (find-frame-manager)
                          (mapcar