Changeset 7564

Timestamp:

09/05/04 00:12:25 (19 years ago)

Author:

piso

Message:

POINT => CURRENT-POINT
MARKER => MARK

File:

• trunk/j/examples/complete.lisp (modified) (3 diffs)

trunk/j/examples/complete.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2004 Peter Graves
-;;; $Id: complete.lisp,v 1.1 2004-04-13 15:22:08 piso Exp $
+;;; $Id: complete.lisp,v 1.2 2004-09-05 00:12:25 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -51 +51 @@
 (defun completion-prefix ()
   (let* ((string (line-chars (current-line)))
-         (end (marker-charpos (point))))
+         (end (mark-charpos (current-point))))
     (do ((start (1- end) (1- start)))
         ((< start 0) (subseq string 0 end))
@@ -75 +75 @@
   (when *completions*
     (let ((completion (string-downcase (nth *completion-index* *completions*)))
-          (point (point)))
+          (point (current-point)))
       (with-single-undo
-        (goto-char (make-marker (marker-line point)
-                                (- (marker-charpos point) (length *prefix*))))
+        (goto-char (make-mark (mark-line point)
+                              (- (mark-charpos point) (length *prefix*))))
         (set-mark point)
         (delete-region)