Changeset 774


Ignore:
Timestamp:
Apr 13, 2004, 7:18:10 PM (15 years ago)
Author:
gb
Message:

Mark setup for new scheme.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/hemlock/src/command.lisp

    r714 r774  
    2424      :buffer buff
    2525      :value ring)
    26     (ring-push (copy-mark (buffer-point buff) :right-inserting) ring)))
     26    (setf (hi::buffer-%mark buff) (copy-mark (buffer-point buff) :right-inserting))))
    2727
    2828(add-hook make-buffer-hook #'hcmd-new-buffer-hook-fun)
Note: See TracChangeset for help on using the changeset viewer.