[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv24920

Modified Files:
	lisp-syntax.lisp 
Log Message:
Added `symbol-at-mark' function.


--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/05/31 13:55:15	1.78
+++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/05/31 14:47:28	1.79
@@ -1362,6 +1362,17 @@
 returned."
   (form-toplevel (expression-at-mark mark syntax) syntax))
 
+(defun symbol-at-mark (mark syntax)
+  "Return a symbol token at mark. This function will \"unwrap\"
+  quote-forms in order to return the symbol token. If no symbol
+  token can be found, NIL will be returned."
+  (labels ((unwrap-form (form)
+             (cond ((typep form 'quote-form)
+                    (unwrap-form (first-form (children form))))
+                   ((typep form 'complete-token-lexeme)
+                    form))))
+    (unwrap-form (expression-at-mark mark syntax))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;; display