Index: /trunk/source/contrib/foy/list-definitions-cm/history-lists.lisp
===================================================================
--- /trunk/source/contrib/foy/list-definitions-cm/history-lists.lisp	(revision 12738)
+++ /trunk/source/contrib/foy/list-definitions-cm/history-lists.lisp	(revision 12739)
@@ -557,15 +557,12 @@
   (add-top-level-position))
 
-#|
-(defun gui::cocoa-edit-single-definition (name info)
-  (gui::assume-cocoa-thread)
-  (destructuring-bind (indicator . pathname) info
-    (let* ((view (gui::find-or-make-hemlock-view pathname))
-           (buffer (hi::hemlock-view-buffer view)))
-      (hi::handle-hemlock-event view
-                                #'(lambda ()
-                                    (hemlock::find-definition-in-buffer name indicator)))
-      (add-top-level-position buffer))))
-|#
+;;; gui::cocoa-edit-single-definition didn't last long.
+;;; This one's days are numbered:
+(defun hemlock::move-point-leaving-mark (target)
+  (let ((point (hi::current-point-collapsing-selection)))
+    (hemlock::push-new-buffer-mark point)
+    (hi::move-mark point target)
+    (add-top-level-position (hi::current-buffer))
+    point))
 
 
Index: /trunk/source/contrib/foy/list-definitions/history-lists.lisp
===================================================================
--- /trunk/source/contrib/foy/list-definitions/history-lists.lisp	(revision 12738)
+++ /trunk/source/contrib/foy/list-definitions/history-lists.lisp	(revision 12739)
@@ -5,5 +5,5 @@
 ;;;      history-lists.lisp
 ;;;
-;;;      copyright ￜ 2009 Glen Foy
+;;;      copyright (c) 2009 Glen Foy
 ;;;      (Permission is granted to Clozure Associates to distribute this file.)
 ;;;
@@ -541,15 +541,12 @@
   (add-top-level-position))
 
-#|
-(defun gui::cocoa-edit-single-definition (name info)
-  (gui::assume-cocoa-thread)
-  (destructuring-bind (indicator . pathname) info
-    (let* ((view (gui::find-or-make-hemlock-view pathname))
-           (buffer (hi::hemlock-view-buffer view)))
-      (hi::handle-hemlock-event view
-                                #'(lambda ()
-                                    (hemlock::find-definition-in-buffer name indicator)))
-      (add-top-level-position buffer))))
-|#
+;;; gui::cocoa-edit-single-definition didn't last long.
+;;; This one's days are numbered:
+(defun hemlock::move-point-leaving-mark (target)
+  (let ((point (hi::current-point-collapsing-selection)))
+    (hemlock::push-new-buffer-mark point)
+    (hi::move-mark point target)
+    (add-top-level-position (hi::current-buffer))
+    point))
 
 
Index: /trunk/source/contrib/foy/list-definitions/list-definitions.lisp
===================================================================
--- /trunk/source/contrib/foy/list-definitions/list-definitions.lisp	(revision 12738)
+++ /trunk/source/contrib/foy/list-definitions/list-definitions.lisp	(revision 12739)
@@ -5,5 +5,5 @@
 ;;;      list-definitions.lisp
 ;;;
-;;;      copyright © 2009 Glen Foy
+;;;      copyright (c) 2009 Glen Foy
 ;;;      (Permission is granted to Clozure Associates to distribute this file.)
 ;;;