Changeset 12145


Ignore:
Timestamp:
May 27, 2009, 9:11:18 PM (10 years ago)
Author:
gb
Message:

"New Line" command - insertion should replace selection.
"Open Line" command deactivates selection; might want to just leave it alone.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/hemlock/src/indent.lisp

    r11972 r12145  
    182182  "Inserts a newline into the buffer without moving the point.
    183183  With argument, inserts p newlines."
    184   (let ((point (current-point))
     184  (let ((point (current-point-collapsing-selection))
    185185        (count (if p p 1)))
    186186    (if (not (minusp count))
     
    196196  With an argument, repeats p times."
    197197  "Moves the point to a new blank line."
    198   (let ((point (current-point))
     198  (let ((point (current-point-for-insertion))
    199199        (count (if p p 1)))
    200200    (if (not (minusp count))
    201201      (dotimes (i count) (insert-character point #\newline))
    202202      (editor-error))))
     203
     204
    203205
    204206
Note: See TracChangeset for help on using the changeset viewer.