[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	syntax.lisp lisp-syntax.lisp gui.lisp 
Log Message:
Added optional keyword parameters to the `name-for-info-pane' generic
function.


--- /project/climacs/cvsroot/climacs/syntax.lisp	2006/05/06 11:57:23	1.64
+++ /project/climacs/cvsroot/climacs/syntax.lisp	2006/06/04 16:21:06	1.65
@@ -151,7 +151,9 @@
 ;;;
 ;;; Name for info-pane
 
-(defgeneric name-for-info-pane (syntax))
+(defgeneric name-for-info-pane (syntax &key &allow-other-keys)
+  (:documentation "Return the name that should be used for the
+  info-pane for panes displaying a buffer in this syntax."))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
@@ -289,7 +291,7 @@
   (declare (ignore buffer from to))
   nil)
 
-(defmethod name-for-info-pane ((syntax basic-syntax))
+(defmethod name-for-info-pane ((syntax basic-syntax) &key)
   (name syntax))
 
 (defmethod syntax-line-indentation (mark tab-width (syntax basic-syntax))
--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/06/03 13:40:20	1.82
+++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/06/04 16:21:06	1.83
@@ -71,7 +71,7 @@
   (with-slots (buffer scan) syntax
      (setf scan (clone-mark (low-mark buffer) :left))))
 
-(defmethod name-for-info-pane ((syntax lisp-syntax))
+(defmethod name-for-info-pane ((syntax lisp-syntax) &key)
   (format nil "Lisp~@[:~(~A~)~]"
 	  (let ((package (slot-value syntax 'package)))
 	    (typecase package
--- /project/climacs/cvsroot/climacs/gui.lisp	2006/05/14 17:42:21	1.215
+++ /project/climacs/cvsroot/climacs/gui.lisp	2006/06/04 16:21:06	1.216
@@ -288,7 +288,7 @@
 					      size)))))))
     (with-text-family (pane :sans-serif)
       (princ #\( pane)
-      (princ (name-for-info-pane (syntax buffer)) pane)
+      (princ (name-for-info-pane (syntax buffer) :pane pane) pane)
       (format pane "~{~:[~*~; ~A~]~}" (list
 				       (slot-value master-pane 'overwrite-mode)
 				       "Ovwrt"