[Openmcl-cvs-notifications] r12723 - /trunk/source/contrib/foy/list-definitions-cm/history-lists.lisp

[gfoy at clozure.com]

Author: gfoy
Date: Mon Aug 31 08:49:04 2009
New Revision: 12723

Log:
gui::cocoa-edit-single-definition no longer exists.  It's difficult to rede=
fne it.

Modified:
    trunk/source/contrib/foy/list-definitions-cm/history-lists.lisp

Modified: trunk/source/contrib/foy/list-definitions-cm/history-lists.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/contrib/foy/list-definitions-cm/history-lists.lisp (origin=
al)
+++ trunk/source/contrib/foy/list-definitions-cm/history-lists.lisp Mon Aug=
 31 08:49:04 2009
@@ -4,7 +4,7 @@
 ;;;
 ;;;      history-lists.lisp
 ;;;
-;;;      copyright =C2=A9 2009 Glen Foy
+;;;      copyright =C3=AF=C2=BF=C2=BD 2009 Glen Foy
 ;;;      (Permission is granted to Clozure Associates to distribute this f=
ile.)
 ;;;
 ;;;      This code supports file and position history lists.
@@ -554,6 +554,7 @@
       (hemlock::editor-compile-region (hemlock::defun-region (hi::current-=
point)) t))
   (add-top-level-position))
 =

+#|
 (defun gui::cocoa-edit-single-definition (name info)
   (gui::assume-cocoa-thread)
   (destructuring-bind (indicator . pathname) info
@@ -563,6 +564,7 @@
                                 #'(lambda ()
                                     (hemlock::find-definition-in-buffer na=
me indicator)))
       (add-top-level-position buffer))))
+|#
 =

 =

 (read-history-files)