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

[gfoy at clozure.com]

Author: gfoy
Date: Wed Sep  2 11:54:17 2009
New Revision: 12739

Log:
Redefined hemlock::move-point-leaving-mark.  Not good, but what can you do =
without CLOS.

Modified:
    trunk/source/contrib/foy/list-definitions-cm/history-lists.lisp
    trunk/source/contrib/foy/list-definitions/history-lists.lisp
    trunk/source/contrib/foy/list-definitions/list-definitions.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 Wed Sep=
  2 11:54:17 2009
@@ -556,17 +556,14 @@
       (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
-    (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 na=
me 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))
 =

 =

 (read-history-files)

Modified: trunk/source/contrib/foy/list-definitions/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/history-lists.lisp (original)
+++ trunk/source/contrib/foy/list-definitions/history-lists.lisp Wed Sep  2=
 11:54:17 2009
@@ -4,7 +4,7 @@
 ;;;
 ;;;      history-lists.lisp
 ;;;
-;;;      copyright =C3=AF=C2=BF=C2=BD 2009 Glen Foy
+;;;      copyright (c) 2009 Glen Foy
 ;;;      (Permission is granted to Clozure Associates to distribute this f=
ile.)
 ;;;
 ;;;      This code supports file and position history lists.
@@ -540,17 +540,14 @@
       (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
-    (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 na=
me 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))
 =

 =

 (read-history-files)

Modified: trunk/source/contrib/foy/list-definitions/list-definitions.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/list-definitions.lisp (origin=
al)
+++ trunk/source/contrib/foy/list-definitions/list-definitions.lisp Wed Sep=
  2 11:54:17 2009
@@ -4,7 +4,7 @@
 ;;;
 ;;;      list-definitions.lisp
 ;;;
-;;;      copyright =C2=A9 2009 Glen Foy
+;;;      copyright (c) 2009 Glen Foy
 ;;;      (Permission is granted to Clozure Associates to distribute this f=
ile.)
 ;;;
 ;;;      This code adds a dynamic contextual popup menu to Hemlock.