Changeset 6653

Timestamp:

Jun 3, 2007, 2:49:19 AM (17 years ago)

Author:

Gary Byers

Message:

CURRENT-POINT-FOR-DELETION, -FOR-SELECTION, -FOR-INSERTION: try to handle
existing selection sanely.

File:

• branches/ide-1.0/ccl/hemlock/src/buffer.lisp (modified) (1 diff)

branches/ide-1.0/ccl/hemlock/src/buffer.lisp

@@ -325 +325 @@
   (buffer-point *current-buffer*))
 
+(defun current-point-for-insertion ()
+  "Check to see if the current buffer can be modified at its
+  current point; error if not.  If there's a selection in the
+  current buffer, delete it.  Return the current point."
+  (let* ((buffer *current-buffer*)
+         (point (buffer-point buffer)))
+    (check-buffer-modification buffer point)
+    (let* ((region (%buffer-current-region buffer)))
+      (when region
+        (delete-region region))
+      point)))
+
+(defun current-point-for-deletion ()
+  "Check to see if the current buffer can be modified at its
+  current point; error if not.  If there's a selection in the
+  current buffer, delete it and return NIL, else return the
+  current point."
+  (let* ((buffer *current-buffer*)
+         (point (buffer-point buffer)))
+    (check-buffer-modification buffer point)
+    (let* ((region (%buffer-current-region buffer)))
+      (if region
+        (progn
+          (delete-region region)
+          nil)
+        point))))
+
+(defun current-point-unless-selection ()
+  "Check to see if the current buffer can be modified at its
+  current point; error if not.  If there's a selection in the
+  current buffer, return NIL, else return the  current point."
+  (let* ((buffer *current-buffer*)
+         (point (buffer-point buffer)))
+    (check-buffer-modification buffer point)
+    (let* ((region (%buffer-current-region buffer)))
+      (unless region
+        point))))
+
 ;;; %SET-CURRENT-BUFFER  --  Internal
 ;;;