Changeset 6775

Timestamp:

Jun 20, 2007, 11:34:34 AM (17 years ago)

Author:

Gary Byers

Message:

Remove TIME macro call.

File:

• branches/ide-1.0/ccl/hemlock/src/morecoms.lisp (modified) (2 diffs)

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

@@ -435 +435 @@
   "Print info on current point position"
   (declare (ignore p))
-  (time
   (let* ((point (current-point))
          (current-line (mark-line point)))
     (let* ((line-number (do* ((l 1 (1+ l))
-                              (mark-line (mark-line point) (line-previous mark-line)))
+                              (mark-line (line-previous (mark-line point)) (line-previous mark-line)))
                              ((null mark-line) l)))
              (charpos (mark-charpos point))
@@ -446 +445 @@
              (size (count-characters (buffer-region (current-buffer)))))
         (message "Char: ~s point = ~d of ~d(~d%) line ~d column ~d"
-                 char abspos size (round (/ (* 100 abspos) size)) line-number charpos)))))
+                 char abspos size (round (/ (* 100 abspos) size)) line-number charpos))))