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