[slime-cvs] CVS slime

[mkoeppe]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv28828

Modified Files:
	swank-backend.lisp 
Log Message:
(character-completion-set): New interface.


--- /project/slime/cvsroot/slime/swank-backend.lisp	2006/10/20 17:07:55	1.107
+++ /project/slime/cvsroot/slime/swank-backend.lisp	2006/10/28 17:41:41	1.108
@@ -953,3 +953,15 @@
 (definterface make-weak-value-hash-table (&rest args)
   "Like MAKE-HASH-TABLE, but weak w.r.t. the values."
   (apply #'make-hash-table args))
+
+
+;;;; Character names
+
+(definterface character-completion-set (prefix matchp)
+  "Return a list of names of characters that match PREFIX."
+  ;; Handle the standard and semi-standard characters.
+  (loop for name in '("Newline" "Space" "Tab" "Page" "Rubout"
+                      "Linefeed" "Return" "Backspace")
+     when (funcall matchp prefix name)
+     collect name))
+